truncate field names here for now for WriteExcel

Signed-off-by: Jason Etheridge <jason@esilibrary.com>

diff --git a/mig-bin/mig-quicksheet b/mig-bin/mig-quicksheet
index e97377a..a1b516c 100755 (executable)
--- 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) {