[Bio] / FigKernelPackages / raelib.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/raelib.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35, Tue Jun 6 02:25:37 2006 UTC revision 1.36, Wed Jun 14 01:14:19 2006 UTC
# Line 972  Line 972 
972          foreach my $cell (@$row)          foreach my $cell (@$row)
973          {          {
974              my $useformat=$self->{'excel_format'}->{default};              my $useformat=$self->{'excel_format'}->{default};
975    
976                # there is an approach to setting color using \@bgcolor. Oh well.
977                if ( $cell =~ /^\@([^:]+)\:(.*)$/ )
978                {
979                    $cell=[$2, $1];
980                }
981    
982              if (ref($cell) eq "ARRAY")              if (ref($cell) eq "ARRAY")
983              {              {
984                  ($cell, $useformat)=$self->parse_cell($cell);                  ($cell, $useformat)=$self->parse_cell($cell);
# Line 1119  Line 1126 
1126          if ($cell =~ s/\<a\s+>//i) {$cell =~ s/\<\/a>//i}          if ($cell =~ s/\<a\s+>//i) {$cell =~ s/\<\/a>//i}
1127      }      }
1128    
   
1129      if ($cell =~ /\<a href=.(.*?).>(.*)<\/a>/)      if ($cell =~ /\<a href=.(.*?).>(.*)<\/a>/)
1130      {      {
1131          # this is tricky because if the cell is a url then we need two separate things, the url and the link name          # this is tricky because if the cell is a url then we need two separate things, the url and the link name

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3