From: thepurpleblob Date: Fri, 11 Jul 2008 10:49:08 +0000 (+0000) Subject: MDL-14431: X-Git-Url: http://git.mjollnir.org/gw?a=commitdiff_plain;h=fb2ce31bfca52181d28b08d4100c84ba6ea6a2e7;p=moodle.git MDL-14431: Moving qti2 to qti_two as numbers are not allowed in module names --- diff --git a/lang/en_utf8/help/qformat_qti2/qti2.html b/lang/en_utf8/help/qformat_qti_two/qti_two.html similarity index 100% rename from lang/en_utf8/help/qformat_qti2/qti2.html rename to lang/en_utf8/help/qformat_qti_two/qti_two.html diff --git a/lang/en_utf8/quiz.php b/lang/en_utf8/quiz.php index 9a6fa1ea1b..e3aefdec6c 100644 --- a/lang/en_utf8/quiz.php +++ b/lang/en_utf8/quiz.php @@ -430,7 +430,7 @@ $string['previous'] = 'Previous state'; $string['publish'] = 'Publish'; $string['publishedit'] = 'You must have permission in the publishing course to add or edit questions in this category'; $string['qti'] = 'IMS QTI format'; -$string['qti2'] = 'IMS QTI 2.0 format'; +$string['qti_two'] = 'IMS QTI 2.0 format'; $string['question'] = 'Question'; $string['questioncats'] = 'Question Categories'; $string['questiondeleted'] = 'This question has been deleted. Please contact your teacher'; diff --git a/question/format/qti_two/custommediafilter.php b/question/format/qti_two/custommediafilter.php new file mode 100644 index 0000000000..c7fcba8cf2 --- /dev/null +++ b/question/format/qti_two/custommediafilter.php @@ -0,0 +1,150 @@ +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/qti_two/format.php b/question/format/qti_two/format.php new file mode 100644 index 0000000000..8e01eb7279 --- /dev/null +++ b/question/format/qti_two/format.php @@ -0,0 +1,921 @@ +dirroot/question/format/qti_two/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_qti_two 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; + + error("Sorry, importing this format is not yet implemented!", + "$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)) { + error( get_string('cannotcreatepath','quiz',$export_dir) ); + } + $path = $CFG->dataroot.'/'.$this->question_get_export_dir().'/'.$this->filename; + + // get the questions (from database) in this category + // $questions = get_records("question","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)) { + error("Unkown error - empty imsmanifest.xml"); + } + if (!$fh=fopen($filepath,"w")) { + error("Cannot open for writing: $filepath"); + } + if (!fwrite($fh, $expout)) { + error("Cannot write exported questions to $filepath"); + } + fclose($fh); + + // iterate through questions + foreach($questions as $question) { + + // results are first written into string (and then to a file) + $count++; + echo "

