[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.39, Sun Mar 20 00:08:39 2005 UTC revision 1.40, Thu Mar 24 03:15:06 2005 UTC
# Line 250  Line 250 
250    
251      # RAE:      # RAE:
252      # Add css here      # Add css here
253      # Note that at the moment I define these two sheets here. I think this should be moved out, but I want to try it and see what happens      # Note that at the moment I define these two sheets here. I think this should
254      # css has the format      # be moved out, but I want to try it and see what happens.  css has the format:
255        #
256      # <link rel='stylesheet' title='default' href='/css/default.css' type='text/css'>      # <link rel='stylesheet' title='default' href='/css/default.css' type='text/css'>
257    
258      # convert the default key to the right case. and eliminate dups      # convert the default key to the right case. and eliminate dups
# Line 389  Line 390 
390          splice( @$html, $i, 0, @tags );          splice( @$html, $i, 0, @tags );
391      }      }
392    
393      # RAE the chomp will return any new lines at the ends of elements in the array, and then we can join  with a "\n"      # RAE the chomp will return any new lines at the ends of elements in the array,
394      # this is because somethings put newlines in, and others don't. This should make nicer looking html      # and then we can join  with a "\n". This is because somethings put newlines in,
395        # and others don't. This should make nicer looking html
396        #
397      #chomp(@$html);      #chomp(@$html);
398      #print join "\n", @$html;      #print join "\n", @$html;
399        #
400      # Apparently the above still breaks things. This is the correct code:      # Apparently the above still breaks things. This is the correct code:
401    
402      print @$html;      print @$html;
403  }  }
404    
# Line 429  Line 433 
433    
434      $tag = "td" unless $tag;      $tag = "td" unless $tag;
435      my $endtag=$tag;      my $endtag=$tag;
436      # RAE modified this so that you can pass in a reference to an array where the first element is the data to  
437      # display and the second element is optional things like colspan and align. Note that in this case you need to include the td      # RAE modified this so that you can pass in a reference to an array where
438        # the first element is the data to display and the second element is optional
439        # things like colspan and align. Note that in this case you need to include the td
440      # use something like ["some data to appear", "td colspan=4 bgcolor=gray"]      # use something like ["some data to appear", "td colspan=4 bgcolor=gray"]
441    
442      if (ref($x) eq "ARRAY") {($x, $tag)=@$x; if ($tag =~ /td/) {$endtag = "td"}}      if (ref($x) eq "ARRAY") {($x, $tag)=@$x; if ($tag =~ /td/) {$endtag = "td"}}
443    
444      if ($x =~ /^\@([^:]+)\:(.*)$/)      if ($x =~ /^\@([^:]+)\:(.*)$/)

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3