[open-ils-commits] r11423 - trunk/Open-ILS/src/reporter

[svn at svn.open-ils.org]

Author: miker
Date: 2008-12-05 17:03:55 -0500 (Fri, 05 Dec 2008)
New Revision: 11423

Modified:
   trunk/Open-ILS/src/reporter/clark-kent.pl
Log:
Patch from Brandon Uhlman to repair an Excel sheet name off-by-one bug

Modified: trunk/Open-ILS/src/reporter/clark-kent.pl
===================================================================
--- trunk/Open-ILS/src/reporter/clark-kent.pl	2008-12-05 21:33:44 UTC (rev 11422)
+++ trunk/Open-ILS/src/reporter/clark-kent.pl	2008-12-05 22:03:55 UTC (rev 11423)
@@ -372,7 +372,7 @@
 	my $r = shift;
 	my $xls = Spreadsheet::WriteExcel::Big->new($file);
 
-	my $sheetname = substr($r->{report}->{name},1,31);
+	my $sheetname = substr($r->{report}->{name},0,30);
 	$sheetname =~ s/\W/_/gos;
 	
 	my $sheet = $xls->add_worksheet($sheetname);