. /** * Settings form for extracttestcase.php. * * @package tool * @subpackage qeupgradehelper * @copyright 2009 The Open University * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later */ defined('MOODLE_INTERNAL') || die(); require_once($CFG->libdir . '/formslib.php'); /** * Options form. * @copyright 2009 The Open University * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later */ class tool_qeupgradehelper_extract_options_form extends moodleform { public function definition() { $mform = $this->_form; $behaviour = array( 'deferredfeedback' => 'Deferred feedback', 'adaptive' => 'Adaptive', 'adaptivenopenalty' => 'Adaptive (no penalties)', ); $qtypes = get_plugin_list('qtype'); foreach ($qtypes as $qtype => $notused) { $qtypes[$qtype] = get_string($qtype, 'qtype_' . $qtype); } $mform->addElement('header', 'h1', 'Either extract a specific question_session'); $mform->addElement('text', 'attemptid', 'Quiz attempt id', array('size' => '10')); $mform->addElement('text', 'questionid', 'Question id', array('size' => '10')); $mform->addElement('header', 'h2', 'Or find and extract an example by type'); $mform->addElement('select', 'behaviour', 'Behaviour', $behaviour); $mform->addElement('text', 'statehistory', 'State history', array('size' => '10')); $mform->addElement('select', 'qtype', 'Question type', $qtypes); $mform->addElement('text', 'extratests', 'Extra conditions', array('size' => '50')); $this->add_action_buttons(false, 'Create test case'); } }