1<?php
2// This file is part of Moodle - http://moodle.org/
3//
4// Moodle is free software: you can redistribute it and/or modify
5// it under the terms of the GNU General Public License as published by
6// the Free Software Foundation, either version 3 of the License, or
7// (at your option) any later version.
8//
9// Moodle is distributed in the hope that it will be useful,
10// but WITHOUT ANY WARRANTY; without even the implied warranty of
11// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12// GNU General Public License for more details.
13//
14// You should have received a copy of the GNU General Public License
15// along with Moodle.  If not, see <http://www.gnu.org/licenses/>.
16/**
17 * @package   moodlecore
18 * @subpackage backup-imscc
19 * @copyright 2009 Mauro Rondinelli (mauro.rondinelli [AT] uvcms.com)
20 * @copyright 2011 Darko Miletic (dmiletic@moodlerooms.com)
21 * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
22 */
23
24defined('MOODLE_INTERNAL') or die('Direct access to this script is forbidden.');
25
26class cc_quiz extends entities {
27
28    public function generate_node_question_categories () {
29
30        $instances = $this->generate_instances();
31
32        $node_course_question_categories = $this->create_node_course_question_categories($instances);
33        $node_course_question_categories = empty($node_course_question_categories) ? '' : $node_course_question_categories;
34
35        return $node_course_question_categories;
36
37    }
38
39    public function generate_node_course_modules_mod () {
40
41        cc2moodle::log_action('Creating Quiz mods');
42
43        $node_course_modules_mod = '';
44        $instances = $this->generate_instances();
45
46        if (!empty($instances)) {
47            foreach ($instances as $instance) {
48                if ($instance['is_question_bank'] == 0) {
49                    $node_course_modules_mod .= $this->create_node_course_modules_mod($instance);
50                }
51            }
52        }
53
54        return $node_course_modules_mod;
55
56    }
57
58    private function create_node_course_modules_mod_quiz_feedback () {
59
60        $sheet_question_mod_feedback = cc2moodle::loadsheet(SHEET_COURSE_SECTIONS_SECTION_MODS_MOD_QUIZ_FEEDBACK);
61
62        return $sheet_question_mod_feedback;
63    }
64
65    private function generate_instances () {
66
67        $last_instance_id = 0;
68        $last_question_id = 0;
69        $last_answer_id = 0;
70
71        $instances = array();
72
73        $types = array(MOODLE_TYPE_QUIZ, MOODLE_TYPE_QUESTION_BANK);
74
75        foreach ($types as $type) {
76
77            if (!empty(cc2moodle::$instances['instances'][$type])) {
78
79                foreach (cc2moodle::$instances['instances'][$type] as $instance) {
80
81                    if ($type == MOODLE_TYPE_QUIZ) {
82                        $is_question_bank = 0;
83                    } else {
84                        $is_question_bank = 1;
85                    }
86
87                    $assessment_file = $this->get_external_xml($instance['resource_indentifier']);
88
89                    if (!empty($assessment_file)) {
90
91                        $assessment = $this->load_xml_resource(
92                            cc2moodle::$path_to_manifest_folder . DIRECTORY_SEPARATOR . $assessment_file
93                        );
94
95                        if (!empty($assessment)) {
96
97                            $replace_values = array('unlimited' => 0);
98
99                            $questions = $this->get_questions(
100                                $assessment, $last_question_id, $last_answer_id, dirname($assessment_file), $is_question_bank
101                            );
102                            $question_count = count($questions);
103
104                            if (!empty($question_count)) {
105
106                                $last_instance_id++;
107
108                                $instances[$instance['resource_indentifier']]['questions'] = $questions;
109                                $instances[$instance['resource_indentifier']]['id'] = $last_instance_id;
110                                $instances[$instance['resource_indentifier']]['title'] = $instance['title'];
111                                $instances[$instance['resource_indentifier']]['is_question_bank'] = $is_question_bank;
112                                $instances[$instance['resource_indentifier']]['options']['timelimit'] =
113                                    $this->get_global_config($assessment, 'qmd_timelimit', 0);
114                                $instances[$instance['resource_indentifier']]['options']['max_attempts'] =
115                                    $this->get_global_config($assessment, 'cc_maxattempts', 0, $replace_values);
116                            }
117                        }
118                    }
119                }
120            }
121        }
122
123        return $instances;
124    }
125
126
127    private function create_node_course_modules_mod ($instance) {
128
129        $sheet_question_mod = cc2moodle::loadsheet(SHEET_COURSE_SECTIONS_SECTION_MODS_MOD_QUIZ);
130
131        $node_course_modules_quiz_question_instances = $this->create_node_course_modules_mod_quiz_question_instances($instance);
132        $node_course_modules_quiz_feedback = $this->create_node_course_modules_mod_quiz_feedback($instance);
133
134        $questions_strings = $this->get_questions_string($instance);
135        $quiz_stamp = 'localhost+' . time() . '+' . $this->generate_random_string(6);
136
137        $find_tags = array('[#mod_id#]',
138                           '[#mod_name#]',
139                           '[#mod_intro#]',
140                           '[#mod_stamp#]',
141                           '[#question_string#]',
142                           '[#date_now#]',
143                           '[#mod_max_attempts#]',
144                           '[#mod_timelimit#]',
145                           '[#node_question_instance#]',
146                           '[#node_questions_feedback#]');
147
148        $replace_values = array($instance['id'],
149                                self::safexml($instance['title']),
150                                self::safexml($instance['title']),
151                                self::safexml($quiz_stamp),
152                                self::safexml($questions_strings),
153                                time(),
154                                $instance['options']['max_attempts'],
155                                $instance['options']['timelimit'],
156                                $node_course_modules_quiz_question_instances,
157                                $node_course_modules_quiz_feedback); // This one has tags.
158
159        $node_question_mod = str_replace($find_tags, $replace_values, $sheet_question_mod);
160
161        return $node_question_mod;
162    }
163
164    private function get_global_config ($assessment, $option, $default_value, $replace_values = '') {
165
166        $xpath = cc2moodle::newx_path($assessment, cc2moodle::getquizns());
167        $metadata = $xpath->query('/xmlns:questestinterop/xmlns:assessment/xmlns:qtimetadata/xmlns:qtimetadatafield');
168
169        foreach ($metadata as $field) {
170            $field_label = $xpath->query('xmlns:fieldlabel', $field);
171            $field_label = !empty($field_label->item(0)->nodeValue) ? $field_label->item(0)->nodeValue : '';
172
173            if (strtolower($field_label) == strtolower($option)) {
174                $field_entry = $xpath->query('xmlns:fieldentry', $field);
175                $response = !empty($field_entry->item(0)->nodeValue) ? $field_entry->item(0)->nodeValue : '';
176            }
177        }
178
179        $response = !empty($response) ? trim($response) : '';
180
181        if (!empty($replace_values)) {
182            foreach ($replace_values as $key => $value) {
183                $response = ($key == $response) ? $value : $response;
184            }
185        }
186
187        $response = empty($response) ? $default_value : $response;
188
189        return $response;
190    }
191
192    private function create_node_course_modules_mod_quiz_question_instances ($instance) {
193
194        $node_course_module_mod_quiz_questions_instances = '';
195        $sheet_question_mod_instance = cc2moodle::loadsheet(SHEET_COURSE_SECTIONS_SECTION_MODS_MOD_QUIZ_QUESTION_INSTANCE);
196
197        $find_tags = array('[#question_id#]' , '[#instance_id#]');
198
199        if (!empty($instance['questions'])) {
200
201            foreach ($instance['questions'] as $question) {
202                $replace_values = array($question['id'] , $question['id']);
203                $node_course_module_mod_quiz_questions_instances .= str_replace(
204                    $find_tags, $replace_values, $sheet_question_mod_instance
205                );
206            }
207
208            $node_course_module_mod_quiz_questions_instances = str_replace(
209                $find_tags, $replace_values, $node_course_module_mod_quiz_questions_instances
210            );
211        }
212
213        return $node_course_module_mod_quiz_questions_instances;
214    }
215
216    private function get_questions_string ($instance) {
217
218        $questions_string = '';
219
220        if (!empty($instance['questions'])) {
221            foreach ($instance['questions'] as $question) {
222                $questions_string .= $question['id'] . ',';
223            }
224        }
225
226        $questions_string = !empty($questions_string) ? substr($questions_string, 0, strlen($questions_string) - 1) : '';
227
228        return $questions_string;
229    }
230
231    private function create_node_course_question_categories($instances) {
232
233        $sheet_question_categories = cc2moodle::loadsheet(SHEET_COURSE_QUESTION_CATEGORIES);
234
235        if (!empty($instances)) {
236
237            $node_course_question_categories_question_category = '';
238
239            foreach ($instances as $instance) {
240                $node_course_question_categories_question_category .=
241                    $this->create_node_course_question_categories_question_category($instance);
242            }
243
244            $find_tags = array('[#node_course_question_categories_question_category#]');
245            $replace_values = array($node_course_question_categories_question_category);
246
247            $node_course_question_categories = str_replace($find_tags, $replace_values, $sheet_question_categories);
248        }
249
250        $node_course_question_categories = empty($node_course_question_categories) ? '' : $node_course_question_categories;
251
252        return $node_course_question_categories;
253    }
254
255    private function create_node_course_question_categories_question_category ($instance) {
256
257        $sheet_question_categories_quetion_category = cc2moodle::loadsheet(SHEET_COURSE_QUESTION_CATEGORIES_QUESTION_CATEGORY);
258
259        $find_tags = array('[#quiz_id#]',
260                           '[#quiz_name#]',
261                           '[#quiz_stamp#]',
262                           '[#node_course_question_categories_question_category_questions#]');
263
264        $node_course_question_categories_questions =
265            $this->create_node_course_question_categories_question_category_question($instance);
266        $node_course_question_categories_questions =
267            empty($node_course_question_categories_questions) ? '' : $node_course_question_categories_questions;
268
269        $quiz_stamp = 'localhost+' . time() . '+' . $this->generate_random_string(6);
270
271        $replace_values = array($instance['id'],
272                                self::safexml($instance['title']),
273                                $quiz_stamp,
274                                $node_course_question_categories_questions);
275
276        $node_question_categories = str_replace($find_tags, $replace_values, $sheet_question_categories_quetion_category);
277
278        return $node_question_categories;
279    }
280
281    private function create_node_course_question_categories_question_category_question ($instance) {
282
283        global $USER;
284
285        $node_course_question_categories_question = '';
286
287        $find_tags = array('[#question_id#]',
288                           '[#question_title#]',
289                           '[#question_text#]',
290                           '[#question_type#]',
291                           '[#question_general_feedback#]',
292                           '[#question_defaultgrade#]',
293                           '[#date_now#]',
294                           '[#question_type_nodes#]',
295                           '[#question_stamp#]',
296                           '[#question_version#]',
297                           '[#logged_user#]');
298
299        $sheet_question_categories_question = cc2moodle::loadsheet(SHEET_COURSE_QUESTION_CATEGORIES_QUESTION_CATEGORY_QUESTION);
300
301        $questions = $instance['questions'];
302
303        if (!empty($questions)) {
304
305            foreach ($questions as $question) {
306
307                $quiz_stamp = 'localhost+' . time() . '+' . $this->generate_random_string(6);
308                $quiz_version = 'localhost+' . time() . '+' . $this->generate_random_string(6);
309
310                $question_moodle_type = $question['moodle_type'];
311                $question_cc_type = $question['cc_type'];
312
313                $question_type_node = '';
314
315                $question_type_node = ($question_moodle_type == MOODLE_QUIZ_MULTIPLE_CHOICE) ? $this->create_node_course_question_categories_question_category_question_multiple_choice($question) : $question_type_node;
316                $question_type_node = ($question_moodle_type == MOODLE_QUIZ_TRUE_FALSE) ? $this->create_node_course_question_categories_question_category_question_true_false($question) : $question_type_node;
317                $question_type_node = ($question_moodle_type == MOODLE_QUIZ_ESSAY) ? $this->create_node_course_question_categories_question_category_question_eesay($question) : $question_type_node;
318                $question_type_node = ($question_moodle_type == MOODLE_QUIZ_SHORTANSWER) ? $this->create_node_course_question_categories_question_category_question_shortanswer($question) : $question_type_node;
319
320                $replace_values = array($question['id'],
321                                        self::safexml($this->truncate_text($question['title'], 255, true)),
322                                        self::safexml($question['title']),
323                                        $question_moodle_type,
324                                        self::safexml($question['feedback']),
325                                        $question['defaultgrade'], //default grade
326                                        time(),
327                                        $question_type_node,
328                                        $quiz_stamp,
329                                        $quiz_version,
330                                        $USER->id);
331
332                $node_course_question_categories_question .= str_replace($find_tags, $replace_values, $sheet_question_categories_question);
333            }
334        }
335
336        $node_course_question_categories_question = empty($node_course_question_categories_question) ? '' : $node_course_question_categories_question;
337
338        return $node_course_question_categories_question;
339    }
340
341    private function get_questions ($assessment, &$last_question_id, &$last_answer_id, $root_path, $is_question_bank) {
342
343        $questions = array();
344
345        $xpath = cc2moodle::newx_path($assessment, cc2moodle::getquizns());
346
347        if (!$is_question_bank) {
348            $questions_items = $xpath->query('/xmlns:questestinterop/xmlns:assessment/xmlns:section/xmlns:item');
349        } else {
350            $questions_items = $xpath->query('/xmlns:questestinterop/xmlns:objectbank/xmlns:item');
351        }
352
353        foreach ($questions_items as $question_item) {
354
355            $count_questions = $xpath->evaluate('count(xmlns:presentation/xmlns:flow/xmlns:material/xmlns:mattext)', $question_item);
356
357            if ($count_questions == 0) {
358                $question_title = $xpath->query('xmlns:presentation/xmlns:material/xmlns:mattext', $question_item);
359            } else {
360                $question_title = $xpath->query('xmlns:presentation/xmlns:flow/xmlns:material/xmlns:mattext', $question_item);
361            }
362
363            $question_title = !empty($question_title->item(0)->nodeValue) ? $question_title->item(0)->nodeValue : '';
364
365            $question_identifier = $xpath->query('@ident', $question_item);
366            $question_identifier = !empty($question_identifier->item(0)->nodeValue) ? $question_identifier->item(0)->nodeValue : '';
367
368            if (!empty($question_identifier)) {
369
370                $question_type = $this->get_question_type($question_identifier, $assessment);
371
372                if (!empty($question_type['moodle'])) {
373
374                    $last_question_id++;
375
376                    $questions[$question_identifier]['id'] = $last_question_id;
377
378                    $question_title = $this->update_sources($question_title, $root_path);
379                    $question_title = !empty($question_title) ? str_replace("%24", "\$", $this->include_titles($question_title)) : '';
380
381                    $questions[$question_identifier]['title'] = $question_title;
382                    $questions[$question_identifier]['identifier'] = $question_identifier;
383                    $questions[$question_identifier]['moodle_type'] = $question_type['moodle'];
384                    $questions[$question_identifier]['cc_type'] = $question_type['cc'];
385                    $questions[$question_identifier]['feedback'] = $this->get_general_feedback($assessment, $question_identifier);
386                    $questions[$question_identifier]['defaultgrade'] = $this->get_defaultgrade($assessment, $question_identifier);
387                    $questions[$question_identifier]['answers'] = $this->get_answers($question_identifier, $assessment, $last_answer_id);
388
389                }
390            }
391        }
392
393        $questions = !empty($questions) ? $questions : '';
394
395        return $questions;
396    }
397
398    private function str_replace_once ($search, $replace, $subject) {
399
400        $first_char = strpos($subject, $search);
401
402        if ($first_char !== false) {
403
404            $before_str = substr($subject, 0, $first_char);
405            $after_str = substr($subject, $first_char + strlen($search));
406
407            return $before_str . $replace . $after_str;
408
409        } else {
410            return $subject;
411        }
412    }
413
414    private function get_defaultgrade($assessment, $question_identifier) {
415        $result = 1;
416        $xpath = cc2moodle::newx_path($assessment, cc2moodle::getquizns());
417        $query = '//xmlns:item[@ident="' . $question_identifier . '"]';
418        $query .= '//xmlns:qtimetadatafield[xmlns:fieldlabel="cc_weighting"]/xmlns:fieldentry';
419        $defgrade = $xpath->query($query);
420        if (!empty($defgrade) && ($defgrade->length > 0)) {
421            $resp = (int)$defgrade->item(0)->nodeValue;
422            if ($resp >= 0 && $resp <= 99) {
423                $result = $resp;
424            }
425        }
426        return $result;
427    }
428
429    private function get_general_feedback ($assessment, $question_identifier) {
430
431        $xpath = cc2moodle::newx_path($assessment, cc2moodle::getquizns());
432
433        $respconditions = $xpath->query('//xmlns:item[@ident="' . $question_identifier . '"]/xmlns:resprocessing/xmlns:respcondition');
434
435        if (!empty($respconditions)) {
436
437            foreach ($respconditions as $respcondition) {
438
439                $continue = $respcondition->getAttributeNode('continue');
440                $continue = !empty($continue->nodeValue) ? strtolower($continue->nodeValue) : '';
441
442                if ($continue == 'yes') {
443
444                    $display_feedback = $xpath->query('xmlns:displayfeedback', $respcondition);
445
446                    if (!empty($display_feedback)) {
447                        foreach ($display_feedback as $feedback) {
448
449                            $feedback_identifier = $feedback->getAttributeNode('linkrefid');
450                            $feedback_identifier = !empty($feedback_identifier->nodeValue) ? $feedback_identifier->nodeValue : '';
451
452                            if (!empty($feedback_identifier)) {
453                                $feedbacks_identifiers[] = $feedback_identifier;
454                            }
455                        }
456                    }
457                }
458            }
459        }
460
461        $feedback = '';
462        $feedbacks_identifiers = empty($feedbacks_identifiers) ? '' : $feedbacks_identifiers;
463
464        if (!empty($feedbacks_identifiers)) {
465            foreach ($feedbacks_identifiers as $feedback_identifier) {
466                $feedbacks = $xpath->query('//xmlns:item[@ident="' . $question_identifier . '"]/xmlns:itemfeedback[@ident="' . $feedback_identifier . '"]/xmlns:flow_mat/xmlns:material/xmlns:mattext');
467                $feedback .= !empty($feedbacks->item(0)->nodeValue) ? $feedbacks->item(0)->nodeValue . ' ' : '';
468            }
469        }
470
471        return $feedback;
472    }
473
474    private function get_feedback ($assessment, $identifier, $item_identifier, $question_type) {
475
476        $xpath = cc2moodle::newx_path($assessment, cc2moodle::getquizns());
477
478        $resource_processing = $xpath->query('//xmlns:item[@ident="' . $item_identifier . '"]/xmlns:resprocessing/xmlns:respcondition');
479
480        if (!empty($resource_processing)) {
481
482            foreach ($resource_processing as $response) {
483
484                $varequal = $xpath->query('xmlns:conditionvar/xmlns:varequal', $response);
485                $varequal = !empty($varequal->item(0)->nodeValue) ? $varequal->item(0)->nodeValue : '';
486
487                if (strtolower($varequal) == strtolower($identifier) || ($question_type == CC_QUIZ_ESSAY)) {
488
489                    $display_feedback = $xpath->query('xmlns:displayfeedback', $response);
490
491                    if (!empty($display_feedback)) {
492                        foreach ($display_feedback as $feedback) {
493
494                            $feedback_identifier = $feedback->getAttributeNode('linkrefid');
495                            $feedback_identifier = !empty($feedback_identifier->nodeValue) ? $feedback_identifier->nodeValue : '';
496
497                            if (!empty($feedback_identifier)) {
498                                $feedbacks_identifiers[] = $feedback_identifier;
499                            }
500                        }
501                    }
502                }
503            }
504        }
505
506        $feedback = '';
507        $feedbacks_identifiers = empty($feedbacks_identifiers) ? '' : $feedbacks_identifiers;
508
509        if (!empty($feedbacks_identifiers)) {
510            foreach ($feedbacks_identifiers as $feedback_identifier) {
511                $feedbacks = $xpath->query('//xmlns:item[@ident="' . $item_identifier . '"]/xmlns:itemfeedback[@ident="' . $feedback_identifier . '"]/xmlns:flow_mat/xmlns:material/xmlns:mattext');
512                $feedback .= !empty($feedbacks->item(0)->nodeValue) ? $feedbacks->item(0)->nodeValue . ' ' : '';
513            }
514        }
515
516        return $feedback;
517    }
518
519    private function get_answers_fib ($question_identifier, $identifier, $assessment, &$last_answer_id) {
520
521        $xpath = cc2moodle::newx_path($assessment, cc2moodle::getquizns());
522
523        $answers_fib = array();
524
525        $response_items = $xpath->query('//xmlns:item[@ident="' . $question_identifier . '"]/xmlns:resprocessing/xmlns:respcondition');
526
527        foreach ($response_items as $response_item) {
528
529            $setvar = $xpath->query('xmlns:setvar', $response_item);
530            $setvar = is_object($setvar->item(0)) ? $setvar->item(0)->nodeValue : '';
531
532            if ($setvar != '') {
533
534                $last_answer_id++;
535
536                $answer_title = $xpath->query('xmlns:conditionvar/xmlns:varequal[@respident="' . $identifier . '"]', $response_item);
537                $answer_title = !empty($answer_title->item(0)->nodeValue) ? $answer_title->item(0)->nodeValue : '';
538
539            $case = $xpath->query('xmlns:conditionvar/xmlns:varequal/@case', $response_item);
540            $case = is_object($case->item(0)) ? $case->item(0)->nodeValue : 'no'
541                                    ;
542            $case = strtolower($case) == 'yes' ? 1 :
543                            0;
544
545                $display_feedback = $xpath->query('xmlns:displayfeedback', $response_item);
546
547                unset($feedbacks_identifiers);
548
549                if (!empty($display_feedback)) {
550
551                    foreach ($display_feedback as $feedback) {
552
553                        $feedback_identifier = $feedback->getAttributeNode('linkrefid');
554                        $feedback_identifier = !empty($feedback_identifier->nodeValue) ? $feedback_identifier->nodeValue : '';
555
556                        if (!empty($feedback_identifier)) {
557                            $feedbacks_identifiers[] = $feedback_identifier;
558                        }
559                    }
560                }
561
562                $feedback = '';
563                $feedbacks_identifiers = empty($feedbacks_identifiers) ? '' : $feedbacks_identifiers;
564
565                if (!empty($feedbacks_identifiers)) {
566                    foreach ($feedbacks_identifiers as $feedback_identifier) {
567                        $feedbacks = $xpath->query('//xmlns:item[@ident="' . $question_identifier . '"]/xmlns:itemfeedback[@ident="' . $feedback_identifier . '"]/xmlns:flow_mat/xmlns:material/xmlns:mattext');
568                        $feedback .= !empty($feedbacks->item(0)->nodeValue) ? $feedbacks->item(0)->nodeValue . ' ' : '';
569                    }
570                }
571
572                $answers_fib[] = array('id' => $last_answer_id,
573                                       'title' => $answer_title,
574                                       'score' => $setvar,
575                                       'feedback' => $feedback,
576                                       'case' => $case);
577            }
578        }
579
580        $answers_fib = empty($answers_fib) ? '' : $answers_fib;
581
582        return $answers_fib;
583    }
584
585    private function get_answers_pattern_match ($question_identifier, $identifier, $assessment, &$last_answer_id) {
586
587        $xpath = cc2moodle::newx_path($assessment, cc2moodle::getquizns());
588
589        $answers_fib = array();
590
591        $response_items = $xpath->query('//xmlns:item[@ident="' . $question_identifier . '"]/xmlns:resprocessing/xmlns:respcondition');
592
593        foreach ($response_items as $response_item) {
594
595            $setvar = $xpath->query('xmlns:setvar', $response_item);
596            $setvar = is_object($setvar->item(0)) ? $setvar->item(0)->nodeValue : '';
597
598            if ($setvar != '') {
599
600                $last_answer_id++;
601
602                $answer_title = $xpath->query('xmlns:conditionvar/xmlns:varequal[@respident="' . $identifier . '"]', $response_item);
603                $answer_title = !empty($answer_title->item(0)->nodeValue) ? $answer_title->item(0)->nodeValue : '';
604
605                if (empty($answer_title)) {
606                    $answer_title = $xpath->query('xmlns:conditionvar/xmlns:varsubstring[@respident="' . $identifier . '"]', $response_item);
607                    $answer_title = !empty($answer_title->item(0)->nodeValue) ? '*' . $answer_title->item(0)->nodeValue . '*' : '';
608                }
609
610                if (empty($answer_title)) {
611                    $answer_title = '*';
612                }
613
614            $case = $xpath->query('xmlns:conditionvar/xmlns:varequal/@case', $response_item);
615            $case = is_object($case->item(0)) ? $case->item(0)->nodeValue : 'no'
616                                    ;
617            $case = strtolower($case) == 'yes' ? 1 :
618                            0;
619
620                $display_feedback = $xpath->query('xmlns:displayfeedback', $response_item);
621
622                unset($feedbacks_identifiers);
623
624                if (!empty($display_feedback)) {
625
626                    foreach ($display_feedback as $feedback) {
627
628                        $feedback_identifier = $feedback->getAttributeNode('linkrefid');
629                        $feedback_identifier = !empty($feedback_identifier->nodeValue) ? $feedback_identifier->nodeValue : '';
630
631                        if (!empty($feedback_identifier)) {
632                            $feedbacks_identifiers[] = $feedback_identifier;
633                        }
634                    }
635                }
636
637                $feedback = '';
638                $feedbacks_identifiers = empty($feedbacks_identifiers) ? '' : $feedbacks_identifiers;
639
640                if (!empty($feedbacks_identifiers)) {
641                    foreach ($feedbacks_identifiers as $feedback_identifier) {
642                        $feedbacks = $xpath->query('//xmlns:item[@ident="' . $question_identifier . '"]/xmlns:itemfeedback[@ident="' . $feedback_identifier . '"]/xmlns:flow_mat/xmlns:material/xmlns:mattext');
643                        $feedback .= !empty($feedbacks->item(0)->nodeValue) ? $feedbacks->item(0)->nodeValue . ' ' : '';
644                    }
645                }
646
647                $answers_fib[] = array('id' => $last_answer_id,
648                                       'title' => $answer_title,
649                                       'score' => $setvar,
650                                       'feedback' => $feedback,
651                                       'case' => $case);
652            }
653        }
654
655        $answers_fib = empty($answers_fib) ? '' : $answers_fib;
656
657        return $answers_fib;
658    }
659
660
661    private function get_answers ($identifier, $assessment, &$last_answer_id) {
662
663        $xpath = cc2moodle::newx_path($assessment, cc2moodle::getquizns());
664
665        $answers = array();
666
667        $question_cc_type = $this->get_question_type($identifier, $assessment);
668        $question_cc_type = $question_cc_type['cc'];
669        $is_multiresponse = ($question_cc_type == CC_QUIZ_MULTIPLE_RESPONSE);
670
671        if ($question_cc_type == CC_QUIZ_MULTIPLE_CHOICE || $is_multiresponse || $question_cc_type == CC_QUIZ_TRUE_FALSE) {
672
673            $query_answers = '//xmlns:item[@ident="' . $identifier . '"]/xmlns:presentation/xmlns:response_lid/xmlns:render_choice/xmlns:response_label';
674            $query_answers_with_flow = '//xmlns:item[@ident="' . $identifier . '"]/xmlns:presentation/xmlns:flow/xmlns:response_lid/xmlns:render_choice/xmlns:response_label';
675
676            $query_indentifer = '@ident';
677            $query_title = 'xmlns:material/xmlns:mattext';
678        }
679
680        if ($question_cc_type == CC_QUIZ_ESSAY) {
681
682            $query_answers = '//xmlns:item[@ident="' . $identifier . '"]/xmlns:presentation/xmlns:response_str';
683            $query_answers_with_flow = '//xmlns:item[@ident="' . $identifier . '"]/xmlns:presentation/xmlns:flow/xmlns:response_str';
684
685            $query_indentifer = '@ident';
686            $query_title = 'xmlns:render_fib';
687        }
688
689        if ($question_cc_type == CC_QUIZ_FIB || $question_cc_type == CC_QUIZ_PATTERN_MACHT) {
690
691            $xpath_query = '//xmlns:item[@ident="' . $identifier . '"]/xmlns:presentation/xmlns:response_str/@ident';
692            $xpath_query_with_flow = '//xmlns:item[@ident="' . $identifier . '"]/xmlns:presentation/xmlns:flow/xmlns:response_str/@ident';
693
694            $count_response = $xpath->evaluate('count(' . $xpath_query_with_flow . ')');
695
696            if ($count_response == 0) {
697                $answer_identifier = $xpath->query($xpath_query);
698            } else {
699                $answer_identifier = $xpath->query($xpath_query_with_flow);
700            }
701
702            $answer_identifier = !empty($answer_identifier->item(0)->nodeValue) ? $answer_identifier->item(0)->nodeValue : '';
703
704            if ($question_cc_type == CC_QUIZ_FIB) {
705                $answers = $this->get_answers_fib ($identifier, $answer_identifier, $assessment, $last_answer_id);
706            } else {
707                $answers = $this->get_answers_pattern_match ($identifier, $answer_identifier, $assessment, $last_answer_id);
708            }
709
710        } else {
711
712            $count_response = $xpath->evaluate('count(' . $query_answers_with_flow . ')');
713
714            if ($count_response == 0) {
715                $response_items = $xpath->query($query_answers);
716            } else {
717                $response_items = $xpath->query($query_answers_with_flow);
718            }
719
720            if (!empty($response_items)) {
721                if ($is_multiresponse) {
722                    $correct_answer_score = 0;
723                    //get the correct answers count
724                    $canswers_query = "//xmlns:item[@ident='{$identifier}']//xmlns:setvar[@varname='SCORE'][.=100]/../xmlns:conditionvar//xmlns:varequal[@case='Yes'][not(parent::xmlns:not)]";
725                    $canswers = $xpath->query($canswers_query);
726                    if ($canswers->length > 0) {
727                        $correct_answer_score = round(1.0 / (float)$canswers->length, 7); //weird
728                        $correct_answers_ident = array();
729                        foreach ($canswers as $cnode) {
730                            $correct_answers_ident[$cnode->nodeValue] = true;
731                        }
732                    }
733                }
734                foreach ($response_items as $response_item) {
735
736                    $last_answer_id++;
737
738                    $answer_identifier = $xpath->query($query_indentifer, $response_item);
739                    $answer_identifier = !empty($answer_identifier->item(0)->nodeValue) ? $answer_identifier->item(0)->nodeValue : '';
740
741                    $answer_title = $xpath->query($query_title, $response_item);
742                    $answer_title = !empty($answer_title->item(0)->nodeValue) ? $answer_title->item(0)->nodeValue : '';
743
744                    $answer_feedback = $this->get_feedback($assessment, $answer_identifier, $identifier, $question_cc_type);
745
746                    $answer_score = $this->get_score($assessment, $answer_identifier, $identifier);
747
748                    if ($is_multiresponse && isset($correct_answers_ident[$answer_identifier])) {
749                        $answer_score = $correct_answer_score;
750                    }
751
752                    $answers[] = array('id' => $last_answer_id,
753                                       'title' => $answer_title,
754                                       'score' => $answer_score,
755                                       'identifier' => $answer_identifier,
756                                       'feedback' => $answer_feedback);
757                }
758            }
759        }
760
761        $answers = empty($answers) ? '' : $answers;
762
763        return $answers;
764
765    }
766
767    private function get_score ($assessment, $identifier, $question_identifier) {
768
769        $xpath = cc2moodle::newx_path($assessment, cc2moodle::getquizns());
770
771        $resource_processing = $xpath->query('//xmlns:item[@ident="' . $question_identifier . '"]/xmlns:resprocessing/xmlns:respcondition');
772
773        if (!empty($resource_processing)) {
774
775            foreach ($resource_processing as $response) {
776
777                $question_cc_type = $this->get_question_type($question_identifier, $assessment);
778                $question_cc_type = $question_cc_type['cc'];
779
780                $varequal = $xpath->query('xmlns:conditionvar/xmlns:varequal', $response);
781                $varequal = !empty($varequal->item(0)->nodeValue) ? $varequal->item(0)->nodeValue : '';
782
783                if (strtolower($varequal) == strtolower($identifier)) {
784                    $score = $xpath->query('xmlns:setvar', $response);
785                    $score = !empty($score->item(0)->nodeValue) ? $score->item(0)->nodeValue : '';
786                }
787            }
788        }
789
790        $score = empty($score) ? 0 : sprintf("%.7F", $score);
791
792        return $score;
793    }
794
795    private function create_node_course_question_categories_question_category_question_multiple_choice ($question) {
796
797        $node_course_question_categories_question_answer = '';
798        $sheet_question_categories_question = cc2moodle::loadsheet(SHEET_COURSE_QUESTION_CATEGORIES_QUESTION_CATEGORY_QUESTION_MULTIPLE_CHOICE);
799
800        if (!empty($question['answers'])) {
801            foreach ($question['answers'] as $answer) {
802                $node_course_question_categories_question_answer .= $this->create_node_course_question_categories_question_category_question_answer($answer);
803            }
804        }
805
806        $answer_string = $this->get_answers_string($question['answers']);
807
808        $is_single = ($question['cc_type'] == CC_QUIZ_MULTIPLE_CHOICE) ? 1 : 0;
809
810        $find_tags = array('[#node_course_question_categories_question_category_question_answer#]',
811                           '[#answer_string#]',
812                           '[#is_single#]');
813
814        $replace_values = array($node_course_question_categories_question_answer,
815                                self::safexml($answer_string),
816                                $is_single);
817
818        $node_question_categories_question = str_replace($find_tags, $replace_values, $sheet_question_categories_question);
819
820        return $node_question_categories_question;
821    }
822
823    private function create_node_course_question_categories_question_category_question_eesay ($question) {
824
825        $node_course_question_categories_question_answer = '';
826
827        $sheet_question_categories_question = cc2moodle::loadsheet(SHEET_COURSE_QUESTION_CATEGORIES_QUESTION_CATEGORY_QUESTION_EESAY);
828
829        if (!empty($question['answers'])) {
830            foreach ($question['answers'] as $answer) {
831                $node_course_question_categories_question_answer .= $this->create_node_course_question_categories_question_category_question_answer($answer);
832            }
833        }
834
835        $find_tags = array('[#node_course_question_categories_question_category_question_answer#]');
836        $replace_values = array($node_course_question_categories_question_answer);
837
838        $node_question_categories_question = str_replace($find_tags, $replace_values, $sheet_question_categories_question);
839
840        return $node_question_categories_question;
841    }
842
843    private function create_node_course_question_categories_question_category_question_shortanswer ($question) { //, &$fib_questions) {
844
845        $sheet_question_categories_question = cc2moodle::loadsheet(SHEET_COURSE_QUESTION_CATEGORIES_QUESTION_CATEGORY_QUESTION_SHORTANSWER);
846        $node_course_question_categories_question_answer = '';
847
848        if (!empty($question['answers'])) {
849            foreach ($question['answers'] as $answer) {
850                $node_course_question_categories_question_answer .= $this->create_node_course_question_categories_question_category_question_answer($answer);
851            }
852        }
853
854        $answers_string = $this->get_answers_string($question['answers']);
855
856        $use_case = 0;
857
858        foreach ($question['answers'] as $answer) {
859
860            if ($answer['case'] == 1) {
861                $use_case = 1;
862            }
863
864        }
865
866        $find_tags = array('[#answers_string#]',
867                           '[#use_case#]',
868                           '[#node_course_question_categories_question_category_question_answer#]');
869
870        $replace_values = array(self::safexml($answers_string),
871                                self::safexml($use_case),
872                                $node_course_question_categories_question_answer);
873
874
875
876        $node_question_categories_question = str_replace($find_tags, $replace_values, $sheet_question_categories_question);
877
878        return $node_question_categories_question;
879
880    }
881
882    private function create_node_course_question_categories_question_category_question_true_false ($question) {
883
884        $node_course_question_categories_question_answer = '';
885
886        $sheet_question_categories_question = cc2moodle::loadsheet(SHEET_COURSE_QUESTION_CATEGORIES_QUESTION_CATEGORY_QUESTION_TRUE_FALSE);
887
888        $trueanswer  = null;
889        $falseanswer = null;
890
891        if (!empty($question['answers'])) {
892
893            // Identify the true and false answers.
894            foreach ($question['answers'] as $answer) {
895                if ($answer['identifier'] == 'true') {
896                    $trueanswer = $answer;
897                } else if ($answer['identifier'] == 'false') {
898                    $falseanswer = $answer;
899                } else {
900                    // Should not happen, but just in case.
901                    throw new coding_exception("Unknown answer identifier detected" .
902                            " in true/false quiz question with id {$question['id']}.");
903                }
904
905                $node_course_question_categories_question_answer .= $this->create_node_course_question_categories_question_category_question_answer($answer);
906            }
907
908            // Make sure the true and false answer was found.
909            if (is_null($trueanswer) || is_null($falseanswer)) {
910                throw new coding_exception("Unable to correctly identify the " .
911                        "true and false answers in the question with id {$question['id']}.");
912            }
913        }
914
915        $find_tags = array('[#node_course_question_categories_question_category_question_answer#]',
916                           '[#true_answer_id#]',
917                           '[#false_answer_id#]');
918
919        $replace_values = array($node_course_question_categories_question_answer,
920                                $trueanswer['id'],
921                                $falseanswer['id']);
922
923        $node_question_categories_question = str_replace($find_tags, $replace_values, $sheet_question_categories_question);
924
925        return $node_question_categories_question;
926    }
927
928    private function get_answers_string ($answers) {
929
930        $answer_string = '';
931
932        if (!empty($answers)) {
933            foreach ($answers as $answer) {
934                $answer_string .= $answer['id'] . ',';
935            }
936        }
937
938        $answer_string = !empty($answer_string) ? substr($answer_string, 0, strlen($answer_string) - 1) : '';
939
940        return $answer_string;
941
942    }
943
944    private function create_node_course_question_categories_question_category_question_answer ($answer) {
945
946        $sheet_question_categories_question_answer = cc2moodle::loadsheet(SHEET_COURSE_QUESTION_CATEGORIES_QUESTION_CATEGORY_QUESTION_ANSWER);
947
948        $find_tags = array('[#answer_id#]',
949                           '[#answer_text#]',
950                           '[#answer_score#]',
951                           '[#answer_feedback#]');
952
953        $replace_values = array($answer['id'],
954                                self::safexml($answer['title']),
955                                $answer['score'],
956                                self::safexml($answer['feedback']));
957
958        $node_question_categories_question_answer = str_replace($find_tags, $replace_values, $sheet_question_categories_question_answer);
959
960        return $node_question_categories_question_answer;
961    }
962
963    private function get_question_type ($identifier, $assessment) {
964
965        $xpath = cc2moodle::newx_path($assessment, cc2moodle::getquizns());
966
967        $metadata = $xpath->query('//xmlns:item[@ident="' . $identifier . '"]/xmlns:itemmetadata/xmlns:qtimetadata/xmlns:qtimetadatafield');
968
969        foreach ($metadata as $field) {
970
971            $field_label = $xpath->query('xmlns:fieldlabel', $field);
972            $field_label = !empty($field_label->item(0)->nodeValue) ? $field_label->item(0)->nodeValue : '';
973
974            if ($field_label == 'cc_profile') {
975                $field_entry = $xpath->query('xmlns:fieldentry', $field);
976                $type = !empty($field_entry->item(0)->nodeValue) ? $field_entry->item(0)->nodeValue : '';
977            }
978        }
979
980        $return_type = array();
981
982        $return_type['moodle'] = '';
983        $return_type['cc'] = $type;
984
985        if ($type == CC_QUIZ_MULTIPLE_CHOICE) {
986            $return_type['moodle'] = MOODLE_QUIZ_MULTIPLE_CHOICE;
987        }
988        if ($type == CC_QUIZ_MULTIPLE_RESPONSE) {
989            $return_type['moodle'] = MOODLE_QUIZ_MULTIPLE_CHOICE;
990        }
991        if ($type == CC_QUIZ_TRUE_FALSE) {
992            $return_type['moodle'] = MOODLE_QUIZ_TRUE_FALSE;
993        }
994        if ($type == CC_QUIZ_ESSAY) {
995            $return_type['moodle'] = MOODLE_QUIZ_ESSAY;
996        }
997        if ($type == CC_QUIZ_FIB) {
998            $return_type['moodle'] = MOODLE_QUIZ_SHORTANSWER;
999        }
1000        if ($type == CC_QUIZ_PATTERN_MACHT) {
1001            $return_type['moodle'] = MOODLE_QUIZ_SHORTANSWER;
1002        }
1003
1004        return $return_type;
1005
1006    }
1007}
1008