--- 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
\n" if ($debug);
- print "";
+ print "";
}
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 "\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;