From: Jason Etheridge <jason@esilibrary.com>
Date: Fri, 16 Feb 2018 21:29:34 +0000 (-0500)
Subject: truncate field names here for now for WriteExcel
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=0df8cb547af49e9953df8a5d03516abcbcc932f4;hp=51e77bd99e9415be1b5dc6df3d8186bf13088cb5

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
--- 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) {