<?PHP // $Id$
////////////////////////////////////////////////////////////////////
-/// Default class for file imports/exports. //
+/// format.php - Default format class for file imports/exports. //
/// //
/// Doesn't do everything on it's own -- it needs to be extended. //
////////////////////////////////////////////////////////////////////
-// Included by ../import.php
+// Included by import.php
class quiz_default_format {
+++ /dev/null
-This directory contains plug-in sub-modules to add
-import-export formats to Moodle quizzes.
-
-Each sub-module is a file containing a class that
-contains functions for reading, writing, importing
-and exporting quiz questions.
--- /dev/null
+QUIZ FILE FORMATS FOR IMPORT/EXPORT
+------------------------------------
+
+This directory contains plug-in sub-modules to add
+import-export formats to Moodle quizzes.
+
+Each sub-module must contain at least a format.php file
+containing a class that contains functions for reading,
+writing, importing and exporting quiz questions.
+
+Most of them are based on the class found in mod/quiz/format.php
+
--- /dev/null
+<?PHP // $Id$
+
+///
+/// Written by Tom Robb <tom@robb.net> 2 November 2003
+///
+
+////////////////////////////////////////////////////////////////////////////
+/// AIKEN FORMAT
+///
+/// This Moodle class provides all functions necessary to import and export
+/// one-correct-answer multiple choice questions in this format:
+///
+/// Question text
+/// A) Choice #1
+/// B) Choice #2
+/// C) Choice #3
+/// D) Choice #4
+/// ANSWER: B
+/// (blank line next not necessary since "AN" at the beginning of a line
+/// triggers the question input and causes input to start all over.
+///
+///Only ONE correct answer is allowed with no feedback responses.
+///
+///Be sure to reword "All of the above" type questions as "All of these" (etc.) so that choices can
+/// be randomized
+///
+///This should work on WIN, Mac and Unix although only tested on Mac
+///
+////////////////////////////////////////////////////////////////////////////
+
+// Based on format.php, included by ../../import.php
+
+class quiz_file_format extends quiz_default_format {
+
+//will this override default function?
+ function readquestions($lines){
+ $questions = array();
+ $endchar = chr(13);
+ foreach ($lines as $line) {
+ $stp = strpos($line,$endchar,0);
+ $newlines = explode($endchar,$line);
+ $foundQ = 0;
+ for ($i=0; $i < count($newlines);$i++){
+ $nowline = addslashes($newlines[$i]);
+ ///Go through the arrage and build an object called $question
+ ///When done, add $question to $questions
+ if (strlen($nowline)< 2) {
+ continue;
+ }
+ // This will show everyline when file is being processed
+ // print("$nowline<br>");
+ $leader = substr(ltrim($nowline),0,2);
+ if (strpos(".A)B)C)D)E)F)G)H)I)J)A.B.C.D.E.F.G.H.I.J.",$leader)>0){
+ //trim off the label and space
+ $question->answer[] = substr($nowline,3);
+ $question->fraction[] = 0;
+ continue;
+ }
+ if ($leader == "AN"){
+ $ans = trim(strstr($nowline,":"));
+ $ans = substr($ans,2,1);
+ //A becomes 0 since array starts from 0
+ $rightans = ord($ans) - 65;
+ $question->fraction[$rightans] = 1;
+ $questions[] = $question;
+ //clear array for next question set
+ $question = NULL;
+ continue;
+ } else {
+ //Must be the first line since no leader
+ $question->qtype = MULTICHOICE;
+ $question->name = substr($nowline,0,50);
+ $question->questiontext = $nowline;
+ $question->single = 1;
+ $question->feedback[] = "";
+ $question->usecase = 0; // Ignore case
+ $question->defaultgrade = 1;
+ $question->image = ""; // No images with this format
+ }
+ }
+ }
+ return $questions;
+ }
+
+ function readquestion($lines) {
+ //this is no longer needed but might still be called by default.php
+ return;
+ }
+}
+
+?>
--- /dev/null
+<?PHP // $Id$
+
+////////////////////////////////////////////////////////////////////////////
+/// Academy of Nursing format
+///
+/// Based on missingword.php
+///
+/// This Moodle class provides all functions necessary to import and export
+/// one-correct-answer multiple choice questions in this format:
+///
+/// As soon as we begin to explore our body parts as infants
+/// we become students of {=anatomy and physiology ~reflexology
+/// ~science ~experiment}, and in a sense we remain students for life.
+///
+/// Each answer is separated with a tilde ~, and the correct answer is
+/// prefixed with an equals sign =
+///
+/// Afterwards, all short-answer questions are randomly packed into
+/// 4-answer matching questions.
+///
+////////////////////////////////////////////////////////////////////////////
+
+// Based on format.php, included by ../../import.php
+
+class quiz_file_format extends quiz_default_format {
+
+ function readquestion($lines) {
+ /// Given an array of lines known to define a question in
+ /// this format, this function converts it into a question
+ /// object suitable for processing and insertion into Moodle.
+
+ $question = NULL;
+
+ $text = implode($lines, " ");
+
+ /// Find answer section
+
+ $answerstart = strpos($text, "{");
+ if ($answerstart === false) {
+ if ($this->displayerrors) {
+ echo "<P>$text<P>Could not find a {";
+ }
+ return false;
+ }
+
+ $answerfinish = strpos($text, "}");
+ if ($answerfinish === false) {
+ if ($this->displayerrors) {
+ echo "<P>$text<P>Could not find a }";
+ }
+ return false;
+ }
+
+ $answerlength = $answerfinish - $answerstart;
+ $answertext = substr($text, $answerstart + 1, $answerlength - 1);
+
+ /// Save the new question text
+ $question->questiontext = addslashes(substr_replace($text, "_____", $answerstart, $answerlength+1));
+ $question->name = substr($question->questiontext, 0, 60)." ...";
+
+
+ /// Parse the answers
+ $answers = explode("~", $answertext);
+
+ $countanswers = count($answers);
+
+ switch ($countanswers) {
+ case 0: // invalid question
+ if ($this->displayerrors) {
+ echo "<P>No answers found in $answertext";
+ }
+ return false;
+
+ case 1:
+ $question->qtype = SHORTANSWER;
+
+ $answer = trim($answers[0]);
+ if ($answer[0] == "=") {
+ $answer = substr($answer, 1);
+ }
+ $question->answer[] = addslashes($answer);
+ $question->fraction[] = 1;
+ $question->feedback[] = "";
+
+ $question->usecase = 0; // Ignore case
+ $question->defaultgrade = 1;
+ $question->image = ""; // No images with this format
+ return $question;
+
+ default:
+ $question->qtype = MULTICHOICE;
+
+ $answers = swapshuffle($answers);
+ foreach ($answers as $key => $answer) {
+ $answer = trim($answer);
+ if ($answer[0] == "=") {
+ $question->fraction[$key] = 1;
+ $answer = substr($answer, 1);
+ } else {
+ $question->fraction[$key] = 0;
+ }
+ $question->answer[$key] = addslashes($answer);
+ $question->feedback[$key] = "";
+ }
+
+ $question->defaultgrade = 1;
+ $question->single = 1; // Only one answer is allowed
+ $question->image = ""; // No images with this format
+ return $question;
+ }
+ }
+
+ function importpostprocess() {
+ /// Goes through the questionids, looking for shortanswer questions
+ /// and converting random groups of 4 into matching questions.
+
+ /// Doesn't handle shortanswer questions with more than one answer
+
+ global $CFG;
+
+ print_heading(count($this->questionids)." ".get_string("questions", "quiz"));
+
+ $questionids = implode(',', $this->questionids);
+
+ if (!$shortanswers = get_records_select("quiz_questions",
+ "id IN ($questionids) AND qtype = ".SHORTANSWER,
+ "", "id,qtype")) {
+ return true;
+ }
+
+
+ $shortanswerids = array();
+ foreach ($shortanswers as $key => $shortanswer) {
+ $shortanswerids[] = $key;
+ }
+
+ $strmatch = get_string("match", "quiz")." (".$this->category->name.")";
+
+ $shortanswerids = swapshuffle($shortanswerids);
+ $count = $shortanswercount = count($shortanswerids);
+ $i = 1;
+ $matchcount = 0;
+
+ $question->category = $this->category->id;
+ $question->qtype = MATCH;
+ $question->questiontext = get_string("randomsamatchintro", "quiz");
+ $question->image = "";
+
+ while ($count > 4) {
+ $matchcount++;
+ $question->name = "$strmatch $i";
+ $question->subquestions = array();
+ $question->subanswers = array();
+
+ $extractids = implode(',', array_splice($shortanswerids, -4));
+ $count = count($shortanswerids);
+
+ $extracts = get_records_sql("SELECT q.questiontext, a.answer
+ FROM {$CFG->prefix}quiz_questions q,
+ {$CFG->prefix}quiz_shortanswer sa,
+ {$CFG->prefix}quiz_answers a
+ WHERE q.id in ($extractids)
+ AND sa.question = q.id
+ AND a.id = sa.answers");
+
+ if (count($extracts) != 4) {
+ print_object($extracts);
+ notify("Could not find exactly four shortanswer questions with ids: $extractids");
+ continue;
+ }
+
+ $question->stamp = make_unique_id_code(); // Set the unique code (not to be changed)
+ $question->version = 1; // Original version of this question
+
+ if (!$question->id = insert_record("quiz_questions", $question)) {
+ error("Could not insert new question!");
+ }
+
+ foreach ($extracts as $shortanswer) {
+ $question->subquestions[] = addslashes($shortanswer->questiontext);
+ $question->subanswers[] = addslashes($shortanswer->answer);
+ }
+
+ $result = quiz_save_question_options($question);
+
+ if (!empty($result->error)) {
+ notify("Error: $result->error");
+ }
+
+ if (!empty($result->notice)) {
+ notify($result->notice);
+ }
+
+ /// Delete the old short-answer questions
+
+ execute_sql("DELETE FROM {$CFG->prefix}quiz_questions WHERE id IN ($extractids)", false);
+ execute_sql("DELETE FROM {$CFG->prefix}quiz_shortanswer WHERE question IN ($extractids)", false);
+ execute_sql("DELETE FROM {$CFG->prefix}quiz_answers WHERE question IN ($extractids)", false);
+
+ }
+
+ if ($count) { /// Delete the remaining ones
+ foreach ($shortanswerids as $shortanswerid) {
+ delete_records("quiz_questions", "id", $shortanswerid);
+ delete_records("quiz_shortanswer", "question", $shortanswerid);
+ delete_records("quiz_answers", "question", $shortanswerid);
+ }
+ }
+ $info = "$shortanswercount ".get_string("shortanswer", "quiz").
+ " => $matchcount ".get_string("match", "quiz");
+
+ print_heading($info);
+
+ $options['category'] = $this->category->id;
+ echo "<center>";
+ print_single_button("multiple.php", $options, get_string("randomcreate", "quiz"));
+ echo "</center>";
+
+ return true;
+ }
+
+}
+
+?>
--- /dev/null
+<?PHP // $Id$
+////////////////////////////////////////////////////////////////////////////
+/// Blackboard 6.0 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 quiz_file_format extends quiz_default_format {
+
+/********************************
+ Need to re-compile php with zip support before testing this
+
+ function readdata($filename) {
+ /// Returns complete file with an array, one item per line
+
+ if (is_readable($filename)) {
+
+ $zip = zip_open($filename);
+ $zip_entry = $zip_read($zip);
+ if (strstr($zip_entry_name($zip_entry), "imsmanifest") == 0)
+ $zip_entry = $zip_read($zip); // skip past manifest file
+
+ if (zip_entry_open($zip, $zip_entry, "r")) {
+
+ $strbuf = zip_entry_read($zip_entry, zip_entry_filesize($zip_entry));
+ $buf = explode("\n", $strbuf);
+ zip_entry_close($zip_entry);
+ zip_close($zip);
+ return $buf;
+
+ } else {
+
+ zip_close($zip);
+ return false;
+
+ }
+
+ }
+
+ return false;
+ }
+
+********************************/
+
+ 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);
+
+ $questions = array();
+
+ process_tf($xml, $questions);
+ process_mc($xml, $questions);
+ process_fib($xml, $questions);
+ process_matching($xml, $questions);
+
+ return $questions;
+ }
+}
+
+//----------------------------------------
+// Process True / False Questions
+//----------------------------------------
+function process_tf($xml, &$questions) {
+
+ $tfquestions = $xml["POOL"]["#"]["QUESTION_TRUEFALSE"];
+
+ for ($i = 0; $i < sizeof ($tfquestions); $i++) {
+
+ $question = NULL;
+
+ $question->qtype = TRUEFALSE;
+ $question->defaultgrade = 1;
+ $question->single = 1; // Only one answer is allowed
+ $question->image = ""; // No images with this format
+
+ $thisquestion = $tfquestions[$i];
+ // put questiontext in question object
+ $question->questiontext = addslashes(trim($thisquestion["#"]["BODY"][0]["#"]["TEXT"][0]["#"]));
+ // put name in question object
+ $question->name = $question->questiontext;
+
+ $choices = $thisquestion["#"]["ANSWER"];
+
+ $correct_answer = $thisquestion["#"]["GRADABLE"][0]["#"]["CORRECTANSWER"][0]["@"]["answer_id"];
+
+ // first choice is true, second is false.
+ $id = $choices[0]["@"]["id"];
+
+ if (strcmp($id, $correct_answer) == 0) { // true is correct
+ $question->answer = 1;
+ $question->feedbacktrue = addslashes(trim($thisquestion["#"]["GRADABLE"][0]["#"]["FEEDBACK_WHEN_CORRECT"][0]["#"]));
+ $question->feedbackfalse = addslashes(trim($thisquestion["#"]["GRADABLE"][0]["#"]["FEEDBACK_WHEN_INCORRECT"][0]["#"]));
+ } else { // false is correct
+ $question->answer = 0;
+ $question->feedbacktrue = addslashes(trim($thisquestion["#"]["GRADABLE"][0]["#"]["FEEDBACK_WHEN_INCORRECT"][0]["#"]));
+ $question->feedbackfalse = addslashes(trim($thisquestion["#"]["GRADABLE"][0]["#"]["FEEDBACK_WHEN_CORRECT"][0]["#"]));
+ }
+ $questions[] = $question;
+ }
+}
+
+//----------------------------------------
+// Process Multiple Choice Questions
+//----------------------------------------
+function process_mc($xml, &$questions) {
+
+ $mcquestions = $xml["POOL"]["#"]["QUESTION_MULTIPLECHOICE"];
+
+ for ($i = 0; $i < sizeof ($mcquestions); $i++) {
+
+ $question = NULL;
+
+ $question->qtype = MULTICHOICE;
+ $question->defaultgrade = 1;
+ $question->single = 1; // Only one answer is allowed
+ $question->image = ""; // No images with this format
+
+ $thisquestion = $mcquestions[$i];
+ // put questiontext in question object
+ $question->questiontext = addslashes(trim($thisquestion["#"]["BODY"][0]["#"]["TEXT"][0]["#"]));
+ // put name of question in question object
+ $question->name = $question->questiontext;
+
+ $choices = $thisquestion["#"]["ANSWER"];
+ for ($j = 0; $j < sizeof ($choices); $j++) {
+
+ $choice = trim($choices[$j]["#"]["TEXT"][0]["#"]);
+ // put this choice in the question object.
+ $question->answer[$j] = addslashes($choice);
+
+ $id = $choices[$j]["@"]["id"];
+ $correct_answer_id = $thisquestion["#"]["GRADABLE"][0]["#"]["CORRECTANSWER"][0]["@"]["answer_id"];
+ // if choice is the answer, give 100%, otherwise give 0%
+ if (strcmp ($id, $correct_answer_id) == 0) {
+ $question->fraction[$j] = 1;
+ $question->feedback[$j] = addslashes(trim($thisquestion["#"]["GRADABLE"][0]["#"]["FEEDBACK_WHEN_CORRECT"][0]["#"]));
+ } else {
+ $question->fraction[$j] = 0;
+ $question->feedback[$j] = addslashes(trim($thisquestion["#"]["GRADABLE"][0]["#"]["FEEDBACK_WHEN_INCORRECT"][0]["#"]));
+ }
+ }
+ $questions[] = $question;
+ }
+}
+
+//----------------------------------------
+// Process Fill in the Blank Questions
+//----------------------------------------
+function process_fib($xml, &$questions) {
+
+ $fibquestions = $xml["POOL"]["#"]["QUESTION_FILLINBLANK"];
+ for ($i = 0; $i < sizeof ($fibquestions); $i++) {
+
+ $question = NULL;
+
+ $question->qtype = SHORTANSWER;
+ $question->defaultgrade = 1;
+ $question->usecase = 0; // Ignore case
+ $question->image = ""; // No images with this format
+
+ $thisquestion = $fibquestions[$i];
+ // put questiontext in question object
+ $question->questiontext = addslashes(trim($thisquestion["#"]["BODY"][0]["#"]["TEXT"][0]["#"]));
+ // put name of question in question object
+ $question->name = $question->questiontext;
+
+ $answer = trim($thisquestion["#"]["ANSWER"][0]["#"]["TEXT"][0]["#"]);
+
+ $question->answer[] = addslashes($answer);
+ $question->fraction[] = 1;
+ $question->feedback[0] = addslashes(trim($thisquestion["#"]["GRADABLE"][0]["#"]["FEEDBACK_WHEN_CORRECT"][0]["#"]));
+ $question->feedback[1] = addslashes(trim($thisquestion["#"]["GRADABLE"][0]["#"]["FEEDBACK_WHEN_INCORRECT"][0]["#"]));
+
+ $questions[] = $question;
+ }
+}
+
+//----------------------------------------
+// Process Matching Questions
+//----------------------------------------
+function process_matching($xml, &$questions) {
+
+ $matchquestions = $xml["POOL"]["#"]["QUESTION_MATCH"];
+ for ($i = 0; $i < sizeof ($matchquestions); $i++) {
+
+ $question = NULL;
+
+ $question->qtype = MATCH;
+ $question->defaultgrade = 1;
+ $question->image = ""; // No images with this format
+
+ $thisquestion = $matchquestions[$i];
+ // put questiontext in question object
+ $question->questiontext = addslashes(trim($thisquestion["#"]["BODY"][0]["#"]["TEXT"][0]["#"]));
+ // put name of question in question object
+ $question->name = $question->questiontext;
+
+ $choices = $thisquestion["#"]["CHOICE"];
+ for ($j = 0; $j < sizeof ($choices); $j++) {
+
+ $subquestion = NULL;
+
+ $choice = $choices[$j]["#"]["TEXT"][0]["#"];
+ $choice_id = $choices[$j]["@"]["id"];
+
+ $question->subanswers[] = addslashes(trim($choice));
+
+ $correctanswers = $thisquestion["#"]["GRADABLE"][0]["#"]["CORRECTANSWER"];
+ for ($k = 0; $k < sizeof ($correctanswers); $k++) {
+
+ if (strcmp($choice_id, $correctanswers[$k]["@"]["choice_id"]) == 0) {
+
+ $answer_id = $correctanswers[$k]["@"]["answer_id"];
+
+ $answers = $thisquestion["#"]["ANSWER"];
+ for ($m = 0; $m < sizeof ($answers); $m++) {
+
+ $answer = $answers[$m];
+ $current_ans_id = $answer["@"]["id"];
+ if (strcmp ($current_ans_id, $answer_id) == 0) {
+
+ $answer = $answer["#"]["TEXT"][0]["#"];
+ $question->subquestions[] = addslashes(trim($answer));
+ break;
+
+ }
+
+ }
+
+ break;
+
+ }
+
+ }
+
+ }
+
+ $questions[] = $question;
+
+ }
+}
+?>
--- /dev/null
+<?PHP // $Id$
+////////////////////////////////////////////////////////////////////
+/// Class for importing course test manager questions. //
+/// //
+/// //
+////////////////////////////////////////////////////////////////////
+
+// Based on format.php, included by ../../import.php
+
+
+class quiz_file_format {
+ function importpreprocess($category) {
+ $this->category = $category; // Important
+ return true;
+ }
+ function importprocess($filename) {
+ global $CFG,$QUIZ_FILE_FORMAT,$strimportquestions,$form,$question_category,$category,$course,$THEME,
+ $hostname, $mdapath, $mdbpath;
+ if ((PHP_OS == "Linux") and isset($hostname)) {
+ $hostname = trim($hostname);
+ // test the ODBC socket server connection
+ // if failure, unset hostname and set hostname_access_error
+ $question_categories = $this->getquestioncategories($mdbpath, $mdapath, $hostname);
+ if (!$question_categories) {
+ $hostname_access_error = $hostname . " ";
+ unset($hostname);
+ } else {
+ $hostname_access_error = 0;
+ }
+ }
+
+ if ((PHP_OS == "Linux") and !isset($hostname)) {
+ // copy the file to a semi-permanent location
+ if (! $basedir = make_upload_directory("$course->id")) {
+ error("The site administrator needs to fix the file permissions for the data directory");
+ }
+ if (!isset($hostname_access_error)) {
+ $bname=basename($filename);
+ $cleanfilename = clean_filename($bname);
+ if ($cleanfilename) {
+ $newfile = "$basedir/$cleanfilename";
+ if (move_uploaded_file($filename, $newfile)) {
+ chmod($newfile, 0666);
+ } else {
+ notify(get_string("uploadproblem", "", $filename));
+ }
+ }
+ $filename = $newfile;
+ }
+ print_heading_with_help($strimportquestions, "import", "quiz");
+ print_simple_box_start("center", "", "$THEME->cellheading");
+ if ($hostname_access_error) { notify("couldn't connect to ODBC Socket Server on " . $hostname_access_error); }
+ echo "<form method=\"post\" action=\"import.php\">";
+ echo "<table cellpadding=5>";
+
+ echo "<tr><td align=right>";
+ echo "What is the hostname or IP address of the ODBC Socket Server:</td><td>";
+ echo " <input name=\"hostname\" type=\"text\" size=\"50\" value=\"".stripslashes($hostname_access_error)."\">";
+ echo " <input name=\"filename\" type=\"hidden\" value=\"".$filename."\">";
+ echo " <input name=\"category\" type=\"hidden\" value=\"".$category->id."\">";
+ echo " <input name=\"format\" type=\"hidden\" value=\"".$form->format."\">";
+ echo "</td><td> </td></tr>";
+ echo "<tr><td align=right>";
+ echo "What is the location of the database (.mdb file) on the Socket Server:</td><td>";
+ echo " <input name=\"mdbpath\" type=\"text\" size=\"50\" value=\"".stripslashes($mdbpath)."\">";
+ echo "</td><td> </td></tr>";
+ echo "<tr><td align=right>";
+ echo "What is the location of the system database (System.mda file) on the Socket Server:</td><td>";
+ echo " <input name=\"mdapath\" type=\"text\" size=\"50\" value=\"".stripslashes($mdapath)."\">";
+ echo "</td><td> </td></tr>";
+ echo "<tr><td> </td><td>";
+ echo " <input type=submit name=save value=\"Connect to Server\">";
+ echo "</td></tr>";
+ echo "</table>";
+ echo "</form>";
+ print_simple_box_end();
+ print_footer($course);
+ exit;
+ }
+
+ // we get here if running windows or after connect to ODBC socket server on linux
+//
+// this generates the page to choose categories of questions to import
+//
+ if (!isset($question_category)) {
+
+ if (PHP_OS == "WINNT") {
+ // copy the file to a semi-permanent location
+ if (! $basedir = make_upload_directory("$course->id")) {
+ error("The site administrator needs to fix the file permissions for the data directory");
+ }
+ $bname=basename($filename);
+ $cleanfilename = clean_filename($bname);
+ if ($cleanfilename) {
+ $newfile = "$basedir/$cleanfilename";
+ if (move_uploaded_file($filename, $newfile)) {
+ chmod($newfile, 0666);
+ } else {
+ notify(get_string("uploadproblem", "", $filename));
+ }
+ }
+ $filename = $newfile;
+ }
+ // end of file copy
+
+ // don't have to do this on linux, since it's alreay been done in the test above
+ if (PHP_OS == "WINNT") { $question_categories = $this->getquestioncategories($filename); }
+ // print the intermediary form
+ if (!$categories = quiz_get_category_menu($course->id, true)) {
+ error("No categories!");
+ }
+ print_heading_with_help($strimportquestions, "import", "quiz");
+ print_simple_box_start("center", "", "$THEME->cellheading");
+ echo "<form method=\"post\" action=\"import.php\">";
+ echo "<table cellpadding=5>";
+ echo "<tr><td align=right>";
+ echo "Choose a category of questions to import:</td><td>";
+ asort($question_categories);
+ choose_from_menu($question_categories, "question_category","All Categories","All Categories", "", "allcategories");
+ echo " <input name=\"filename\" type=\"hidden\" value=\"".$filename."\">";
+ echo " <input name=\"category\" type=\"hidden\" value=\"".$category->id."\">";
+ echo " <input name=\"format\" type=\"hidden\" value=\"".$form->format."\">";
+ if (PHP_OS == "Linux") {
+ echo " <input name=\"hostname\" type=\"hidden\" value=\"".stripslashes(trim($hostname))."\">";
+ echo " <input name=\"mdbpath\" type=\"hidden\" value=\"".stripslashes($mdbpath)."\">";
+ echo " <input name=\"mdapath\" type=\"hidden\" value=\"".stripslashes($mdapath)."\">";
+ }
+ echo "</td><td> </td>";
+ echo "</tr><tr><td> </td><td>";
+ echo " <input type=submit name=save value=\"Import Questions\">";
+ echo "</td></tr>";
+ echo "</table>";
+ echo "</form>";
+ print_simple_box_end();
+ print_footer($course);
+ exit;
+ }
+//
+// this is the main import section
+//
+ notify("Importing questions");
+ if (PHP_OS == "Linux") {
+ $hostname = trim($hostname);
+ $records = $this->getquestions($mdbpath,$question_category,$mdapath, $hostname);
+ } else {
+ $records = $this->getquestions($filename,$question_category);
+ }
+ foreach ($records as $qrec)
+ {
+ $question = NULL;
+ $question->image = ""; // No images with this format
+ if ($qrec[9] != "") {
+ $question->image = $qrec[9];
+ }
+ $question->defaultgrade = 1;
+// 0 Selected
+// 1 PracticeTestOK?
+// 2 QuestionText
+// 3 QuestionType
+// 4 Option1Text
+// 5 Option2Text
+// 6 Option3Text
+// 7 Option4Text
+// 8 CorrectAnswer
+// 9 Graphic
+// 10 Module
+// 11 ChapterNumber
+// 12 PageNumber
+ $ref = "Answer can be found in chapter ". $qrec[11] . ", page " . $qrec[12] . ".";
+ switch ($qrec[3]) {
+ case 1:
+ $question->qtype = MULTICHOICE; // MULTICHOICE, SHORTANSWER, TRUEFALSE
+ // echo "<pre>";echo htmlspecialchars($qrec[2]); echo "</pre>";
+ $question->questiontext = addslashes(trim($qrec[2]));
+ // echo "<pre>";echo $question->questiontext; echo "</pre>";
+ $question->name = preg_replace("/<br>/", "", $question->questiontext);
+ $question->single = 1; // Only one answer is allowed -- used for multiple choicers
+ $fractionset = 0;
+ for ($i=4;$i<=7;$i++) {
+ if ($qrec[$i] != "") {
+ $question->answer[$i-3]=addslashes($qrec[$i]);
+ if ($qrec[8] == $i-3) { // if this is the index of CorrectAnswer
+ $question->fraction[$i-3] = 1;
+ $fractionset = 1;
+ } else {
+ $question->fraction[$i-3] = 0;
+ }
+ $question->feedback[$i-3] = (($qrec[8] == $i-3)?"Correct. ":"Incorrect. ") . $ref;
+ }
+ }
+ if ($fractionset == 0) { $question->fraction[1] = 1; }
+ break;
+ case 2: // TRUE FALSE
+ $question->qtype = TRUEFALSE;
+ $question->questiontext = addslashes(trim($qrec[2]));
+ $question->name = preg_replace("/<br>/", "", $question->questiontext);
+ // for TF, $question->answer should be 1 for true, 0 for false
+ if ($qrec[8] == "T") { $question->answer =1;} else { $question->answer = 0; }
+ // for TF, use $question->feedbacktrue and feedbackfalse
+ $question->feedbacktrue = (($qrec[8] =="T")?"Correct. ":"Incorrect. ") . $ref;
+ $question->feedbackfalse = (($qrec[8] =="F")?"Correct. ":"Incorrect. ") . $ref;
+ break;
+ case 3:
+ $question->qtype = SHORTANSWER;
+ $question->questiontext = addslashes(trim($qrec[2]));
+ // echo "<pre>";echo $question->questiontext; echo "</pre>";
+ $question->name = preg_replace("/<br>/", "", $question->questiontext);
+ $question->usecase=0; // Ignore case -- for SHORT ANSWER questions
+ $answers = explode("~", $qrec[8]);
+ $question->answer[0]=" ";
+ $question->fraction[0]=1;
+ for ($i=0;$i<count($answers);$i++) {
+ $question->answer[$i] = addslashes(trim($answers[$i]));
+ $question->feedback[$i] = $ref;
+ $question->fraction[$i] = 1; // 1 for 100%, 0 for none or somewhere in between
+ }
+ break;
+ case 4:
+ $question = 0;
+ notify("Cannot use essay questions - skipping question ". $qrec[2] . " " . $ref);
+ break;
+ default:
+ $question = 0;
+ notify("Misformatted Record. Question Skipped.");
+ break;
+ }
+ if ($question) { $questions[] = $question; }
+ }
+ $count = 0;
+ // process all the questions
+ if (PHP_OS == "WINNT") {
+ $filename = str_replace("\\\\","\\",$filename);
+ $filename = str_replace("/","\\",$filename);
+ }
+ foreach ($questions as $question) { // Process and store each question
+ $count++;
+ echo "<hr><p><b>$count</b>. ".stripslashes($question->questiontext)."</p>";
+ $question->category = $this->category->id;
+ $question->stamp = make_unique_id_code(); // Set the unique code (not to be changed)
+ $question->version = 1; // Original version of this question
+ if (!$question->id = insert_record("quiz_questions", $question)) {
+ error("Could not insert new question!");
+ }
+ $this->questionids[] = $question->id;
+ // Now to save all the answers and type-specific options
+ $result = quiz_save_question_options($question);
+ if (!empty($result->error)) {
+ notify($result->error);
+ $this->deletedatabase($filename);
+ return false;
+ }
+ if (!empty($result->notice)) {
+ notify($result->notice);
+ $this->deletedatabase($filename);
+ return true;
+ }
+ }
+ $this->deletedatabase($filename);
+ return true;
+ }
+
+ function importpostprocess() {
+ return true;
+ }
+
+ function deletedatabase($filename) {
+ if (! $this->fulldelete($filename)) {
+ echo "<BR>Error: Could not delete: $filename";
+ return false;
+ }
+ return true;
+ }
+
+ function getquestions($filename, $category, $mdapath="", $hostname="") {
+ if (($category == "allcategories") or ($category == "")) {
+ $sql = "SELECT * FROM TBQuestions";
+ } else {
+ $sql = "SELECT * FROM TBQuestions where module = '".$category."'";
+ }
+ if (PHP_OS == "WINNT") {
+ $ldb =& $this->connect_win($filename);
+ $qset = $ldb->Execute("$sql");
+ if ( $qset->RecordCount() > 0 ) {
+ $records = $qset->GetAssoc(true);
+ } else {
+ $this->err("There were no records in the database.",$dsn);
+ $ldb->Close();
+ return false;
+ }
+ $ldb->Close();
+ } else { // if PHP_OS == WINNT
+ // we have a linux installation
+ $result = $this->query_linux($sql,$filename, $mdapath,$hostname);
+ if ( count($result) > 0 ) {
+ // get rid of the ID field in the first column.
+ for($i=0;$i<count($result);$i++) {
+ foreach (array_keys($result[$i]) as $j) {
+ $records[$i][$j-1] = $result[$i][$j];
+ }
+ }
+ } else {
+ $this->err("There were no records in the database.",$dsn);
+ $ldb->Close();
+ return false;
+ }
+ // xml test and connect
+ } // PHP_OS TEST
+ return $records;
+ }
+
+ function getquestioncategories($filename, $mdapath="", $hostname="") {
+ global $CFG, $result;
+ $sql = "SELECT Distinct module FROM TBQuestions";
+ if (PHP_OS == "WINNT") {
+ $ldb =& $this->connect_win($filename);
+ $qset = $ldb->Execute("$sql");
+ if ( $qset->RecordCount() > 0 ) {
+ $records = $qset->GetArray(true);
+ foreach ($records as $record) {
+ $categories[$record[0]] = $record[0];
+ }
+ } else { // if recordcount
+ $this->err("There were no records in the database.",$dsn);
+ $ldb->Close();
+ return false;
+ }
+ $ldb->Close();
+ } else { // if PHP_OS == WINNT
+ // we have a linux installation
+ $result = $this->query_linux($sql, $filename, $mdapath, $hostname);
+ for($i=0;$i<count($result);$i++) {
+ $categories[$result[$i][0]] = $result[$i][0];
+ }
+ } // PHP_OS TEST
+ return $categories;
+ }
+
+ function query_linux($sql, $mdbpath, $mdapath, $hostname) {
+ global $result;
+ include_once("odbcsocketserver.class.php");
+ // set up socket server object to connect to remote host
+ $oTest = new ODBCSocketServer;
+ //Set the Hostname, port, and connection string
+ $oTest->sHostName = $hostname;
+ $oTest->nPort = 9628;
+// $oTest->sConnectionString="DRIVER=Microsoft Access Driver (*.mdb);SystemDB=C:\CTM\System.mda;DBQ=C:\CTM\of2K3\ctm.mdb;UID=Assess;PWD=VBMango;";
+ $oTest->sConnectionString="DRIVER=Microsoft Access Driver (*.mdb);SystemDB=".
+ $mdapath.";DBQ=".$mdbpath.";UID=Assess;PWD=VBMango;";
+ // send and receive XML communication
+ $qResult = $oTest->ExecSQL($sql);
+ // set up XML parser to read the results
+ $xml_parser = xml_parser_create("US-ASCII");
+ xml_set_element_handler($xml_parser, "quiz_xmlstart", "quiz_xmlend");
+ xml_set_character_data_handler($xml_parser, "quiz_xmldata");
+ // parse the XML and get back the result set array
+ if (!xml_parse($xml_parser, $qResult)) {
+ $this->err("XML error: ".xml_error_string(xml_get_error_code($xml_parser))
+ ." at line ".xml_get_current_line_number($xml_parser),$oTest->sConnectionString);
+ return false;
+ } else {
+// echo("Successful XML parse. ");
+ // prepare the array for use in the pull-down
+/* echo "<br>count of rows is ". count ($result);
+ echo "<pre>\n";
+ $qResult = HtmlSpecialChars($qResult);
+ echo $qResult;
+ echo "\n</pre>";
+*/
+ xml_parser_free($xml_parser);
+// $sResult = HtmlSpecialChars($qResult);
+ //echo("<pre>");
+// echo($sResult);
+// echo("</pre>");
+
+ return $result;
+ }
+ }
+
+ function connect_win($filename) {
+ global $CFG, $systemdb;
+ // first, verify the location of System.mda
+ if (!isset($systemdb)) {
+ $systemdb=$this->findfile("System.mda");
+ }
+ if (! $systemdb) {
+ $this->err("The system database System.mda cannot be found. Check that you've uploaded it to the course.",$dsn);
+ die;
+ }
+
+ $ldb = &ADONewConnection('access');
+ $dsn="DRIVER=Microsoft Access Driver (*.mdb);SystemDB=".$systemdb.";DBQ=".$filename.";UID=Assess;PWD=VBMango;";
+ $dbconnected = $ldb->Connect($dsn);
+ if (! $dbconnected) {
+ $this->err("Moodle could not connect to the database.",$dsn);
+ die;
+ }
+ return $ldb;
+ }
+
+ function err($message, $dsn) {
+ echo "<font color=\"#990000\">";
+ echo "<p>Error: $message</p>";
+ echo "<p>ODBC File DSN: $dsn<br />";
+ echo "</font>";
+ }
+
+ function fulldelete($location) {
+ if (is_dir($location)) {
+ $currdir = opendir($location);
+ while ($file = readdir($currdir)) {
+ if ($file <> ".." && $file <> ".") {
+ $fullfile = $location."/".$file;
+ if (is_dir($fullfile)) {
+ if (!fulldelete($fullfile)) {
+ return false;
+ }
+ } else {
+ if (!unlink($fullfile)) {
+ return false;
+ }
+ }
+ }
+ }
+ closedir($currdir);
+ if (! rmdir($location)) {
+ return false;
+ }
+
+ } else {
+ if (!unlink($location)) {
+ return false;
+ }
+ }
+ return true;
+ }
+
+
+ function findfile($filename) {
+ global $CFG;
+ $dirs = $this->getcoursedirs();
+ $dirs[] = $CFG->dirroot."\mod\quiz\format";
+ foreach ($dirs as $dir) {
+ $file = $dir . "\System.mda";
+ // look for System.mda
+ if (is_file($file)) return $file;
+ }
+ return false;
+ }
+
+ function getcoursedirs() {
+ global $CFG;
+ // for every course in the system, find the root of the data directory
+ $courses = get_records_sql("select distinct id,fullname from ".$CFG->prefix."course");
+ $dirs = array();
+ if ($courses) {
+ foreach ($courses as $course) {
+ $dir = $CFG->dataroot . "/" . $course->id;
+ if (is_dir($dir)) { $dirs[] = $dir; }
+ }
+ }
+ return $dirs;
+ }
+
+} // END OF CLASS
+
+ //Handler for starting elements
+ function quiz_xmlstart($parser, $name, $attribs) {
+ global $result,$row, $col, $incolumn;
+ $name = strtolower($name);
+ switch ($name) {
+ case "row":
+ $col=0;break;
+ case "column":
+ $incolumn = 1;break;
+ case "error":
+ break;
+ case "result":
+ $row = 0; break;
+ } // switch
+ }
+
+ //handler for the end of elements
+ function quiz_xmlend($parser, $name) {
+ global $result, $row, $col, $incolumn;
+ $name = strtolower($name);
+ switch ($name) {
+ case "row":
+ $row++;break;
+ case "column":
+ $incolumn = 0;
+ $col++;
+ break;
+ case "error":
+ break;
+ case "result":
+ break;
+ } // switch
+ } // function
+
+ //handler for character data
+ function quiz_xmldata($parser, $data) {
+ global $result, $row, $col, $incolumn;
+ if ($incolumn) { $result[$row][$col] = $result[$row][$col] . $data;
+ }
+ }
+
+?>
+++ /dev/null
-<?PHP // $Id$
-
-////////////////////////////////////////////////////////////////////////////
-/// CUSTOM FORMAT
-///
-/// This format provides a starting point for creating your own
-/// import format.
-///
-/// See default.php for the functions that you may need to override
-/// if you have different needs.
-///
-/// See missingword.php for an example of how it's done, and see
-/// the top of ../lib.php for some constants you might need.
-///
-////////////////////////////////////////////////////////////////////////////
-
-// Based on default.php, included by ../import.php
-
-class quiz_file_format extends quiz_default_format {
-
-
-
-}
-
-?>
--- /dev/null
+<?PHP // gift2
+// version 1.0 BETA 2
+
+////////////////////////////////////////////////////////////////////////////
+/// GIFT: General Import Format Template
+///
+/// The GIFT format is a quick, easy to use method for teachers
+/// writing questions as a text file. It supports true-false,
+/// short answer and multiple-choice questions, as well as insertion
+/// of a blank line for the missing word format. Below are examples
+/// of the following question types: multiple choice, missing word,
+/// true-false and short-answer.
+///
+/// Who's buried in Grant's tomb?{~Grant ~Jefferson =no one}
+/// Grant is {~buried =entombed ~living} in Grant's tomb.
+/// Grant is buried in Grant's tomb.{FALSE}
+/// Who's buried in Grant's tomb?{=no one =nobody}
+///
+/// Optional question names are enclosed in double colon(::).
+/// Answer feedback is indicated with hash mark (#).
+/// Percentage answer weights immediately follow the tilde (for multiple
+/// choice) or equal sign (for short answer), and are enclosed
+/// in percent signs (% %).
+///
+/// ::Grant's Tomb::Grant is {
+/// ~buried#No one is buried there.
+/// =entombed#Right answer!
+/// ~living#We hope not!
+/// } in Grant's tomb.
+///
+/// Difficult question.{~wrong answer#comment on wrong answer
+/// ~%50%half credit answer =full credit answer#well done!}
+///
+/// ::Jesus' hometown:: Jesus Christ was from {
+/// =Nazareth#Yes! That's right!
+/// =%75%Nazereth#Right, but misspelled.
+/// =%25%Bethlehem#He was born here, but not raised here.}
+///
+/// This filter was written through the collaboration of numerous
+/// members of the Moodle community. It was originally based on
+/// the missingword format. In July 2003, Thomas Robb wrote the
+/// original code for the percentage answer weight parser and comment
+/// insertion. Paul Tsuchido Shew rewrote the filter in December 2003
+/// incorporating community suggestions for a more robust question format,
+/// and adding the question name parser, additional question types
+/// and other features.
+//////////////////////////////////////////////////////////////////////////////////
+
+// Based on format.php, included by ../../import.php
+
+class quiz_file_format extends quiz_default_format {
+
+ function answerweightparser(&$answer) {
+ $answer = substr($answer, 1); // removes initial %
+ $end_position = strpos($answer, "%");
+ $answer_weight = substr($answer, 0, $end_position); // gets weight as integer
+ $answer_weight = $answer_weight/100; // converts to percent
+ $answer = substr($answer, $end_position+1); // cleans up answer
+ /// To enable multiple answers (if fractional answer weights are assigned)
+ /// uncomment the following three lines.
+ /// if ($answer_weight > 0 and $answer_weight <> 1){
+ /// $question->single = 0; // ok many good answers
+ /// }
+ return $answer_weight;
+ }
+
+
+ function commentparser(&$answer) {
+ //Answer Comment parser
+ if (strpos($answer,"#") > 0){
+ $hashpos = strpos($answer,"#");
+ $comment = addslashes(substr($answer, $hashpos+1));
+ $answer = substr($answer, 0, $hashpos);
+ } else {
+ $comment = " ";
+ }
+ return $comment;
+ }
+
+
+ function readquestion($lines) {
+ /// Given an array of lines known to define a question in this format, this function
+ /// converts it into a question object suitable for processing and insertion into Moodle.
+
+ $question = NULL;
+ $comment = NULL;
+ $answer_weight_regex = "^%\-*([0-9]{1,2})\.?([0-9]*)%";
+ $text = implode(" ", $lines);
+
+ /// QUESTION NAME parser
+ $text = trim($text);
+ if (substr($text, 0, 2) == "::") {
+ $text = substr($text, 2);
+
+ $namefinish = strpos($text, "::");
+ if ($namefinish === false) {
+ $question->name = false;
+ // name will be assigned after processing question text below
+ } else {
+ $question->name = addslashes(trim(substr($text, 0, $namefinish)));
+ $text = substr($text, $namefinish+2); // Remove name from text
+ }
+ } else {
+ $question->name = false;
+ }
+
+
+ /// FIND ANSWER section
+ $answerstart = strpos($text, "{");
+ if ($answerstart === false) {
+ if ($this->displayerrors) {
+ echo "<P>$text<P>Could not find a {";
+ }
+ return false;
+ }
+
+ $answerfinish = strpos($text, "}");
+ if ($answerfinish === false) {
+ if ($this->displayerrors) {
+ echo "<P>$text<P>Could not find a }";
+ }
+ return false;
+ }
+
+ $answerlength = $answerfinish - $answerstart;
+ $answertext = trim(substr($text, $answerstart + 1, $answerlength - 1));
+
+ /// SAVE QUESTION TEXT without answer, inserting "_____" as necessary
+ if (substr($text, -1) == "}") {
+ /// no blank line if answers follow question, outside of closing punctuation
+ $question->questiontext = addslashes(substr_replace($text, "", $answerstart, $answerlength+1));
+ } else {
+ /// inserts blank line for missing word format
+ $question->questiontext = addslashes(substr_replace($text, "_____", $answerstart, $answerlength+1));
+ }
+
+ /// set question name if not already set
+ if ($question->name === false) {
+ $question->name = $question->questiontext;
+ }
+
+
+ /// ANSWERS
+ // Only Multiple-choice questions contain tilde ~
+ if (strstr($answertext, "~") !== FALSE) { // tilde conditional
+
+ ///MULTIPLE CHOICE
+ $answertext = str_replace("=", "~=", $answertext);
+ $answers = explode("~", $answertext);
+ if (isset($answers[0])) {
+ $answers[0] = trim($answers[0]);
+ }
+ if (empty($answers[0])) {
+ array_shift($answers);
+ }
+
+ $countanswers = count($answers);
+ if ($countanswers < 2) { // MC $countanswers conditional
+ if ($this->displayerrors) {
+ echo "<P>Found tilde, but " . $countanswers . " answers in $answertext";
+ }
+ return false;
+ } else { // MC $countanswers conditional
+
+ $question->qtype = MULTICHOICE;
+ $question->single = 1; // Only one answer allowed by default
+
+ foreach ($answers as $key => $answer) {
+ $answer = trim($answer);
+
+ // determine answer weight
+ if ($answer[0] == "=") {
+ $answer_weight = 1;
+ $answer = substr($answer, 1);
+
+ } elseif (ereg($answer_weight_regex, $answer)) { // check for properly formatted answer weight
+ $answer_weight = $this->answerweightparser($answer);
+
+ } else { //default, i.e., wrong anwer
+ $answer_weight = 0;
+ }
+ $question->fraction[$key] = $answer_weight;
+
+ $comment = $this->commentparser($answer); // commentparser also cleans up $answer
+ $question->feedback[$key] = $comment;
+
+ $question->answer[$key] = addslashes($answer);
+ } // end foreach answer
+
+ $question->defaultgrade = 1;
+ $question->image = ""; // No images with this format
+ return $question;
+ } // end MC $countanswers conditional
+
+ /// Otherwise, begin parsing other question-types
+ } else { // tilde conditional
+
+ /// TRUEFALSE Question
+ $TF_check = $answertext;
+ if (strpos($answertext,"#") > 0){
+ // strip comments to check for TrueFalse question
+ $TF_check = trim(substr($answertext, 0, strpos($answertext,"#")));
+ }
+
+ if (($TF_check == "T") // TrueFalse/ShortAnswer QuestionType conditional
+ OR ($TF_check == "TRUE")
+ OR ($TF_check == "F")
+ OR ($TF_check == "FALSE")) {
+ $answer = $answertext;
+ $question->qtype = TRUEFALSE;
+ $comment = $this->commentparser($answer); // commentparser also cleans up $answer
+
+ if ($answer == "T" OR $answer == "TRUE") {
+ $question->answer = 1;
+ $question->feedbackfalse = $comment; //feedback if answer is wrong
+ } else {
+ $question->answer = 0;
+ $question->feedbacktrue = $comment; //feedback if answer is wrong
+ }
+
+
+ } else { // TrueFalse/ShortAnswer QuestionType conditional
+
+ /// SHORTANSWER Question
+ $answers = explode("=", $answertext);
+ if (isset($answers[0])) {
+ $answers[0] = trim($answers[0]);
+ }
+ if (empty($answers[0])) {
+ array_shift($answers);
+ }
+
+ if (count($answers) == 0) {
+ /// invalid question
+ if ($this->displayerrors) {
+ echo "<P>Found equals=, but no answers in $answertext";
+ }
+ return false;
+ } else {
+
+ $question->qtype = SHORTANSWER;
+ $question->usecase = 0; // Ignore case
+
+ foreach ($answers as $key => $answer) {
+ $answer = trim($answer);
+
+ // Answer Weight
+ if (ereg($answer_weight_regex, $answer)) { // check for properly formatted answer weight
+ $answer_weight = $this->answerweightparser($answer);
+ } else { //default, i.e., full-credit anwer
+ $answer_weight = 1;
+ }
+ $question->fraction[$key] = $answer_weight;
+
+ $comment = $this->commentparser($answer); //commentparser also cleans up $answer
+ $question->feedback[$key] = $comment;
+
+ $question->answer[$key] = addslashes($answer);
+ } // end foreach
+ } // end ount($answers) conditional
+
+ } // end TrueFalse/ShortAnswer QuestionType conditional
+
+ $question->defaultgrade = 1;
+ $question->image = ""; // No images with this format
+ return $question;
+
+ } // end tilde conditional
+
+ } // end function readquestion($lines)
+}
+
+?>
+
--- /dev/null
+<?PHP // $Id$
+/// Modified by Tom Robb 12 June 2003 to include percentage and comment insertion
+/// facility.
+
+////////////////////////////////////////////////////////////////////////////
+/// MISSING WORD FORMAT
+///
+/// This Moodle class provides all functions necessary to import and export
+/// one-correct-answer multiple choice questions in this format:
+///
+/// As soon as we begin to explore our body parts as infants
+/// we become students of {=anatomy and physiology ~reflexology
+/// ~science ~experiment}, and in a sense we remain students for life.
+///
+/// Each answer is separated with a tilde ~, and the correct answer is
+/// prefixed with an equals sign =
+///
+/// Percentage weights can be included by following the tilde with the
+/// desired percent. Comments can be included for each choice by following
+/// the comment with a hash mark ("#") and the comment. Example:
+///
+/// This is {=the best answer#comment on the best answer ~75%a good
+/// answer#comment on the good answer ~a wrong one#comment on the bad answer}
+///
+////////////////////////////////////////////////////////////////////////////
+
+// Based on format.php, included by ../../import.php
+
+class quiz_file_format extends quiz_default_format {
+
+ function readquestion($lines) {
+ /// Given an array of lines known to define a question in
+ /// this format, this function converts it into a question
+ /// object suitable for processing and insertion into Moodle.
+
+ $question = NULL;
+ ///$comment added by T Robb
+ $comment = NULL;
+ $text = implode(" ", $lines);
+
+ /// Find answer section
+
+ $answerstart = strpos($text, "{");
+ if ($answerstart === false) {
+ if ($this->displayerrors) {
+ echo "<P>$text<P>Could not find a {";
+ }
+ return false;
+ }
+
+ $answerfinish = strpos($text, "}");
+ if ($answerfinish === false) {
+ if ($this->displayerrors) {
+ echo "<P>$text<P>Could not find a }";
+ }
+ return false;
+ }
+
+ $answerlength = $answerfinish - $answerstart;
+ $answertext = substr($text, $answerstart + 1, $answerlength - 1);
+
+ /// Save the new question text
+ $question->questiontext = addslashes(substr_replace($text, "_____", $answerstart, $answerlength+1));
+ $question->name = $question->questiontext;
+
+
+ /// Parse the answers
+ $answertext = str_replace("=", "~=", $answertext);
+ $answers = explode("~", $answertext);
+ if (isset($answers[0])) {
+ $answers[0] = trim($answers[0]);
+ }
+ if (empty($answers[0])) {
+ array_shift($answers);
+ }
+
+ $countanswers = count($answers);
+
+ switch ($countanswers) {
+ case 0: // invalid question
+ if ($this->displayerrors) {
+ echo "<P>No answers found in $answertext";
+ }
+ return false;
+
+ case 1:
+ $question->qtype = SHORTANSWER;
+
+ $answer = trim($answers[0]);
+ if ($answer[0] == "=") {
+ $answer = substr($answer, 1);
+ }
+ $question->answer[] = addslashes($answer);
+ $question->fraction[] = 1;
+ $question->feedback[] = "";
+
+ $question->usecase = 0; // Ignore case
+ $question->defaultgrade = 1;
+ $question->image = ""; // No images with this format
+ return $question;
+
+ default:
+ $question->qtype = MULTICHOICE;
+
+ foreach ($answers as $key => $answer) {
+ $answer = trim($answer);
+
+ // Tom's addition starts here
+ $answeight = 0;
+ if (strspn($answer,"1234567890%") > 0){
+ //Make sure that the percent sign is the last in the span
+ if (strpos($answer,"%") == strspn($answer,"1234567890%") - 1) {
+ $answeight0 = substr($answer,0,strspn($answer,"1234567890%"));
+ $answeight = round(($answeight0/100),2);
+ $answer = substr($answer,(strspn($answer,"1234567890%")));
+ }
+ }
+ if ($answer[0] == "="){
+ $answeight = 1;
+ }
+ //remove the protective underscore for leading numbers in answers
+ if ($answer[0] == "_"){
+ $answer = substr($answer, 1);
+ }
+ $answer = trim($answer);
+
+ if (strpos($answer,"#") > 0){
+ $hashpos = strpos($answer,"#");
+ $comment = addslashes(substr(($answer),$hashpos+1));
+ $answer = substr($answer,0,$hashpos);
+ } else {
+ $comment = " ";
+ }
+ // End of Tom's addition
+
+ if ($answer[0] == "=") {
+# $question->fraction[$key] = 1;
+ $question->fraction[$key] = $answeight;
+ $answer = substr($answer, 1);
+ } else {
+# $question->fraction[$key] = 0;
+ $question->fraction[$key] = $answeight;
+ }
+ $question->answer[$key] = addslashes($answer);
+ $question->feedback[$key] = $comment;
+ }
+
+ $question->defaultgrade = 1;
+ $question->single = 1; // Only one answer is allowed
+ $question->image = ""; // No images with this format
+ return $question;
+ }
+ }
+}
+
+?>
--- /dev/null
+<?PHP // $Id$
+
+////////////////////////////////////////////////////////////////////////////
+/// MULTIANSWER FORMAT
+///
+/// Created by Henrik Kaipe
+///
+////////////////////////////////////////////////////////////////////////////
+
+// Based on format.php, included by ../../import.php
+
+ // REGULAR EXPRESSION CONSTANTS
+ // I do not know any way to make this easier
+ // Regexes are always awkard when defined but more comprehensible
+ // when used as constants in the executive code
+
+// ANSWER_ALTERNATIVE regexes
+
+define("ANSWER_ALTERNATIVE_FRACTION_REGEX",
+ '=|%(-?[0-9]+)%');
+define("ANSWER_ALTERNATIVE_ANSWER_REGEX",
+ '[^~#}]+');
+define("ANSWER_ALTERNATIVE_FEEDBACK_REGEX",
+ '[^~}]*');
+define("ANSWER_ALTERNATIVE_REGEX",
+ '(' . ANSWER_ALTERNATIVE_FRACTION_REGEX .')?'
+ . '(' . ANSWER_ALTERNATIVE_ANSWER_REGEX . ')'
+ . '(#(' . ANSWER_ALTERNATIVE_FEEDBACK_REGEX .'))?');
+
+// Parenthesis positions for ANSWER_ALTERNATIVE_REGEX
+define("ANSWER_ALTERNATIVE_REGEX_PERCENTILE_FRACTION", 2);
+define("ANSWER_ALTERNATIVE_REGEX_FRACTION", 1);
+define("ANSWER_ALTERNATIVE_REGEX_ANSWER", 3);
+define("ANSWER_ALTERNATIVE_REGEX_FEEDBACK", 5);
+
+// NUMBER_FORMATED_ALTERNATIVE_ANSWER_REGEX is used
+// for identifying numerical answers in ANSWER_ALTERNATIVE_REGEX_ANSWER
+define("NUMBER_REGEX",
+ '-?(([0-9]+[.,]?[0-9]*|[.,][0-9]+)([eE][-+]?[0-9]+)?)');
+define("NUMERICAL_ALTERNATIVE_REGEX",
+ '^(' . NUMBER_REGEX . ')(:' . NUMBER_REGEX . ')?$');
+
+// Parenthesis positions for NUMERICAL_FORMATED_ALTERNATIVE_ANSWER_REGEX
+define("NUMERICAL_CORRECT_ANSWER", 1);
+define("NUMERICAL_ABS_ERROR_MARGIN", 6);
+
+// Remaining ANSWER regexes
+define("ANSWER_TYPE_DEF_REGEX",
+ '(NUMERICAL|NM)|(MULTICHOICE|MC)|(SHORTANSWER|SA|MW)');
+define("ANSWER_START_REGEX",
+ '\{([0-9]*):(' . ANSWER_TYPE_DEF_REGEX . '):');
+
+define("ANSWER_REGEX",
+ ANSWER_START_REGEX
+ . '(' . ANSWER_ALTERNATIVE_REGEX
+ . '(~'
+ . ANSWER_ALTERNATIVE_REGEX
+ . ')*)}' );
+
+// Parenthesis positions for singulars in ANSWER_REGEX
+define("ANSWER_REGEX_NORM", 1);
+define("ANSWER_REGEX_ANSWER_TYPE_NUMERICAL", 3);
+define("ANSWER_REGEX_ANSWER_TYPE_MULTICHOICE", 4);
+define("ANSWER_REGEX_ANSWER_TYPE_SHORTANSWER", 5);
+define("ANSWER_REGEX_ALTERNATIVES", 6);
+
+
+function extractMultiAnswerQuestion($text) {
+ $question = NULL;
+ $question->qtype= MULTIANSWER;
+ $question->questiontext= $text;
+ $question->answers= array();
+ $question->defaultgrade = 0; // Will be increased for each answer norm
+
+ for ($positionkey=1
+ ; ereg(ANSWER_REGEX, $question->questiontext, $answerregs)
+ ; ++$positionkey )
+ {
+ unset($multianswer);
+
+ $multianswer->positionkey = $positionkey;
+ $multianswer->norm = $answerregs[ANSWER_REGEX_NORM]
+ or $multianswer->norm = '1';
+ if ($answerregs[ANSWER_REGEX_ANSWER_TYPE_NUMERICAL]) {
+ $multianswer->answertype = NUMERICAL;
+ } else if($answerregs[ANSWER_REGEX_ANSWER_TYPE_SHORTANSWER]) {
+ $multianswer->answertype = SHORTANSWER;
+ } else if($answerregs[ANSWER_REGEX_ANSWER_TYPE_MULTICHOICE]){
+ $multianswer->answertype = MULTICHOICE;
+ } else {
+ error("Cannot identify answertype $answerregs[2]");
+ return false;
+ }
+
+ $multianswer->alternatives= array();
+ $remainingalts = $answerregs[ANSWER_REGEX_ALTERNATIVES];
+ while (ereg(ANSWER_ALTERNATIVE_REGEX, $remainingalts, $altregs)) {
+ unset($alternative);
+
+ if ('=' == $altregs[ANSWER_ALTERNATIVE_REGEX_FRACTION]) {
+ $alternative->fraction = '1';
+ } else {
+ $alternative->fraction = .01 *
+ $altregs[ANSWER_ALTERNATIVE_REGEX_PERCENTILE_FRACTION]
+ or $alternative->fraction = '0';
+ }
+ $alternative->feedback = $altregs[ANSWER_ALTERNATIVE_REGEX_FEEDBACK];
+ if ($answerregs[ANSWER_REGEX_ANSWER_TYPE_NUMERICAL]
+ && ereg(NUMERICAL_ALTERNATIVE_REGEX,
+ $altregs[ANSWER_ALTERNATIVE_REGEX_ANSWER],
+ $numregs) )
+ {
+ $alternative->answer = $numregs[NUMERICAL_CORRECT_ANSWER];
+ if ($numregs[NUMERICAL_ABS_ERROR_MARGIN]) {
+ $alternative->min = $numregs[NUMERICAL_CORRECT_ANSWER]
+ - $numregs[NUMERICAL_ABS_ERROR_MARGIN];
+ $alternative->max = $numregs[NUMERICAL_CORRECT_ANSWER]
+ + $numregs[NUMERICAL_ABS_ERROR_MARGIN];
+ } else {
+ $alternative->min = $numregs[NUMERICAL_CORRECT_ANSWER];
+ $alternative->max = $numregs[NUMERICAL_CORRECT_ANSWER];
+ }
+ } else { // Min and max must stay undefined...
+ $alternative->answer =
+ $altregs[ANSWER_ALTERNATIVE_REGEX_ANSWER];
+ }
+
+ $multianswer->alternatives[] = $alternative;
+ $tmp = explode($altregs[0], $remainingalts, 2);
+ $remainingalts = $tmp[1];
+ }
+
+ $question->defaultgrade += $multianswer->norm;
+ $question->answers[] = $multianswer;
+ $question->questiontext = implode("{#$positionkey}",
+ explode($answerregs[0], $question->questiontext, 2));
+ }
+ return $question;
+}
+
+class quiz_file_format extends quiz_default_format {
+
+ function readquestions($lines) {
+ /// Parses an array of lines into an array of questions.
+ /// For this class the method has been simplified as
+ /// there can never be more than one question for a
+ /// multianswer import
+
+ $questions= array();
+ $thequestion= extractMultiAnswerQuestion(implode('',$lines));
+
+ if (!empty($thequestion)) {
+ $thequestion->name = $lines[0];
+
+ $questions[] = $thequestion;
+ }
+
+ return $questions;
+ }
+}
+
+?>
--- /dev/null
+<?PHP // $Id$
+
+////////////////////////////////////////////////////////////////////////////
+/// IMS QTI FORMAT
+////////////////////////////////////////////////////////////////////////////
+
+// Based on format.php, included by ../../import.php
+
+class quiz_file_format extends quiz_default_format {
+
+ function importpreprocess($category) {
+ global $CFG;
+
+ error("Sorry, this format is not yet implemented!", "$CFG->wwwroot/mod/quiz/import.php?category=$category->id");
+ }
+
+}
+
+?>
--- /dev/null
+<?PHP // $Id$
+
+////////////////////////////////////////////////////////////////////////////
+/// WEBCT FORMAT
+////////////////////////////////////////////////////////////////////////////
+
+// Based on format.php, included by ../../import.php
+
+class quiz_file_format extends quiz_default_format {
+
+ function importpreprocess($category) {
+ global $CFG;
+
+ error("Sorry, this format is not yet implemented!", "$CFG->wwwroot/mod/quiz/import.php?category=$category->id");
+ }
+
+}
+
+?>
} else { // Valid file is found
- if (! is_readable("format/$form->format".".php")) {
+ if (! is_readable("format/$form->format/format.php")) {
error("Format not known ($form->format)");
}
- require("format/default.php"); // Parent class
- require("format/$form->format".".php");
+ require("format.php"); // Parent class
+ require("format/$form->format/format.php");
$format = new quiz_file_format();
error("No categories!");
}
+ $fileformats = get_list_of_plugins("mod/quiz/format");
+ $fileformatname = array();
+ foreach ($fileformats as $key => $fileformat) {
+ $formatname = get_string($fileformat, 'quiz');
+ if ($formatname == "[[$fileformat]]") {
+ $formatname = $fileformat; // Just use the raw folder name
+ }
+ $fileformatnames[$fileformat] = $formatname;
+ }
+ natcasesort($fileformatnames);
+
+
print_heading_with_help($strimportquestions, "import", "quiz");
print_simple_box_start("center", "", "$THEME->cellheading");
echo "<tr><td align=right>";
print_string("category", "quiz");
echo ":</td><td>";
- asort($QUIZ_FILE_FORMAT);
choose_from_menu($categories, "category", "$category->id", "");
echo "</tr>";
echo "<tr><td align=right>";
print_string("fileformat", "quiz");
echo ":</td><td>";
- choose_from_menu($QUIZ_FILE_FORMAT, "format", "custom", "");
+ choose_from_menu($fileformatnames, "format", "gift", "");
helpbutton("import", $strimportquestions, "quiz");
echo "</tr>";
MULTIANSWER => get_string("multianswer", "quiz")
);
-$QUIZ_FILE_FORMAT = array ( "custom" => get_string("custom", "quiz"),
- "missingword" => get_string("missingword", "quiz"),
- "blackboard" => get_string("blackboard", "quiz"),
- "aon" => "AON",
- "aiken" => "Aiken",
- "multianswer" => get_string("multianswer", "quiz"),
- "coursetestmanager" => "Course Test Manager"
- );
define("QUIZ_PICTURE_MAX_HEIGHT", "600"); // Not currently implemented
define("QUIZ_PICTURE_MAX_WIDTH", "600"); // Not currently implemented
projects / moodle.git / commitdiff