Proyectos de Subversion Moodle

Rev

| Ultima modificación | Ver Log |

Rev Autor Línea Nro. Línea
1 efrain 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
 
24
defined('MOODLE_INTERNAL') or die('Direct access to this script is forbidden.');
25
 
26
class 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
}