[R-gregmisc-users] SF.net SVN: r-gregmisc:[1380] trunk/gdata/inst/perl/xls2csv.pl

[<wa...@us...>]

Revision: 1380
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1380&view=rev
Author:   warnes
Date:     2010-01-23 05:17:20 +0000 (Sat, 23 Jan 2010)

Log Message:
-----------
If only one sheet is present in the file, don't insert the sheet name into the filename

Modified Paths:
--------------
    trunk/gdata/inst/perl/xls2csv.pl

Modified: trunk/gdata/inst/perl/xls2csv.pl
===================================================================
--- trunk/gdata/inst/perl/xls2csv.pl	2010-01-23 04:38:31 UTC (rev 1379)
+++ trunk/gdata/inst/perl/xls2csv.pl	2010-01-23 05:17:20 UTC (rev 1380)
@@ -158,7 +158,7 @@
 
   $sheetname = $sheet->{Name};
 
-  if( defined($sheetnumber) || defined($targetsheetname) )
+  if( defined($sheetnumber) || defined($targetsheetname) || $oBook->{SheetCount}==1 )
     {
       if( defined($targetfile) )
 	{


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.