[open-ils-commits] r11427 - branches/rel_1_2_4/Open-ILS/src/reporter

[svn at svn.open-ils.org]

Author: miker
Date: 2008-12-05 17:04:39 -0500 (Fri, 05 Dec 2008)
New Revision: 11427

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

Modified: branches/rel_1_2_4/Open-ILS/src/reporter/clark-kent.pl
===================================================================
--- branches/rel_1_2_4/Open-ILS/src/reporter/clark-kent.pl	2008-12-05 22:04:30 UTC (rev 11426)
+++ branches/rel_1_2_4/Open-ILS/src/reporter/clark-kent.pl	2008-12-05 22:04:39 UTC (rev 11427)
@@ -373,7 +373,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);