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) } ?>