X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=emig.d%2Fbin%2Fmig-quicksheet;fp=emig.d%2Fbin%2Fmig-quicksheet;h=b33e2e07a27f772a4c7a400cdb3cdf826a637ac3;hp=ce371efb24b84395683590c9f81e2bf90ab3f69f;hb=cad29b1d892e025e16582f28d540dfa5365c089d;hpb=8d410003860840c3803d73a469ebb2e4b6d03977

diff --git a/emig.d/bin/mig-quicksheet b/emig.d/bin/mig-quicksheet
index ce371ef..b33e2e0 100755
--- a/emig.d/bin/mig-quicksheet
+++ b/emig.d/bin/mig-quicksheet
@@ -240,7 +240,7 @@ sub write_worksheets {
     my $tab_name = (scalar(@ARGV) > 1 ? $counter . ') ' : '') . 'Field Summary';
     $tab_name = substr($tab_name,0,31); # truncate for WriteExcel
     if ($outfile) {
-        $first_sheet = $workbook->add_worksheet( $tab_name );
+        $first_sheet = $workbook->add_worksheet( substr($tab_name,0,31) );
         $first_sheet->set_column(0,6,30);
     }
     if ($outtable) {
@@ -335,7 +335,7 @@ sub handle_list {
     $has_x_source = 0;
     if ($outfile) {
         print "Sheet: $table\n";
-        $list_sheet = $workbook->add_worksheet( $table );
+        $list_sheet = $workbook->add_worksheet( substr($table,0,31) );
     }
 
     my $handle_headers = 1;
@@ -523,7 +523,7 @@ sub group_by {
     }
 
     if ($outfile) {
-        $col_sheet = $workbook->add_worksheet( $sheet_name );
+        $col_sheet = $workbook->add_worksheet( substr($sheet_name,0,31) );
         push @worksheets, $col_sheet;
         $col_sheet->set_column(0,6,30);
         $col_sheet->write($col_sheet_row_start + $col_sheet_row_offset,0,'Count',$bold);