From: thetrinity Date: Sat, 10 Jan 2004 09:50:14 +0000 (+0000) Subject: Converted to UNIX file type. X-Git-Url: http://git.mjollnir.org/gw?a=commitdiff_plain;h=7692b869ef8889d7be646c7e2a55eb90a7b3380a;p=moodle.git Converted to UNIX file type. --- diff --git a/mod/quiz/format/gift/examples.txt b/mod/quiz/format/gift/examples.txt index fa95be6d2b..3fcf7fe779 100644 --- a/mod/quiz/format/gift/examples.txt +++ b/mod/quiz/format/gift/examples.txt @@ -1 +1,149 @@ -// EXAMPLE QUESTIONS for the GIFT import filter // by Paul Tsuchido Shew, January 2004. //-----------------------------------------// // EXAMPLES FROM DESCRIPTION //-----------------------------------------// 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} When was Ulysses S. Grant born?{#1822:1} //-----------------------------------------// // EXAMPLES FROM DOCUMENTATION //-----------------------------------------// // ===Multiple Choice=== Who's buried in Grant's tomb?{~Grant ~Jefferson =no one} Grant is {~buried =entombed ~living} in Grant's tomb. The American holiday of Thanksgiving is celebrated on the { ~second ~third =fourth } Thursday of November. Japanese characters originally came from what country? { ~India =China ~Korea ~Egypt} // ===Short Answer=== Who's buried in Grant's tomb?{=no one =nobody} Two plus two equals {=four =4}. // ===True-False=== Grant is buried in Grant's tomb.{F} The sun rises in the east.{T} // ===Numerical=== When was Ulysses S. Grant born? {#1822} What is the value of pi (to 3 decimal places)? {#3.1415:0.0005}. What is the value of pi (to 3 decimal places)? {#3.141..3.142}. When was Ulysses S. Grant born? {# =1822:0 =%50%1822:2} // OPTIONS // ===Inline Comments=== // Subheading: Numerical questions below What's 2 plus 2? {#4} // ===Question Name=== ::Kanji Origins::Japanese characters originally came from what country? {=China} ::Thanksgiving Date::The American holiday of Thanksgiving is celebrated on the {~second ~third =fourth} Thursday of November. // ===Feedback=== What's the answer to this multiple-choice question?{ ~wrong answer#feedback comment on the wrong answer ~another wrong answer#feedback comment on this wrong answer =right answer#Very good!} Who's buried in Grant's tomb?{ =no one#excellent answer! =nobody#excellent answer!} // ===Percentage Answer Weights=== Grant is buried in Grant's tomb.{FALSE#No one is buried in Grant's tomb.} Difficult question.{~wrong answer ~%50%half credit answer =full credit answer} ::Jesus' hometown::Jesus Christ was from { ~Jerusalem#This was an important city, but the wrong answer. ~%25%Bethlehem#He was born here, but not raised here. ~%50%Galilee#You need to be more specific. =Nazareth#Yes! That's right!}. ::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.} // ===Multiple Answers=== What two people are entombed in Grant's tomb? { ~No one ~%50%Grant ~%50%Grant's wife ~Grant's father } What two people are entombed in Grant's tomb? { ~%-50%No one ~%50%Grant ~%50%Grant's wife ~%-50%Grant's father } //-----------------------------------------// // EXAMPLES FROM gift/format.php //-----------------------------------------// ::Grant's Tomb::Grant is { ~buried#No one is buried there. =entombed#Right answer! ~living#We hope not! } in Grant's tomb. Difficult multiple choice question.{ ~wrong answer #comment on wrong answer ~%50%half credit answer #comment on answer =full credit answer #well done!} ::Jesus' hometown (Short answer ex.):: 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 comment will be ignored by the filter ::Numerical example:: When was Ulysses S. Grant born? {# =1822:0 #Correct! 100% credit =%50%1822:2 #He was born in 1822. You get 50% credit for being close. } \ No newline at end of file +// EXAMPLE QUESTIONS for the GIFT import filter +// by Paul Tsuchido Shew, January 2004. + +//-----------------------------------------// +// EXAMPLES FROM DESCRIPTION +//-----------------------------------------// + +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} + +When was Ulysses S. Grant born?{#1822:1} + + +//-----------------------------------------// +// EXAMPLES FROM DOCUMENTATION +//-----------------------------------------// + +// ===Multiple Choice=== + +Who's buried in Grant's tomb?{~Grant ~Jefferson =no one} + +Grant is {~buried =entombed ~living} in Grant's tomb. + +The American holiday of Thanksgiving is celebrated on the { + ~second + ~third + =fourth +} Thursday of November. + +Japanese characters originally came from what country? { + ~India + =China + ~Korea + ~Egypt} + +// ===Short Answer=== + +Who's buried in Grant's tomb?{=no one =nobody} + +Two plus two equals {=four =4}. + +// ===True-False=== + +Grant is buried in Grant's tomb.{F} + +The sun rises in the east.{T} + +// ===Numerical=== + +When was Ulysses S. Grant born? {#1822} + +What is the value of pi (to 3 decimal places)? {#3.1415:0.0005}. + +What is the value of pi (to 3 decimal places)? {#3.141..3.142}. + +When was Ulysses S. Grant born? {# + =1822:0 + =%50%1822:2} + +// OPTIONS + +// ===Inline Comments=== + +// Subheading: Numerical questions below +What's 2 plus 2? {#4} + + +// ===Question Name=== + +::Kanji Origins::Japanese characters originally +came from what country? {=China} + +::Thanksgiving Date::The American holiday of Thanksgiving is +celebrated on the {~second ~third =fourth} Thursday of November. + +// ===Feedback=== + +What's the answer to this multiple-choice question?{ +~wrong answer#feedback comment on the wrong answer +~another wrong answer#feedback comment on this wrong answer +=right answer#Very good!} + +Who's buried in Grant's tomb?{ +=no one#excellent answer! +=nobody#excellent answer!} + +// ===Percentage Answer Weights=== +Grant is buried in Grant's tomb.{FALSE#No one is buried in Grant's tomb.} + +Difficult question.{~wrong answer ~%50%half credit answer =full credit answer} + +::Jesus' hometown::Jesus Christ was from { + ~Jerusalem#This was an important city, but the wrong answer. + ~%25%Bethlehem#He was born here, but not raised here. + ~%50%Galilee#You need to be more specific. + =Nazareth#Yes! That's right!}. + +::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.} + +// ===Multiple Answers=== + +What two people are entombed in Grant's tomb? { + ~No one + ~%50%Grant + ~%50%Grant's wife + ~Grant's father } + +What two people are entombed in Grant's tomb? { + ~%-50%No one + ~%50%Grant + ~%50%Grant's wife + ~%-50%Grant's father } + +//-----------------------------------------// +// EXAMPLES FROM gift/format.php +//-----------------------------------------// + +::Grant's Tomb::Grant is { + ~buried#No one is buried there. + =entombed#Right answer! + ~living#We hope not! +} in Grant's tomb. + +Difficult multiple choice question.{ + ~wrong answer #comment on wrong answer + ~%50%half credit answer #comment on answer + =full credit answer #well done!} + +::Jesus' hometown (Short answer ex.):: 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 comment will be ignored by the filter +::Numerical example:: +When was Ulysses S. Grant born? {# + =1822:0 #Correct! 100% credit + =%50%1822:2 #He was born in 1822. + You get 50% credit for being close. +} \ No newline at end of file diff --git a/mod/quiz/format/gift/format.php b/mod/quiz/format/gift/format.php index 862fbd13ea..ccde563c79 100755 --- a/mod/quiz/format/gift/format.php +++ b/mod/quiz/format/gift/format.php @@ -1 +1,387 @@ - 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; define("GIFT_ANSWERWEIGHT_REGEX", "^%\-*([0-9]{1,2})\.?([0-9]*)%"); // REMOVED COMMENTED LINES and IMPLODE foreach ($lines as $key => $line) { $line = trim($line); if (substr($line, 0, 2) == "//") { // echo "Commented line removed.
"; $lines[$key] = " "; } } $text = trim(implode(" ", $lines)); if ($text == "") { // echo "

