From fba84198e5924df675e96740130f84b3f60e6045 Mon Sep 17 00:00:00 2001 From: thepurpleblob Date: Fri, 11 Jul 2008 10:47:19 +0000 Subject: [PATCH] MDL-14431: Changing name of qti2 format, as digits not allowed in module names --- question/format/qti2/custommediafilter.php | 149 --- question/format/qti2/format.php | 917 ------------------ question/format/qti2/qt_common.php | 148 --- question/format/qti2/templates/choice.tpl | 70 -- .../format/qti2/templates/choiceMultiple.tpl | 64 -- question/format/qti2/templates/composite.tpl | 101 -- .../format/qti2/templates/extendedText.tpl | 17 - .../templates/extendedText_simpleEssay.tpl | 27 - .../format/qti2/templates/graphicGapMatch.tpl | 33 - .../format/qti2/templates/imsmanifest.tpl | 85 -- question/format/qti2/templates/match.tpl | 62 -- .../qti2/templates/mmchoiceMultiple.tpl | 88 -- .../format/qti2/templates/notimplemented.tpl | 20 - question/format/qti2/templates/numerical.tpl | 65 -- question/format/qti2/templates/textEntry.tpl | 50 - 15 files changed, 1896 deletions(-) delete mode 100644 question/format/qti2/custommediafilter.php delete mode 100644 question/format/qti2/format.php delete mode 100644 question/format/qti2/qt_common.php delete mode 100755 question/format/qti2/templates/choice.tpl delete mode 100755 question/format/qti2/templates/choiceMultiple.tpl delete mode 100755 question/format/qti2/templates/composite.tpl delete mode 100755 question/format/qti2/templates/extendedText.tpl delete mode 100755 question/format/qti2/templates/extendedText_simpleEssay.tpl delete mode 100644 question/format/qti2/templates/graphicGapMatch.tpl delete mode 100755 question/format/qti2/templates/imsmanifest.tpl delete mode 100644 question/format/qti2/templates/match.tpl delete mode 100755 question/format/qti2/templates/mmchoiceMultiple.tpl delete mode 100755 question/format/qti2/templates/notimplemented.tpl delete mode 100755 question/format/qti2/templates/numerical.tpl delete mode 100755 question/format/qti2/templates/textEntry.tpl diff --git a/question/format/qti2/custommediafilter.php b/question/format/qti2/custommediafilter.php deleted file mode 100644 index 8dcc4e15f4..0000000000 --- a/question/format/qti2/custommediafilter.php +++ /dev/null @@ -1,149 +0,0 @@ -filter_mediaplugin_ignore_mp3)) { - $search = '/]*)>(.*?)<\/a>/i'; - - $replace = '\\0 wwwroot/filter/mediaplugin/mp3player.swf?src=\\2.mp3\">"; - $replace .= ' '; - $replace .= ' '; - $replace .= " wwwroot/filter/mediaplugin/mp3player.swf?src=\\2.mp3\" "; - $replace .= " quality=high bgcolor=\"#333333\" width=\"35\" height=\"18\" name=\"mp3player\" "; - $replace .= ' type="application/x-shockwave-flash" '; - $replace .= ' pluginspage="http://www.macromedia.com/go/getflashplayer">'; - $replace .= ''; - $replace .= ' '; - - $text = preg_replace($search, $replace, $text); - } - - if (empty($CFG->filter_mediaplugin_ignore_swf)) { - $search = '/]*)>(.*?)<\/a>/i'; - $replace = '\\0 ' . - ' ' . - '' . - ''; - - -/* $replace = '\\0

'; - $replace .= " "; - $replace .= ' '; - $replace .= " filter_mediaplugin_ignore_mov)) { - $search = '/]*)>(.*?)<\/a>/i'; - - $replace = '\\0

"; - $replace .= ''; - $replace .= ''; - $replace .= ''; - $replace .= ''; - $replace .= "\nfilter_mediaplugin_ignore_wmv)) { - $search = '/]*)>(.*?)<\/a>/i'; - - $replace = '\\0

"; - $replace .= ''; - $replace .= ''; - $replace .= ''; - $replace .= ''; - $replace .= ''; - $replace .= ''; - $replace .= ''; - $replace .= ''; - $replace .= ''; - $replace .= "\nfilter_mediaplugin_ignore_mpg)) { - $search = '/]*)>(.*?)<\/a>/i'; - - $replace = '\\0

'; - $replace .= ''; - $replace .= ''; - $replace .= ''; - $replace .= ' '; - $replace .= '

'; - - $text = preg_replace($search, $replace, $text); - } - - if (empty($CFG->filter_mediaplugin_ignore_avi)) { - $search = '/]*)>(.*?)<\/a>/i'; - - $replace = '\\0

