--- db2gantt.cgi	2002/09/23 08:45:36	1.23
+++ db2gantt.cgi	2002/11/18 08:09:58	1.24
@@ -70,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;
@@ -232,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;