[Collab-qa-commits] r544 - svnbuildstat/branches/stable/lib/SvnBuildStat/WWW/Controller

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-12-04 15:16:23 +0000 (Tue, 04 Dec 2007)
New Revision: 544

Modified:
   svnbuildstat/branches/stable/lib/SvnBuildStat/WWW/Controller/Packages.pm
Log:
add the flatlist method

Modified: svnbuildstat/branches/stable/lib/SvnBuildStat/WWW/Controller/Packages.pm
===================================================================
--- svnbuildstat/branches/stable/lib/SvnBuildStat/WWW/Controller/Packages.pm	2007-12-04 11:34:28 UTC (rev 543)
+++ svnbuildstat/branches/stable/lib/SvnBuildStat/WWW/Controller/Packages.pm	2007-12-04 15:16:23 UTC (rev 544)
@@ -194,10 +194,25 @@
   my $svndebrelease = $package->realsvndebrelease;
   $svndebrelease =~ s/^\d+://; # remove the EPOCH 
 
+ return if $package->name =~ /installation/; 
   # TODO: put the repository URL in the cfg
   $c->response->body("http://nana.rulezlan.org/debian/".$package->name."_".$svndebrelease.".dsc");
 }
 
+sub flatlist : Local {
+  my ($self, $c) = @_;
+
+
+  my $package_rs = $c->model('SvnBuildStat::WWW::Model::DB::Package')->search ();
+
+  my $output;
+  while (my $package = $package_rs->next) {
+	  $output .= $package->name."\n";
+  }
+
+  $c->response->body($output);
+}
+
 =head1 AUTHOR
 
 Goneri Le Bouder,,,