'; - $replace .= ''; - $replace .= ''; - $replace .= ''; - $replace .= ' '; - $replace .= ' '; - - $text = preg_replace($search, $replace, $text); - } - return $text; -} - - -?> diff --git a/question/format/qti2/format.php b/question/format/qti2/format.php deleted file mode 100644 index 7488dd967c..0000000000 --- a/question/format/qti2/format.php +++ /dev/null @@ -1,917 +0,0 @@ -dirroot/question/format/qti2/qt_common.php"); -//////////////////////////////////////////////////////////////////////////// -/// IMS QTI 2.0 FORMAT -/// -/// HISTORY: created 28.01.2005 brian@mediagonal.ch -//////////////////////////////////////////////////////////////////////////// - -// Based on format.php, included by ../../import.php -/** - * @package questionbank - * @subpackage importexport - */ -define('CLOZE_TRAILING_TEXT_ID', 9999999); - -class qformat_qti2 extends qformat_default { - - var $lang; - - function provide_export() { - return true; - } - - function indent_xhtml($source, $indenter = ' ') { - // xml tidier-upper - // (c) Ari Koivula http://ventionline.com - - // Remove all pre-existing formatting. - // Remove all newlines. - $source = str_replace("\n", '', $source); - $source = str_replace("\r", '', $source); - // Remove all tabs. - $source = str_replace("\t", '', $source); - // Remove all space after ">" and before "<". - $source = ereg_replace(">( )*", ">", $source); - $source = ereg_replace("( )*<", "<", $source); - - // Iterate through the source. - $level = 0; - $source_len = strlen($source); - $pt = 0; - while ($pt < $source_len) { - if ($source{$pt} === '<') { - // We have entered a tag. - // Remember the point where the tag starts. - $started_at = $pt; - $tag_level = 1; - // If the second letter of the tag is "/", assume its an ending tag. - if ($source{$pt+1} === '/') { - $tag_level = -1; - } - // If the second letter of the tag is "!", assume its an "invisible" tag. - if ($source{$pt+1} === '!') { - $tag_level = 0; - } - // Iterate throught the source until the end of tag. - while ($source{$pt} !== '>') { - $pt++; - } - // If the second last letter is "/", assume its a self ending tag. - if ($source{$pt-1} === '/') { - $tag_level = 0; - } - $tag_lenght = $pt+1-$started_at; - - // Decide the level of indention for this tag. - // If this was an ending tag, decrease indent level for this tag.. - if ($tag_level === -1) { - $level--; - } - // Place the tag in an array with proper indention. - $array[] = str_repeat($indenter, $level).substr($source, $started_at, $tag_lenght); - // If this was a starting tag, increase the indent level after this tag. - if ($tag_level === 1) { - $level++; - } - // if it was a self closing tag, dont do shit. - } - // Were out of the tag. - // If next letter exists... - if (($pt+1) < $source_len) { - // ... and its not an "<". - if ($source{$pt+1} !== '<') { - $started_at = $pt+1; - // Iterate through the source until the start of new tag or until we reach the end of file. - while ($source{$pt} !== '<' && $pt < $source_len) { - $pt++; - } - // If we found a "<" (we didnt find the end of file) - if ($source{$pt} === '<') { - $tag_lenght = $pt-$started_at; - // Place the stuff in an array with proper indention. - $array[] = str_repeat($indenter, $level).substr($source, $started_at, $tag_lenght); - } - // If the next tag is "<", just advance pointer and let the tag indenter take care of it. - } else { - $pt++; - } - // If the next letter doesnt exist... Were done... well, almost.. - } else { - break; - } - } - // Replace old source with the new one we just collected into our array. - $source = implode($array, "\n"); - return $source; - } - - function importpreprocess() { - global $CFG; - - print_error('cannotimportformat', '', - "$CFG->wwwroot/mod/quiz/import.php?category=$category->id"); - } - - function exportpreprocess() { - global $CFG; - - require_once("{$CFG->libdir}/smarty/Smarty.class.php"); - - // assign the language for the export: by parameter, SESSION, USER, or the default of 'en' - $lang = current_language(); - $this->lang = $lang; - - return parent::exportpreprocess(); - } - - - function export_file_extension() { - // override default type so extension is .xml - - return ".zip"; - } - - function get_qtype( $type_id ) { - // translates question type code number into actual name - - switch( $type_id ) { - case TRUEFALSE: - $name = 'truefalse'; - break; - case MULTICHOICE: - $name = 'multichoice'; - break; - case SHORTANSWER: - $name = 'shortanswer'; - break; - case NUMERICAL: - $name = 'numerical'; - break; - case MATCH: - $name = 'matching'; - break; - case DESCRIPTION: - $name = 'description'; - break; - case MULTIANSWER: - $name = 'multianswer'; - break; - default: - $name = 'Unknown'; - } - return $name; - } - - function writetext( $raw ) { - // generates tags, processing raw text therein - - // for now, don't allow any additional tags in text - // otherwise xml rules would probably get broken - $raw = strip_tags( $raw ); - - return "$raw\n"; - } - - -/** - * flattens $object['media'], copies $object['media'] to $path, and sets $object['mediamimetype'] - * - * @param array &$object containing a field 'media' - * @param string $path the full path name to where the media files need to be copied - * @param int $courseid - * @return: mixed - true on success or in case of an empty media field, an error string if the file copy fails - */ -function copy_and_flatten(&$object, $path, $courseid) { - global $CFG; - if (!empty($object['media'])) { - $location = $object['media']; - $object['media'] = $this->flatten_image_name($location); - if (!@copy("{$CFG->dataroot}/$courseid/$location", "$path/{$object['media']}")) { - return "Failed to copy {$CFG->dataroot}/$courseid/$location to $path/{$object['media']}"; - } - if (empty($object['mediamimetype'])) { - $object['mediamimetype'] = mimeinfo('type', $object['media']); - } - } - return true; -} -/** - * copies all files needed by the questions to the given $path, and flattens the file names - * - * @param array $questions the question objects - * @param string $path the full path name to where the media files need to be copied - * @param int $courseid - * @return mixed true on success, an array of error messages otherwise - */ -function handle_questions_media(&$questions, $path, $courseid) { - global $CFG; - $errors = array(); - foreach ($questions as $key=>$question) { - - // todo: handle in-line media (specified in the question text) - if (!empty($question->image)) { - $location = $questions[$key]->image; - $questions[$key]->mediaurl = $this->flatten_image_name($location); - if (!@copy("{$CFG->dataroot}/$courseid/$location", "$path/{$questions[$key]->mediaurl}")) { - $errors[] = "Failed to copy {$CFG->dataroot}/$courseid/$location to $path/{$questions[$key]->mediaurl}"; - } - if (empty($question->mediamimetype)) { - $questions[$key]->mediamimetype = mimeinfo('type', $question->image); - } - } - } - - return empty($errors) ? true : $errors; -} - -/** - * exports the questions in a question category to the given location - * - * The parent class method was overridden because the IMS export consists of multiple files - * - * @param string $filename the directory name which will hold the exported files - * @return boolean - or errors out - */ - function exportprocess() { - - global $CFG; - $courseid = $this->course->id; - - // create a directory for the exports (if not already existing) - if (!$export_dir = make_upload_directory($this->question_get_export_dir().'/'.$this->filename)) { - print_error('cannotcreatepath', 'quiz', '', $export_dir); - } - $path = $CFG->dataroot.'/'.$this->question_get_export_dir().'/'.$this->filename; - - // get the questions (from database) in this category - // $questions = $DB->get_records("question",array("category" => $this->category->id); - $questions = get_questions_category( $this->category ); - - notify("Exporting ".count($questions)." questions."); - $count = 0; - - // create the imsmanifest file - $smarty =& $this->init_smarty(); - $this->add_qti_info($questions); - - // copy files used by the main questions to the export directory - $result = $this->handle_questions_media($questions, $path, $courseid); - if ($result !== true) { - notify(implode("
", $result)); - } - - $manifestquestions = $this->objects_to_array($questions); - $manifestid = str_replace(array(':', '/'), array('-','_'), "question_category_{$this->category->id}---{$CFG->wwwroot}"); - $smarty->assign('externalfiles', 1); - $smarty->assign('manifestidentifier', $manifestid); - $smarty->assign('quiztitle', "question_category_{$this->category->id}"); - $smarty->assign('quizinfo', "All questions in category {$this->category->id}"); - $smarty->assign('questions', $manifestquestions); - $smarty->assign('lang', $this->lang); - $smarty->error_reporting = 99; - $expout = $smarty->fetch('imsmanifest.tpl'); - $filepath = $path.'/imsmanifest.xml'; - if (empty($expout)) { - print_error('emptyxml', 'question'); - } - if (!$fh=fopen($filepath,"w")) { - print_error('cannotopenforwrit', '', '', $filepath); - } - if (!fwrite($fh, $expout)) { - print_error('cannotwriteto', 'question', '', $filepath); - } - fclose($fh); - - // iterate through questions - foreach($questions as $question) { - - // results are first written into string (and then to a file) - $count++; - echo "

