[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.29, Tue Jan 25 08:40:10 2005 UTC revision 1.30, Wed Feb 16 18:59:21 2005 UTC
# Line 348  Line 348 
348      my($x, $tag) = @_;      my($x, $tag) = @_;
349    
350      $tag = "td" unless $tag;      $tag = "td" unless $tag;
351        my $endtag=$tag;
352      # RAE modified this so that you can pass in a reference to an array where the first element is the data to      # RAE modified this so that you can pass in a reference to an array where the first element is the data to
353      # display and the second element is optional things like colspan and align. Note that in this case you need to include the td      # display and the second element is optional things like colspan and align. Note that in this case you need to include the td
354      if (ref($x) eq "ARRAY") {($x, $tag)=@$x}      # use something like ["some data to appear", "td colspan=4 bgcolor=gray"]
355        if (ref($x) eq "ARRAY") {($x, $tag)=@$x; if ($tag =~ /td/) {$endtag = "td"}}
356    
357      if ($x =~ /^\@([^:]+)\:(.*)$/)      if ($x =~ /^\@([^:]+)\:(.*)$/)
358      {      {
359          return "\t\t<$tag $1>$2</$tag>";          return "\t\t<$tag $1>$2</$endtag>";
360      }      }
361      else      else
362      {      {
363          return "\t\t<$tag>$x</$tag>";          return "\t\t<$tag>$x</$endtag>";
364      }      }
365  }  }
366    

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3