From 720ac379ca88dec24a3db244b4fbeb2c694a9599 Mon Sep 17 00:00:00 2001 From: "bryce-mozilla%nextbus.com" <> Date: Tue, 4 May 1999 07:01:57 +0000 Subject: Create a summary report for "-All-" bugs. Default links on. Switch sense of banner flag. Add commented-out line to enable showing SQL line. --- reports.cgi | 59 ++++++++++++++++++++++++++++++++++------------------------- 1 file changed, 34 insertions(+), 25 deletions(-) (limited to 'reports.cgi') diff --git a/reports.cgi b/reports.cgi index f78fd643f..35cf76fc2 100755 --- a/reports.cgi +++ b/reports.cgi @@ -18,7 +18,11 @@ # Netscape Communications Corporation. All Rights Reserved. # # Contributor(s): Harrison Page , -# Terry Weissman +# Terry Weissman , +# Bryce Nesbitt +# Added -All- report, change "nobanner" to "banner" (it is strange to have a +# list with 2 positive and 1 negative choice), default links on, add show +# sql comment. use diagnostics; use strict; @@ -42,30 +46,24 @@ my %reports = "show_chart" => \&show_chart, ); -# patch from Sam Ziegler : -# -# "reports.cgi currently has it's own idea of what -# the header should be. This patch sets it to the -# system wide header." - print "Content-type: text/html\n\n"; -if (defined $::FORM{'nobanner'}) - { -print < -Bug Reports - -FIN - } +# If we're here for the first time, give a banner. Else respect the banner flag. +if ( (!defined $::FORM{'product'}) || ($::FORM{'banner'}) ) + { + PutHeader ("Bug Reports") + } else - { - PutHeader ("Bug Reports") unless (defined $::FORM{'nobanner'}); - } + { + print("Bug Reports"); + } ConnectToDatabase(); GetVersionTable(); +my @myproducts; +push( @myproducts, "-All-", @::legal_product ); + $::FORM{'output'} = $::FORM{'output'} || "most_doomed"; # a reasonable default if (! defined $::FORM{'product'}) @@ -111,7 +109,7 @@ FIN sub choose_product { - my $product_popup = make_options (\@::legal_product, $::legal_product[0]); + my $product_popup = make_options (\@myproducts, $myproducts[0]); my $charts = (-d $dir) ? "