diff options
| author | bryce-mozilla%nextbus.com <> | 1999-05-04 09:01:57 +0200 |
|---|---|---|
| committer | bryce-mozilla%nextbus.com <> | 1999-05-04 09:01:57 +0200 |
| commit | 720ac379ca88dec24a3db244b4fbeb2c694a9599 (patch) | |
| tree | e4697f5824008dcca99bd61a2349b3a07f6ca3d4 | |
| parent | f5b07da07ed7f03b79c38c59b5c843eace440c6b (diff) | |
| download | bugzilla-720ac379ca88dec24a3db244b4fbeb2c694a9599.tar.gz bugzilla-720ac379ca88dec24a3db244b4fbeb2c694a9599.tar.xz | |
Create a summary report for "-All-" bugs. Default links on. Switch sense of
banner flag. Add commented-out line to enable showing SQL line.
| -rwxr-xr-x | collectstats.pl | 11 | ||||
| -rwxr-xr-x | reports.cgi | 59 |
2 files changed, 43 insertions, 27 deletions
diff --git a/collectstats.pl b/collectstats.pl index e35c7aa23..dc8306715 100755 --- a/collectstats.pl +++ b/collectstats.pl @@ -31,7 +31,10 @@ require "globals.pl"; ConnectToDatabase(); GetVersionTable(); -foreach (@::legal_product) { +my @myproducts; +push( @myproducts, "-All-", @::legal_product ); + +foreach (@myproducts) { my $dir = "data/mining"; &check_data_dir ($dir); @@ -61,7 +64,11 @@ sub collect_stats { push my @row, &today; foreach my $status ('NEW', 'ASSIGNED', 'REOPENED') { - SendSQL("select count(bug_status) from bugs where bug_status='$status' and product='$product'"); + if( $product eq "-All-" ) { + SendSQL("select count(bug_status) from bugs where bug_status='$status'"); + } else { + SendSQL("select count(bug_status) from bugs where bug_status='$status' and product='$product'"); + } push @row, FetchOneColumn(); } 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 <harrison@netscape.com>, -# Terry Weissman <terry@mozilla.org> +# Terry Weissman <terry@mozilla.org>, +# Bryce Nesbitt <bryce@nextbus.COM> +# 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 <sam@ziegler.org>: -# -# "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 <<FIN; -<html> -<head><title>Bug Reports</title></head> -<body bgcolor="#FFFFFF"> -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("<html><head><title>Bug Reports</title></head><body bgcolor=\"#FFFFFF\">"); + } 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) ? "<option value=\"show_chart\">Bug Charts" : ""; print <<FIN; @@ -137,9 +135,9 @@ $charts <tr> <td align=center><b>Switches:</b></td> <td align=left> -<input type=checkbox name=links value=1> Links to Bugs<br> -<input type=checkbox name=nobanner value=1> No Banner<br> -<input type=checkbox name=quip value=1> Include Quip<br> +<input type=checkbox name=links checked value=1> Links to Bugs<br> +<input type=checkbox name=banner checked value=1> Banner<br> +<input type=checkbox name=quip value=1> Quip<br> </td> </tr> <tr> @@ -151,6 +149,8 @@ $charts </form> <p> FIN +#Add this above to get a control for showing the SQL query: +#<input type=checkbox name=showsql value=1> Show SQL<br> } sub most_doomed @@ -165,7 +165,9 @@ Bug Report for $::FORM{'product'} $when<p> FIN - my $query = <<FIN; +# Build up $query string + my $query; + $query = <<FIN; select bugs.bug_id, bugs.assigned_to, bugs.bug_severity, bugs.bug_status, bugs.product, @@ -179,7 +181,13 @@ from bugs, versions projector where bugs.assigned_to = assign.userid and bugs.reporter = report.userid -and bugs.product='$::FORM{'product'}' +FIN + + if( $::FORM{'product'} ne "-All-" ) { + $query .= "and bugs.product='$::FORM{'product'}'"; + } + + $query .= <<FIN; and ( bugs.bug_status = 'NEW' or @@ -187,6 +195,7 @@ and bugs.bug_status = 'REOPENED' ) FIN +# End build up $query string print "<font color=purple><tt>$query</tt></font><p>\n" unless (! exists $::FORM{'showsql'}); @@ -380,7 +389,7 @@ FIN sub is_legal_product { my $product = shift; - return grep { $_ eq $product} @::legal_product; + return grep { $_ eq $product} @myproducts; } sub header |