Empty line.

"; return false; } // QUESTION NAME parser 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 = trim(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 "

$text

Could not find a {"; } return false; } $answerfinish = strpos($text, "}"); if ($answerfinish === false) { if ($this->displayerrors) { echo "

$text

Could not find a }"; } return false; } $answerlength = $answerfinish - $answerstart; $answertext = trim(substr($text, $answerstart + 1, $answerlength - 1)); // Format 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(trim(substr_replace($text, "", $answerstart, $answerlength+1))); } else { // inserts blank line for missing word format $question->questiontext = addslashes(trim(substr_replace($text, "_____", $answerstart, $answerlength+1))); } // set question name if not already set if ($question->name === false) { $question->name = $question->questiontext; } // determine QUESTION TYPE $question->qtype = NULL; if ($answertext{0} == "#"){ $question->qtype = NUMERICAL; } elseif (strstr($answertext, "~") !== false) { // only Multiplechoice questions contain tilde ~ $question->qtype = MULTICHOICE; } else { // either TRUEFALSE or SHORTANSWER // TRUEFALSE question check $truefalse_check = $answertext; if (strpos($answertext,"#") > 0){ // strip comments to check for TrueFalse question $truefalse_check = trim(substr($answertext, 0, strpos($answertext,"#"))); } $valid_tf_answers = array("T", "TRUE", "F", "FALSE"); if (in_array($truefalse_check, $valid_tf_answers)) { $question->qtype = TRUEFALSE; } else { // Must be SHORTANSWER $question->qtype = SHORTANSWER; } } if (!isset($question->qtype)) { if ($this->displayerrors) { echo "

