selectTitle();
$answerType=$objQuestion->selectType();
$pictureName=$objQuestion->selectPicture();
$debug = 0; // debug variable to get where we are
$okPicture=empty($pictureName)?false:true;
// if we come from the warning box "this question is used in serveral exercises"
if($modifyIn)
{
if($debug>0){echo '$modifyIn was set'." \n";}
// if the user has chosed to modify the question only in the current exercise
if($modifyIn == 'thisExercise')
{
// duplicates the question
$questionId=$objQuestion->duplicate();
// deletes the old question
$objQuestion->delete($exerciseId);
// removes the old question ID from the question list of the Exercise object
$objExercise->removeFromList($modifyAnswers);
// adds the new question ID into the question list of the Exercise object
$objExercise->addToList($questionId);
// construction of the duplicated Question
$objQuestion = Question::read($questionId);
// adds the exercise ID into the exercise list of the Question object
$objQuestion->addToList($exerciseId);
// copies answers from $modifyAnswers to $questionId
$objAnswer->duplicate($questionId);
// construction of the duplicated Answers
$objAnswer=new Answer($questionId);
}
if($answerType == UNIQUE_ANSWER || $answerType == MULTIPLE_ANSWER || $answerType == MULTIPLE_ANSWER_COMBINATION)
{
$correct=unserialize($correct);
$reponse=unserialize($reponse);
$comment=unserialize($comment);
$weighting=unserialize($weighting);
}
//matching
elseif($answerType == MATCHING)
{
$option=unserialize($option);
$match=unserialize($match);
$sel=unserialize($sel);
$weighting=unserialize($weighting);
}
//free answer
elseif($answerType == FREE_ANSWER )
{
$reponse=unserialize($reponse);
$comment=unserialize($comment);
$free_comment=$comment;
$weighting=unserialize($weighting);
}
elseif ($answerType == HOT_SPOT || $answerType == HOT_SPOT_ORDER)
{
$color=unserialize($color);
$reponse=unserialize($reponse);
$comment=unserialize($comment);
$weighting=unserialize($weighting);
$hotspot_coordinates=unserialize($hotspot_coordinates);
$hotspot_type=unserialize($hotspot_type);
}
//fill in blanks
else
{
$reponse=unserialize($reponse);
$comment=unserialize($comment);
$blanks=unserialize($blanks);
$weighting=unserialize($weighting);
}
unset($buttonBack);
}
// the answer form has been submitted
if($submitAnswers || $buttonBack)
{
if($debug>0){echo '$submitAnswers or $buttonBack was set'." \n";}
if($answerType == UNIQUE_ANSWER || $answerType == MULTIPLE_ANSWER || $answerType == MULTIPLE_ANSWER_COMBINATION) {
if($debug>0){echo ' $answerType is UNIQUE_ANSWER or MULTIPLE_ANSWER'." \n";}
$questionWeighting=$nbrGoodAnswers=0;
for($i=1;$i <= $nbrAnswers;$i++) {
$reponse[$i]=trim($reponse[$i]);
$comment[$i]=trim($comment[$i]);
$weighting[$i]=intval($weighting[$i]);
if($answerType == UNIQUE_ANSWER)
{
if($debug>0){echo str_repeat(' ',4).'$answerType is UNIQUE_ANSWER'." \n";}
$goodAnswer=($correct == $i)?1:0;
}
else
{
$goodAnswer=$correct[$i];
}
if($goodAnswer)
{
$nbrGoodAnswers++;
// a good answer can't have a negative weighting
$weighting[$i]=abs($weighting[$i]);
// calculates the sum of answer weighting only if it is different from 0 and the answer is good
if($weighting[$i])
{
$questionWeighting+=$weighting[$i];
}
} elseif($answerType == MULTIPLE_ANSWER) {
if($debug>0){echo str_repeat(' ',4).'$answerType is MULTIPLE_ANSWER'." \n";}
// a bad answer can't have a positive weighting
$weighting[$i]=0-abs($weighting[$i]);
}
// checks if field is empty
if(empty($reponse[$i]) && $reponse[$i] != '0')
{
$msgErr=get_lang('GiveAnswers');
// clears answers already recorded into the Answer object
$objAnswer->cancel();
break;
} else {
// adds the answer into the object
$objAnswer->createAnswer($reponse[$i],$goodAnswer,$comment[$i],$weighting[$i],$i);
//added
//if($_REQUEST['myid']==1)
$mainurl="admin.php";
// else
// $mainurl="question_pool.php";
?>
cancel();
}
// checks if the question is used in several exercises
elseif($exerciseId && !$modifyIn && $objQuestion->selectNbrExercises() > 1)
{
$usedInSeveralExercises=1;
}
else
{
// saves the answers into the data base
$objAnswer->save();
// sets the total weighting of the question
$objQuestion->updateWeighting($questionWeighting);
$objQuestion->save($exerciseId);
$editQuestion=$questionId;
unset($modifyAnswers);
}
}
}
elseif($answerType == FILL_IN_BLANKS)
{
if($debug>0){echo str_repeat(' ',2).'$answerType is FILL_IN_BLANKS'." \n";}
$reponse=trim($reponse);
if(!$buttonBack)
{
if($debug>0){echo str_repeat(' ',4).'$buttonBack is not set'." \n";}
if($setWeighting)
{
$blanks=unserialize($blanks);
// checks if the question is used in several exercises
if($exerciseId && !$modifyIn && $objQuestion->selectNbrExercises() > 1)
{
$usedInSeveralExercises=1;
}
else
{
// separates text and weightings by '::'
$reponse.='::';
$questionWeighting=0;
foreach($weighting as $val)
{
// a blank can't have a negative weighting
$val=abs($val);
$questionWeighting+=$val;
// adds blank weighting at the end of the text
$reponse.=$val.',';
}
$reponse=api_substr($reponse,0,-1);
$objAnswer->createAnswer($reponse,0,'',0,'');
$objAnswer->save();
//added
//if($_REQUEST['myid']==1)
$mainurl="admin.php";
// else
// $mainurl="question_pool.php";
?>
updateWeighting($questionWeighting);
$objQuestion->save($exerciseId);
$editQuestion=$questionId;
unset($modifyAnswers);
}
}
// if no text has been typed or the text contains no blank
elseif(empty($reponse))
{
$msgErr=get_lang('GiveText');
}
elseif(!api_ereg('\[.+\]',$reponse))
{
$msgErr=get_lang('DefineBlanks');
}
else
{
// now we're going to give a weighting to each blank
$setWeighting=1;
unset($submitAnswers);
// removes character '::' possibly inserted by the user in the text
$reponse=str_replace('::','',$reponse);
// we save the answer because it will be modified
//$temp=$reponse;
$temp = text_filter($reponse);
/* // Deprecated code.
// 1. find everything between the [tex] and [/tex] tags
$startlocations=api_strpos($temp,'[tex]');
$endlocations=api_strpos($temp,'[/tex]');
if($startlocations !== false && $endlocations !== false)
{
$texstring=api_substr($temp,$startlocations,$endlocations-$startlocations+6);
// 2. replace this by {texcode}
$temp=str_replace($texstring,"{texcode}",$temp);
}
*/
// blanks will be put into an array
$blanks=Array();
$i=1;
// the loop will stop at the end of the text
while(1)
{
// quits the loop if there are no more blanks
if(($pos = api_strpos($temp,'[')) === false)
{
break;
}
// removes characters till '['
$temp=api_substr($temp,$pos+1);
// quits the loop if there are no more blanks
if(($pos = api_strpos($temp,']')) === false)
{
break;
}
// stores the found blank into the array
$blanks[$i++]=api_substr($temp,0,$pos);
// removes the character ']'
$temp=api_substr($temp,$pos+1);
}
}
}
else
{
unset($setWeighting);
}
}
elseif($answerType == FREE_ANSWER)
{
if($debug>0){echo str_repeat(' ',2).'$answerType is FREE_ANSWER'." \n";}
if ( empty ( $free_comment ) ) {
$free_comment = $_POST['comment'];
}
if ( empty ( $weighting ) ) {
$weighting = $_POST['weighting'];
$weightingtemp = $_POST['weighting'];
}
if(!$buttonBack)
{
if($debug>0){echo str_repeat(' ',4).'$buttonBack is not set'." \n";}
if($setWeighting)
{
if($debug>0){echo str_repeat(' ',6).'$setWeighting is set'." \n";}
// checks if the question is used in several exercises
if($exerciseId && !$modifyIn && $objQuestion->selectNbrExercises() > 1)
{
$usedInSeveralExercises=1;
}
else
{
$objAnswer->createAnswer('',0,$free_comment,$weighting,'');
$objAnswer->save();
// sets the total weighting of the question
$objQuestion->updateWeighting($weighting);
$objQuestion->save($exerciseId);
$editQuestion=$questionId;
unset($modifyAnswers);//added
//if($_REQUEST['myid']==1)
$mainurl="admin.php";
// else
// $mainurl="question_pool.php";
?>
0){echo str_repeat(' ',6).'$free_comment is empty'." \n";}
$msgErr=get_lang('GiveText');
}
/*elseif(!ereg('\[.+\]',$reponse))
{
$msgErr=get_lang('DefineBlanks');
}*/
else
{
if($debug>0){echo str_repeat(' ',6).'$setWeighting is not set and $free_comment is not empty'." \n";}
// now we're going to give a weighting to each blank
$setWeighting=1;
unset($submitAnswers);
}
}
else
{
unset($setWeighting);
}
}
elseif($answerType == MATCHING)
{
if($debug>0){echo str_repeat(' ',2).'$answerType is MATCHING'." \n";}
for($i=1;$i <= $nbrOptions;$i++)
{
$option[$i]=trim($option[$i]);
// checks if field is empty
if(empty($option[$i]) && $option[$i] != '0')
{
$msgErr=get_lang('FillLists');
// clears options already recorded into the Answer object
$objAnswer->cancel();
break;
}
else
{
// adds the option into the object
$objAnswer->createAnswer($option[$i],0,'',0,$i);
}
}
$questionWeighting=0;
if(empty($msgErr))
{
for($j=1;$j <= $nbrMatches;$i++,$j++)
{
$match[$i]=trim($match[$i]);
$weighting[$i]=abs(intval($weighting[$i]));
$questionWeighting+=$weighting[$i];
// checks if field is empty
if(empty($match[$i]) && $match[$i] != '0')
{
$msgErr=get_lang('FillLists');
// clears matches already recorded into the Answer object
$objAnswer->cancel();
break;
}
// check if correct number
else
{
// adds the answer into the object
$objAnswer->createAnswer($match[$i],$sel[$i],'',$weighting[$i],$i);
//added
//if($_REQUEST['myid']==1)
$mainurl="admin.php";
//else
//$mainurl="question_pool.php";
?>
selectNbrExercises() > 1)
{
$usedInSeveralExercises=1;
}
else
{
// all answers have been recorded, so we save them into the data base
$objAnswer->save();
// sets the total weighting of the question
$objQuestion->updateWeighting($questionWeighting);
$objQuestion->save($exerciseId);
$editQuestion=$questionId;
unset($modifyAnswers);
}
}
}
elseif($answerType == HOT_SPOT || $answerType == HOT_SPOT_ORDER)
{
$questionWeighting=$nbrGoodAnswers=0;
for($i=1;$i <= $nbrAnswers;$i++)
{
if($debug>0){echo str_repeat(' ',4).'$answerType is HOT_SPOT'." \n";}
$reponse[$i]=trim($reponse[$i]);
$comment[$i]=trim($comment[$i]);
$weighting[$i]=intval($weighting[$i]);
// checks if field is empty
if(empty($reponse[$i]) && $reponse[$i] != '0')
{
$msgErr=get_lang('HotspotGiveAnswers');
// clears answers already recorded into the Answer object
$objAnswer->cancel();
break;
}
if($weighting[$i] <= 0)
{
$msgErr=get_lang('HotspotWeightingError');
// clears answers already recorded into the Answer object
$objAnswer->cancel();
break;
}
if($hotspot_coordinates[$i] == '0;0|0|0' || empty($hotspot_coordinates[$i]))
{
$msgErr=get_lang('HotspotNotDrawn');
// clears answers already recorded into the Answer object
$objAnswer->cancel();
break;
}
} // end for()
if(empty($msgErr))
{
if($exerciseId && !$modifyIn && $objQuestion->selectNbrExercises() > 1)
{
$usedInSeveralExercises=1;
}
else
{
for($i=1;$i <= $nbrAnswers;$i++)
{
if($debug>0){echo str_repeat(' ',4).'$answerType is HOT_SPOT'." \n";}
$reponse[$i]=trim($reponse[$i]);
$comment[$i]=trim($comment[$i]);
$weighting[$i]=intval($weighting[$i]);
if($weighting[$i])
{
$questionWeighting+=$weighting[$i];
}
// creates answer
$objAnswer->createAnswer($reponse[$i], '',$comment[$i],$weighting[$i],$i,$hotspot_coordinates[$i],$hotspot_type[$i]);
} // end for()
// saves the answers into the data base
$objAnswer->save();
// sets the total weighting of the question
$objQuestion->updateWeighting($questionWeighting);
$objQuestion->save($exerciseId);
$editQuestion=$questionId;
unset($modifyAnswers);
}
}
}
if($debug>0){echo '$modifyIn was set - end'." \n";}
}
if($modifyAnswers)
{
if($debug>0){echo str_repeat(' ',0).'$modifyAnswers is set'." \n";}
// construction of the Answer object
$objAnswer=new Answer($questionId);
api_session_register('objAnswer');
if($answerType == UNIQUE_ANSWER || $answerType == MULTIPLE_ANSWER)
{
if($debug>0){echo str_repeat(' ',2).'$answerType is UNIQUE_ANSWER or MULTIPLE_ANSWER'." \n";}
if(!$nbrAnswers)
{
$nbrAnswers=$objAnswer->selectNbrAnswers();
$reponse=Array();
$comment=Array();
$weighting=Array();
// initializing
if($answerType == MULTIPLE_ANSWER)
{
$correct=Array();
}
else
{
$correct=0;
}
for($i=1;$i <= $nbrAnswers;$i++)
{
$reponse[$i]=$objAnswer->selectAnswer($i);
$comment[$i]=$objAnswer->selectComment($i);
$weighting[$i]=$objAnswer->selectWeighting($i);
if($answerType == MULTIPLE_ANSWER)
{
$correct[$i]=$objAnswer->isCorrect($i);
}
elseif($objAnswer->isCorrect($i))
{
$correct=$i;
}
}
}
if($lessAnswers)
{
$nbrAnswers--;
}
if($moreAnswers)
{
$nbrAnswers++;
}
// minimum 2 answers
if($nbrAnswers < 2)
{
$nbrAnswers=2;
}
}
elseif($answerType == FILL_IN_BLANKS)
{
if($debug>0){echo str_repeat(' ',2).'$answerType is FILL_IN_BLANKS'." \n";}
if(!$submitAnswers && !$buttonBack)
{
if(!$setWeighting)
{
$reponse=$objAnswer->selectAnswer(1);
list($reponse,$weighting)=explode('::',$reponse);
$weighting=explode(',',$weighting);
$temp=Array();
// keys of the array go from 1 to N and not from 0 to N-1
for($i=0;$i < sizeof($weighting);$i++)
{
$temp[$i+1]=$weighting[$i];
}
$weighting=$temp;
}
elseif(!$modifyIn)
{
$weighting=unserialize($weighting);
}
}
}
elseif($answerType == FREE_ANSWER)
{
if($debug>0){echo str_repeat(' ',2).'$answerType is FREE_ANSWER'." \n";}
if(!$submitAnswers && !$buttonBack)
{
if($debug>0){echo str_repeat(' ',4).'$submitAnswers && $buttonsBack are unset'." \n";}
if(!$setWeighting)
{
if($debug>0){echo str_repeat(' ',6).'$setWeighting is unset'." \n";}
//YW: not quite sure about whether the comment has already been recovered,
// but as we have passed into the submitAnswers loop, this should be in the
// objAnswer object.
$free_comment = $objAnswer->selectComment(1);
$weighting=$objAnswer->selectWeighting(1); //added
}
elseif(!$modifyIn)
{
if($debug>0){echo str_repeat(' ',6).'$setWeighting is set and $modifyIn is unset'." \n";}
$weighting=unserialize($weighting);
}
}
}
elseif($answerType == MATCHING)
{
if($debug>0){echo str_repeat(' ',2).'$answerType is MATCHING'." \n";}
if(!$nbrOptions || !$nbrMatches)
{
$option=Array();
$match=Array();
$sel=Array();
$nbrOptions=$nbrMatches=0;
// fills arrays with data from de data base
for($i=1;$i <= $objAnswer->selectNbrAnswers();$i++)
{
// it is a match
if($objAnswer->isCorrect($i))
{
$match[$i]=$objAnswer->selectAnswer($i);
$sel[$i]=$objAnswer->isCorrect($i);
$weighting[$i]=$objAnswer->selectWeighting($i);
$nbrMatches++;
}
// it is an option
else
{
$option[$i]=$objAnswer->selectAnswer($i);
$nbrOptions++;
}
}
}
if($lessOptions)
{
// keeps the correct sequence of array keys when removing an option from the list
for($i=$nbrOptions+1,$j=1;$nbrOptions > 2 && $j <= $nbrMatches;$i++,$j++)
{
$match[$i-1]=$match[$i];
$sel[$i-1]=$sel[$i];
$weighting[$i-1]=$weighting[$i];
}
unset($match[$i-1]);
unset($sel[$i-1]);
$nbrOptions--;
}
if($moreOptions)
{
// keeps the correct sequence of array keys when adding an option into the list
for($i=$nbrMatches+$nbrOptions;$i > $nbrOptions;$i--)
{
$match[$i+1]=$match[$i];
$sel[$i+1]=$sel[$i];
$weighting[$i+1]=$weighting[$i];
}
unset($match[$i+1]);
unset($sel[$i+1]);
$nbrOptions++;
}
if($lessMatches)
{
$nbrMatches--;
}
if($moreMatches)
{
$nbrMatches++;
}
// minimum 2 options
if($nbrOptions < 2)
{
$nbrOptions=2;
}
// minimum 2 matches
if($nbrMatches < 2)
{
$nbrMatches=2;
}
}
elseif ($answerType == HOT_SPOT || $answerType == HOT_SPOT_ORDER)
{
if($debug>0){echo str_repeat(' ',2).'$answerType is HOT_SPOT'." \n";}
$TBL_ANSWERS = Database::get_course_table(TABLE_QUIZ_ANSWER);
if(!$nbrAnswers)
{
$nbrAnswers=$objAnswer->selectNbrAnswers();
$reponse=Array();
$comment=Array();
$weighting=Array();
$hotspot_coordinates=Array();
$hotspot_type=array();
for($i=1;$i <= $nbrAnswers;$i++)
{
$reponse[$i]=$objAnswer->selectAnswer($i);
$comment[$i]=$objAnswer->selectComment($i);
$weighting[$i]=$objAnswer->selectWeighting($i);
$hotspot_coordinates[$i]=$objAnswer->selectHotspotCoordinates($i);
$hotspot_type[$i]=$objAnswer->selectHotspotType($i);
}
}
$_SESSION['tmp_answers'] = array();
$_SESSION['tmp_answers']['answer'] = $reponse;
$_SESSION['tmp_answers']['comment'] = $comment;
$_SESSION['tmp_answers']['weighting'] = $weighting;
$_SESSION['tmp_answers']['hotspot_coordinates'] = $hotspot_coordinates;
$_SESSION['tmp_answers']['hotspot_type'] = $hotspot_type;
if($lessAnswers)
{
// At least 1 answer
if ($nbrAnswers > 1) {
$nbrAnswers--;
// Remove the last answer
$tmp = array_pop($_SESSION['tmp_answers']['answer']);
$tmp = array_pop($_SESSION['tmp_answers']['comment']);
$tmp = array_pop($_SESSION['tmp_answers']['weighting']);
$tmp = array_pop($_SESSION['tmp_answers']['hotspot_coordinates']);
$tmp = array_pop($_SESSION['tmp_answers']['hotspot_type']);
}
else
{
$msgErr=get_lang('MinHotspot');
}
}
if($moreAnswers)
{
if ($nbrAnswers < 12)
{
$nbrAnswers++;
// Add a new answer
$_SESSION['tmp_answers']['answer'][]='';
$_SESSION['tmp_answers']['comment'][]='';
$_SESSION['tmp_answers']['weighting'][]='1';
$_SESSION['tmp_answers']['hotspot_coordinates'][]='0;0|0|0';
$_SESSION['tmp_answers']['hotspot_type'][]='square';
}
else
{
$msgErr=get_lang('MaxHotspot');
}
}
}
if(!$usedInSeveralExercises)
{
if($debug>0){echo str_repeat(' ',2).'$usedInSeveralExercises is untrue'." \n";}
if($answerType == UNIQUE_ANSWER || $answerType == MULTIPLE_ANSWER || $answerType == MULTIPLE_ANSWER_COMBINATION)
{
if($debug>0){echo str_repeat(' ',4).'$answerType is UNIQUE_ANSWER or MULTIPLE_ANSWER'." \n";}
?>
0){echo str_repeat(' ',4).'$answerType is FILL_IN_BLANKS'." \n";}
?>
0){echo str_repeat(' ',4).'$answerType is FREE_ANSWER'." \n";}
?>
0){echo str_repeat(' ',4).'$answerType is HOT_SPOT'." \n";}
$hotspot_colors = array("", // $i starts from 1 on next loop (ugly fix)
"#4271B5",
"#FE8E16",
"#3B3B3B",
"#BCD631",
"#D63173",
"#D7D7D7",
"#90AFDD",
"#AF8640",
"#4F9242",
"#F4EB24",
"#ED2024",
"#45C7F0",
"#F7BDE2");
?>
*
0){echo str_repeat(' ',0).'$modifyAnswers was set - end'." \n";}
}
?>