From 0df8cb547af49e9953df8a5d03516abcbcc932f4 Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Fri, 16 Feb 2018 16:29:34 -0500 Subject: [PATCH] truncate field names here for now for WriteExcel Signed-off-by: Jason Etheridge --- mig-bin/mig-quicksheet | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) 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) { -- 1.7.2.5