[Bio] / FigKernelPackages / HTML.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/HTML.pm

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

revision 1.48, Fri Jul 22 21:39:19 2005 UTC revision 1.49, Tue Jul 26 20:09:20 2005 UTC
# Line 1  Line 1 
1  package HTML;  package HTML;
2    
3    use Tracer;
4  use FIG;  use FIG;
5  use Carp;  use Carp;
6  use Data::Dumper;  use Data::Dumper;
# Line 378  Line 379 
379      #  Figure out where to insert The SEED tail.  Before </body>,      #  Figure out where to insert The SEED tail.  Before </body>,
380      #  or before </html>, or at end of page.      #  or before </html>, or at end of page.
381      #      #
   
382      my @tags = ();      my @tags = ();
383        # Check for a tracing queue.
384        my $traceString = QTrace("HTML");
385        if ($traceString) {
386            push @tags, $traceString;
387        }
388      for ($i=0; ($i < @$html) && ($html->[$i] !~ /\<\/body\>/i); $i++) {}      for ($i=0; ($i < @$html) && ($html->[$i] !~ /\<\/body\>/i); $i++) {}
389      if ($i >= @$html)        # </body> not found; look for </html>      if ($i >= @$html)        # </body> not found; look for </html>
390      {      {
# Line 415  Line 419 
419      {      {
420          print $_;          print $_;
421      }      }
422    
423  }  }
424    
425  sub make_table {  sub make_table {

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3