$text

Question type not set."; } return false; } switch ($question->qtype) { case MULTICHOICE: if (strpos($answertext,"=") === false) { $question->single = 0; // multiple answers are enabled if no single answer is 100% correct } else { $question->single = 1; // only one answer allowed (the default) } $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) { if ($this->displayerrors) { echo "

$text

Found tilde for multiple choice, but too few answers for Multiple Choice.
Found $countanswers answers in answertext."; } return false; break; } foreach ($answers as $key => $answer) { $answer = trim($answer); // determine answer weight if ($answer[0] == "=") { $answer_weight = 1; $answer = substr($answer, 1); } elseif (ereg(GIFT_ANSWERWEIGHT_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; $question->feedback[$key] = $this->commentparser($answer); // commentparser also removes comment from $answer $question->answer[$key] = addslashes($answer); } // end foreach answer $question->defaultgrade = 1; $question->image = ""; // No images with this format return $question; break; case TRUEFALSE: $answer = $answertext; $comment = $this->commentparser($answer); // commentparser also removes comment from $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 } $question->defaultgrade = 1; $question->image = ""; // No images with this format return $question; break; case SHORTANSWER: // 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 "

$text

Found equals=, but no answers in answertext"; } return false; break; } foreach ($answers as $key => $answer) { $answer = trim($answer); // Answer Weight if (ereg(GIFT_ANSWERWEIGHT_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; $question->feedback[$key] = $this->commentparser($answer); //commentparser also removes comment from $answer $question->answer[$key] = addslashes($answer); } // end foreach $question->usecase = 0; // Ignore case $question->defaultgrade = 1; $question->image = ""; // No images with this format return $question; break; case NUMERICAL: // Note similarities to ShortAnswer $answertext = substr($answertext, 1); // remove leading "#" $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 "

$text

