X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;f=lib%2FPackages%2FDoSearchContents.pm;h=67d2028dbd7fce371d67e71b44a67b1ebb9887ba;hb=47c93cb066364b11f0b216589ddc68671435b060;hp=a0634fec97750a4602419d53a952adec2947cd61;hpb=d9c10aaf0bb03bfb75404f9041967b9f91012bdb;p=deb%2Fpackages.git diff --git a/lib/Packages/DoSearchContents.pm b/lib/Packages/DoSearchContents.pm index a0634fe..67d2028 100644 --- a/lib/Packages/DoSearchContents.pm +++ b/lib/Packages/DoSearchContents.pm @@ -15,7 +15,7 @@ use Deb::Versions; use Packages::Search qw( :all ); use Packages::CGI; use Packages::DB; -use Packages::Config qw( $DBDIR $SEARCH_URL $SEARCH_CGI $SEARCH_PAGE +use Packages::Config qw( $DBDIR $SEARCH_URL $SEARCH_PAGE @SUITES @ARCHIVES $ROOT ); sub do_search_contents { @@ -138,7 +138,7 @@ sub do_search_contents { $$page_content = ''; if (@results) { $$page_content .= "

Found ".scalar(@results)." results

"; - $$page_content .= "
"; + $$page_content .= "
FilePackages
"; foreach my $result (sort { $a->[0] cmp $b->[0] } @results) { my $file = shift @$result; $$page_content .= "'; } - $$page_content .= '' if @results > 20; + $$page_content .= '' if @results > 20; $$page_content .= '
FilePackages
$file"; @@ -150,7 +150,7 @@ sub do_search_contents { $$page_content .= join( ", ", map { "$_" } sort keys %pkgs); $$page_content .= '
FilePackages
FilePackages
'; } } # sub do_search_contents