backup/cc/entity11.quiz.class.php

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