Skip to content

Commit

Permalink
Don't try to recode empty answers.
Browse files Browse the repository at this point in the history
  • Loading branch information
gustav_delius committed Mar 19, 2006
1 parent 96e5e2e commit b2315a9
Showing 1 changed file with 150 additions and 153 deletions.
303 changes: 150 additions & 153 deletions question/restorelib.php
View file
Original file line number Diff line number Diff line change
Expand Up @@ -624,179 +624,176 @@ function question_states_restore_mods($attempt_id,$info,$restore) {
error("Can't find the record for question $state->question for which I am trying to restore a state");
}
//Depending on the qtype, we make different recodes
switch ($question->qtype) {
case 1: //SHORTANSWER QTYPE
//Nothing to do. The response is a text.
break;
case 2: //TRUEFALSE QTYPE
//The answer is one answer id. We must recode it
$answer = backup_getid($restore->backup_unique_code,"question_answers",$state->answer);
if ($answer) {
$state->answer = $answer->new_id;
} else {
echo 'Could not recode truefalse answer id '.$state->answer.' for state '.$oldid.'<br />';
}
break;
case 3: //MULTICHOICE QTYPE
$pos = strpos($state->answer, ':');
$order = array();
$responses = array();
if (false === $pos) { // No order of answers is given, so use the default
if ($state->answer) {
$responses = explode(',', $state->answer);
}
} else {
$order = explode(',', substr($state->answer, 0, $pos));
if ($responsestring = substr($state->answer, $pos + 1)) {
$responses = explode(',', $responsestring);
if ($state->answer) {
switch ($question->qtype) {
case 1: //SHORTANSWER QTYPE
//Nothing to do. The response is a text.
break;
case 2: //TRUEFALSE QTYPE
//The answer is one answer id. We must recode it
$answer = backup_getid($restore->backup_unique_code,"question_answers",$state->answer);
if ($answer) {
$state->answer = $answer->new_id;
} else {
echo 'Could not recode truefalse answer id '.$state->answer.' for state '.$oldid.'<br />';
}
}
if ($order) {
foreach ($order as $key => $oldansid) {
$answer = backup_getid($restore->backup_unique_code,"question_answers",$oldansid);
if ($answer) {
$order[$key] = $answer->new_id;
} else {
echo 'Could not recode multichoice answer id '.$oldansid.' for state '.$oldid.'<br />';
break;
case 3: //MULTICHOICE QTYPE
$pos = strpos($state->answer, ':');
$order = array();
$responses = array();
if (false === $pos) { // No order of answers is given, so use the default
if ($state->answer) {
$responses = explode(',', $state->answer);
}
} else {
$order = explode(',', substr($state->answer, 0, $pos));
if ($responsestring = substr($state->answer, $pos + 1)) {
$responses = explode(',', $responsestring);
}
}
}
if ($responses) {
foreach ($responses as $key => $oldansid) {
$answer = backup_getid($restore->backup_unique_code,"question_answers",$oldansid);
if ($answer) {
$responses[$key] = $answer->new_id;
} else {
echo 'Could not recode multichoice response answer id '.$oldansid.' for state '.$oldid.'<br />';
if ($order) {
foreach ($order as $key => $oldansid) {
$answer = backup_getid($restore->backup_unique_code,"question_answers",$oldansid);
if ($answer) {
$order[$key] = $answer->new_id;
} else {
echo 'Could not recode multichoice answer id '.$oldansid.' for state '.$oldid.'<br />';
}
}
}
}
$state->answer = implode(',', $order).':'.implode(',', $responses);
break;
case 4: //RANDOM QTYPE
//The answer links to another question id, we must recode it
$answer_link = backup_getid($restore->backup_unique_code,"question",$state->answer);
if ($answer_link) {
$state->answer = $answer_link->new_id;
} else {
echo 'Could not recode random question link '.$state->answer.' for state '.$oldid.'<br />';
}
break;
case 5: //MATCH QTYPE
//The answer is a comma separated list of hypen separated math_subs (for question and answer)
$answer_field = "";
$in_first = true;
$tok = strtok($state->answer,",");
while ($tok) {
//Extract the match_sub for the question and the answer
$exploded = explode("-",$tok);
$match_question_id = $exploded[0];
$match_answer_code = $exploded[1];
//Get the match_sub from backup_ids (for the question)
if (!$match_que = backup_getid($restore->backup_unique_code,"question_match_sub",$match_question_id)) {
echo 'Could not recode question_match_sub '.$match_question_id.'<br />';
if ($responses) {
foreach ($responses as $key => $oldansid) {
$answer = backup_getid($restore->backup_unique_code,"question_answers",$oldansid);
if ($answer) {
$responses[$key] = $answer->new_id;
} else {
echo 'Could not recode multichoice response answer id '.$oldansid.' for state '.$oldid.'<br />';
}
}
}
if ($in_first) {
$answer_field .= $match_que->new_id."-".$match_answer_code;
$in_first = false;
$state->answer = implode(',', $order).':'.implode(',', $responses);
break;
case 4: //RANDOM QTYPE
//The answer links to another question id, we must recode it
$answer_link = backup_getid($restore->backup_unique_code,"question",$state->answer);
if ($answer_link) {
$state->answer = $answer_link->new_id;
} else {
$answer_field .= ",".$match_que->new_id."-".$match_answer_code;
echo 'Could not recode random question link '.$state->answer.' for state '.$oldid.'<br />';
}
//check for next
$tok = strtok(",");
}
$state->answer = $answer_field;
break;
case 6: //RANDOMSAMATCH QTYPE
//The answer is a comma separated list of hypen separated question_id and answer_id. We must recode them
$answer_field = "";
$in_first = true;
$tok = strtok($state->answer,",");
while ($tok) {
//Extract the question_id and the answer_id
$exploded = explode("-",$tok);
$question_id = $exploded[0];
$answer_id = $exploded[1];
//Get the question from backup_ids
if (!$que = backup_getid($restore->backup_unique_code,"question",$question_id)) {
echo 'Could not recode randomsamatch question '.$question_id.'<br />';
}
//Get the answer from backup_ids
if (!$ans = backup_getid($restore->backup_unique_code,"question_answers",$answer_id)) {
echo 'Could not recode randomsamatch answer '.$answer_id.'<br />';
break;
case 5: //MATCH QTYPE
//The answer is a comma separated list of hypen separated math_subs (for question and answer)
$answer_field = "";
$in_first = true;
$tok = strtok($state->answer,",");
while ($tok) {
//Extract the match_sub for the question and the answer
$exploded = explode("-",$tok);
$match_question_id = $exploded[0];
$match_answer_code = $exploded[1];
//Get the match_sub from backup_ids (for the question)
if (!$match_que = backup_getid($restore->backup_unique_code,"question_match_sub",$match_question_id)) {
echo 'Could not recode question_match_sub '.$match_question_id.'<br />';
}
if ($in_first) {
$answer_field .= $match_que->new_id."-".$match_answer_code;
$in_first = false;
} else {
$answer_field .= ",".$match_que->new_id."-".$match_answer_code;
}
//check for next
$tok = strtok(",");
}
if ($que) {
//It the question hasn't response, it must be 0
if (!$ans and $answer_id == 0) {
$state->answer = $answer_field;
break;
case 6: //RANDOMSAMATCH QTYPE
//The answer is a comma separated list of hypen separated question_id and answer_id. We must recode them
$answer_field = "";
$in_first = true;
$tok = strtok($state->answer,",");
while ($tok) {
//Extract the question_id and the answer_id
$exploded = explode("-",$tok);
$question_id = $exploded[0];
$answer_id = $exploded[1];
//Get the question from backup_ids
if (!$que = backup_getid($restore->backup_unique_code,"question",$question_id)) {
echo 'Could not recode randomsamatch question '.$question_id.'<br />';
}

if ($answer_id == 0) { // no response yet
$ans->new_id = 0;
} else {
//Get the answer from backup_ids
if (!$ans = backup_getid($restore->backup_unique_code,"question_answers",$answer_id)) {
echo 'Could not recode randomsamatch answer '.$answer_id.'<br />';
}
}
if ($in_first) {
$answer_field .= $que->new_id."-".$ans->new_id;
$in_first = false;
} else {
$answer_field .= ",".$que->new_id."-".$ans->new_id;
}
//check for next
$tok = strtok(",");
}
//check for next
$tok = strtok(",");
}
$state->answer = $answer_field;
break;
case 7: //DESCRIPTION QTYPE
//Nothing to do (there is no awser to this qtype)
//But this case must exist !!
break;
case 8: //NUMERICAL QTYPE
//Nothing to do. The response is a text.
break;
case 9: //MULTIANSWER QTYPE
//The answer is a comma separated list of hypen separated sequence number and answers. We may have to recode the answers
$answer_field = "";
$in_first = true;
$tok = strtok($state->answer,",");
while ($tok) {
//Extract the multianswer_id and the answer
$exploded = explode("-",$tok);
$seqnum = $exploded[0];
$answer = $exploded[1];
// $sequence is an ordered array of the question ids.
if (!$sequence = get_field('question_multianswer', 'sequence', 'question', $question->id)) {
error("The cloze question $question->id is missing its options");
}
$sequence = explode(',', $sequence);
// The id of the current question.
$wrappedquestionid = $sequence[$seqnum-1];
// now we can find the question
if (!$wrappedquestion = get_record('question', 'id', $wrappedquestionid)) {
error("Can't find the subquestion $wrappedquestionid that is used as part $seqnum in cloze question $question->id");
}
// For multichoice question we need to recode the answer
if ($wrappedquestion->qtype == MULTICHOICE) {
//The answer is an answer_id, look for it in backup_ids
if (!$ans = backup_getid($restore->backup_unique_code,"question_answers",$answer)) {
echo 'Could not recode cloze multichoice answer '.$answer.'<br />';
$state->answer = $answer_field;
break;
case 7: //DESCRIPTION QTYPE
//Nothing to do (there is no awser to this qtype)
//But this case must exist !!
break;
case 8: //NUMERICAL QTYPE
//Nothing to do. The response is a text.
break;
case 9: //MULTIANSWER QTYPE
//The answer is a comma separated list of hypen separated sequence number and answers. We may have to recode the answers
$answer_field = "";
$in_first = true;
$tok = strtok($state->answer,",");
while ($tok) {
//Extract the multianswer_id and the answer
$exploded = explode("-",$tok);
$seqnum = $exploded[0];
$answer = $exploded[1];
// $sequence is an ordered array of the question ids.
if (!$sequence = get_field('question_multianswer', 'sequence', 'question', $question->id)) {
error("The cloze question $question->id is missing its options");
}
$answer = $ans->new_id;
}
//build the new answer field for each pair
if ($in_first) {
$answer_field .= $seqnum."-".$answer;
$in_first = false;
} else {
$answer_field .= ",".$seqnum."-".$answer;
$sequence = explode(',', $sequence);
// The id of the current question.
$wrappedquestionid = $sequence[$seqnum-1];
// now we can find the question
if (!$wrappedquestion = get_record('question', 'id', $wrappedquestionid)) {
error("Can't find the subquestion $wrappedquestionid that is used as part $seqnum in cloze question $question->id");
}
// For multichoice question we need to recode the answer
if ($answer and $wrappedquestion->qtype == MULTICHOICE) {
//The answer is an answer_id, look for it in backup_ids
if (!$ans = backup_getid($restore->backup_unique_code,"question_answers",$answer)) {
echo 'Could not recode cloze multichoice answer '.$answer.'<br />';
}
$answer = $ans->new_id;
}
//build the new answer field for each pair
if ($in_first) {
$answer_field .= $seqnum."-".$answer;
$in_first = false;
} else {
$answer_field .= ",".$seqnum."-".$answer;
}
//check for next
$tok = strtok(",");
}
//check for next
$tok = strtok(",");
}
$state->answer = $answer_field;
break;
case 10: //CALCULATED QTYPE
//Nothing to do. The response is a text.
break;
default: //UNMATCHED QTYPE.
//This is an error (unimplemented qtype)
$status = false;
break;
$state->answer = $answer_field;
break;
case 10: //CALCULATED QTYPE
//Nothing to do. The response is a text.
break;
}
}

//The structure is equal to the db, so insert the question_states
Expand Down

0 comments on commit b2315a9

Please sign in to comment.