r3009 - ! dirs' list truncated !

[Gonéri Le Bouder]

Author: goneri-guest
Date: 2007-06-20 11:48:27 +0000 (Wed, 20 Jun 2007)
New Revision: 3009

Modified:
   people/goneri/SvnBuildStat-WWW/lib/SvnBuildStat/WWW/Controller/Packages.pm
Log:
isnative support for "tobuild"


Modified: people/goneri/SvnBuildStat-WWW/lib/SvnBuildStat/WWW/Controller/Packages.pm
===================================================================
--- people/goneri/SvnBuildStat-WWW/lib/SvnBuildStat/WWW/Controller/Packages.pm	2007-06-20 11:46:51 UTC (rev 3008)
+++ people/goneri/SvnBuildStat-WWW/lib/SvnBuildStat/WWW/Controller/Packages.pm	2007-06-20 11:48:27 UTC (rev 3009)
@@ -184,26 +184,29 @@
 
   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"});
+  #my $package_rs = $c->model('SvnBuildStat::WWW::Model::DB::Viewpackage')->search({istarballpresent => 'true', },{order_by=> "builded, lastbuilddate"});
+  my $package = $c->model('SvnBuildStat::WWW::Model::DB::Viewtobuild')->first;
 
 
   my $resp = '';
-  while (my $package = $package_rs->next) {
+  my $tarball;
+  my $tarballuri;
     # TODO next unless arch is supported
 
-    my $name = $package->name;
-    my $tarballuri = $package->tarballuri;
+  my $name = $package->name;
+  my $uri = $package->uri;
 
+  if ($package->isnative eq 'f') {
+    $tarballuri = $package->tarballuri;
+
     $tarballuri =~ s/\@PACKAGE@/$package->name/;
     $tarballuri =~ s/\@TARBALL@/$package->svndebrelease/;
 
-    my $uri = $package->uri;
-    my $tarball = mkTarballFromPackage(\$package);
-
-    $resp = "$name;$tarballuri;$tarball;$uri";
-    last;
+    $tarball = mkTarballFromPackage(\$package);
   }
 
+  $resp = "$name;$tarballuri;$tarball;$uri";
+
   $c->response->body($resp);
 }
 =head1 AUTHOR