[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.8, Fri Mar 26 21:54:11 2004 UTC revision 1.9, Fri Apr 2 18:02:20 2004 UTC
# Line 262  Line 262 
262  }  }
263    
264  sub make_table {  sub make_table {
265      my($col_hdrs,$tab,$title,$instr) = @_;      my($col_hdrs,$tab,$title) = @_;
266      my(@tab);      my(@tab);
267    
268      push( @tab, "\n<table border>\n",      push( @tab, "\n<table border>\n",
# Line 271  Line 271 
271                . join( "</th>\n\t\t<th>", @$col_hdrs )                . join( "</th>\n\t\t<th>", @$col_hdrs )
272                . "</th>\n\t</tr>\n"                . "</th>\n\t</tr>\n"
273          );          );
274      my($i,$nowrap);      my($i);
   
     for ($i=0; ($i < @$instr) && ($instr->[$i] !~ /nowrap/); $i++) {}  
     $nowrap = ($i == @$instr) ? "" : " nowrap";  
275    
276      my $row;      my $row;
277      foreach $row (@$tab)      foreach $row (@$tab)
278      {      {
279          push( @tab, "\t<tr>\n"          push( @tab, "\t<tr>\n"
280                    . join( "\n", map { &expand($_,$nowrap) } @$row )                    . join( "\n", map { &expand($_) } @$row )
281                    . "\n\t</tr>\n"                    . "\n\t</tr>\n"
282              );              );
283      }      }
# Line 289  Line 286 
286  }  }
287    
288  sub expand {  sub expand {
289      my($x,$nowrap) = @_;      my($x) = @_;
290    
291      if ($x =~ /^\@([^:]+)\:([^:]+)\:(.*)$/)      if ($x =~ /^\@([^:]+)\:(.*)$/)
292      {      {
293          return "\t\t<td$nowrap $1=\"$2\">$3</td>";          return "\t\t<td $1>$2</td>";
294      }      }
295      else      else
296      {      {
297          return "\t\t<td$nowrap>$x</td>";          return "\t\t<td>$x</td>";
298      }      }
299  }  }
300    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3