From 2a532aa68c6cffa4b78b17d09e5277555e3c3ca8 Mon Sep 17 00:00:00 2001
From: gbateson <gbateson>
Date: Thu, 14 Sep 2006 07:17:53 +0000
Subject: [PATCH] reduce length of worksheet name to 31 chars if running under
 Moodle 1.5

---
 mod/hotpot/report/default.php | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/mod/hotpot/report/default.php b/mod/hotpot/report/default.php
index c89423e2c5..c70a51882a 100644
--- a/mod/hotpot/report/default.php
+++ b/mod/hotpot/report/default.php
@@ -625,11 +625,13 @@ class hotpot_default_report {
             // Moodle >= 1.6
             require_once("$CFG->libdir/excellib.class.php");
             $wb = new MoodleExcelWorkbook("-");
+            $wsnamelimit = 0; // no limit
         } else {
             // Moodle <= 1.5
             require_once("$CFG->libdir/excel/Worksheet.php");
             require_once("$CFG->libdir/excel/Workbook.php");
             $wb = new Workbook("-");
+            $wsnamelimit = 31; // max length in chars
         }
 
         // send HTTP headers
@@ -638,7 +640,16 @@ class hotpot_default_report {
         // create one worksheet for each table
         foreach($tables as $table) {
             unset($ws);
-            $ws = &$wb->add_worksheet(empty($table->caption) ? '' : strip_tags($table->caption)); 
+            if (empty($table->caption)) {
+                $wsname = '';
+            } else {
+                $wsname = strip_tags($table->caption);
+                if ($wsnamelimit && strlen($wsname) > $wsnamelimit) {
+                    $wsname = substr($wsname, -$wsnamelimit); // end of string
+                    // $wsname = substr($wsname, 0, $wsnamelimit); // start of string
+                }
+            }
+            $ws = &$wb->add_worksheet($wsname);
 
             $row = 0;
             $this->print_excel_head($wb, $ws, $table, $row, $options);
-- 
2.39.5