/[PLies]/burst.pl
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 /burst.pl

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

revision 1.13 by dpavlin, Mon May 7 21:44:56 2001 UTC revision 1.15 by dpavlin, Thu May 10 07:08:50 2001 UTC
# Line 53  use Text::FastTemplate; Line 53  use Text::FastTemplate;
53  ##  ##
54    
55  ## show debug output  ## show debug output
56  my $debug=1;  my $debug=0;
57    
58  ## default DOCTYPE added on the slides  ## default DOCTYPE added on the slides
59  $doctype = '<html xmlns="http://www.w3.org/TR/REC-html40">';  $doctype = '<html xmlns="http://www.w3.org/TR/REC-html40">';
# Line 692  sub make_progress_bar { Line 692  sub make_progress_bar {
692                  } else {                  } else {
693                          $r=$t;                          $r=$t;
694                  }                  }
695                  $html='<table border="0" width="50%" cellpadding="0" cellspacing="0" align="right"><tr><td width="'.$pcnt_done.'%" class="pcnt-done">'.$l.'</td><td width="'.$pcnt_left.'%" class="pcnt-left">'.$r.'</td></tr></table>';                  $html='<table border="0" width="50%" cellpadding="0" cellspacing="0" align="right"><tr>';
696                    if ($pcnt_done != 0) {
697                            $html.='<td width="'.$pcnt_done.'%" class="pcnt-done">'.$l.'</td>';
698                    }
699                    if ($pcnt_left != 0) {
700                            $html.='<td width="'.$pcnt_left.'%" class="pcnt-left">'.$r.'</td>';
701                    }
702                    $html.='</tr></table>';
703          } else {          } else {
704                  $html="$loc_slide $nr $loc_of $total";                  $html="$loc_slide $nr $loc_of $total";
705          }          }
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.26