[open-ils-commits] r11424 - branches/rel_1_4/Open-ILS/src/reporter

[svn at svn.open-ils.org]

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

Modified:
   branches/rel_1_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_4/Open-ILS/src/reporter/clark-kent.pl
===================================================================
--- branches/rel_1_4/Open-ILS/src/reporter/clark-kent.pl	2008-12-05 22:03:55 UTC (rev 11423)
+++ branches/rel_1_4/Open-ILS/src/reporter/clark-kent.pl	2008-12-05 22:04:09 UTC (rev 11424)
@@ -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);