[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   * LTI upgrade script.
  19   *
  20   * @package    mod_lti
  21   * @copyright  2014 Vital Source Technologies http://vitalsource.com
  22   * @author     Stephen Vickers
  23   * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
  24   */
  25  
  26  
  27  defined('MOODLE_INTERNAL') || die();
  28  
  29  /**
  30   * Update any custom parameter settings separated by semicolons.
  31   */
  32  function mod_lti_upgrade_custom_separator() {
  33      global $DB;
  34  
  35      // Initialise parameter array.
  36      $params = array('semicolon' => ';', 'likecr' => "%\r%", 'likelf' => "%\n%", 'lf' => "\n");
  37  
  38      // Initialise NOT LIKE clauses to check for CR and LF characters.
  39      $notlikecr = $DB->sql_like('value', ':likecr', true, true, true);
  40      $notlikelf = $DB->sql_like('value', ':likelf', true, true, true);
  41  
  42      // Update any instances in the lti_types_config table.
  43      $sql = 'UPDATE {lti_types_config} ' .
  44             'SET value = REPLACE(value, :semicolon, :lf) ' .
  45             'WHERE (name = \'customparameters\') AND (' . $notlikecr . ') AND (' . $notlikelf . ')';
  46      $DB->execute($sql, $params);
  47  
  48      // Initialise NOT LIKE clauses to check for CR and LF characters.
  49      $notlikecr = $DB->sql_like('instructorcustomparameters', ':likecr', true, true, true);
  50      $notlikelf = $DB->sql_like('instructorcustomparameters', ':likelf', true, true, true);
  51  
  52      // Update any instances in the lti table.
  53      $sql = 'UPDATE {lti} ' .
  54             'SET instructorcustomparameters = REPLACE(instructorcustomparameters, :semicolon, :lf) ' .
  55             'WHERE (instructorcustomparameters IS NOT NULL) AND (' . $notlikecr . ') AND (' . $notlikelf . ')';
  56      $DB->execute($sql, $params);
  57  }