Make result display of DoSearchContents actually usable

[deb/packages.git] / lib / Packages / HTML.pm

diff --git a/lib/Packages/HTML.pm b/lib/Packages/HTML.pm
index 1a68b5f290581d79726293f68b7caedc4d7dd468..a3b159b556a0e1a5977a186e44f8d6c736adc237 100644 (file)
--- a/lib/Packages/HTML.pm
+++ b/lib/Packages/HTML.pm
@@ -297,7 +297,13 @@ sub print_deps {
                    push @res_pkgs, dep_item( "$ROOT/$path/$p_name",
                                              $p_name, "$pkg_version$arch_str" );
                } elsif ($arch eq 'virtual') {
-                   $short_desc = "virtual package";
+                   my @provided_by = split /\s/, $short_desc;
+                   $short_desc = "virtual package provided by ";
+                   if (@provided_by < 10) {
+                       $short_desc .= join( ', ',map { "<a href=\"$ROOT/$path/$_\">$_</a>" } @provided_by);
+                   } else {
+                       $short_desc .= scalar(@provided_by)." packages";
+                   }
                    push @res_pkgs, dep_item( "$ROOT/$path/$p_name",
                                              $p_name, "$pkg_version$arch_str", $short_desc );
                } else {
@@ -372,9 +378,9 @@ sub header {
                                 all => "",
                                 sourcenames => "",
                                 contents => "");
-       $checked_searchon{$params{searchon}} = "checked=\"checked\"";
+       $checked_searchon{$values{searchon}} = "checked=\"checked\"";
        $checked_searchon{names} = "checked=\"checked\""
-               if $params{searchon} eq 'default';
+               if $values{searchon} eq 'default';
        $search_in_header = <<MENU;
 <form method="GET" action="$SEARCH_CGI">
 <div id="hpacketsearch">