Proyectos de Subversion Moodle

<?php
// This file is part of Moodle - http://moodle.org/
//
// Moodle is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// Moodle is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Moodle.  If not, see <http://www.gnu.org/licenses/>.

defined('MOODLE_INTERNAL') || die();

global $CFG;
require_once($CFG->dirroot . '/course/moodleform_mod.php');

/**
 * mod_qbank settings form definition.
 *
 * @package    mod_qbank
 * @copyright  2024 onwards Catalyst IT EU {@link https://catalyst-eu.net}
 * @author     Simon Adams <simon.adams@catalyst-eu.net>
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */
class mod_qbank_mod_form extends moodleform_mod {
    #[\Override]
    protected function definition(): void {
        global $CFG;

        $mform = $this->_form;
        $striptags = !empty($CFG->formatstringstriptags);
        $this->standard_hidden_coursemodule_elements();

        // We need to force visibility on this here as we don't need the other standard course elements.
        $mform->addElement('hidden', 'visible', 0);
        $mform->setType('visible', PARAM_INT);

        $mform->addElement('hidden', 'type');
        $mform->setDefaults('type', \core_question\local\bank\question_bank_helper::TYPE_STANDARD);
        $mform->setType('type', PARAM_TEXT);

        $mform->addElement('header', 'generalhdr', get_string('general'));

        // Add element for name.
        $mform->addElement('text', 'name', get_string('qbankname', 'mod_qbank'), ['size' => '64']);
        if ($striptags) {
            $mform->setType('name', PARAM_TEXT);
        } else {
            $mform->setType('name', PARAM_CLEANHTML);
        }
        $mform->addHelpButton('name', 'qbankname', 'mod_qbank');
        $mform->addRule('name', null, 'required', null, 'client');
        $mform->addRule('name', null, 'maxlength', \core_question\local\bank\question_bank_helper::BANK_NAME_MAX_LENGTH, 'client');

        // Add intro editor.
        $mform->addElement('editor', 'introeditor', get_string('moduleintro'), ['rows' => 10], [
            'maxfiles' => EDITOR_UNLIMITED_FILES,
            'noclean' => true,
            'context' => $this->context,
            'subdirs' => true,
        ]);
        $mform->setType('introeditor', PARAM_RAW); // No XSS prevention here, users must be trusted.
        if ($CFG->requiremodintro) {
            $mform->addRule('introeditor', get_string('required'), 'required', null, 'client');
        }

        // Add show description checkbox.
        $mform->addElement('advcheckbox', 'showdescription', get_string('showdescription', 'mod_qbank'));
        $mform->addHelpButton('showdescription', 'showdescription', 'mod_qbank');

        $mform->addElement('header', 'modstandardelshdr', get_string('modstandardels', 'form'));

        // Add idnumber element.
        $mform->addElement('text', 'cmidnumber', get_string('idnumbermod'));
        if ($striptags) {
            $mform->setType('cmidnumber', PARAM_TEXT);
        } else {
            $mform->setType('cmidnumber', PARAM_CLEANHTML);
        }
        $mform->addHelpButton('cmidnumber', 'idnumbermod');

        // Add our submission buttons.
        $buttonarray[] = $mform->createElement('submit', 'submitbutton2', get_string('saveandreturn', 'mod_qbank'));
        $buttonarray[] = $mform->createElement('submit', 'submitbutton', get_string('saveanddisplay', 'mod_qbank'));
        $buttonarray[] = $mform->createElement('cancel');

        $mform->addGroup($buttonarray, 'buttonar', '', [' '], false);
        $mform->setType('buttonar', PARAM_RAW);
    }

    #[\Override]
    public function validation($data, $files): array {
        global $DB;
        $mform = $this->_form;

        // We don't want the parent validation as it has completion settings which we don't use.
        // Best call the grandparent though in case it changes in the future.
        $errors = moodleform::validation($data, $files);

        if ($mform->elementExists('name')) {
            $name = trim($data['name']);
            if ($name === '') {
                $errors['name'] = get_string('required');
            }
        }

        if (!empty($data['cmidnumber'])) {
            $idnumexists = $DB->record_exists_select(
                'course_modules',
                'id <> :id AND course = :course AND idnumber = :idnumber',
                ['course' => $data['course'], 'idnumber' => $data['cmidnumber'], 'id' => $data['coursemodule'] ?? null]
            );
            if ($idnumexists) {
                $errors['cmidnumber'] = get_string('idnumbertaken');
            }
        }

        if (!empty($data['type']) && !in_array($data['type'], core_question\local\bank\question_bank_helper::SHARED_TYPES, true)) {
            $errors['type'] = get_string('unknownbanktype', 'mod_qbank', $data['type']);
        }

        return $errors;
    }
}