--- db2gantt.cgi	2002/09/12 12:06:34	1.1
+++ db2gantt.cgi	2002/09/12 12:52:38	1.2
@@ -32,11 +32,13 @@
 sub draw {
 	my $l = shift @_;	# lenght of event utime
 	my $type = shift @_;	# what to draw
+	my $alt = shift @_;
+
 	my $size = int($l / ($len_t / $width)) || 1;	# dump size (min. size=1)
 
 	print STDERR "l[$type]:$l scale:",($len_t/$width)," size:$size<br>\n" if ($debug);
 
-	print "<img src=$type.png width=$size height=8>";
+	print "<img src=$type.png width=$size height=8 alt=\"$alt\">";
 }
 
 my $sql = "select start,finish,specification,status
@@ -54,13 +56,14 @@
 my $curr_t = $from_t;
 
 $sth->execute() || die "sql: $sql ".$dbh->errstr;
+
 while(my $row = $sth->fetchrow_hashref) {
 	if ($row->{specification} ne $curr_spec) {
 
 		if ($curr_t < $to_t ) {
 			my $t = $to_t - $curr_t;
 			print STDERR "[filler $curr_t:$t]" if ($debug);
-			draw($t,"gray");
+			draw($t,"gray",$row->{start}." - ".$row->{finish}." ".$row->{status});
 		}
 
 		print "</td></tr>\n" if ($curr_t != 0);
@@ -77,7 +80,7 @@
 	if ($start_t > $curr_t) {
 		my $t = $start_t - $curr_t;
 		print STDERR "[filler $curr_t:$t]" if ($debug);
-		draw($t,"gray");
+		draw($t,"gray",$row->{start}." - ".$row->{finish}." ".$row->{status});
 		$curr_t = $start_t;
 	}
 
@@ -98,7 +101,7 @@
 	}
 
 	print STDERR "[$less",$row->{status}," $curr_t:$len$more]" if ($debug);
-	draw($len,"red");
+	draw($len,"red",$row->{start}." - ".$row->{finish}." ".$row->{status});
 
 	$curr_t += $len;
 
@@ -109,7 +112,7 @@
 if ($curr_t < $to_t ) {
 	my $t = $to_t - $curr_t;
 	print STDERR "[filler $curr_t:$t]" if ($debug);
-	draw($t,"white");
+	draw($t,"gray");
 }
 
 undef $sth;