/[omni_gantt]/db2gantt.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /db2gantt.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by dpavlin, Fri Sep 13 22:48:19 2002 UTC revision 1.14 by dpavlin, Fri Sep 13 23:59:38 2002 UTC
# Line 75  if (param('pic')) { Line 75  if (param('pic')) {
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>
# Line 246  while(my $row = $sth->fetchrow_hashref) Line 248  while(my $row = $sth->fetchrow_hashref)
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;
# Line 312  foreach my $status (keys %count) { Line 317  foreach my $status (keys %count) {
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    

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

  ViewVC Help
Powered by ViewVC 1.1.26