[project @ 2003-08-30 00:15:15 by cjwatson]

[debbugs.git] / cgi / bugreport.cgi
diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi

index aceacd922429fe5d160e631e70a944d4e471c283..c5339f19b39218d1bd68a7c21fd18218aad10be6 100755 (executable)
--- a/cgi/bugreport.cgi
+++ b/cgi/bugreport.cgi
@@ -165,7 +165,7 @@ my @tpacks = splitpackages($tpack);
  
  if  ($status{severity} eq 'normal') {
         $showseverity = '';
-#} elsif (grep($status{severity} eq $_, @strongseverities)) {
+#} elsif (isstrongseverity($status{severity})) {
  #      $showseverity = "<strong>Severity: $status{severity}</strong>;\n";
  } else {
         $showseverity = "Severity: <em>$status{severity}</em>;\n";
@@ -177,6 +177,9 @@ $indexentry .= htmlpackagelinks($status{package}, 0);
  $indexentry .= "Reported by: <a href=\"" . submitterurl($status{originator})
                . "\">" . htmlsanit($status{originator}) . "</a>;\n";
  
+$indexentry .= "Owned by: " . htmlsanit($status{owner}) . ";\n"
+              if length $status{owner};
+
  my $dummy = strftime "%a, %e %b %Y %T UTC", localtime($status{date});
  $indexentry .= "Date: ".$dummy.";\n<br>";
  
@@ -198,7 +201,22 @@ if (@merged) {
         push @descstates, $descmerged;
  }
  
-if (length($status{done})) {
+if (@{$status{found_versions}}) {
+    my $foundtext = 'Found in ';
+    $foundtext .= (@{$status{found_versions}} == 1) ? 'version ' : 'versions ';
+    $foundtext .= join ', ', map htmlsanit($_), @{$status{found_versions}};
+    push @descstates, $foundtext;
+}
+
+if (@{$status{fixed_versions}}) {
+    my $fixedtext = '<strong>Fixed</strong> in ';
+    $fixedtext .= (@{$status{fixed_versions}} == 1) ? 'version ' : 'versions ';
+    $fixedtext .= join ', ', map htmlsanit($_), @{$status{fixed_versions}};
+    if (length($status{done})) {
+       $fixedtext .= ' by ' . htmlsanit($status{done});
+    }
+    push @descstates, $fixedtext;
+} elsif (length($status{done})) {
         push @descstates, "<strong>Done:</strong> ".htmlsanit($status{done});
  } elsif (length($status{forwarded})) {
         push @descstates, "<strong>Forwarded</strong> to ".maybelink($status{forwarded});
@@ -418,14 +436,16 @@ if ( $mbox ) {
  }
  print "Content-Type: text/html\n\n";
  
+my $title = htmlsanit($status{subject});
+
  print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n";
  print "<HTML><HEAD>\n" . 
-    "<TITLE>$debbugs::gProject $debbugs::gBug report logs - $short</TITLE>\n" .
+    "<TITLE>$debbugs::gProject $debbugs::gBug report logs - $short - $title</TITLE>\n" .
      "</HEAD>\n" .
      '<BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#0000FF" VLINK="#800080">' .
      "\n";
-print "<H1>" .  "$debbugs::gProject $debbugs::gBug report logs - <A HREF=\"mailto:$ref\@$gEmailDomain\">$short</A>" .
-      "<BR>" . htmlsanit($status{subject}) . "</H1>\n";
+print "<H1>" . "$debbugs::gProject $debbugs::gBug report logs - <A HREF=\"mailto:$ref\@$gEmailDomain\">$short</A>" .
+      "<BR>" . $title . "</H1>\n";
  
  print "$descriptivehead\n";
  printf "<p>View this report as an <a href=\"%s\">mbox folder</a>.</p>\n", mboxurl($ref);