forked from wiris/moodle-qtype_wq
-
Notifications
You must be signed in to change notification settings - Fork 0
/
question.php
313 lines (268 loc) · 11.4 KB
/
question.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
308
309
310
311
312
313
<?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/>.
defined('MOODLE_INTERNAL') || die();
require_once($CFG->dirroot . '/question/type/wq/quizzes/quizzes.php');
class qtype_wq_question extends question_with_responses {
/**
* @var question_definition
* The base question.
* **/
public $base;
/**
* @var com_wiris_quizzes_api_Question
* The com.wiris.quizzes.api.Question object for this question.
* **/
public $wirisquestion;
/**
* @var com_wiris_quizzes_api_QuestionInstance
* The com.wiris.quizzes.api.QuestionInstance object for the current
* attempt.
* **/
public $wirisquestioninstance;
public function __construct(question_definition $base = null) {
$this->base = $base;
}
/**
* Initializes WIRIS question calling the service in order to get the value
* of the variables to render the question.
*
* @param question_attempt_step $step
* The attempt step.
* @param int $variant
* The random seed to be used in this question.
* **/
public function start_attempt(question_attempt_step $step, $variant) {
$this->base->start_attempt($step, $variant);
// Get variables from WIRIS quizzes service.
$builder = com_wiris_quizzes_api_QuizzesBuilder::getInstance();
$text = $this->join_all_text();
$this->wirisquestioninstance = $builder->newQuestionInstance($this->wirisquestion);
$this->wirisquestioninstance->setRandomSeed($variant);
// Begin testing code. It's never used in production.
global $CFG;
if (isset($CFG->wq_random_seed) && $CFG->wq_random_seed != 'false') {
$this->wirisquestioninstance->setRandomSeed($CFG->wq_random_seed);
set_config('wq_random_seed', 'false');
}
// End testing code.
// Create request to call service.
$request = $builder->newVariablesRequest($text, $this->wirisquestion, $this->wirisquestioninstance);
// Do the call only if needed.
if (!$request->isEmpty()) {
$response = $this->call_wiris_service($request);
$this->wirisquestioninstance->update($response);
}
// Save the result.
$step->set_qt_var('_qi', $this->wirisquestioninstance->serialize());
}
/**
* Initializes a question from an intermediate state. It reads the question
* instance form the saved XML and updates the plotter image cache if
* necessary.
* **/
public function apply_attempt_state(question_attempt_step $step) {
$this->base->apply_attempt_state($step);
// Recover the questioninstance variable saved on start_attempt().
$xml = $step->get_qt_var('_qi');
$builder = com_wiris_quizzes_api_QuizzesBuilder::getInstance();
$this->wirisquestioninstance = $builder->readQuestionInstance($xml);
// Be sure that plotter images don't got removed, and recompute them
// otherwise.
if (!$this->wirisquestioninstance->areVariablesReady()) {
// We make a new request to the service if plotter images are not cached.
$request = $builder->newVariablesRequest($this->join_all_text(), $this->wirisquestion, $this->wirisquestioninstance);
$response = $this->call_wiris_service($request);
$this->wirisquestioninstance->update($response);
// We don't need to save this question instance in database because
// only the plotter image files were updated.
}
// On manual regrade, xml could change. We can't get xml from qt variable
// So we need to recompute variables.
// Each attempt builds on the last (question_attempt_step_read_only) shouldn't recompute variables.
if ($step->get_state() instanceof question_state_complete && !($step instanceof question_attempt_step_read_only)) {
$request = $builder->newVariablesRequest($this->join_all_text(), $this->wirisquestion, $this->wirisquestioninstance);
$response = $this->call_wiris_service($request);
$this->wirisquestioninstance->update($response);
// Save the result.
$step->set_qt_var('_qi', $this->wirisquestioninstance->serialize());
}
}
public function get_question_summary() {
$text = $this->base->get_question_summary();
return $this->expand_variables_text($text);
}
public function get_num_variants() {
if ($this->wirisquestion->getAlgorithm() != null) {
return 65536;
} else {
return 1;
}
}
public function get_min_fraction() {
return $this->base->get_min_fraction();
}
public function get_max_fraction() {
return $this->base->get_max_fraction();
}
public function clear_wrong_from_response(array $response) {
return $this->base->clear_wrong_from_response($response);
}
public function get_num_parts_right(array $response) {
return $this->base->get_num_parts_right($response);
}
public function get_expected_data() {
$expected = $this->base->get_expected_data();
$expected['_sqi'] = PARAM_RAW_TRIMMED;
return $expected;
}
public function get_correct_response() {
return $this->base->get_correct_response();
}
public function prepare_simulated_post_data($simulatedresponse) {
return $this->base->prepare_simulated_post_data($simulatedresponse);
}
public function format_text($text, $format, $qa, $component, $filearea, $itemid, $clean = false) {
if ($format == FORMAT_PLAIN) {
$text = $this->base->format_text($text, $format, $qa, $component, $filearea, $itemid, $clean);
$format = FORMAT_HTML;
}
$text = $this->expand_variables($text);
return $this->base->format_text($text, $format, $qa, $component, $filearea, $itemid, $clean);
}
public function expand_variables($text) {
if (isset($this->wirisquestioninstance)) {
$text = $this->wirisquestioninstance->expandVariables($text);
}
return $text;
}
public function expand_variables_text($text) {
if (isset($this->wirisquestioninstance)) {
$text = $this->wirisquestioninstance->expandVariablesText($text);
}
return $text;
}
public function expand_variables_mathml($text) {
if (isset($this->wirisquestioninstance)) {
$text = $this->wirisquestioninstance->expandVariablesMathML($text);
}
return $text;
}
public function html_to_text($text, $format) {
return $this->base->html_to_text($text, $format);
}
public function check_file_access($qa, $options, $component, $filearea, $args, $forcedownload) {
return $this->base->check_file_access($qa, $options, $component, $filearea, $args, $forcedownload);
}
/**
* question_response_answer_comparer interface.
* **/
public function compare_response_with_answer(array $response, question_answer $answer) {
return $this->base->compare_response_with_answer($response, $answer);
}
public function get_answers() {
return $this->base->get_answers();
}
/**
* question_manually_gradable interface
* **/
public function is_complete_response(array $response) {
return $this->base->is_complete_response($response);
}
public function is_same_response(array $prevresponse, array $newresponse) {
$baseresponse = $this->base->is_same_response($prevresponse, $newresponse);
return $baseresponse && ((empty($newresponse['_sqi']) && empty($prevresponse['_sqi'])) || (!empty($prevresponse['_sqi']) &&
!empty($newresponse['_sqi']) && $newresponse['_sqi'] == $prevresponse['_sqi']));
}
public function summarise_response(array $response) {
$text = $this->base->summarise_response($response);
$text = $this->expand_variables_text($text);
return $text;
}
public function classify_response(array $response) {
return $this->base->classify_response($response);
}
/**
* question_automatically_gradable interface
* **/
public function is_gradable_response(array $response) {
return $this->base->is_gradable_response($response);
}
public function get_validation_error(array $response) {
return $this->base->get_validation_error($response);
}
public function grade_response(array $response) {
return $this->base->grade_response($response);
}
public function get_hint($hintnumber, question_attempt $qa) {
return $this->base->get_hint($hintnumber, $qa);
}
public function get_right_answer_summary() {
$text = $this->base->get_right_answer_summary();
return $this->expand_variables_text($text);
}
public function format_hint(question_hint $hint, question_attempt $qa) {
return $this->format_text($hint->hint, $hint->hintformat, $qa,
'question', 'hint', $hint->id);
}
/**
* interface question_automatically_gradable_with_countback
* **/
public function compute_final_grade($responses, $totaltries) {
return $this->base->compute_final_grade($responses, $totaltries);
}
public function make_behaviour(question_attempt $qa, $preferredbehaviour) {
return $this->base->make_behaviour($qa, $preferredbehaviour);
}
/**
* Custom interface.
* **/
/**
* @return All the text of the question in a single string so WIRIS quizzes
* can extract the variable placeholders.
*/
public function join_all_text() {
// Question text and general feedback.
$text = $this->questiontext . ' ' . $this->generalfeedback;
// Hints.
foreach ($this->hints as $hint) {
$text .= ' ' . $hint->hint;
}
return $text;
}
public function call_wiris_service($request) {
global $COURSE;
global $USER;
$builder = com_wiris_quizzes_api_QuizzesBuilder::getInstance();
$metaproperty = ((!empty($COURSE) ? $COURSE->id : '') . '/' . (!empty($question) ? $question->id : ''));
$request->addMetaProperty('questionref', $metaproperty);
$request->addMetaProperty('userref', (!empty($USER) ? $USER->id : ''));
$service = $builder->getQuizzesService();
try {
$response = $service->execute($request);
} catch (Exception $e) {
global $CFG;
$a = new stdClass();
$a->questionname = $this->name;
$link = null;
$cmid = optional_param('cmid', null, PARAM_RAW);
if ($cmid != null) {
$link = $CFG->wwwroot . '/mod/quiz/view.php?id=' . $cmid;
}
throw new moodle_exception('wirisquestionincorrect', 'qtype_wq', $link, $a, '');
}
return $response;
}
}