--- db2gantt.cgi 2002/09/14 21:45:23 1.16
+++ db2gantt.cgi 2002/09/15 19:21:33 1.18
@@ -17,8 +17,8 @@
# status colors
my %cols = (
'In Progress' => '0,255,0',
- 'In Progress/Failures' => '255,64,255',
- 'In Progress/Errors' => '255,64,0',
+ 'In Progress/Failures' => '192,64,192',
+ 'In Progress/Errors' => '255,128,128',
'Queuing' => '255,255,0',
'Aborted' => '255,0,0',
'Failed' => '255,0,0',
@@ -220,7 +220,7 @@
from gantt
where (start < '$from' and finish > '$from') or
(start > '$from' and start < '$to')
- order by device,specification
+ order by device,specification,start
";
my $sth = $dbh->prepare($sql) || die "sql: $sql ".$dbh->errstr;
@@ -289,6 +289,7 @@
$alt .= $row->{type}." ".$row->{status}."
".
$row->{user_group_host}." ".$row->{sessionid}."
".
$row->{device}." on ".$row->{host};
+$alt .= "-- ".$row->{specification};
print bar($len,$row->{status},$alt);
$curr_t += $len;