75 |
} |
} |
76 |
|
|
77 |
print "Content-type: text/html |
print "Content-type: text/html |
78 |
|
Cache-Control: max-age=60, must-revalidate |
79 |
|
|
80 |
<html> |
<html> |
81 |
<head> |
<head> |
82 |
<title>OmniBack Gantt: $from - $to</title>"; |
<title>OmniBack Gantt: $from - $to</title> |
83 |
|
<meta HTTP-EQUIV=\"Refresh\" CONTENT=60>"; |
84 |
if ($use_js) { |
if ($use_js) { |
85 |
print ' |
print ' |
86 |
<script type="text/javascript" language="javascript" src="1k.js"></script> |
<script type="text/javascript" language="javascript" src="1k.js"></script> |
248 |
print STDERR "[middle filler $curr_t:$t]" if ($debug); |
print STDERR "[middle filler $curr_t:$t]" if ($debug); |
249 |
print bar($t); |
print bar($t); |
250 |
$curr_t = $start_t; |
$curr_t = $start_t; |
251 |
|
} else { |
252 |
|
# prepend too few seconds to next event |
253 |
|
$start_t = $curr_t; |
254 |
} |
} |
255 |
|
|
256 |
my $len = $fin_t - $start_t; |
my $len = $fin_t - $start_t; |
317 |
# it will first evaluate bar sub (thus increasing number by one) and |
# it will first evaluate bar sub (thus increasing number by one) and |
318 |
# then display number (wrongly). |
# then display number (wrongly). |
319 |
} |
} |
320 |
print "</table>\n<p>Reload <a href=\"",$q->url(-relative=>1),"\">current</a>.</p></body></html>"; |
print "</table>\n<p>Reload <a href=\"",$q->url(-relative=>1),"\">current</a> or see <a href=\"db2gantt_help.html\">help</a>.</p></body></html>"; |
321 |
|
|