[project @ 2005-08-11 08:48:09 by ajt]

[debbugs.git] / cgi / pkgreport.cgi

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index f8b3242447d233b61d5337b1dbc131f2788b5843..1f80561e8aec2cbca7e753eb4e9a4e5f5b3826f5 100755 (executable)
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -114,6 +114,7 @@ set_option("sev-inc", $sev_inc);
 set_option("version", $version);
 set_option("dist", $dist);
 set_option("arch", $arch);
+set_option("use-bug-idx", defined($param{'use-bug-idx'}) ? $param{'use-bug-idx'} : 0);
 set_option("show_list_header", $show_list_header);
 set_option("show_list_footer", $show_list_footer);
 
@@ -125,8 +126,8 @@ if (defined $pkg) {
     $title .= " (version $version)";
   } elsif (defined $dist) {
     $title .= " in $dist";
-    my $distver = getversion($pkg, $dist, $arch);
-    $title .= " (version $distver)" if defined $distver;
+    my $verdesc = getversiondesc($pkg);
+    $title .= " ($verdesc)" if defined $verdesc;
   }
   my @pkgs = split /,/, $pkg;
   @bugs = @{getbugs(sub {my %d=@_;
@@ -137,12 +138,13 @@ if (defined $pkg) {
                         }, 'package', @pkgs)};
 } elsif (defined $src) {
   $title = "source $src";
+  set_option('arch', 'source');
   if (defined $version) {
     $title .= " (version $version)";
   } elsif (defined $dist) {
     $title .= " in $dist";
-    my $distver = getversion($src, $dist, 'source');
-    $title .= " (version $distver)" if defined $distver;
+    my $verdesc = getversiondesc($src);
+    $title .= " ($verdesc)" if defined $verdesc;
   }
   my @pkgs = ();
   my @srcs = split /,/, $src;
@@ -300,6 +302,11 @@ if (defined $pkg || defined $src) {
                push @references, sprintf "to the source package <a href=\"%s\">%s</a>'s bug page", srcurl($srcforpkg), htmlsanit($srcforpkg);
            }
        }
+       if ($pkg) {
+           set_option("archive", !$archive);
+           push @references, sprintf "to the <a href=\"%s\">%s reports for %s</a>", pkgurl($pkg), ($archive ? "active" : "archived"), htmlsanit($pkg);
+           set_option("archive", $archive);
+       }
        if (@references) {
            $references[$#references] = "or $references[$#references]" if @references > 1;
            print "<p>You might like to refer ", join(", ", @references), ".</p>\n";