--- db2gantt.cgi 2002/09/13 16:54:44 1.10 +++ db2gantt.cgi 2002/09/13 19:06:46 1.12 @@ -112,7 +112,7 @@ return "url(-relative=>1)."?from_t=${f}&to_t=${t}\">$ch"; } -print "
Specification | "; print mknav(($from_t-$int_t),$to_t,'<<'),$from; print mknav(($from_t+$int_t),$to_t,'>>') if ($from_t+$int_t < $to_t); @@ -121,18 +121,23 @@ print $to,mknav($from_t,($to_t+$int_t),'>>')," | ||||
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 | |