[Summary view]

Differences Between: [Versions 401 and 402] [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   * ODS data format writer
  19   *
  20   * @package    dataformat_ods
  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_ods;
  26  
  27  defined('MOODLE_INTERNAL') || die();
  28  
  29  /**
  30   * ODS data format writer
  31   *
  32   * @package    dataformat_ods
  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.oasis.opendocument.spreadsheet";
  40  
  41      /** @var $extension */
  42      protected $extension = ".ods";
  43  
  44      /** @var $spouttype */
  45      protected $spouttype = \Box\Spout\Common\Type::ODS;
  46  
  47      /**
  48       * Set the title of the worksheet inside a spreadsheet
  49       *
  50       * For some formats this will be ignored.
  51       *
  52       * @param string $title
  53       */
  54      public function set_sheettitle($title) {
  55          if (!$title) {
  56              return;
  57          }
  58  
  59          // Replace any characters in the name that ODS cannot cope with.
  60          $title = strtr(trim($title, "'"), '[]*/\?:', '       ');
  61          // Shorten the title if necessary.
  62          $title = \core_text::substr($title, 0, 31);
  63          // After the substr, we might now have a single quote on the end.
  64          $title = trim($title, "'");
  65  
  66          $this->sheettitle = $title;
  67      }
  68  }
  69