$count. ".stripslashes($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")) { + error("Cannot open for writing: $filepath"); + } + if (!fwrite($fh, $expout)) { + error("Cannot write exported questions to $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 + error("Error occurred during pre-processing!", $redirect); + } + if (! $this->exportprocess_quiz($quiz, $questions, $result, $submiturl, $course)) { // Process the export data + error("Error occurred during processing!", $redirect); + } + if (! $this->exportpostprocess()) { // In case anything needs to be done after + error("Error occurred during post-processing!", $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 + 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 + if ($CFG->slasharguments) { // Use this method if possible for better caching + $questions[$key]->mediaurl = "$CFG->wwwroot/file.php/$question->image"; + } else { + $questions[$key]->mediaurl = "$CFG->wwwroot/file.php?file=$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)) { + error("Cannot create path: $path"); + } + } + $smarty = new Smarty; + $smarty->template_dir = "{$CFG->dirroot}/question/format/qti_two/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 if ($CFG->slasharguments) { // Use this method if possible for better caching + $url = "{$CFG->wwwroot}/file.php/$courseid/{$file}"; + } else { + $url = "{$CFG->wwwroot}/file.php?file=/$courseid/{$file}"; + } + return $url; + } + +} + +?> diff --git a/question/format/qti_two/qt_common.php b/question/format/qti_two/qt_common.php new file mode 100644 index 0000000000..10229a2e4a --- /dev/null +++ b/question/format/qti_two/qt_common.php @@ -0,0 +1,149 @@ +/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 if ($CFG->slasharguments) { // Use this method if possible for better caching + $media = "{$CFG->wwwroot}/file.php/$courseid/$file"; + } else { + $media = "{$CFG->wwwroot}/file.php?file=/$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/qti_two/templates/choice.tpl b/question/format/qti_two/templates/choice.tpl new file mode 100755 index 0000000000..3a06d3378e --- /dev/null +++ b/question/format/qti_two/templates/choice.tpl @@ -0,0 +1,70 @@ +{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/qti_two/templates/choiceMultiple.tpl b/question/format/qti_two/templates/choiceMultiple.tpl new file mode 100755 index 0000000000..1746330774 --- /dev/null +++ b/question/format/qti_two/templates/choiceMultiple.tpl @@ -0,0 +1,64 @@ +{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/qti_two/templates/composite.tpl b/question/format/qti_two/templates/composite.tpl new file mode 100755 index 0000000000..802cd08a57 --- /dev/null +++ b/question/format/qti_two/templates/composite.tpl @@ -0,0 +1,101 @@ +{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/qti_two/templates/extendedText.tpl b/question/format/qti_two/templates/extendedText.tpl new file mode 100755 index 0000000000..52d2bd94ed --- /dev/null +++ b/question/format/qti_two/templates/extendedText.tpl @@ -0,0 +1,17 @@ +{if $courselevelexport}{/if} + + + + +

        {$questionText}

        + {if $question_has_image == 1} +
        + {if $hassize == 1} + + {else} + + {/if} + + {/if} + + diff --git a/question/format/qti_two/templates/extendedText_simpleEssay.tpl b/question/format/qti_two/templates/extendedText_simpleEssay.tpl new file mode 100755 index 0000000000..76d7d23ee2 --- /dev/null +++ b/question/format/qti_two/templates/extendedText_simpleEssay.tpl @@ -0,0 +1,27 @@ +{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/qti_two/templates/graphicGapMatch.tpl b/question/format/qti_two/templates/graphicGapMatch.tpl new file mode 100644 index 0000000000..e2b5d06ea5 --- /dev/null +++ b/question/format/qti_two/templates/graphicGapMatch.tpl @@ -0,0 +1,33 @@ +{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/qti_two/templates/imsmanifest.tpl b/question/format/qti_two/templates/imsmanifest.tpl new file mode 100755 index 0000000000..570d35a7cf --- /dev/null +++ b/question/format/qti_two/templates/imsmanifest.tpl @@ -0,0 +1,85 @@ + + + + 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/qti_two/templates/match.tpl b/question/format/qti_two/templates/match.tpl new file mode 100644 index 0000000000..e124632011 --- /dev/null +++ b/question/format/qti_two/templates/match.tpl @@ -0,0 +1,62 @@ + + + + {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/qti_two/templates/mmchoiceMultiple.tpl b/question/format/qti_two/templates/mmchoiceMultiple.tpl new file mode 100755 index 0000000000..558e077414 --- /dev/null +++ b/question/format/qti_two/templates/mmchoiceMultiple.tpl @@ -0,0 +1,88 @@ +{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/qti_two/templates/notimplemented.tpl b/question/format/qti_two/templates/notimplemented.tpl new file mode 100755 index 0000000000..e431354f25 --- /dev/null +++ b/question/format/qti_two/templates/notimplemented.tpl @@ -0,0 +1,20 @@ +{if $courselevelexport}{/if} + + + + +

        {$questionText}

        +
        + +
        + {if $question_has_image == 1} +
        + {if $hassize == 1} + + {else} + + {/if} + + {/if} + + diff --git a/question/format/qti_two/templates/numerical.tpl b/question/format/qti_two/templates/numerical.tpl new file mode 100755 index 0000000000..d15992ecd0 --- /dev/null +++ b/question/format/qti_two/templates/numerical.tpl @@ -0,0 +1,65 @@ +{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/qti_two/templates/textEntry.tpl b/question/format/qti_two/templates/textEntry.tpl new file mode 100755 index 0000000000..6c03937998 --- /dev/null +++ b/question/format/qti_two/templates/textEntry.tpl @@ -0,0 +1,50 @@ +{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 + + + + + + + + + +