No answers found in answertext (Numerical answer)"; } return false; break; } foreach ($answers as $key => $answer) { $answer = trim($answer); // Answer weight if (ereg(GIFT_ANSWERWEIGHT_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; $question->feedback[$key] = $this->commentparser($answer); //commentparser also removes comment from $answer //Calculate Answer and Min/Max values if (strpos($answer,"..") > 0) { // optional [min]..[max] format $marker = strpos($answer,".."); $question->max[$key] = trim(substr($answer, $marker+2)); $question->min[$key] = trim(substr($answer, 0, $marker)); $question->answer[$key] = ($question->max[$key] + $question->min[$key])/2; } elseif (strpos($answer,":") > 0){ // standard [answer]:[errormargin] format $marker = strpos($answer,":"); $errormargin = trim(substr($answer, $marker+1)); $question->answer[$key] = trim(substr($answer, 0, $marker)); $question->max[$key] = $question->answer[$key] + $errormargin; $question->min[$key] = $question->answer[$key] - $errormargin; } else { // only one valid answer (zero errormargin) $errormargin = 0; $question->answer[$key] = trim($answer); $question->max[$key] = $question->answer[$key] + $errormargin; $question->min[$key] = $question->answer[$key] - $errormargin; } if (!is_numeric($question->answer[$key]) OR !is_numeric($question->max[$key]) OR !is_numeric($question->max[$key])) { if ($this->displayerrors) { echo "

$text

For numerical questions, answer must be numbers.

Answer: $answer

ErrorMargin: $errormargin ."; } return false; break; } } // end foreach $question->defaultgrade = 1; $question->image = ""; // No images with this format return $question; break; default: if ($this->displayerrors) { echo "

$text

No valid question type. Error in switch(question->qtype)"; } return false; break; } // end switch ($question->qtype) } // end function readquestion($lines) } ?> \ No newline at end of file + 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; + define("GIFT_ANSWERWEIGHT_REGEX", "^%\-*([0-9]{1,2})\.?([0-9]*)%"); + + // REMOVED COMMENTED LINES and IMPLODE + foreach ($lines as $key => $line) { + $line = trim($line); + if (substr($line, 0, 2) == "//") { + // echo "Commented line removed.
"; + $lines[$key] = " "; + } + } + + $text = trim(implode(" ", $lines)); + + if ($text == "") { + // echo "

Empty line.

"; + return false; + } + + // QUESTION NAME parser + 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 = trim(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 "

$text

Could not find a {"; + } + return false; + } + + $answerfinish = strpos($text, "}"); + if ($answerfinish === false) { + if ($this->displayerrors) { + echo "

$text

Could not find a }"; + } + return false; + } + + $answerlength = $answerfinish - $answerstart; + $answertext = trim(substr($text, $answerstart + 1, $answerlength - 1)); + + // Format 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(trim(substr_replace($text, "", $answerstart, $answerlength+1))); + } else { + // inserts blank line for missing word format + $question->questiontext = addslashes(trim(substr_replace($text, "_____", $answerstart, $answerlength+1))); + } + + // set question name if not already set + if ($question->name === false) { + $question->name = $question->questiontext; + } + + + // determine QUESTION TYPE + $question->qtype = NULL; + + if ($answertext{0} == "#"){ + $question->qtype = NUMERICAL; + + } elseif (strstr($answertext, "~") !== false) { + // only Multiplechoice questions contain tilde ~ + $question->qtype = MULTICHOICE; + + } else { // either TRUEFALSE or SHORTANSWER + + // TRUEFALSE question check + $truefalse_check = $answertext; + if (strpos($answertext,"#") > 0){ + // strip comments to check for TrueFalse question + $truefalse_check = trim(substr($answertext, 0, strpos($answertext,"#"))); + } + + $valid_tf_answers = array("T", "TRUE", "F", "FALSE"); + if (in_array($truefalse_check, $valid_tf_answers)) { + $question->qtype = TRUEFALSE; + + } else { // Must be SHORTANSWER + $question->qtype = SHORTANSWER; + } + } + + if (!isset($question->qtype)) { + if ($this->displayerrors) { + echo "

$text

