From 062e8d549a090da0d2aa21cf2bdcf068bf4010fc Mon Sep 17 00:00:00 2001 From: Jeroen van Wolffelaar Date: Fri, 10 Feb 2006 21:52:05 +0000 Subject: [PATCH] Fix typo, add entry for contents search --- cgi-bin/search_packages.pl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/cgi-bin/search_packages.pl b/cgi-bin/search_packages.pl index e7cb3b6..0c78978 100755 --- a/cgi-bin/search_packages.pl +++ b/cgi-bin/search_packages.pl @@ -157,6 +157,10 @@ unless (@Packages::CGI::fatal_errors) { push @results, @{ do_names_search( $keyword, \%sources, $sp_obj, \&read_src_entry, \%opts ) }; + } elsif ($searchon eq 'contents') { + require "./search_contents.pl"; + &contents(\$input); + exit; } else { push @results, @{ do_names_search( $keyword, \%packages, $p_obj, @@ -289,7 +293,7 @@ my @pkgs = sort(keys %pkgs, keys %provided_by); my @versions = version_sort keys %{$pkgs{$pkg}{$suite}{$archive}}; my $origin_str = ""; if ($sect{$pkg}{$suite}{$archive}{$versions[0]}) { - $origin_str .= " [$sect{$pkg}{$suite}{$versions[0]}]"; + $origin_str .= " [$sect{$pkg}{$suite}{$archive}{$versions[0]}]"; } printf "
  • %s (%s): %s %s\n", $path, $pkg, $path, $subsect{$pkg}{$suite}{$archive}{$versions[0]}, -- 2.39.2