From a4ef64def948590450c9b40594bb2503e0659038 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 5 Dec 2008 22:04:30 +0000
Subject: [PATCH] Patch from Brandon Uhlman to repair an Excel sheet name
 off-by-one bug

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_2_3@11426 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/reporter/clark-kent.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Open-ILS/src/reporter/clark-kent.pl b/Open-ILS/src/reporter/clark-kent.pl
index 4aad324da3..d0b1d29987 100755
--- a/Open-ILS/src/reporter/clark-kent.pl
+++ b/Open-ILS/src/reporter/clark-kent.pl
@@ -373,7 +373,7 @@ sub build_excel {
 	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);
-- 
2.11.0