[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.28, Thu Jan 13 17:32:51 2005 UTC revision 1.29, Tue Jan 25 08:40:10 2005 UTC
# Line 348  Line 348 
348      my($x, $tag) = @_;      my($x, $tag) = @_;
349    
350      $tag = "td" unless $tag;      $tag = "td" unless $tag;
351        # RAE modified this so that you can pass in a reference to an array where the first element is the data to
352        # display and the second element is optional things like colspan and align. Note that in this case you need to include the td
353        if (ref($x) eq "ARRAY") {($x, $tag)=@$x}
354    
355      if ($x =~ /^\@([^:]+)\:(.*)$/)      if ($x =~ /^\@([^:]+)\:(.*)$/)
356      {      {
# Line 460  Line 463 
463    
464      $ua = new LWP::UserAgent;      $ua = new LWP::UserAgent;
465      $ua->timeout( 900 );      $ua->timeout( 900 );
   
466      if ($type =~/post/i)      if ($type =~/post/i)
467      {      {
468          $args = [];          $args = [];

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3