--- db2gantt.cgi 2002/09/14 21:45:23 1.16
+++ db2gantt.cgi 2002/09/15 19:17:37 1.17
@@ -8,7 +8,7 @@
use CGI::Carp qw(fatalsToBrowser);
use POSIX qw(strftime);
-my $debug = 0;
+my $debug = 1;
my $width = 600; # width of bar
my $height = 19; # height of bar
@@ -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,8 +220,8 @@
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;