Question type not set."; + } + return false; + } + + switch ($question->qtype) { + case MULTICHOICE: + if (strpos($answertext,"=") === false) { + $question->single = 0; // multiple answers are enabled if no single answer is 100% correct + } else { + $question->single = 1; // only one answer allowed (the default) + } + + $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) { + if ($this->displayerrors) { + echo "

$text

Found tilde for multiple choice, + but too few answers for Multiple Choice.
+ Found $countanswers answers in answertext."; + } + return false; + break; + } + + foreach ($answers as $key => $answer) { + $answer = trim($answer); + + // determine answer weight + if ($answer[0] == "=") { + $answer_weight = 1; + $answer = substr($answer, 1); + + } elseif (ereg(GIFT_ANSWERWEIGHT_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; + $question->feedback[$key] = $this->commentparser($answer); // commentparser also removes comment from $answer + $question->answer[$key] = addslashes($answer); + } // end foreach answer + + $question->defaultgrade = 1; + $question->image = ""; // No images with this format + return $question; + break; + + case TRUEFALSE: + $answer = $answertext; + $comment = $this->commentparser($answer); // commentparser also removes comment from $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 + } + $question->defaultgrade = 1; + $question->image = ""; // No images with this format + return $question; + break; + + case SHORTANSWER: + // 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 "

$text

Found equals=, but no answers in answertext"; + } + return false; + break; + } + + foreach ($answers as $key => $answer) { + $answer = trim($answer); + + // Answer Weight + if (ereg(GIFT_ANSWERWEIGHT_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; + $question->feedback[$key] = $this->commentparser($answer); //commentparser also removes comment from $answer + $question->answer[$key] = addslashes($answer); + } // end foreach + + $question->usecase = 0; // Ignore case + $question->defaultgrade = 1; + $question->image = ""; // No images with this format + return $question; + break; + + case NUMERICAL: + // Note similarities to ShortAnswer + $answertext = substr($answertext, 1); // remove leading "#" + + $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 "

$text

No answers found in answertext (Numerical answer)"; + } + return false; + break; + } + + foreach ($answers as $key => $answer) { + $answer = trim($answer); + + // Answer weight + if (ereg(GIFT_ANSWERWEIGHT_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; + $question->feedback[$key] = $this->commentparser($answer); //commentparser also removes comment from $answer + + //Calculate Answer and Min/Max values + if (strpos($answer,"..") > 0) { // optional [min]..[max] format + $marker = strpos($answer,".."); + $question->max[$key] = trim(substr($answer, $marker+2)); + $question->min[$key] = trim(substr($answer, 0, $marker)); + $question->answer[$key] = ($question->max[$key] + $question->min[$key])/2; + + } elseif (strpos($answer,":") > 0){ // standard [answer]:[errormargin] format + $marker = strpos($answer,":"); + $errormargin = trim(substr($answer, $marker+1)); + $question->answer[$key] = trim(substr($answer, 0, $marker)); + $question->max[$key] = $question->answer[$key] + $errormargin; + $question->min[$key] = $question->answer[$key] - $errormargin; + + } else { // only one valid answer (zero errormargin) + $errormargin = 0; + $question->answer[$key] = trim($answer); + $question->max[$key] = $question->answer[$key] + $errormargin; + $question->min[$key] = $question->answer[$key] - $errormargin; + } + + if (!is_numeric($question->answer[$key]) + OR !is_numeric($question->max[$key]) + OR !is_numeric($question->max[$key])) { + if ($this->displayerrors) { + echo "

$text

For numerical questions, answer must be numbers. +

Answer: $answer

ErrorMargin: $errormargin ."; + } + return false; + break; + } + + } // end foreach + + $question->defaultgrade = 1; + $question->image = ""; // No images with this format + return $question; + break; + + default: + if ($this->displayerrors) { + echo "

$text

No valid question type. Error in switch(question->qtype)"; + } + return false; + break; + + } // end switch ($question->qtype) + + } // end function readquestion($lines) +} + +?>