From d99017f1391ed117a8e1e6fbeea77f00bc359d2f Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Mon, 3 Nov 2008 19:30:12 +0000 Subject: [PATCH] implement 31 char limit for sheet name with warning git-svn-id: svn://svn.rot13.org/SQL2XLS@11 2e857b76-582b-47e5-ad5c-b3ba0f0ee29b --- sql2xls.cgi | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/sql2xls.cgi b/sql2xls.cgi index 4de6924..9614ebd 100755 --- a/sql2xls.cgi +++ b/sql2xls.cgi @@ -85,7 +85,8 @@ foreach my $sql_file (@sql_files) { $sheet_name =~ s/\.sql//; # Add a worksheet - my $worksheet = $workbook->addworksheet($sheet_name); + warn "# clipping sheet name '$sheet_name' to 31 char limit\n" if length $sheet_name > 31; + my $worksheet = $workbook->addworksheet( substr($sheet_name,0,31) ); print STDERR "working on $sql_file\n" if ($debug); -- 2.20.1