[Collab-qa-commits] r375 - svnbuildstat/lib/SvnBuildStat/WWW/Controller

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-08-10 23:29:26 +0000 (Fri, 10 Aug 2007)
New Revision: 375

Modified:
   svnbuildstat/lib/SvnBuildStat/WWW/Controller/Packages.pm
Log:
pick a package to build with a buildable arch


Modified: svnbuildstat/lib/SvnBuildStat/WWW/Controller/Packages.pm
===================================================================
--- svnbuildstat/lib/SvnBuildStat/WWW/Controller/Packages.pm	2007-08-10 22:34:26 UTC (rev 374)
+++ svnbuildstat/lib/SvnBuildStat/WWW/Controller/Packages.pm	2007-08-10 23:29:26 UTC (rev 375)
@@ -189,8 +189,9 @@
   my $archobj = $c->model('SvnBuildStat::WWW::Model::DB::Arch')->find_or_create ({name => $arch});
 
   #my $package_rs = $c->model('SvnBuildStat::WWW::Model::DB::Viewpackage')->search({istarballpresent => 'true', },{order_by=> "builded, lastbuilddate"});
-  my $package_id = $c->model('SvnBuildStat::WWW::Model::DB::Viewtobuild')->first;
-  my $package = $c->model('SvnBuildStat::WWW::Model::DB::Package')->search ({id => $package_id->package_id})->first;
+  #my $tmp = $c->model('SvnBuildStat::WWW::Model::DB::Viewtobuild')->first;
+  my $tmp = $c->model('SvnBuildStat::WWW::Model::DB::Viewtobuild')->search({$archs => 'true', })->first;
+  my $package = $c->model('SvnBuildStat::WWW::Model::DB::Package')->search ({id => $tmp->id})->first;
 
 
   my $resp = '';