. /** * This file contains the forms to create and edit an instance of this module * * @package mod_imscp * @copyright 2009 Petr Skoda {@link http://skodak.org} * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later */ defined('MOODLE_INTERNAL') || die(); require_once($CFG->dirroot.'/course/moodleform_mod.php'); require_once($CFG->libdir.'/filelib.php'); /** * IMS CP configuration form * * @package mod_imscp * @copyright 2009 Petr Skoda {@link http://skodak.org} * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later */ class mod_imscp_mod_form extends moodleform_mod { /** * Define the form - called by parent constructor */ public function definition() { global $CFG, $DB; $mform = $this->_form; $config = get_config('imscp'); // Title and description. $mform->addElement('header', 'general', get_string('general', 'form')); $mform->addElement('text', 'name', get_string('name'), array('size' => '48')); if (!empty($CFG->formatstringstriptags)) { $mform->setType('name', PARAM_TEXT); } else { $mform->setType('name', PARAM_CLEANHTML); } $mform->addRule('name', null, 'required', null, 'client'); $mform->addRule('name', get_string('maximumchars', '', 255), 'maxlength', 255, 'client'); $this->standard_intro_elements(); // IMS-CP file upload. $mform->addElement('header', 'content', get_string('contentheader', 'imscp')); $mform->setExpanded('content', true); $mform->addElement('filepicker', 'package', get_string('packagefile', 'imscp')); $options = array('-1' => get_string('all'), '0' => get_string('no'), '1' => '1', '2' => '2', '5' => '5', '10' => '10', '20' => '20'); $mform->addElement('select', 'keepold', get_string('keepold', 'imscp'), $options); $mform->setDefault('keepold', $config->keepold); $mform->setAdvanced('keepold', $config->keepold_adv); $this->standard_coursemodule_elements(); $this->add_action_buttons(); } /** * Perform minimal validation on the settings form * @param array $data * @param array $files */ public function validation($data, $files) { global $USER; if ($errors = parent::validation($data, $files)) { return $errors; } $usercontext = context_user::instance($USER->id); $fs = get_file_storage(); if (!$files = $fs->get_area_files($usercontext->id, 'user', 'draft', $data['package'], 'id', false)) { if (!$this->current->instance) { $errors['package'] = get_string('required'); return $errors; } } else { $file = reset($files); if ($file->get_mimetype() != 'application/zip') { $errors['package'] = get_string('invalidfiletype', 'error', '', $file); // Better delete current file, it is not usable anyway. $fs->delete_area_files($usercontext->id, 'user', 'draft', $data['package']); } } return $errors; } }