[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.3, Fri Mar 19 18:45:37 2004 UTC revision 1.4, Fri Mar 19 20:26:58 2004 UTC
# Line 95  Line 95 
95      my $row;      my $row;
96      foreach $row (@$tab)      foreach $row (@$tab)
97      {      {
98          push(@tab,"<tr><td$nowrap>" . join("</td>",map { &expand($_) } @$row) . "</td></tr>\n");          push(@tab,"<tr>" . join("</td>",map { &expand($_,$nowrap) } @$row) . "</td></tr>\n");
99      }      }
100      push(@tab,"</table>\n");      push(@tab,"</table>\n");
101      return join("",@tab);      return join("",@tab);
102  }  }
103    
104  sub expand {  sub expand {
105      my($x) = @_;      my($x,$nowrap) = @_;
106    
107      if ($x =~ /^\@([^:]+)\:([^:]+)\:(.*)$/)      if ($x =~ /^\@([^:]+)\:([^:]+)\:(.*)$/)
108      {      {

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3