MDL-50015 mod_imscp: New WS mod_imscp_view_imscp
[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_CLEANHTML);
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->addHelpButton('template', 'surveytype', 'survey');
40         $this->standard_intro_elements(get_string('customintro', 'survey'));
42         $this->standard_coursemodule_elements();
44 //-------------------------------------------------------------------------------
45         // buttons
46         $this->add_action_buttons();
47     }
50 }