From 7661b31a73a3c4c6bef8cac5cdb2edaf3d955ae0 Mon Sep 17 00:00:00 2001
From: "cyeh%bluemartini.com" <>
Date: Sat, 24 Jun 2000 01:59:48 +0000
Subject: committing to close bug 6682 "Chart all bug states". patches
 contributed by mhamby@logicon.com

---
 reports.cgi | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

(limited to 'reports.cgi')

diff --git a/reports.cgi b/reports.cgi
index be21d0d6c..daf640cb8 100755
--- a/reports.cgi
+++ b/reports.cgi
@@ -434,6 +434,7 @@ FIN
 	
 	my @dates;
 	my @open; my @assigned; my @reopened;
+        my @resolved; my @verified; my @closed;
 
         my $prodname = $::FORM{'product'};
 
@@ -457,13 +458,17 @@ FIN
 		{
 		chomp;
 		next if ($_ =~ /^#/ or ! $_);
-		my ($date, $open, $assigned, $reopened) = split /\|/, $_;
+               my ($date, $open, $assigned, $reopened,
+                       $resolved, $verified, $closed) = split /\|/, $_;
 		my ($yy, $mm, $dd) = $date =~ /^\d{2}(\d{2})(\d{2})(\d{2})$/;
 
 		push @dates, "$mm/$dd/$yy";
 		push @open, $open;
 		push @assigned, $assigned;
 		push @reopened, $reopened;
+                push @resolved, $resolved;
+                push @verified, $verified;
+                push @closed, $closed;
 		}
 	
 	close FILE;
@@ -474,7 +479,7 @@ FIN
 		}
 	
 	my $img = Chart::Lines->new (800, 600);
-	my @labels = qw (New Assigned Reopened);
+        my @labels = qw (New Assigned Reopened Resolved Verified Closed);
 	my @when;
 	my $i = 0;
 	my @data;
@@ -483,6 +488,9 @@ FIN
 	push @data, \@open;
 	push @data, \@assigned;
 	push @data, \@reopened;
+        push @data, \@resolved;
+        push @data, \@verified;
+        push @data, \@closed;
 
     my $MAXTICKS = 20;      # Try not to show any more x ticks than this.
     my $skip = 1;
@@ -492,11 +500,13 @@ FIN
 
 	my %settings =
 		(
-		"title" => "Bug Charts for $::FORM{'product'}",
+                 "title" => "Status Counts for $::FORM{'product'}",
 		"x_label" => "Dates",
-		"y_label" => "Bug Count",
+		"y_label" => "Bug Counts",
 		"legend_labels" => \@labels,
-        "skip_x_ticks" => $skip,
+                "skip_x_ticks" => $skip,
+                "y_grid_lines" => "true",
+                "grey_background" => "false"
 		);
 	
 	$img->set (%settings);
-- 
cgit v1.2.3-24-g4f1b