MDL-20067 new IMS Content package module, includes migrate from old mod/resource...
[moodle.git] / mod / imscp / mod_form.php
1 <?php
3 // This file is part of Moodle - http://moodle.org/
4 //
5 // Moodle is free software: you can redistribute it and/or modify
6 // it under the terms of the GNU General Public License as published by
7 // the Free Software Foundation, either version 3 of the License, or
8 // (at your option) any later version.
9 //
10 // Moodle is distributed in the hope that it will be useful,
11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13 // GNU General Public License for more details.
14 //
15 // You should have received a copy of the GNU General Public License
16 // along with Moodle.  If not, see <http://www.gnu.org/licenses/>.
18 /**
19  * IMS CP configuration form
20  *
21  * @package   mod-imscp
22  * @copyright 2009 Petr Skoda (http://skodak.org)
23  * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
24  */
26 require_once ($CFG->dirroot.'/course/moodleform_mod.php');
27 require_once($CFG->dirroot.'/mod/resource/locallib.php');
28 require_once($CFG->libdir.'/filelib.php');
30 class mod_imscp_mod_form extends moodleform_mod {
31     function definition() {
32         global $CFG, $DB;
33         $mform = $this->_form;
35         $config = get_config('imscp');
37         //-------------------------------------------------------
38         $mform->addElement('header', 'general', get_string('general', 'form'));
39         $mform->addElement('text', 'name', get_string('name'), array('size'=>'48'));
40         if (!empty($CFG->formatstringstriptags)) {
41             $mform->setType('name', PARAM_TEXT);
42         } else {
43             $mform->setType('name', PARAM_CLEAN);
44         }
45         $mform->addRule('name', null, 'required', null, 'client');
46         $this->add_intro_editor($config->requiremodintro);
48         //-------------------------------------------------------
49         $mform->addElement('header', 'content', get_string('contentheader', 'imscp'));
50         $mform->addElement('static', 'note', '', '<i>(TODO: Filepicker is borked, sorry.)</i>');
51 //        $mform->addElement('filepicker', 'package', get_string('packagefile', 'imscp'));
52         $mform->setMaxFileSize(10000000);
53         $mform->addElement('file', 'package', get_string('packagefile', 'imscp'));
55         $options = array('-1'=>get_string('all'), '0'=>get_string('no'), '1'=>'1', '2'=>'2', '5'=>'5', '10'=>'10', '20'=>'20');
56         $mform->addElement('select', 'keepold', get_string('keepold', 'imscp'), $options);
57         $mform->setDefault('keepold', $config->keepold);
58         $mform->setAdvanced('keepold', $config->keepold_adv);
60         //-------------------------------------------------------
61         $this->standard_coursemodule_elements();
63         //-------------------------------------------------------
64         $this->add_action_buttons();
65     }
67     function validation($data, $files) {
68         global $USER;
70         if ($errors = parent::validation($data, $files)) {
71             return $errors;
72         }
74         $usercontext = get_context_instance(CONTEXT_USER, $USER->id);
75         $fs = get_file_storage();
76         /*
77         if (!$files = $fs->get_area_files($usercontext->id, 'user_draft', $data['package'], 'id', false)) {
78             if (!$this->current->instance) {
79                 $errors['package'] = get_string('required');
80                 return $errors;
81             }
82         }
84         $files = reset($file);
86         if ($file->get_mimetype() != 'application/zip') {
87             $errors['package'] = get_string('invalidfiletype', 'error', '', $file);
88             // better delete current file, it is not usable anyway
89             $fs->delete_area_files($usercontext->id, 'user_draft', $data['package']);
90         }*/
92         // TODO: filepicker borked
93         if (empty($files)) {
94             if (!$this->current->instance) {
95                 $errors['package'] = get_string('required');
96                 return $errors;
97             }
98         }
100         return $errors;
101     }