[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.39, Tue Jun 20 03:34:43 2006 UTC revision 1.40, Wed Jul 19 21:57:47 2006 UTC
# Line 910  Line 910 
910    
911  sub tab2excel {  sub tab2excel {
912      my($self, $col_hdrs, $tab, $title, $options, $filename)=@_;      my($self, $col_hdrs, $tab, $title, $options, $filename)=@_;
913      return "<p>Couldn't load Spreadsheet::WriteExcel</p>\n" unless ($self->{'useexcel'});      return "" unless ($self->{'useexcel'});
914        #return "<p>Couldn't load Spreadsheet::WriteExcel</p>\n" unless ($self->{'useexcel'});
915      $self->{'excel_file_link'} = $self->make_excel_workbook($filename, $options);      $self->{'excel_file_link'} = $self->make_excel_workbook($filename, $options);
916      $excelfilelink=$self->{'excel_file_link'};      $excelfilelink=$self->{'excel_file_link'};
917      $self->make_excel_worksheet($col_hdrs, $tab, $title);      $self->make_excel_worksheet($col_hdrs, $tab, $title);
# Line 945  Line 946 
946    
947  sub make_excel_workbook {  sub make_excel_workbook {
948      my($self, $filename, $options)=@_;      my($self, $filename, $options)=@_;
949      return "<p>Couldn't load Spreadsheet::WriteExcel</p>\n" unless ($self->{'useexcel'});      return "" unless ($self->{'useexcel'});
950        #return "<p>Couldn't load Spreadsheet::WriteExcel</p>\n" unless ($self->{'useexcel'});
951    
952      $filename =~ s/^.*\///; # remove any path information. We are going to only write to FIG_Config::temp      $filename =~ s/^.*\///; # remove any path information. We are going to only write to FIG_Config::temp
953      unless ($filename =~ /\.xls$/) {$filename .=".xls"}      unless ($filename =~ /\.xls$/) {$filename .=".xls"}
# Line 984  Line 986 
986    
987  sub make_excel_worksheet {  sub make_excel_worksheet {
988      my($self, $col_hdrs, $tab, $title)=@_;      my($self, $col_hdrs, $tab, $title)=@_;
989      return "<p>Couldn't load Spreadsheet::WriteExcel</p>\n" unless ($self->{'useexcel'});      #return "<p>Couldn't load Spreadsheet::WriteExcel</p>\n" unless ($self->{'useexcel'});
990        return "" unless ($self->{'useexcel'});
991    
992      unless (defined $self->{'excel_workbook'})      unless (defined $self->{'excel_workbook'})
993      {      {
994          print STDERR "The workbook was not defined. Couldn't fill it in\n";          print STDERR "The workbook was not defined. Couldn't fill it in\n";

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3