[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.2, Tue Dec 23 16:35:17 2003 UTC revision 1.3, Fri Mar 19 18:45:37 2004 UTC
# Line 92  Line 92 
92      for ($i=0; ($i < @$instr) && ($instr->[$i] !~ /nowrap/); $i++) {}      for ($i=0; ($i < @$instr) && ($instr->[$i] !~ /nowrap/); $i++) {}
93      $nowrap = ($i == @$instr) ? "" : " nowrap";      $nowrap = ($i == @$instr) ? "" : " nowrap";
94    
95      foreach $_ (@$tab)      my $row;
96        foreach $row (@$tab)
97      {      {
98          push(@tab,"<tr><td$nowrap>" . join("</td><td$nowrap>",@$_) . "</td></tr>\n");          push(@tab,"<tr><td$nowrap>" . join("</td>",map { &expand($_) } @$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 {
105        my($x) = @_;
106    
107        if ($x =~ /^\@([^:]+)\:([^:]+)\:(.*)$/)
108        {
109            return "<td$nowrap $1=\"$2\">$3";
110        }
111        else
112        {
113            return "<td$nowrap>$x";
114        }
115    }
116    
117  sub ec_link {  sub ec_link {
118      my($role) = @_;      my($role) = @_;
119    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3