Patch from Brandon Uhlman to repair an Excel sheet name off-by-one bug

git-svn-id: svn://svn.open-ils.org/ILS/trunk@11423 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/reporter/clark-kent.pl b/Open-ILS/src/reporter/clark-kent.pl
index 48e5030..55715ef 100755 (executable)
--- a/Open-ILS/src/reporter/clark-kent.pl
+++ b/Open-ILS/src/reporter/clark-kent.pl
@@ -372,7 +372,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);