MDL-22388 Added some checks to kill these scripts dead with an unequivocal notice...
[moodle.git] / mod / survey / mod_form.php
1 <?php
2 if (!defined('MOODLE_INTERNAL')) {
3     die('Direct access to this script is forbidden.');    ///  It must be included from a Moodle page
4 }
6 require_once ($CFG->dirroot.'/course/moodleform_mod.php');
8 class mod_survey_mod_form extends moodleform_mod {
10     function definition() {
11         global $CFG, $DB;
13         $mform =& $this->_form;
15         $strrequired = get_string('required');
17 //-------------------------------------------------------------------------------
18         $mform->addElement('header', 'general', get_string('general', 'form'));
20         $mform->addElement('text', 'name', get_string('name'), array('size'=>'64'));
21         if (!empty($CFG->formatstringstriptags)) {
22             $mform->setType('name', PARAM_TEXT);
23         } else {
24             $mform->setType('name', PARAM_CLEAN);
25         }
26         $mform->addRule('name', null, 'required', null, 'client');
28         if (!$options = $DB->get_records_menu("survey", array("template"=>0), "name", "id, name")) {
29             print_error('cannotfindsurveytmpt', 'survey');
30         }
32         foreach ($options as $id => $name) {
33             $options[$id] = get_string($name, "survey");
34         }
35         $options = array(''=>get_string('choose').'...') + $options;
36         $mform->addElement('select', 'template', get_string("surveytype", "survey"), $options);
37         $mform->addRule('template', $strrequired, 'required', null, 'client');
38         $mform->setHelpButton('template', array('surveys', get_string('helpsurveys', 'survey')));
40         $this->add_intro_editor(false, get_string('customintro', 'survey'));
42         $this->standard_coursemodule_elements();
44 //-------------------------------------------------------------------------------
45         // buttons
46         $this->add_action_buttons();
47     }
50 }