X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=mig-bin%2Fmig-quicksheet;h=a1b516cf3f6f36ea135cca225f50feec6fe75d5e;hp=e97377ae8a9151909c1809fc0751e4506e41b1bb;hb=4ec23f88c7f20557b13ec6f5be637e726904e114;hpb=4a7ba51a657fabf8536b1a4e58486b64014949cd

diff --git a/mig-bin/mig-quicksheet b/mig-bin/mig-quicksheet
index e97377a..a1b516c 100755
--- a/mig-bin/mig-quicksheet
+++ b/mig-bin/mig-quicksheet
@@ -238,6 +238,7 @@ sub write_worksheets {
     print 'File #' . $counter . "\n";
     print "Sheet: Field Summary\n";
     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->set_column(0,6,30);
@@ -472,7 +473,8 @@ sub group_by {
     my $col_sheet;
     my $col_table;
 
-    my $sheet_name = (scalar(@ARGV) > 1 ? $counter . ') ' : '') . substr($column,0,31);
+    my $sheet_name = (scalar(@ARGV) > 1 ? $counter . ') ' : '') . $column;
+    $sheet_name = substr($sheet_name,0,31);
 
     print "Sheet: $sheet_name\n";
     if ($has_x_source) {