Adding support for BlackBoard V6 (and 7). Modified from contrib version.
Needs more testing and some fixes, but more-or-less works.
This commit is contained in:
thepurpleblob
@@ -0,0 +1,864 @@
|
||||
<?php
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////
|
||||
/// Blackboard 6.x Format
|
||||
///
|
||||
/// This Moodle class provides all functions necessary to import and export
|
||||
///
|
||||
///
|
||||
////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
// Based on default.php, included by ../import.php
|
||||
|
||||
require_once ("$CFG->libdir/xmlize.php");
|
||||
|
||||
class qformat_blackboard_6 extends qformat_default {
|
||||
function provide_import() {
|
||||
return true;
|
||||
}
|
||||
|
||||
|
||||
//Function to check and create the needed dir to unzip file to
|
||||
function check_and_create_import_dir($unique_code) {
|
||||
|
||||
global $CFG;
|
||||
|
||||
$status = $this->check_dir_exists($CFG->dataroot."/temp",true);
|
||||
if ($status) {
|
||||
$status = $this->check_dir_exists($CFG->dataroot."/temp/bbquiz_import",true);
|
||||
}
|
||||
if ($status) {
|
||||
$status = $this->check_dir_exists($CFG->dataroot."/temp/bbquiz_import/".$unique_code,true);
|
||||
}
|
||||
|
||||
return $status;
|
||||
}
|
||||
|
||||
function clean_temp_dir($dir='') {
|
||||
// this needs to be reworked
|
||||
|
||||
|
||||
// for now we will just say everything happened okay note that a mess may be piling up in $CFG->dataroot/temp/bbquiz_import
|
||||
return true;
|
||||
|
||||
if ($dir == '') {
|
||||
$dir = $this->temp_dir;
|
||||
}
|
||||
$slash = "/";
|
||||
|
||||
// Create arrays to store files and directories
|
||||
$dir_files = array();
|
||||
$dir_subdirs = array();
|
||||
|
||||
// Make sure we can delete it
|
||||
chmod($dir, 0777);
|
||||
|
||||
if ((($handle = opendir($dir))) == FALSE) {
|
||||
// The directory could not be opened
|
||||
return false;
|
||||
}
|
||||
|
||||
// Loop through all directory entries, and construct two temporary arrays containing files and sub directories
|
||||
while($entry = readdir($handle)) {
|
||||
if (is_dir($dir. $slash .$entry) && $entry != ".." && $entry != ".") {
|
||||
$dir_subdirs[] = $dir. $slash .$entry;
|
||||
}
|
||||
else if ($entry != ".." && $entry != ".") {
|
||||
$dir_files[] = $dir. $slash .$entry;
|
||||
}
|
||||
}
|
||||
|
||||
// Delete all files in the curent directory return false and halt if a file cannot be removed
|
||||
for($i=0; $i<count($dir_files); $i++) {
|
||||
chmod($dir_files[$i], 0777);
|
||||
if (((unlink($dir_files[$i]))) == FALSE) {
|
||||
return false;
|
||||
}
|
||||
}
|
||||
|
||||
// Empty sub directories and then remove the directory
|
||||
for($i=0; $i<count($dir_subdirs); $i++) {
|
||||
chmod($dir_subdirs[$i], 0777);
|
||||
if ($this->clean_temp_dir($dir_subdirs[$i]) == FALSE) {
|
||||
return false;
|
||||
}
|
||||
else {
|
||||
if (rmdir($dir_subdirs[$i]) == FALSE) {
|
||||
return false;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
// Close directory
|
||||
closedir($handle);
|
||||
if (rmdir($this->temp_dir) == FALSE) {
|
||||
return false;
|
||||
}
|
||||
// Success, every thing is gone return true
|
||||
return true;
|
||||
}
|
||||
|
||||
//Function to check if a directory exists and, optionally, create it
|
||||
function check_dir_exists($dir,$create=false) {
|
||||
|
||||
global $CFG;
|
||||
|
||||
$status = true;
|
||||
if(!is_dir($dir)) {
|
||||
if (!$create) {
|
||||
$status = false;
|
||||
} else {
|
||||
umask(0000);
|
||||
$status = mkdir ($dir,$CFG->directorypermissions);
|
||||
}
|
||||
}
|
||||
return $status;
|
||||
}
|
||||
|
||||
function importpostprocess() {
|
||||
/// Does any post-processing that may be desired
|
||||
/// Argument is a simple array of question ids that
|
||||
/// have just been added.
|
||||
|
||||
// need to clean up temporary directory
|
||||
return $this->clean_temp_dir();
|
||||
}
|
||||
|
||||
function copy_file_to_course($filename) {
|
||||
global $CFG;
|
||||
global $course;
|
||||
$filename = str_replace('\\','/',$filename);
|
||||
$fullpath = $this->temp_dir.'/res00001/'.$filename;
|
||||
$basename = basename($filename);
|
||||
|
||||
$copy_to = $CFG->dataroot.'/'.$course->id.'/bb_import';
|
||||
|
||||
if ($this->check_dir_exists($copy_to,true)) {
|
||||
if(is_readable($fullpath)) {
|
||||
$copy_to.= '/'.$basename;
|
||||
if (!copy($fullpath, $copy_to)) {
|
||||
return false;
|
||||
}
|
||||
else {
|
||||
return $copy_to;
|
||||
}
|
||||
}
|
||||
}
|
||||
else {
|
||||
return false;
|
||||
}
|
||||
}
|
||||
|
||||
function readdata($filename) {
|
||||
/// Returns complete file with an array, one item per line
|
||||
global $CFG;
|
||||
|
||||
$unique_code = time();
|
||||
$temp_dir = $CFG->dataroot."/temp/bbquiz_import/".$unique_code;
|
||||
$this->temp_dir = $temp_dir;
|
||||
if ($this->check_and_create_import_dir($unique_code)) {
|
||||
if(is_readable($filename)) {
|
||||
if (!copy($filename, "$temp_dir/bboard.zip")) {
|
||||
error("Could not copy backup file");
|
||||
}
|
||||
if(unzip_file("$temp_dir/bboard.zip", '', false)) {
|
||||
// assuming that the information is in res0001.dat
|
||||
// after looking at 6 examples this was always the case
|
||||
$q_file = "$temp_dir/res00001.dat";
|
||||
if (is_file($q_file)) {
|
||||
if (is_readable($q_file)) {
|
||||
$filearray = file($q_file);
|
||||
/// Check for Macintosh OS line returns (ie file on one line), and fix
|
||||
if (ereg("\r", $filearray[0]) AND !ereg("\n", $filearray[0])) {
|
||||
return explode("\r", $filearray[0]);
|
||||
} else {
|
||||
return $filearray;
|
||||
}
|
||||
return false;
|
||||
}
|
||||
}
|
||||
else {
|
||||
error("Could not find question data file in zip");
|
||||
}
|
||||
}
|
||||
else {
|
||||
print "filename: $filename<br />tempdir: $temp_dir <br />";
|
||||
error("Could not unzip file.");
|
||||
}
|
||||
}
|
||||
else {
|
||||
error ("Could not read uploaded file");
|
||||
}
|
||||
}
|
||||
else {
|
||||
error("Could not create temporary directory");
|
||||
}
|
||||
}
|
||||
|
||||
function save_question_options($question) {
|
||||
return true;
|
||||
}
|
||||
|
||||
|
||||
|
||||
function readquestions ($lines) {
|
||||
/// Parses an array of lines into an array of questions,
|
||||
/// where each item is a question object as defined by
|
||||
/// readquestion().
|
||||
|
||||
$text = implode($lines, " ");
|
||||
$xml = xmlize($text, 0);
|
||||
|
||||
$raw_questions = $xml['questestinterop']['#']['assessment'][0]['#']['section'][0]['#']['item'];
|
||||
$questions = array();
|
||||
|
||||
foreach($raw_questions as $quest) {
|
||||
$question = $this->create_raw_question($quest);
|
||||
switch($question->qtype) {
|
||||
case "Matching":
|
||||
$this->process_matching($question, $questions);
|
||||
break;
|
||||
case "Multiple Choice":
|
||||
$this->process_mc($question, $questions);
|
||||
break;
|
||||
case "Essay":
|
||||
$this->process_essay($question, $questions);
|
||||
break;
|
||||
case "Multiple Answer":
|
||||
$this->process_ma($question, $questions);
|
||||
break;
|
||||
case "True/False":
|
||||
$this->process_tf($question, $questions);
|
||||
break;
|
||||
case 'Fill in the Blank':
|
||||
$this->process_fblank($question, $questions);
|
||||
break;
|
||||
default:
|
||||
print "Unknown or unhandled question type: \"$question->qtype\"<br />";
|
||||
break;
|
||||
}
|
||||
|
||||
}
|
||||
//print_object($questions);
|
||||
return $questions;
|
||||
}
|
||||
|
||||
|
||||
// creates a cleaner object to deal with for processing into moodle
|
||||
// the object created is NOT a moodle question object
|
||||
function create_raw_question($quest) {
|
||||
//print_object($quest);
|
||||
$question = $this->defaultquestion();
|
||||
$question->qtype = $quest['#']['itemmetadata'][0]['#']['bbmd_questiontype'][0]['#'];
|
||||
$presentation->blocks = $quest['#']['presentation'][0]['#']['flow'][0]['#']['flow'];
|
||||
foreach($presentation->blocks as $pblock) {
|
||||
|
||||
$block = NULL;
|
||||
$block->type = $pblock['@']['class'];
|
||||
switch($block->type) {
|
||||
case 'QUESTION_BLOCK':
|
||||
$sub_blocks = $pblock['#']['flow'];
|
||||
foreach($sub_blocks as $sblock) {
|
||||
$this->process_block($sblock, $block);
|
||||
}
|
||||
break;
|
||||
case 'RESPONSE_BLOCK':
|
||||
$choices = NULL;
|
||||
switch($question->qtype) {
|
||||
case 'Matching':
|
||||
$bb_subquestions = $pblock['#']['flow'];
|
||||
$sub_questions = array();
|
||||
foreach($bb_subquestions as $bb_subquestion) {
|
||||
$sub_question = NULL;
|
||||
$sub_question->ident = $bb_subquestion['#']['response_lid'][0]['@']['ident'];
|
||||
$this->process_block($bb_subquestion['#']['flow'][0], $sub_question);
|
||||
$bb_choices = $bb_subquestion['#']['response_lid'][0]['#']['render_choice'][0]['#']['flow_label'][0]['#']['response_label'];
|
||||
$choices = array();
|
||||
$this->process_choices($bb_choices, $choices);
|
||||
$sub_question->choices = $choices;
|
||||
if (!isset($block->subquestions)) {
|
||||
$block->subquestions = array();
|
||||
}
|
||||
$block->subquestions[] = $sub_question;
|
||||
}
|
||||
break;
|
||||
case 'Multiple Answer':
|
||||
$bb_choices = $pblock['#']['response_lid'][0]['#']['render_choice'][0]['#']['flow_label'];
|
||||
$choices = array();
|
||||
$this->process_choices($bb_choices, $choices);
|
||||
$block->choices = $choices;
|
||||
break;
|
||||
case 'Essay':
|
||||
// Doesn't apply since the user responds with text input
|
||||
break;
|
||||
case 'Multiple Choice':
|
||||
$mc_choices = $pblock['#']['response_lid'][0]['#']['render_choice'][0]['#']['flow_label'];
|
||||
foreach($mc_choices as $mc_choice) {
|
||||
$choices = NULL;
|
||||
$this->process_block($mc_choice, $choices);
|
||||
$block->choices[] = $choices;
|
||||
}
|
||||
break;
|
||||
case 'Fill in the Blank':
|
||||
// do nothing?
|
||||
break;
|
||||
default:
|
||||
$bb_choices = $pblock['#']['response_lid'][0]['#']['render_choice'][0]['#']['flow_label'][0]['#']['response_label'];
|
||||
$choices = array();
|
||||
$this->process_choices($bb_choices, $choices);
|
||||
$block->choices = $choices;
|
||||
}
|
||||
break;
|
||||
case 'RIGHT_MATCH_BLOCK':
|
||||
$matching_answerset = $pblock['#']['flow'];
|
||||
$answerset = array();
|
||||
foreach($matching_answerset as $answer) {
|
||||
$this->process_block($answer, $bb_answer);
|
||||
$answerset[] = $bb_answer;
|
||||
}
|
||||
$block->matching_answerset = $answerset;
|
||||
break;
|
||||
default:
|
||||
print "UNHANDLED PRESENTATION BLOCK";
|
||||
break;
|
||||
}
|
||||
$question->{$block->type} = $block;
|
||||
}
|
||||
|
||||
// determine response processing
|
||||
// there is a section called 'outcomes' that I don't know what to do with
|
||||
$resprocessing = $quest['#']['resprocessing'];
|
||||
|
||||
$respconditions = $resprocessing[0]['#']['respcondition'];
|
||||
$reponses = array();
|
||||
if ($question->qtype == 'Matching') {
|
||||
$this->process_matching_responses($respconditions, $responses);
|
||||
}
|
||||
else {
|
||||
$this->process_responses($respconditions, $responses);
|
||||
}
|
||||
$question->responses = $responses;
|
||||
|
||||
$feedbackset = $quest['#']['itemfeedback'];
|
||||
|
||||
$feedbacks = array();
|
||||
$this->process_feedback($feedbackset, $feedbacks);
|
||||
$question->feedback = $feedbacks;
|
||||
|
||||
return $question;
|
||||
}
|
||||
|
||||
function process_block($cur_block, &$block) {
|
||||
$cur_type = $cur_block['@']['class'];
|
||||
global $course, $CFG;
|
||||
switch($cur_type) {
|
||||
case 'FORMATTED_TEXT_BLOCK':
|
||||
$block->text = $this->strip_applet_tags_get_mathml($cur_block['#']['material'][0]['#']['mat_extension'][0]['#']['mat_formattedtext'][0]['#']);
|
||||
break;
|
||||
case 'FILE_BLOCK':
|
||||
//revisit this to make sure it is working correctly
|
||||
$block->file = $cur_block['#']['material'][0]['#']['matapplication'][0]['@']['uri'];
|
||||
if ($block->file != '') {
|
||||
// if we have a file copy it to the course dir and adjust its name to be visible over the web.
|
||||
$block->file = $this->copy_file_to_course($block->file);
|
||||
$block->file = $CFG->wwwroot.'/file.php/'.$course->id.'/bb_import/'.basename($block->file);
|
||||
}
|
||||
break;
|
||||
case 'Block':
|
||||
if (isset($cur_block['#']['material'][0]['#']['mattext'][0]['#'])) {
|
||||
$block->text = $cur_block['#']['material'][0]['#']['mattext'][0]['#'];
|
||||
}
|
||||
else if (isset($cur_block['#']['material'][0]['#']['mat_extension'][0]['#']['mat_formattedtext'][0]['#'])) {
|
||||
$block->text = $cur_block['#']['material'][0]['#']['mat_extension'][0]['#']['mat_formattedtext'][0]['#'];
|
||||
}
|
||||
else if (isset($cur_block['#']['response_label'])) {
|
||||
// this is a response label block
|
||||
$sub_blocks = $cur_block['#']['response_label'][0];
|
||||
if(!isset($block->ident)) {
|
||||
if(isset($sub_blocks['@']['ident'])) {
|
||||
$block->ident = $sub_blocks['@']['ident'];
|
||||
}
|
||||
}
|
||||
foreach($sub_blocks['#']['flow_mat'] as $sub_block) {
|
||||
$this->process_block($sub_block, $block);
|
||||
}
|
||||
}
|
||||
else {
|
||||
if (isset($cur_block['#']['flow_mat']) || isset($cur_block['#']['flow'])) {
|
||||
if (isset($cur_block['#']['flow_mat'])) {
|
||||
$sub_blocks = $cur_block['#']['flow_mat'];
|
||||
}
|
||||
elseif (isset($cur_block['#']['flow'])) {
|
||||
$sub_blocks = $cur_block['#']['flow'];
|
||||
}
|
||||
foreach ($sub_blocks as $sblock) {
|
||||
// this will recursively grab the sub blocks which should be of one of the other types
|
||||
$this->process_block($sblock, $block);
|
||||
}
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 'LINK_BLOCK':
|
||||
// not sure how this should be included
|
||||
if (!empty($cur_block['#']['material'][0]['#']['mattext'][0]['@']['uri'])) {
|
||||
$block->link = $cur_block['#']['material'][0]['#']['mattext'][0]['@']['uri'];
|
||||
}
|
||||
else {
|
||||
$block->link = '';
|
||||
}
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
function process_choices($bb_choices, &$choices) {
|
||||
foreach($bb_choices as $choice) {
|
||||
if (isset($choice['@']['ident'])) {
|
||||
$cur_choice = $choice['@']['ident'];
|
||||
}
|
||||
else {
|
||||
$cur_choice = $choice['#']['response_label'][0]['@']['ident'];
|
||||
}
|
||||
if (isset($choice['#']['flow_mat'][0])) {
|
||||
$cur_block = $choice['#']['flow_mat'][0];
|
||||
$this->process_block($cur_block, $cur_choice);
|
||||
}
|
||||
elseif (isset($choice['#']['response_label'])) {
|
||||
$this->process_block($choice, $cur_choice);
|
||||
}
|
||||
$choices[] = $cur_choice;
|
||||
}
|
||||
}
|
||||
|
||||
function process_matching_responses($bb_responses, &$responses) {
|
||||
//print_object($bb_responses);
|
||||
foreach($bb_responses as $bb_response) {
|
||||
$response = NULL;
|
||||
if (isset($bb_response['#']['conditionvar'][0]['#']['varequal'])) {
|
||||
$response->correct = $bb_response['#']['conditionvar'][0]['#']['varequal'][0]['#'];
|
||||
$response->ident = $bb_response['#']['conditionvar'][0]['#']['varequal'][0]['@']['respident'];
|
||||
}
|
||||
else {
|
||||
$response->correct = 'Broken Question?';
|
||||
$response->ident = 'Broken Question?';
|
||||
}
|
||||
$response->feedback = $bb_response['#']['displayfeedback'][0]['@']['linkrefid'];
|
||||
$responses[] = $response;
|
||||
}
|
||||
}
|
||||
|
||||
function process_responses($bb_responses, &$responses) {
|
||||
foreach($bb_responses as $bb_response) {
|
||||
if (isset($bb_response['@']['title'])) {
|
||||
$response->title = $bb_response['@']['title'];
|
||||
}
|
||||
else {
|
||||
$reponse->title = $bb_response['#']['displayfeedback'][0]['@']['linkrefid'];
|
||||
}
|
||||
$reponse->ident = array();
|
||||
if (isset($bb_response['#']['conditionvar'][0]['#']['varequal'][0]['#'])) {
|
||||
$response->ident[0] = $bb_response['#']['conditionvar'][0]['#']['varequal'][0]['#'];
|
||||
}
|
||||
else if (isset($bb_response['#']['conditionvar'][0]['#']['other'][0]['#'])) {
|
||||
$response->ident[0] = $bb_response['#']['conditionvar'][0]['#']['other'][0]['#'];
|
||||
}
|
||||
|
||||
if (isset($bb_response['#']['conditionvar'][0]['#']['and'][0]['#'])) {
|
||||
$responseset = $bb_response['#']['conditionvar'][0]['#']['and'][0]['#']['varequal'];
|
||||
foreach($responseset as $rs) {
|
||||
$response->ident[] = $rs['#'];
|
||||
if(!isset($response->feedback)) {
|
||||
$response->feedback = $rs['@']['respident'];
|
||||
}
|
||||
}
|
||||
}
|
||||
else {
|
||||
$response->feedback = $bb_response['#']['displayfeedback'][0]['@']['linkrefid'];
|
||||
}
|
||||
|
||||
// determine what point value to give response
|
||||
if (isset($bb_response['#']['setvar'])) {
|
||||
switch ($bb_response['#']['setvar'][0]['#']) {
|
||||
case "SCORE.max":
|
||||
$response->fraction = 1;
|
||||
break;
|
||||
default:
|
||||
// I have only seen this being 0 or unset there are probably fractional values of SCORE.max, but I'm not sure what they look like
|
||||
$response->fraction = 0;
|
||||
break;
|
||||
}
|
||||
}
|
||||
else {
|
||||
// just going to assume this is the case this is probably not correct.
|
||||
$response->fraction = 0;
|
||||
}
|
||||
|
||||
|
||||
$responses[] = $response;
|
||||
}
|
||||
}
|
||||
|
||||
function process_feedback($feedbackset, &$feedbacks) {
|
||||
foreach($feedbackset as $bb_feedback) {
|
||||
$feedback->ident = $bb_feedback['@']['ident'];
|
||||
if (isset($bb_feedback['#']['flow_mat'][0])) {
|
||||
$this->process_block($bb_feedback['#']['flow_mat'][0], $feedback);
|
||||
}
|
||||
elseif (isset($bb_feedback['#']['solution'][0]['#']['solutionmaterial'][0]['#']['flow_mat'][0])) {
|
||||
$this->process_block($bb_feedback['#']['solution'][0]['#']['solutionmaterial'][0]['#']['flow_mat'][0], $feedback);
|
||||
}
|
||||
$feedbacks[] = $feedback;
|
||||
}
|
||||
}
|
||||
|
||||
//----------------------------------------
|
||||
// Process True / False Questions
|
||||
//----------------------------------------
|
||||
function process_tf($quest, &$questions) {
|
||||
$question = $this->defaultquestion();
|
||||
|
||||
$question->qtype = TRUEFALSE;
|
||||
$question->defaultgrade = 1;
|
||||
$question->single = 1; // Only one answer is allowed
|
||||
$question->image = ""; // No images with this format
|
||||
$question->questiontext = addslashes($quest->QUESTION_BLOCK->text);
|
||||
// put name in question object
|
||||
$question->name = $question->questiontext;
|
||||
|
||||
// first choice is true, second is false.
|
||||
if ($quest->responses[0]->fraction == 1) {
|
||||
$correct = true;
|
||||
}
|
||||
else {
|
||||
$correct = false;
|
||||
}
|
||||
|
||||
foreach($quest->feedback as $fb) {
|
||||
$fback->{$fb->ident} = $fb->text;
|
||||
}
|
||||
|
||||
if ($correct) { // true is correct
|
||||
$question->answer = 1;
|
||||
$question->feedbacktrue = addslashes($fback->correct);
|
||||
$question->feedbackfalse = addslashes($fback->incorrect);
|
||||
} else { // false is correct
|
||||
$question->answer = 0;
|
||||
$question->feedbacktrue = addslashes($fback->incorrect);
|
||||
$question->feedbackfalse = addslashes($fback->correct);
|
||||
}
|
||||
$questions[] = $question;
|
||||
}
|
||||
|
||||
|
||||
//----------------------------------------
|
||||
// Process Fill in the Blank
|
||||
//----------------------------------------
|
||||
function process_fblank($quest, &$questions) {
|
||||
$question = $this->defaultquestion();
|
||||
$question->qtype = SHORTANSWER;
|
||||
$question->defaultgrade = 1;
|
||||
$question->single = 1;
|
||||
$question->usecase = 0;
|
||||
$question->image = '';
|
||||
$question->questiontext = addslashes($quest->QUESTION_BLOCK->text);
|
||||
$question->name = $question->questiontext;
|
||||
$answers = array();
|
||||
$fractions = array();
|
||||
$feedbacks = array();
|
||||
|
||||
// extract the feedback
|
||||
$feedback = array();
|
||||
foreach($quest->feedback as $fback) {
|
||||
if (isset($fback->ident)) {
|
||||
$feedback[$fback->ident] = $fback->text;
|
||||
}
|
||||
}
|
||||
|
||||
foreach($quest->responses as $response) {
|
||||
if(isset($response->title)) {
|
||||
$answers[] = addslashes($response->ident[0]);
|
||||
$fractions[] = $response->fraction;
|
||||
if (isset($feedback[$response->feedback])) {
|
||||
$feedbacks[] = addslashes($feedback[$response->feedback]);
|
||||
}
|
||||
else {
|
||||
$feedbacks[] = '';
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
$question->answer = $answers;
|
||||
$question->fraction = $fractions;
|
||||
$question->feedback = $feedback;
|
||||
|
||||
if (isset($question) && $question != '') {
|
||||
$questions[] = $question;
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
//----------------------------------------
|
||||
// Process Multiple Choice Questions
|
||||
//----------------------------------------
|
||||
function process_mc($quest, &$questions) {
|
||||
$question = $this->defaultquestion();
|
||||
$question->qtype = MULTICHOICE;
|
||||
$question->defaultgrade = 1;
|
||||
$question->single = 1;
|
||||
$question->image = "";
|
||||
$question->questiontext = addslashes($quest->QUESTION_BLOCK->text);
|
||||
$question->name = $question->questiontext;
|
||||
|
||||
$feedback = array();
|
||||
foreach($quest->feedback as $fback) {
|
||||
$feedback[$fback->ident] = addslashes($fback->text);
|
||||
}
|
||||
|
||||
|
||||
foreach($quest->responses as $response) {
|
||||
if (isset($response->title)) {
|
||||
if ($response->title == 'correct') {
|
||||
// only one answer possible for this qtype so first index is correct answer
|
||||
$correct = $response->ident[0];
|
||||
}
|
||||
}
|
||||
else {
|
||||
// fallback method for when the title is not set
|
||||
if ($response->feedback == 'correct') {
|
||||
// only one answer possible for this qtype so first index is correct answer
|
||||
$correct = $response->ident[0];
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
$i = 0;
|
||||
foreach($quest->RESPONSE_BLOCK->choices as $response) {
|
||||
$question->answer[$i] = addslashes($response->text);
|
||||
if ($correct == $response->ident) {
|
||||
$question->fraction[$i] = 1;
|
||||
// this is a bit of a hack to catch the feedback... first we see if a 'correct' feedback exists
|
||||
// then specific feedback for this question (maybe this should be switched?, but from my example
|
||||
// question pools I have not seen response specific feedback, only correct or incorrect feedback
|
||||
if (!empty($feedback['correct'])) {
|
||||
$question->feedback[$i] = $feedback['correct'];
|
||||
}
|
||||
elseif (!empty($feedback[$i])) {
|
||||
$question->feedback[$i] = $feedback[$i];
|
||||
}
|
||||
else {
|
||||
// failsafe feedback (should be '' instead?)
|
||||
$question->feedback[$i] = "correct";
|
||||
}
|
||||
}
|
||||
else {
|
||||
$question->fraction[$i] = 0;
|
||||
if (!empty($feedback['incorrect'])) {
|
||||
$question->feedback[$i] = $feedback['incorrect'];
|
||||
}
|
||||
elseif (!empty($feedback[$i])) {
|
||||
$question->feedback[$i] = $feedback[$i];
|
||||
}
|
||||
else {
|
||||
// failsafe feedback (should be '' instead?)
|
||||
$question->feedback[$i] = 'incorrect';
|
||||
}
|
||||
}
|
||||
$i++;
|
||||
}
|
||||
|
||||
if (isset($question) && $question != '') {
|
||||
$questions[] = $question;
|
||||
}
|
||||
}
|
||||
|
||||
//----------------------------------------
|
||||
// Process Multiple Choice Questions With Multiple Answers
|
||||
//----------------------------------------
|
||||
function process_ma($quest, &$questions) {
|
||||
|
||||
$question->questiontext = addslashes($quest->QUESTION_BLOCK->text);
|
||||
$question->name = $question->questiontext;
|
||||
$question->qtype = MULTICHOICE;
|
||||
$question->defaultgrade = 1;
|
||||
$question->single = 0; // More than one answers allowed
|
||||
$question->image = ""; // No images with this format
|
||||
|
||||
$answers = $quest->responses;
|
||||
$correct_answers = array();
|
||||
foreach($answers as $answer) {
|
||||
if($answer->title == 'correct') {
|
||||
$answerset = $answer->ident;
|
||||
foreach($answerset as $ans) {
|
||||
$correct_answers[] = $ans;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
foreach ($quest->feedback as $fb) {
|
||||
$feedback->{$fb->ident} = addslashes(trim($fb->text));
|
||||
}
|
||||
|
||||
$correct_answer_count = count($correct_answers);
|
||||
$choiceset = $quest->RESPONSE_BLOCK->choices;
|
||||
$i = 0;
|
||||
foreach($choiceset as $choice) {
|
||||
$question->answer[$i] = addslashes(trim($choice->text));
|
||||
if (in_array($choice->ident, $correct_answers)) {
|
||||
// correct answer
|
||||
$question->fraction[$i] = floor(100000/$correct_answer_count)/100000; // strange behavior if we have more than 5 decimal places
|
||||
$question->feedback[$i] = $feedback->correct;
|
||||
}
|
||||
else {
|
||||
// wrong answer
|
||||
$question->fraction[$i] = 0;
|
||||
$question->feedback[$i] = $feedback->incorrect;
|
||||
}
|
||||
$i++;
|
||||
}
|
||||
|
||||
$questions[] = $question;
|
||||
}
|
||||
|
||||
//----------------------------------------
|
||||
// Process Essay Questions
|
||||
//----------------------------------------
|
||||
function process_essay($quest, &$questions) {
|
||||
// this should be rewritten to accomodate moodle 1.6 essay question type eventually
|
||||
if (defined("ESSAY")) {
|
||||
// treat as short answer
|
||||
$question->qtype = ESSAY;
|
||||
$question->defaultgrade = 1;
|
||||
$question->usecase = 0; // Ignore case
|
||||
$question->image = ""; // No images with this format
|
||||
$question->questiontext = addslashes(trim($quest->QUESTION_BLOCK->text));
|
||||
$question->name = $question->questiontext;
|
||||
|
||||
print $question->name;
|
||||
|
||||
$question->answer = array();
|
||||
// not sure where to get the correct answer from
|
||||
foreach($quest->feedback as $feedback) {
|
||||
}
|
||||
if (isset($question) && $question != '') {
|
||||
$questions[]=$question;
|
||||
}
|
||||
}
|
||||
else {
|
||||
print "Essay question types are not handled because the quiz question type 'Essay' does not exist in this installation of Moodle<br/>";
|
||||
print " Omitted Question: ".$quest->QUESTION_BLOCK->text.'<br/><br/>';
|
||||
}
|
||||
}
|
||||
|
||||
//----------------------------------------
|
||||
// Process Matching Questions
|
||||
//----------------------------------------
|
||||
function process_matching($quest, &$questions) {
|
||||
if (defined("RENDEREDMATCH")) {
|
||||
$question = $this->defaultquestion($this->defaultquestion());
|
||||
$question->valid = true;
|
||||
$question->qtype = RENDEREDMATCH;
|
||||
$question->defaultgrade = 1;
|
||||
$question->questiontext = addslashes($quest->QUESTION_BLOCK->text);
|
||||
$question->name = $question->questiontext;
|
||||
|
||||
foreach($quest->RESPONSE_BLOCK->subquestions as $qid => $subq) {
|
||||
foreach($quest->responses as $rid => $resp) {
|
||||
if ($resp->ident == $subq->ident) {
|
||||
$correct = addslashes($resp->correct);
|
||||
$feedback = addslashes($resp->feedback);
|
||||
}
|
||||
}
|
||||
|
||||
foreach($subq->choices as $cid => $choice) {
|
||||
if ($choice == $correct) {
|
||||
$question->subquestions[] = addslashes($subq->text);
|
||||
$question->subanswers[] = addslashes($quest->RIGHT_MATCH_BLOCK->matching_answerset[$cid]->text);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
// check format
|
||||
$status = true;
|
||||
if ( count($quest->RESPONSE_BLOCK->subquestions) > count($quest->RIGHT_MATCH_BLOCK->matching_answerset) || count($question->subquestions) < 2) {
|
||||
$status = false;
|
||||
}
|
||||
else {
|
||||
// need to redo to make sure that no two questions have the same answer (rudimentary now)
|
||||
foreach($question->subanswers as $qstn) {
|
||||
if(isset($previous)) {
|
||||
if ($qstn == $previous) {
|
||||
$status = false;
|
||||
}
|
||||
}
|
||||
$previous = $qstn;
|
||||
if ($qstn == '') {
|
||||
$status = false;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if ($status) {
|
||||
$questions[] = $question;
|
||||
}
|
||||
else {
|
||||
global $course, $CFG;
|
||||
print '<table align="center" border="1">';
|
||||
print '<tr><td colspan="2" style="background-color:#FF8888;">This matching question is malformed. Please ensure there are no blank answers, no two questions have the same answer, and/or there are correct answers for each question. There must be at least as many subanswers as subquestions, and at least one subquestion.</td></tr>';
|
||||
|
||||
print "<tr><td>Question:</td><td>".$quest->QUESTION_BLOCK->text;
|
||||
if (isset($quest->QUESTION_BLOCK->file)) {
|
||||
print '<br/><font color="red">There is a subfile contained in the zipfile that has been copied to course files: bb_import/'.basename($quest->QUESTION_BLOCK->file).'</font>';
|
||||
if (preg_match('/(gif|jpg|jpeg|png)$/i', $quest->QUESTION_BLOCK->file)) {
|
||||
print '<img src="'.$CFG->wwwroot.'/file.php/'.$course->id.'/bb_import/'.basename($quest->QUESTION_BLOCK->file).'" />';
|
||||
}
|
||||
}
|
||||
print "</td></tr>";
|
||||
print "<tr><td>Subquestions:</td><td><ul>";
|
||||
foreach($quest->responses as $rs) {
|
||||
$correct_responses->{$rs->ident} = $rs->correct;
|
||||
}
|
||||
foreach($quest->RESPONSE_BLOCK->subquestions as $subq) {
|
||||
print '<li>'.$subq->text.'<ul>';
|
||||
foreach($subq->choices as $id=>$choice) {
|
||||
print '<li>';
|
||||
if ($choice == $correct_responses->{$subq->ident}) {
|
||||
print '<font color="green">';
|
||||
}
|
||||
else {
|
||||
print '<font color="red">';
|
||||
}
|
||||
print $quest->RIGHT_MATCH_BLOCK->matching_answerset[$id]->text.'</font></li>';
|
||||
}
|
||||
print '</ul>';
|
||||
}
|
||||
print '</ul></td></tr>';
|
||||
|
||||
print '<tr><td>Feedback:</td><td><ul>';
|
||||
foreach($quest->feedback as $fb) {
|
||||
print '<li>'.$fb->ident.': '.$fb->text.'</li>';
|
||||
}
|
||||
print '</ul></td></tr></table>';
|
||||
}
|
||||
}
|
||||
else {
|
||||
print "Matching question types are not handled because the quiz question type 'Rendered Matching' does not exist in this installation of Moodle<br/>";
|
||||
print " Omitted Question: ".$quest->QUESTION_BLOCK->text.'<br/><br/>';
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
function strip_applet_tags_get_mathml($string) {
|
||||
if(stristr($string, '</APPLET>') === FALSE) {
|
||||
return $string;
|
||||
}
|
||||
else {
|
||||
// strip all applet tags keeping stuff before/after and inbetween (if mathml) them
|
||||
while (stristr($string, '</APPLET>') !== FALSE) {
|
||||
preg_match("/(.*)\<applet.*value=\"(\<math\>.*\<\/math\>)\".*\<\/applet\>(.*)/i",$string, $mathmls);
|
||||
$string = $mathmls[1].$mathmls[2].$mathmls[3];
|
||||
}
|
||||
return $string;
|
||||
}
|
||||
}
|
||||
|
||||
} // close object
|
||||
?>
|
||||
Reference in New Issue
Block a user