[Summary view]

Differences Between: [Versions 310 and 403] [Versions 311 and 403] [Versions 39 and 403] [Versions 400 and 403] [Versions 401 and 403]

   1  <?php
   2  // This file is part of Moodle - http://moodle.org/
   3  //
   4  // Moodle is free software: you can redistribute it and/or modify
   5  // it under the terms of the GNU General Public License as published by
   6  // the Free Software Foundation, either version 3 of the License, or
   7  // (at your option) any later version.
   8  //
   9  // Moodle is distributed in the hope that it will be useful,
  10  // but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  // GNU General Public License for more details.
  13  //
  14  // You should have received a copy of the GNU General Public License
  15  // along with Moodle.  If not, see <http://www.gnu.org/licenses/>.
  16  
  17  /**
  18   * Excel data format writer
  19   *
  20   * @package    dataformat_excel
  21   * @copyright  2016 Brendan Heywood (brendan@catalyst-au.net)
  22   * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
  23   */
  24  
  25  namespace dataformat_excel;
  26  
  27  defined('MOODLE_INTERNAL') || die();
  28  
  29  /**
  30   * Excel data format writer
  31   *
  32   * @package    dataformat_excel
  33   * @copyright  2016 Brendan Heywood (brendan@catalyst-au.net)
  34   * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
  35   */
  36  class writer extends \core\dataformat\spout_base {
  37  
  38      /** @var $mimetype */
  39      protected $mimetype = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet";
  40  
  41      /** @var $extension */
  42      protected $extension = ".xlsx";
  43  
  44  
  45      /**
  46       * Set the title of the worksheet inside a spreadsheet
  47       *
  48       * For some formats this will be ignored.
  49       *
  50       * @param string $title
  51       */
  52      public function set_sheettitle($title) {
  53          if (!$title) {
  54              return;
  55          }
  56  
  57          // Replace any characters in the name that Excel cannot cope with.
  58          $title = strtr(trim($title, "'"), '[]*/\?:', '       ');
  59          // Shorten the title if necessary.
  60          $title = \core_text::substr($title, 0, 31);
  61          // After the substr, we might now have a single quote on the end.
  62          $title = trim($title, "'");
  63  
  64          $this->sheettitle = $title;
  65      }
  66  }
  67