]> git.ipfire.org Git - thirdparty/bugzilla.git/commitdiff
projects / thirdparty / bugzilla.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: f5b07da)
Create a summary report for "-All-" bugs. Default links on. Switch sense of
authorbryce-mozilla%nextbus.com <>
Tue, 4 May 1999 07:01:57 +0000 (07:01 +0000)
committerbryce-mozilla%nextbus.com <>
Tue, 4 May 1999 07:01:57 +0000 (07:01 +0000)
banner flag.  Add commented-out line to enable showing SQL line.

collectstats.pl patch | blob | blame | history
reports.cgi patch | blob | blame | history

diff --git a/collectstats.pl b/collectstats.pl
index e35c7aa239749a865504b7ed2e3e0995c13a3595..dc8306715ba5226f51d926c0ab72d0ccd7a82469 100755 (executable)
--- 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 f78fd643fcea5d9316e29fc0e099a9cd928cd832..35cf76fc216ed5e894a8d0772dee0a7dc957bc14 100755 (executable)
--- 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>&nbsp;Links to Bugs<br>
-<input type=checkbox name=nobanner value=1>&nbsp;No Banner<br>
-<input type=checkbox name=quip value=1>&nbsp;Include Quip<br>
+<input type=checkbox name=links checked value=1>&nbsp;Links to Bugs<br>
+<input type=checkbox name=banner checked value=1>&nbsp;Banner<br>
+<input type=checkbox name=quip value=1>&nbsp;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>&nbsp;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
Mirror of https://github.com/bugzilla/bugzilla.git