L-electron-Rare/moodle
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

WebCT import can now deal with escaped colons in the text bug 1182

Browse Source
This commit is contained in:
moodler
2004-03-25 14:50:25 +00:00
parent b4ac9780fe
commit 9421aca0cd
1 changed files with 7 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mod/quiz/format/webct/format.php
+7 -16
View File
@@ -85,50 +85,41 @@ class quiz_file_format extends quiz_default_format {
unset($questiontext);
}
else {
$questiontext .= $line;
$questiontext .= str_replace('\:', ':', $line);
continue;
}
}
if (is_string($answertext)) {
if (ereg("^:",$line)) {
if ($bIsHTMLText) {
$answertext = unhtmlentities($answertext); // answer as HTML text not supported by Moddle
}
$answertext = addslashes(trim($answertext));
$question->answer[$currentchoice] = $answertext;
unset($answertext);
}
else {
$answertext .= $line;
$answertext .= str_replace('\:', ':', $line);
continue;
}
}
if (is_string($responstext)) {
if (ereg("^:",$line)) {
if ($bIsHTMLText) {
$responstext = unhtmlentities($responstext); // answer as HTML text not supported by Moddle
}
$question->subquestions[$currentchoice] = addslashes(trim($responstext));
unset($responstext);
}
else {
$responstext .= $line;
$responstext .= str_replace('\:', ':', $line);
continue;
}
}
if (is_string($feedbacktext)) {
if (ereg("^:",$line)) {
if ($bIsHTMLText) {
$feedbacktext = unhtmlentities($feedbacktext); // feedback as HTML text not supported by Moddle
}
$question->feedback[$currentchoice] = addslashes(trim($feedbacktext));
unset($feedbacktext);
}
else {
$feedbacktext .= $line;
$feedbacktext .= str_replace('\:', ':', $line);
continue;
}
}
@@ -160,9 +151,9 @@ class quiz_file_format extends quiz_default_format {
$errors[] = get_string("missingquestion", "quiz", $nQuestionStartLine);
$QuestionOK = FALSE;
}
if (sizeof($question->answer) <= 1) { // a question must have at last 2 answers
$errors[] = get_string("missinganswer", "quiz", $nQuestionStartLine);
$QuestionOK = FALSE;
if (empty($question->answer)) { // a question must have at least 1 answer
$errors[] = get_string("missinganswer", "quiz", $nQuestionStartLine);
$QuestionOK = FALSE;
}
else {
// Perform string length check