[project @ 2001-04-15 21:05:56 by joy]

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

index fc253c6d2e1b8cea5cabd3d5056b5765cd5ab56d..422e3e7e9d9680596a23026a10f9bb1e6a766948 100755 (executable)
--- a/cgi/bugreport.cgi
+++ b/cgi/bugreport.cgi
@@ -17,14 +17,14 @@ my %param = readparse();
  
  my $tail_html;
  
-my %maintainer = getmaintainers();
+my %maintainer = %{getmaintainers()};
  
  my $ref = $param{'bug'} || quit("No bug number");
  my $msg = $param{'msg'} || "";
  my $boring = ($param{'boring'} || 'no') eq 'yes'; 
  my $reverse = ($param{'reverse'} || 'no') eq 'yes';
  
-my %status = getbugstatus($ref) or &quit("Couldn't get bug status: $!");
+my %status = %{getbugstatus($ref)} or &quit("Couldn't get bug status: $!");
  
  my $indexentry;
  my $descriptivehead;
@@ -206,9 +206,10 @@ close(L);
  
  print "Content-Type: text/html\n\n";
  
-print "<HTML><HEAD><TITLE>\n" . 
-    "$debbugs::gProject $debbugs::gBug report logs - $short\n" .
-    "</TITLE></HEAD>\n" .
+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" .
+    "</HEAD>\n" .
      '<BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#0000FF" VLINK="#800080">' .
      "\n";
  print "<H1>" .  "$debbugs::gProject $debbugs::gBug report logs -  $short" .