-
Notifications
You must be signed in to change notification settings - Fork 1
/
questiontype.php
307 lines (271 loc) · 13.3 KB
/
questiontype.php
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
<?php
// This file is part of Moodle - http://moodle.org/
//
// Moodle is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// Moodle is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Moodle. If not, see <http://www.gnu.org/licenses/>.
/**
* Question type class for the true-false question type.
*
* @package qtype
* @subpackage manip
* @copyright 2012 Université de Montréal
* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
*/
defined('MOODLE_INTERNAL') || die();
require_once($CFG->libdir . '/questionlib.php');
require_once($CFG->dirroot . '/question/engine/lib.php');
require_once($CFG->dirroot . '/question/type/manip/question.php');
/**
* The manip question type class.
*
* @copyright 2012 Université de Montréal
* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
*/
class qtype_manip extends question_type {
const CORRECT_ANSWER = 'Correct';
const INCORRECT_ANSWER = 'Incorrect';
const CORRECT_VALUE = 1.0;
const INCORRECT_VALUE = 0.0;
public function extra_question_fields() {
return array('question_manip', 'regex', 'minocc', 'maxocc', 'correct', 'incorrect');
}
public function questionid_column_name() {
return 'question';
}
public function save_question_options($question) {
global $DB;
$result = new stdClass();
$context = $question->context;
// Fetch old answer ids so that we can reuse them
$oldanswers = $DB->get_records('question_answers',
array('question' => $question->id), 'id ASC');
// Save the correct answer - update an existing answer if possible.
$answer = array_shift($oldanswers);
if (!$answer) {
$answer = new stdClass();
$answer->question = $question->id;
$answer->answer = '';
$answer->feedback = '';
$answer->id = $DB->insert_record('question_answers', $answer);
}
$answer->answer = self::CORRECT_ANSWER;
$answer->fraction = self::CORRECT_VALUE;
$answer->feedback = $this->import_or_save_files($question->feedbackcorrect,
$context, 'question', 'answerfeedback', $answer->id);
$answer->feedbackformat = $question->feedbackcorrect['format'];
$DB->update_record('question_answers', $answer);
$correctid = $answer->id;
// Save the incorrect answer - update an existing answer if possible.
$answer = array_shift($oldanswers);
if (!$answer) {
$answer = new stdClass();
$answer->question = $question->id;
$answer->answer = '';
$answer->feedback = '';
$answer->id = $DB->insert_record('question_answers', $answer);
}
$answer->answer = self::INCORRECT_ANSWER;
$answer->fraction = self::INCORRECT_VALUE;
$answer->feedback = $this->import_or_save_files($question->feedbackincorrect,
$context, 'question', 'answerfeedback', $answer->id);
$answer->feedbackformat = $question->feedbackincorrect['format'];
$DB->update_record('question_answers', $answer);
$incorrectid = $answer->id;
// Delete any left over old answer records.
$fs = get_file_storage();
foreach ($oldanswers as $oldanswer) {
$fs->delete_area_files($context->id, 'question', 'answerfeedback', $oldanswer->id);
$DB->delete_records('question_answers', array('id' => $oldanswer->id));
}
// Save question options in question_manip table
if ($options = $DB->get_record('question_manip', array('question' => $question->id))) {
$options->regex = $question->regex;
$options->minocc = $question->minocc;
$options->maxocc = $question->maxocc;
$options->correct = $correctid;
$options->incorrect = $incorrectid;
$DB->update_record('question_manip', $options);
} else {
$options = new stdClass();
$options->question = $question->id;
$options->regex = $question->regex;
$options->minocc = $question->minocc;
$options->maxocc = $question->maxocc;
$options->correct = $correctid;
$options->incorrect = $incorrectid;
$DB->insert_record('question_manip', $options);
}
return true;
}
protected function initialise_question_instance(question_definition $question, $questiondata) {
parent::initialise_question_instance($question, $questiondata);
$answers = $questiondata->options->answers;
$question->feedbackcorrect = $answers[$questiondata->options->correct]->feedback;
$question->feedbackincorrect = $answers[$questiondata->options->incorrect]->feedback;
$question->feedbackcorrectformat = $answers[$questiondata->options->correct]->feedbackformat;
$question->feedbackincorrectformat = $answers[$questiondata->options->incorrect]->feedbackformat;
$question->regex = $questiondata->options->regex;
$question->minocc = $questiondata->options->minocc;
$question->maxocc = $questiondata->options->maxocc;
$question->correctanswerid = $questiondata->options->correct;
$question->incorrectanswerid = $questiondata->options->incorrect;
}
/**
* Loads the question type specific options for the question.
*/
public function get_question_options($question) {
global $DB, $OUTPUT;
// Get additional information from database
// and attach it to the question object
if (!$question->options = $DB->get_record('question_manip',
array('question' => $question->id))) {
echo $OUTPUT->notification('Error: Missing question options!');
return false;
}
// Load the answers
if (!$question->options->answers = $DB->get_records('question_answers',
array('question' => $question->id), 'id ASC')) {
echo $OUTPUT->notification('Error: Missing question answers for manip question ' .
$question->id . '!');
return false;
}
return true;
}
public function response_file_areas() {
return array('attachment');
}
protected function delete_files($questionid, $contextid) {
parent::delete_files($questionid, $contextid);
$this->delete_files_in_answers($questionid, $contextid);
}
public function is_usable_by_random() {
return false;
}
public function get_possible_responses($questiondata) {
return array(
$questiondata->id => array(
0 => new question_possible_response(self::CORRECT_ANSWER, self::CORRECT_VALUE),
1 => new question_possible_response(self::INCORRECT_ANSWER, self::INCORRECT_VALUE),
null => question_possible_response::no_response()
)
);
}
public function get_regex() {
return array(
'custom' => get_string('customregex', 'qtype_manip'),
'\<w\:b\/\>' => 'Gras',
'\<w\:i\/\>' => 'Italique',
'\<w\:ind w\:left\="567" w\:hanging\="567"' => 'Retrait suspendu de 1 cm',
'\<w\:pgMar w\:top\="1701" w\:right\="1701" w\:bottom\="1701" w\:left\="1701"' => 'Marges de 3cm tout le tour',
'\<w\:pStyle w\:val\="En\-tte"' => 'En-tête',
'\<pic\:cNvPr id\="0" name\="nom_image\.jpg"\/\>' => 'Image insérée avec nom du fichier',
'\<wp\:cNvGraphicFramePr\>' => 'Images insérées',
'\<w\:spacing w\:line\="480"' => 'Interligne double',
'\<w\:vAlign w\:val\="both"' => 'Justification verticale',
'\<w\:lang w\:val\="en\-CA"' => 'Langue canadien anglais',
'\<w\:pStyle w\:val\="Notedebasdepage"' => 'Notes de bas de page',
'\<o\:OLEObject Type\="Link"' => 'Objet Olé lié',
'w\:orient\="landscape"' => 'Orientation paysage',
'\<w\:docPartGallery w\:val\="Page Numbers \(Bottom of Page\)"' => 'Pagination dans le pied de page',
'\<w\:jc w\:val\="center"' => 'Paragraphes centrés horizontalement',
'\<w\:jc w\:val\="both"' => 'Paragraphe justifié',
'\<w\:numPr\>' => 'Puces ou numéro',
'\<w\:br\/\>' => 'Saut de ligne',
'\<\/w\:sectPr\>' => 'Saut section',
'\<w\:br w\:type\="page"' => 'Sauts de page',
'\<w\:pStyle w\:val\="TM1"' => 'Style table des matières niveau 1',
'\<w\:pStyle w\:val\="TM2"' => 'Style table des matières niveau 2',
'\<w\:pStyle w\:val\="TM3"' => 'Style table des matières niveau 3',
'\<w\:instrText xml\:space\="preserve"\> TOC \\o "1\-2"' => 'Table des matères deux premiers niveaux',
'\<w\:instrText xml\:space\="preserve"\> TOC \\o "1\-3"' => 'Table des matères trois premiers niveaux',
'\<w\:tblGrid\>' => 'Tableaux',
'\<w\:tblHeader\/\>' => 'Tableaux avec ligne en en-tête répétée',
'\<w\:ind w\:left\="1134" w\:right\="1134"' => 'Retrait de 2 cm',
'\<w\:trHeight w\:val\="567"' => 'Tableau - Hauteur de ligne - 1cm',
'\<w\:trHeight w\:val\="1134"' => 'Tableau - Hauteur de ligne - 2cm',
'\<w\:trHeight w\:val\="1701"' => 'Tableau - Hauteur de ligne - 3cm',
'\<w\:trHeight w\:val\="2268"' => 'Tableau - Hauteur de ligne - 4cm',
'\<w\:trHeight w\:val\="2835"' => 'Tableau - Hauteur de ligne - 5cm',
'\<w\:gridCol w\:w\="567"' => 'Tableau - Largeur de colonne - 1cm',
'\<w\:gridCol w\:w\="1134"' => 'Tableau - Largeur de colonne - 2cm',
'\<w\:gridCol w\:w\="1701"' => 'Tableau - Largeur de colonne - 3cm',
'\<w\:gridCol w\:w\="2268"' => 'Tableau - Largeur de colonne - 4cm',
'\<w\:gridCol w\:w\="2835"' => 'Tableau - Largeur de colonne - 5cm',
'w\:fill\=' => 'Tableau - Trame de fond',
'\<w\:spacing w\:line\="240"' => 'Interligne simple',
'\<w\:r\>' => 'Saut de paragraphe',
'\<w\:pgNumType w\:fmt\="lowerRoman"' => 'Pagination chiffres romains minuscules',
'\<w\:numFmt w\:val\="decimal"' => 'Pagination chiffres arabes',
'\<w\:start \="1"' => 'Numérotation débutant à 1',
'\<w\:ind w\:firstLine\="1134"' => 'Retrait première ligne 2 cm',
'\<w\:jc w\:val\="right"' => 'Texte aligné à droite',
'\<w\:vAlign w\:val\="center"' => 'Texte centré verticalement',
'\<w\:vAlign w\:val\="bottom"' => 'Texte aligné au bas',
'\<w\:ind w\:left\="567"' => 'Retrait à gauche 1 cm',
'\<w\:ind w\:left\="1134"' => 'Retrait à gauche 2 cm',
'\<w\:ind w\:right\="567"' => 'Retrait à droite 1 cm',
'\<w\:ind w\:right\="1134"' => 'Retrait à droite 2 cm',
);
}
// Override question_type::import_from_xml, but keep code as similar as possible.
public function import_from_xml($data, $question, qformat_xml $format, $extra=null) {
$question_type = $data['@']['type'];
if ($question_type != $this->name()) {
return false;
}
$extraquestionfields = $this->extra_question_fields();
if (!is_array($extraquestionfields)) {
return false;
}
//omit table name
array_shift($extraquestionfields);
$qo = $format->import_headers($data);
$qo->qtype = $question_type;
foreach ($extraquestionfields as $field) {
$qo->$field = $format->getpath($data, array('#', $field, 0, '#'), '');
}
// run through the answers
$answers = $data['#']['answer'];
$a_count = 0;
$extraanswersfields = $this->extra_answer_fields();
if (is_array($extraanswersfields)) {
array_shift($extraanswersfields);
}
foreach ($answers as $answer) {
$ans = $format->import_answer($answer);
if (!$this->has_html_answers()) {
$qo->answer[$a_count] = $ans->answer['text'];
} else {
$qo->answer[$a_count] = $ans->answer;
}
$qo->fraction[$a_count] = $ans->fraction;
/// ****** BEGIN 'manip'-specific code
if ($ans->answer['text'] == self::CORRECT_ANSWER)
$varname = 'feedbackcorrect';
elseif ($ans->answer['text'] == self::INCORRECT_ANSWER)
$varname = 'feedbackincorrect';
else
return false('Unknown answer value while importing manip question : '. $ans->answer['text']);
$qo->$varname = $ans->feedback;
/// ****** END 'manip'-specific code
if (is_array($extraanswersfields)) {
foreach ($extraanswersfields as $field) {
$qo->{$field}[$a_count] =
$format->getpath($answer, array('#', $field, 0, '#'), '');
}
}
++$a_count;
}
return $qo;
}
}