$count. ".$question->questiontext."

"; - $expout = $this->writequestion( $question , null, true, $path) . "\n"; - $expout = $this->presave_process( $expout ); - - $filepath = $path.'/'.$this->get_assesment_item_id($question) . ".xml"; - if (!$fh=fopen($filepath,"w")) { - print_error('cannotopenforwrit', '', '', $filepath); - } - if (!fwrite($fh, $expout)) { - print_error('cannotwriteto', 'question', '', $filepath); - } - fclose($fh); - - } - - // zip files into single export file - zip_files( array($path), "$path.zip" ); - - // remove the temporary directory - remove_dir( $path ); - - return true; - } - -/** - * exports a quiz (as opposed to exporting a category of questions) - * - * The parent class method was overridden because the IMS export consists of multiple files - * - * @param object $quiz - * @param array $questions - an array of question objects - * @param object $result - if set, contains result of calling quiz_grade_responses() - * @param string $redirect - a URL to redirect to in case of failure - * @param string $submiturl - the URL for the qti player to send the results to (e.g. attempt.php) - * @todo use $result in the ouput - */ - function export_quiz($course, $quiz, $questions, $result, $redirect, $submiturl = null) { - $this->xml_entitize($course); - $this->xml_entitize($quiz); - $this->xml_entitize($questions); - $this->xml_entitize($result); - $this->xml_entitize($submiturl); - if (! $this->exportpreprocess(0, $course)) { // Do anything before that we need to - print_error('errorduringpre', 'question', $redirect); - } - if (! $this->exportprocess_quiz($quiz, $questions, $result, $submiturl, $course)) { // Process the export data - print_error('errorduringproc', 'question', $redirect); - } - if (! $this->exportpostprocess()) { // In case anything needs to be done after - print_error('errorduringpost', 'question', $redirect); - } - - } - - -/** - * This function is called to export a quiz (as opposed to exporting a category of questions) - * - * @uses $USER - * @param object $quiz - * @param array $questions - an array of question objects - * @param object $result - if set, contains result of calling quiz_grade_responses() - * @todo use $result in the ouput - */ - function exportprocess_quiz($quiz, $questions, $result, $submiturl, $course) { - global $USER; - global $CFG; - - $gradingmethod = array (1 => 'GRADEHIGHEST', - 2 => 'GRADEAVERAGE', - 3 => 'ATTEMPTFIRST' , - 4 => 'ATTEMPTLAST'); - - $questions = $this->quiz_export_prepare_questions($questions, $quiz->id, $course->id, $quiz->shuffleanswers); - - $smarty =& $this->init_smarty(); - $smarty->assign('questions', $questions); - - // quiz level smarty variables - $manifestid = str_replace(array(':', '/'), array('-','_'), "quiz{$quiz->id}-{$CFG->wwwroot}"); - $smarty->assign('manifestidentifier', $manifestid); - $smarty->assign('submiturl', $submiturl); - $smarty->assign('userid', $USER->id); - $smarty->assign('username', htmlspecialchars($USER->username, ENT_COMPAT, 'UTF-8')); - $smarty->assign('quiz_level_export', 1); - $smarty->assign('quiztitle', format_string($quiz->name,true)); //assigned specifically so as not to cause problems with category-level export - $smarty->assign('quiztimeopen', date('Y-m-d\TH:i:s', $quiz->timeopen)); // ditto - $smarty->assign('quiztimeclose', date('Y-m-d\TH:i:s', $quiz->timeclose)); // ditto - $smarty->assign('grademethod', $gradingmethod[$quiz->grademethod]); - $smarty->assign('quiz', $quiz); - $smarty->assign('course', $course); - $smarty->assign('lang', $this->lang); - $expout = $smarty->fetch('imsmanifest.tpl'); - echo $expout; - return true; - } - - - - -/** - * Prepares questions for quiz export - * - * The questions are changed as follows: - * - the question answers atached to the questions - * - image set to an http reference instead of a file path - * - qti specific info added - * - exporttext added, which contains an xml-formatted qti assesmentItem - * - * @param array $questions - an array of question objects - * @param int $quizid - * @return an array of question arrays - */ - function quiz_export_prepare_questions($questions, $quizid, $courseid, $shuffleanswers = null) { - global $CFG; - // add the answers to the questions and format the image property - require_once($CFG->libdir.'/filelib.php'); - foreach ($questions as $key=>$question) { - $questions[$key] = get_question_data($question); - $questions[$key]->courseid = $courseid; - $questions[$key]->quizid = $quizid; - - if ($question->image) { - - if (empty($question->mediamimetype)) { - $questions[$key]->mediamimetype = mimeinfo('type',$question->image); - } - - $localfile = (substr(strtolower($question->image), 0, 7) == 'http://') ? false : true; - - if ($localfile) { - // create the http url that the player will need to access the file - $questions[$key]->mediaurl = get_file_url($question->image); - } else { - $questions[$key]->mediaurl = $question->image; - } - } - } - - $this->add_qti_info($questions); - $questions = $this->questions_with_export_info($questions, $shuffleanswers); - $questions = $this->objects_to_array($questions); - return $questions; - } - -/** - * calls htmlspecialchars for each string field, to convert, for example, & to & - * - * collections are processed recursively - * - * @param array $collection - an array or object or string - */ -function xml_entitize(&$collection) { - if (is_array($collection)) { - foreach ($collection as $key=>$var) { - if (is_string($var)) { - $collection[$key]= htmlspecialchars($var, ENT_COMPAT, 'UTF-8'); - } else if (is_array($var) || is_object($var)) { - $this->xml_entitize($collection[$key]); - } - } - } else if (is_object($collection)) { - $vars = get_object_vars($collection); - foreach ($vars as $key=>$var) { - if (is_string($var)) { - $collection->$key = htmlspecialchars($var, ENT_COMPAT, 'UTF-8'); - } else if (is_array($var) || is_object($var)) { - $this->xml_entitize($collection->$key); - } - } - } else if (is_string($collection)) { - $collection = htmlspecialchars($collection, ENT_COMPAT, 'UTF-8'); - } -} - -/** - * adds exporttext property to the questions - * - * Adds the qti export text to the questions - * - * @param array $questions - an array of question objects - * @return an array of question objects - */ - function questions_with_export_info($questions, $shuffleanswers = null) { - $exportquestions = array(); - foreach($questions as $key=>$question) { - $expout = $this->writequestion( $question , $shuffleanswers) . "\n"; - $expout = $this->presave_process( $expout ); - $key = $this->get_assesment_item_id($question); - $exportquestions[$key] = $question; - $exportquestions[$key]->exporttext = $expout; - } - return $exportquestions; - } - -/** - * Creates the export text for a question - * - * @todo handle in-line media (specified in the question/subquestion/answer text) for course-level exports - * @param object $question - * @param boolean $shuffleanswers whether or not to shuffle the answers - * @param boolean $courselevel whether or not this is a course-level export - * @param string $path provide the path to copy question media files to, if $courselevel == true - * @return string containing export text - */ - function writequestion($question, $shuffleanswers = null, $courselevel = false, $path = '') { - // turns question into string - // question reflects database fields for general question and specific to type - global $CFG; - $expout = ''; - //need to unencode the html entities in the questiontext field. - // the whole question object was earlier run throught htmlspecialchars in xml_entitize(). - $question->questiontext = html_entity_decode($question->questiontext, ENT_COMPAT); - - $hasimage = empty($question->image) ? 0 : 1; - $hassize = empty($question->mediax) ? 0 : 1; - - $allowedtags = '

      • '; // all other tags will be stripped from question text - $smarty =& $this->init_smarty(); - $assesmentitemid = $this->get_assesment_item_id($question); - $question_type = $this->get_qtype( $question->qtype ); - $questionid = "question{$question->id}$question_type"; - $smarty->assign('question_has_image', $hasimage); - $smarty->assign('hassize', $hassize); - $smarty->assign('questionid', $questionid); - $smarty->assign('assessmentitemidentifier', $assesmentitemid); - $smarty->assign('assessmentitemtitle', $question->name); - $smarty->assign('courselevelexport', $courselevel); - - if ($question->qtype == MULTIANSWER) { - $question->questiontext = strip_tags($question->questiontext, $allowedtags . ''); - $smarty->assign('questionText', $this->get_cloze_intro($question->questiontext)); - } else { - $smarty->assign('questionText', strip_tags($question->questiontext, $allowedtags)); - } - - $smarty->assign('question', $question); - // the following two are left for compatibility; the templates should be changed, though, to make object tags for the questions - //$smarty->assign('questionimage', $question->image); - //$smarty->assign('questionimagealt', "image: $question->image"); - - // output depends on question type - switch($question->qtype) { - case TRUEFALSE: - $qanswers = $question->options->answers; - $answers[0] = (array)$qanswers['true']; - $answers[0]['answer'] = get_string("true", "quiz"); - $answers[1] = (array)$qanswers['false']; - $answers[1]['answer'] = get_string("false", "quiz"); - - if (!empty($shuffleanswers)) { - $answers = $this->shuffle_things($answers); - } - - if (isset($question->response)) { - $correctresponseid = $question->response[$questionid]; - if ($answers[0]['id'] == $correctresponseid) { - $correctresponse = $answers[0]; - } else { - $correctresponse = $answers[1]; - } - } - else { - $correctresponse = ''; - } - - $smarty->assign('correctresponse', $correctresponse); - $smarty->assign('answers', $answers); - $expout = $smarty->fetch('choice.tpl'); - break; - case MULTICHOICE: - $answers = $this->objects_to_array($question->options->answers); - if (!empty($shuffleanswers)) { - $answers = $this->shuffle_things($answers); - } - $correctresponses = $this->get_correct_answers($answers); - $correctcount = count($correctresponses); - - - $smarty->assign('responsedeclarationcardinality', $correctcount > 1 ? 'multiple' : 'single'); - $smarty->assign('correctresponses', $correctresponses); - $smarty->assign('answers', $answers); - $smarty->assign('maxChoices', $question->options->single ? '1' : count($answers)); - $expout = $smarty->fetch('choiceMultiple.tpl'); - break; - case SHORTANSWER: - $answers = $this->objects_to_array($question->options->answers); - if (!empty($shuffleanswers)) { - $answers = $this->shuffle_things($answers); - } - - $correctresponses = $this->get_correct_answers($answers); - $correctcount = count($correctresponses); - - $smarty->assign('responsedeclarationcardinality', $correctcount > 1 ? 'multiple' : 'single'); - $smarty->assign('correctresponses', $correctresponses); - $smarty->assign('answers', $answers); - $expout = $smarty->fetch('textEntry.tpl'); - break; - case NUMERICAL: - $qanswer = array_pop( $question->options->answers ); - $smarty->assign('lowerbound', $qanswer->answer - $qanswer->tolerance); - $smarty->assign('upperbound', $qanswer->answer + $qanswer->tolerance); - $smarty->assign('answer', $qanswer->answer); - $expout = $smarty->fetch('numerical.tpl'); - break; - case MATCH: - $this->xml_entitize($question->options->subquestions); - $subquestions = $this->objects_to_array($question->options->subquestions); - if (!empty($shuffleanswers)) { - $subquestions = $this->shuffle_things($subquestions); - } - $setcount = count($subquestions); - - $smarty->assign('setcount', $setcount); - $smarty->assign('matchsets', $subquestions); - $expout = $smarty->fetch('match.tpl'); - break; - case DESCRIPTION: - $expout = $smarty->fetch('extendedText.tpl'); - break; - // loss of get_answers() from quiz_embedded_close_qtype class during - // Gustav's refactor breaks MULTIANSWER badly - one for another day!! - /* - case MULTIANSWER: - $answers = $this->get_cloze_answers_array($question); - $questions = $this->get_cloze_questions($question, $answers, $allowedtags); - - $smarty->assign('cloze_trailing_text_id', CLOZE_TRAILING_TEXT_ID); - $smarty->assign('answers', $answers); - $smarty->assign('questions', $questions); - $expout = $smarty->fetch('composite.tpl'); - break; */ - default: - $smarty->assign('questionText', "This question type (Unknown: type $question_type) has not yet been implemented"); - $expout = $smarty->fetch('notimplemented.tpl'); - } - - // run through xml tidy function - //$tidy_expout = $this->indent_xhtml( $expout, ' ' ) . "\n\n"; - //return $tidy_expout; - return $expout; - } - -/** - * Gets an id to use for a qti assesment item - * - * @param object $question - * @return string containing a qti assesment item id - */ - function get_assesment_item_id($question) { - return "question{$question->id}"; - } - -/** - * gets the answers whose grade fraction > 0 - * - * @param array $answers - * @return array (0-indexed) containing the answers whose grade fraction > 0 - */ - function get_correct_answers($answers) - { - $correctanswers = array(); - foreach ($answers as $answer) { - if ($answer['fraction'] > 0) { - $correctanswers[] = $answer; - } - } - return $correctanswers; - } - -/** - * gets a new Smarty object, with the template and compile directories set - * - * @return object a smarty object - */ - function & init_smarty() { - global $CFG; - - // create smarty compile dir in dataroot - $path = $CFG->dataroot."/smarty_c"; - if (!is_dir($path)) { - if (!mkdir($path, $CFG->directorypermissions)) { - print_error('nopermissiontomkdir'); - } - } - $smarty = new Smarty; - $smarty->template_dir = "{$CFG->dirroot}/question/format/qti2/templates"; - $smarty->compile_dir = "$path"; - return $smarty; - } - -/** - * converts an array of objects to an array of arrays (not recursively) - * - * @param array $objectarray - * @return array - an array of answer arrays - */ - function objects_to_array($objectarray) - { - $arrayarray = array(); - foreach ($objectarray as $object) { - $arrayarray[] = (array)$object; - } - return $arrayarray; - } - -/** - * gets a question's cloze answer objects as arrays containing only arrays and basic data types - * - * @param object $question - * @return array - an array of answer arrays - */ - function get_cloze_answers_array($question) { - $answers = $this->get_answers($question); - $this->xml_entitize($answers); - foreach ($answers as $answerkey => $answer) { - $answers[$answerkey]->subanswers = $this->objects_to_array($answer->subanswers); - } - return $this->objects_to_array($answers); - } - -/** - * gets an array with text and question arrays for the given cloze question - * - * To make smarty processing easier, the returned text and question sub-arrays have an equal number of elements. - * If it is necessary to add a dummy element to the question sub-array, the question will be given an id of CLOZE_TRAILING_TEXT_ID. - * - * @param object $question - * @param array $answers - an array of arrays containing the question's answers - * @param string $allowabletags - tags not to strip out of the question text (e.g. '
        ') - * @return array with text and question arrays for the given cloze question - */ - function get_cloze_questions($question, $answers, $allowabletags) { - $questiontext = strip_tags($question->questiontext, $allowabletags); - if (preg_match_all('/(.*){#([0-9]+)}/U', $questiontext, $matches)) { - // matches[1] contains the text inbetween the question blanks - // matches[2] contains the id of the question blanks (db: question_multianswer.positionkey) - - // find any trailing text after the last {#XX} and add it to the array - if (preg_match('/.*{#[0-9]+}(.*)$/', $questiontext, $tail)) { - $matches[1][] = $tail[1]; - $tailadded = true; - } - $questions['text'] = $matches[1]; - $questions['question'] = array(); - foreach ($matches[2] as $key => $questionid) { - foreach ($answers as $answer) { - if ($answer['positionkey'] == $questionid) { - $questions['question'][$key] = $answer; - break; - } - } - } - if ($tailadded) { - // to have a matching number of question and text array entries: - $questions['question'][] = array('id'=>CLOZE_TRAILING_TEXT_ID, 'answertype'=>SHORTANSWER); - } - - } else { - $questions['text'][0] = $question->questiontext; - $questions['question'][0] = array('id'=>CLOZE_TRAILING_TEXT_ID, 'answertype'=>SHORTANSWER); - } - - return $questions; - } - -/** - * strips out the ... section, if any, and returns the text - * - * changes the text object passed to it. - * - * @param string $&text - * @return string the intro text, if there was an intro tag. '' otherwise. - */ - function get_cloze_intro(&$text) { - if (preg_match('/(.*)?\(.+)?\<\/intro>(.*)/s', $text, $matches)) { - $text = $matches[1] . $matches[3]; - return $matches[2]; - } - else { - return ''; - } - } - - -/** - * adds qti metadata properties to the questions - * - * The passed array of questions is altered by this function - * - * @param &questions an array of question objects - */ - function add_qti_info(&$questions) - { - foreach ($questions as $key=>$question) { - $questions[$key]->qtiinteractiontype = $this->get_qti_interaction_type($question->qtype); - $questions[$key]->qtiscoreable = $this->get_qti_scoreable($question); - $questions[$key]->qtisolutionavailable = $this->get_qti_solution_available($question); - } - - } - -/** - * returns whether or not a given question is scoreable - * - * @param object $question - * @return boolean - */ - function get_qti_scoreable($question) { - switch ($question->qtype) { - case DESCRIPTION: - return 'false'; - default: - return 'true'; - } - } - -/** - * returns whether or not a solution is available for a given question - * - * The results are based on whether or not Moodle stores answers for the given question type - * - * @param object $question - * @return boolean - */ - function get_qti_solution_available($question) { - switch($question->qtype) { - case TRUEFALSE: - return 'true'; - case MULTICHOICE: - return 'true'; - case SHORTANSWER: - return 'true'; - case NUMERICAL: - return 'true'; - case MATCH: - return 'true'; - case DESCRIPTION: - return 'false'; - case MULTIANSWER: - return 'true'; - default: - return 'true'; - } - - } - -/** - * maps a moodle question type to a qti 2.0 question type - * - * @param int type_id - the moodle question type - * @return string qti 2.0 question type - */ - function get_qti_interaction_type($type_id) { - switch( $type_id ) { - case TRUEFALSE: - $name = 'choiceInteraction'; - break; - case MULTICHOICE: - $name = 'choiceInteraction'; - break; - case SHORTANSWER: - $name = 'textInteraction'; - break; - case NUMERICAL: - $name = 'textInteraction'; - break; - case MATCH: - $name = 'matchInteraction'; - break; - case DESCRIPTION: - $name = 'extendedTextInteraction'; - break; - case MULTIANSWER: - $name = 'textInteraction'; - break; - default: - $name = 'textInteraction'; - } - return $name; - } - -/** - * returns the given array, shuffled - * - * - * @param array $things - * @return array - */ - function shuffle_things($things) { - $things = swapshuffle_assoc($things); - $oldthings = $things; - $things = array(); - foreach ($oldthings as $key=>$value) { - $things[] = $value; // This loses the index key, but doesn't matter - } - return $things; - } - -/** - * returns a flattened image name - with all /, \ and : replaced with other characters - * - * used to convert a file or url to a qti-permissable identifier - * - * @param string name - * @return string - */ - function flatten_image_name($name) { - return str_replace(array('/', '\\', ':'), array ('_','-','.'), $name); - } - - function file_full_path($file, $courseid) { - global $CFG; - if (substr(strtolower($file), 0, 7) == 'http://') { - $url = $file; - } else { - require_once($CFG->libdir.'/filelib.php'); - $url = get_file_url("$courseid/$file"); - } - return $url; - } - -} - -?> diff --git a/question/format/qti2/qt_common.php b/question/format/qti2/qt_common.php deleted file mode 100644 index d83e6016f4..0000000000 --- a/question/format/qti2/qt_common.php +++ /dev/null @@ -1,148 +0,0 @@ -/editquestion.php - * @package questionbank - * @subpackage importexport - */ -function get_course_media_files($courseid) -{ -// this code lifted from mod/quiz/question.php and modified - global $CFG; - $images = null; - - make_upload_directory("$course->id"); // Just in case - $coursefiles = get_directory_list("$CFG->dataroot/$courseid", $CFG->moddata); - foreach ($coursefiles as $filename) { - if (is_media_by_extension($filename)) { - $images["$filename"] = $filename; - } - } - return $images; -} - -/** - * determines whether or not a file is an image, based on the file extension - * - * @param string $file the filename - * @return boolean - */ -function is_image_by_extentsion($file) { - $extensionsregex = '/\.(gif|jpg|jpeg|jpe|png|tif|tiff|bmp|xbm|rgb|svf)$/'; - if (preg_match($extensionsregex, $file)) { - return true; - } - return false; -} - - -/** - * determines whether or not a file is a media file, based on the file extension - * - * @param string $file the filename - * @return boolean - */ -function is_media_by_extension($file) { - $extensionsregex = '/\.(gif|jpg|jpeg|jpe|png|tif|tiff|bmp|xbm|rgb|svf|swf|mov|mpg|mpeg|wmf|avi|mpe|flv|mp3|ra|ram)$/'; - if (preg_match($extensionsregex, $file)) { - return true; - } - return false; -} - -/** - * determines whether or not a file is a multimedia file, based on the file extension - * - * @param string $file the filename - * @return boolean - */ -function is_multimedia_by_extension($file) { - $extensionsregex = '/\.(swf|mov|mpg|mpeg|wmf|avi|mpe|flv)$/'; - if (preg_match($extensionsregex, $file)) { - return true; - } - return false; -} - -/** - * determines whether or not a file is a multimedia file of a type php can get the dimension for, based on the file extension - * - * @param string $file the filename - * @return boolean - */ -function is_sizable_multimedia($file) { - $extensionsregex = '/\.(swf)$/'; - if (preg_match($extensionsregex, $file)) { - return true; - } - return false; -} - -/** - * creates a media tag to use for choice media - * - * @param string $file the filename - * @param string $courseid the course id - * @param string $alt to specify the alt tag - * @return string either an image tag, or html for an embedded object - */ -function get_media_tag($file, $courseid = 0, $alt = 'media file', $width = 0, $height = 0) { - global $CFG; - - // if it's a moodle library file, it will be served through file.php - if (substr(strtolower($file), 0, 7) == 'http://') { - $media = $file; - } else { - require_once($CFG->libdir.'/filelib.php'); - $media = get_file_url("$courseid/$file"); - } - - $ismultimedia = false; - if (!$isimage = is_image_by_extension($file)) { - $ismultimedia = is_multimedia_by_extension($file); - } - - // if there is no known width and height, try to get one - if ($width == 0) { - if ($isimage || is_sizable_multimedia($file)) { - - } - - } - // create either an image link or a generic link. - // if the moodle multimedia filter is turned on, it'll catch multimedia content in the generic link - if (is_image_by_extension($file)) { - return "\"$alt\""; - } - else { - require_once("$CFG->dirroot/mod/quiz/format/qti/custommediafilter.php"); - return custom_mediaplugin_filter('', $courseid, $width, $height); - } -} - -/** - * determines the x and y size of the given file - * - * @param string $file the filename - * @return array looks like array('x'=>171, 'y'=>323), or array('x'=>0, 'y'=>0) if size can't be determined - */ -function get_file_dimensions($file) { - $imginfo = @getimagesize($file); - if ($imginfo !== FALSE) { - return array('x'=>$imginfo[0], 'y'=>$imginfo[1]); - } else { - return array('x'=> 0, 'y'=> 0); - } -} - -?> diff --git a/question/format/qti2/templates/choice.tpl b/question/format/qti2/templates/choice.tpl deleted file mode 100755 index 3a06d3378e..0000000000 --- a/question/format/qti2/templates/choice.tpl +++ /dev/null @@ -1,70 +0,0 @@ -{if $courselevelexport}{/if} - - - - {$correctresponse.id} - - - - - - - - - 0 - - - -

        {$questionText}

        -
        - - {section name=answer loop=$answers} - {$answers[answer].answer} - {if $answers[answer].feedback != ''} - {if $answers[answer].answer != $correctresponse.answer} - {$answers[answer].feedback} - {/if} - {/if} - - {/section} - - {if $question_has_image == 1} -
        - {if $hassize == 1} - - {else} - - {/if} - - {/if} - - - - - - - - - - - - 1 - - - - - - 0 - - - - - - - - {section name=answer loop=$answers} - {if $answers[answer].feedback != ''} - {$answers[answer].feedback} - {/if} - {/section} - diff --git a/question/format/qti2/templates/choiceMultiple.tpl b/question/format/qti2/templates/choiceMultiple.tpl deleted file mode 100755 index 1746330774..0000000000 --- a/question/format/qti2/templates/choiceMultiple.tpl +++ /dev/null @@ -1,64 +0,0 @@ -{if $courselevelexport}{/if} - - - - {section name=answer loop=$correctresponses} - {$correctresponses[answer].id} - {/section} - - - {section name=answer loop=$answers} - {if $answers[answer].fraction != 0} - - {/if} - {/section} - - - - -
        -

        {$questionText}

        -
        -
        - - {section name=answer loop=$answers} - {$answers[answer].answer} - {/section} - -
        - {if $question_has_image == 1} -
        - {if $hassize == 1} - - {else} - - {/if} - - {/if} - - - - - - - - - 0 - - - - - - - - - - - - - {section name=answer loop=$answers} - {if $answers[answer].feedback != ''} - {$answers[answer].feedback} - {/if} - {/section} - diff --git a/question/format/qti2/templates/composite.tpl b/question/format/qti2/templates/composite.tpl deleted file mode 100755 index 802cd08a57..0000000000 --- a/question/format/qti2/templates/composite.tpl +++ /dev/null @@ -1,101 +0,0 @@ -{if $courselevelexport}{/if} - - {section name=aid loop=$answers} - {if $answers[aid].answertype == 3} - - - {section name=subanswer loop=$answers[aid].subanswers} - {if $answers[aid].subanswers[subanswer].fraction > 0} - {$answers[aid].subanswers[subanswer].id} - {/if} - {/section} - - - {section name=subanswer loop=$answers[aid].subanswers} - {if $answers[aid].subanswers[subanswer].fraction != 0} - - {/if} - {/section} - - - {elseif $answers[aid].answertype == 1} - - - {section name=subanswer loop=$answers[aid].subanswers} - {if $answers[aid].subanswers[subanswer].fraction > 0} - {$answers[aid].subanswers[subanswer].answer} - {/if} - {/section} - - - {section name=subanswer loop=$answers[aid].subanswers} - {if $answers[aid].subanswers[subanswer].fraction != 0} - - {/if} - {/section} - - - {/if} - {/section} - - - {if $questionText != ''} -
        -

        {$questionText}

        -
        - {/if} -

        - {section name=qid loop=$questions.question} - {$questions.text[qid]} - {if $questions.question[qid].id != $cloze_trailing_text_id} - {if $questions.question[qid].answertype == 3} - - {section name=aid loop=$questions.question[qid].subanswers} - {$questions.question[qid].subanswers[aid].answer} - {/section} - - {elseif $questions.question[qid].answertype == 1} - - {/if} - {/if} - {/section}

        - {if $question_has_image == 1} -
        - {if $hassize == 1} - - {else} - - {/if} - - {/if} - - -{section name=answer loop=$answers}{if $answers[answer].answertype == 1 || $answers[answer].answertype == 3} - - - - - - - 0 - - - - - - - - - - - -{/if}{/section} - -{section name=answer loop=$answers}{if $answers[answer].answertype == 1 || $answers[answer].answertype == 3} - {section name=subanswer loop=$answers[answer].subanswers} - {if $answers[answer].subanswers[subanswer].feedback != ''} - {$answers[answer].subanswers[subanswer].feedback} -{/if}{/section} - {/if} - {/section} - diff --git a/question/format/qti2/templates/extendedText.tpl b/question/format/qti2/templates/extendedText.tpl deleted file mode 100755 index 52d2bd94ed..0000000000 --- a/question/format/qti2/templates/extendedText.tpl +++ /dev/null @@ -1,17 +0,0 @@ -{if $courselevelexport}{/if} - - - - -

        {$questionText}

        - {if $question_has_image == 1} -
        - {if $hassize == 1} - - {else} - - {/if} - - {/if} - - diff --git a/question/format/qti2/templates/extendedText_simpleEssay.tpl b/question/format/qti2/templates/extendedText_simpleEssay.tpl deleted file mode 100755 index 76d7d23ee2..0000000000 --- a/question/format/qti2/templates/extendedText_simpleEssay.tpl +++ /dev/null @@ -1,27 +0,0 @@ -{if $courselevelexport}{/if} - - - - -
        -

        {$questionText}

        -
        -
        - - -
        - {if $question_has_image == 1} -
        - {if $hassize == 1} - - {else} - - {/if} - - {/if} - -{if $question->feedback != ''} - {$question->feedback} - {$question->feedback} -{/if} - diff --git a/question/format/qti2/templates/graphicGapMatch.tpl b/question/format/qti2/templates/graphicGapMatch.tpl deleted file mode 100644 index e2b5d06ea5..0000000000 --- a/question/format/qti2/templates/graphicGapMatch.tpl +++ /dev/null @@ -1,33 +0,0 @@ -{if $courselevelexport}{/if} - - - - {section name=item loop=$gapitems} - {$gapitems[item].id} {$gapitems[item].id} - {/section} - - - {section name=item loop=$gapitems} - - {/section} - - - - -

        {$questionText}

        -
        - - - {section name=item loop=$gapitems} - - - - {/section} - {section name=item loop=$gapitems} - - {/section} - - - - - \ No newline at end of file diff --git a/question/format/qti2/templates/imsmanifest.tpl b/question/format/qti2/templates/imsmanifest.tpl deleted file mode 100755 index 570d35a7cf..0000000000 --- a/question/format/qti2/templates/imsmanifest.tpl +++ /dev/null @@ -1,85 +0,0 @@ - - - - ADL SCORM - 1.2 - - - <langstring xml:lang="{$lang}">{$quiztitle}</langstring> - {$quizinfo} - {$quizkeywords} - - - {if $quiz_level_export == 1} - {$submiturl} - {$userid} - {$username} - {$quiz->id} - {$quiz->course} - {$quiztimeopen} - {$quiztimeclose} - {$quiz->timelimit} - {$quiz->shufflequestions} - {$quiz->shuffleanswers} - {$quiz->attempts} - {$quiz->attemptonlast} - {$grademethod} - {$quiz->feedback} - {$quiz->correctanswers} - {$quiz->grade} - {$quiz->sumgrades} - {$quiz->password} - {$quiz->subnet} - {$course->fullname} - {$course->shortname} - {/if} - - - - {section name=question loop=$questions} - - - IMS QTI Item - 2.0 - - - category{$questions[question].category}-question{$questions[question].id} - - {$questions[question].name} - - - Question {$questions[question].id} from category {$questions[question].category} - - - - - 1.0 - - - - LOMv1.0 - - - Draft - - - - - - false - {$questions[question].qtiinteractiontype} - {$questions[question].qtiscoreable} - nonadaptive - {$questions[question].qtisolutionavailable} - - - {if $questions[question].image != ''} - - {/if} - {$questions[question].exporttext} - - {/section} - - \ No newline at end of file diff --git a/question/format/qti2/templates/match.tpl b/question/format/qti2/templates/match.tpl deleted file mode 100644 index e124632011..0000000000 --- a/question/format/qti2/templates/match.tpl +++ /dev/null @@ -1,62 +0,0 @@ - - - - {section name=set loop=$matchsets} - q{$matchsets[set].id} a{$matchsets[set].id} - {/section} - - - - {section name=set loop=$matchsets} - - {/section} - - - - - -

        {$questionText}

        -
        - - - {section name=set loop=$matchsets} - {$matchsets[set].questiontext} - {/section} - - - {section name=set loop=$matchsets} - {$matchsets[set].answertext} - {/section} - - -
        - {if $question_has_image == 1} -
        - {if $hassize == 1} - - {else} - - {/if} - - {/if} - - - - - - - - - - 0 - - - - - - - - - - - diff --git a/question/format/qti2/templates/mmchoiceMultiple.tpl b/question/format/qti2/templates/mmchoiceMultiple.tpl deleted file mode 100755 index 558e077414..0000000000 --- a/question/format/qti2/templates/mmchoiceMultiple.tpl +++ /dev/null @@ -1,88 +0,0 @@ -{if $courselevelexport}{/if} - - - - {section name=answer loop=$correctresponses} - {$correctresponses[answer].id} - {/section} - - - {section name=answer loop=$answers} - {if $answers[answer].fraction != 0} - - {/if} - {/section} - - - - -
        -

        {$questionText}

        -
        -
        - - {section name=answer loop=$answers} -

        {$answers[answer].choice} - {if $answers[answer].media != ''} - - {/if}

        - {if $answers[answer].feedback != ''} - {$answers[answer].feedback} - {/if} - {if $answers[answer].altfeedback != ''} - {$answers[answer].altfeedback} - {/if} - - {/section} - - - {if $question_has_image == 1} -
        - {if $hassize == 1} - - {else} - - {/if} - - {/if} - - - - - - - - - 0 - - - - - - - - - - - - - {$question->feedbackfraction} - - - - - - - - - - - - -{if $question->feedbackok != ''} - {$question->feedbackok} -{/if} -{if $question->feedbackmissed != ''} - {$question->feedbackmissed} -{/if} - diff --git a/question/format/qti2/templates/notimplemented.tpl b/question/format/qti2/templates/notimplemented.tpl deleted file mode 100755 index e431354f25..0000000000 --- a/question/format/qti2/templates/notimplemented.tpl +++ /dev/null @@ -1,20 +0,0 @@ -{if $courselevelexport}{/if} - - - - -

        {$questionText}

        -
        - -
        - {if $question_has_image == 1} -
        - {if $hassize == 1} - - {else} - - {/if} - - {/if} - - diff --git a/question/format/qti2/templates/numerical.tpl b/question/format/qti2/templates/numerical.tpl deleted file mode 100755 index d15992ecd0..0000000000 --- a/question/format/qti2/templates/numerical.tpl +++ /dev/null @@ -1,65 +0,0 @@ -{if $courselevelexport}{/if} - - - - {$answer->answer} - - - - - - - -

        {$questionText}

        -
        - -
        - {if $question_has_image == 1} -
        - {if $hassize == 1} - - {else} - - {/if} - - {/if} - - - - - - - - - - - - {$lowerbound} - - - - {$upperbound} - - - - - 1 - - - - - 0 - - - - - - - -{if $answer->feedback != ''} - {$answer->feedback} -{/if} -{if $answer->altfeedback != ''} - {$answer->altfeedback} -{/if} - diff --git a/question/format/qti2/templates/textEntry.tpl b/question/format/qti2/templates/textEntry.tpl deleted file mode 100755 index 6c03937998..0000000000 --- a/question/format/qti2/templates/textEntry.tpl +++ /dev/null @@ -1,50 +0,0 @@ -{if $courselevelexport}{/if} - - - - {section name=answer loop=$correctresponses} - {$correctresponses[answer].answer} - {/section} - - - {section name=answer loop=$answers} - {if $answers[answer].fraction != 0} - - {/if} - {/section} - - - - -

        {$questionText}

        -
        - -
        - {if $question_has_image == 1} -
        - {if $hassize == 1} - - {else} - - {/if} - - {/if} - - - - - - - - - 0 - - - - - - - - - - -- 2.39.5