[Summary view] [Print] [Text view]

   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  require_once("$CFG->libdir/spout/src/Spout/Autoloader/autoload.php");
  28  
  29  defined('MOODLE_INTERNAL') || die();
  30  
  31  /**
  32   * ODS data format writer
  33   *
  34   * @package    dataformat_ods
  35   * @copyright  2016 Brendan Heywood (brendan@catalyst-au.net)
  36   * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
  37   */
  38  class writer extends \core\dataformat\spout_base {
  39  
  40      /** @var $mimetype */
  41      protected $mimetype = "application/vnd.oasis.opendocument.spreadsheet";
  42  
  43      /** @var $extension */
  44      protected $extension = ".ods";
  45  
  46      /** @var $spouttype */
  47      protected $spouttype = \Box\Spout\Common\Type::ODS;
  48  
  49      /**
  50       * Set the title of the worksheet inside a spreadsheet
  51       *
  52       * For some formats this will be ignored.
  53       *
  54       * @param string $title
  55       */
  56      public function set_sheettitle($title) {
  57          if (!$title) {
  58              return;
  59          }
  60  
  61          // Replace any characters in the name that ODS cannot cope with.
  62          $title = strtr(trim($title, "'"), '[]*/\?:', '       ');
  63          // Shorten the title if necessary.
  64          $title = \core_text::substr($title, 0, 31);
  65          // After the substr, we might now have a single quote on the end.
  66          $title = trim($title, "'");
  67  
  68          $this->sheettitle = $title;
  69      }
  70  }
  71