--- db2gantt.cgi	2002/09/18 14:00:18	1.22
+++ db2gantt.cgi	2002/11/18 08:09:58	1.24
@@ -28,6 +28,7 @@
 	'Completed/Failure'	=> '128,0,128',
 	'Mount Request'		=> '128,128,255',
 	'Mount/Errors'		=> '255,64,128',
+	'Mount/Failures'	=> '255,128,192',
 	);
 
 my $int_t = (12 * 60 * 60);	# interval to display on one screen
@@ -69,7 +70,7 @@
 	$im->transparent($back);
 	my $col = path_info(); $col =~ s,/,,g;
 	my ($r,$g,$b) = split(/,/,$col);
-	my $col = $im->colorAllocate($r,$g,$b);
+	$col = $im->colorAllocate($r,$g,$b);
 	$im->fill(0,0,$col);
 	print "Content-Length: ",length($im->png),"\n\n";
 	binmode STDOUT;
@@ -231,7 +232,7 @@
 
 my %spec;	# specification hash
 
-my $curr_spec;
+my $curr_spec = "";
 my $curr_t = $from_t;
 
 $sth->execute() || die "sql: $sql ".$dbh->errstr;