--- db2gantt.cgi 2002/09/13 16:54:44 1.10
+++ db2gantt.cgi 2002/09/13 18:35:50 1.11
@@ -121,16 +121,20 @@
print $to,mknav($from_t,($to_t+$int_t),'>>'),"\n";
# draw hour grid
-print "
hour grid | ";
-my @c = ("255,255,128","255,192,128");
-my $hr=strftime("%H",localtime ($from_t));
-print color_bar(3600 - $from_t % 3600,$c[0],$hr++ % 24);
-for (my $i=1; $ihour grid | ";
+ my @c = ("255,255,128","255,192,128");
+ my $hr=strftime("%H",localtime ($from_t));
+ print color_bar(3600 - $from_t % 3600,$c[0],sprintf("%02d",$hr++ % 24));
+ for (my $i=1; $i | |
\n";
}
-print color_bar($from_t % 3600,$c[1],$hr % 24);
-print "\n";
+
+hour_grid();
my $fix_d = 0; # used to fix graph len
@@ -276,7 +280,9 @@
undef $sth;
$dbh->disconnect;
-print "\n";
+print "\n";
+hour_grid();
+print "";
# label and usage