use Packages::Search qw( :all );
use Packages::CGI qw( :DEFAULT );
use Packages::DB;
-use Packages::Config qw( $DBDIR @SUITES @ARCHIVES $ROOT );
+use Packages::Config qw( $DBDIR @SUITES @ARCHIVES @ARCHITECTURES $ROOT );
sub do_search {
my ($params, $opts, $page_content) = @_;
my @keywords = @{$opts->{keywords}};
my $searchon = $opts->{searchon};
- $page_content->{search_keywords} = \@keywords;
+ $page_content->{search_keywords} = $opts->{keywords};
+ $page_content->{all_architectures} = \@ARCHITECTURES;
+ $page_content->{all_suites} = \@SUITES;
+ $page_content->{search_architectures} = $opts->{arch};
+ $page_content->{search_suites} = $opts->{suite};
+ $page_content->{sections} = $opts->{section};
my $st0 = new Benchmark;
my (@results, @non_results);
$real_archive = $archive;
$archive = 'us';
}
- if (($real_archive eq $archive) &&
- $pkgs{$pkg}{$suite}{$archive} &&
+ if ($pkgs{$pkg}{$suite}{$archive} &&
(version_cmp( $pkgs{$pkg}{$suite}{$archive}, $version ) >= 0)) {
next;
}