|
|
<?php
|
|
|
/* For licensing terms, see /license.txt */
|
|
|
|
|
|
/**
|
|
|
* This class allows to instantiate an object of type Answer
|
|
|
* 5 arrays are created to receive the attributes of each answer belonging to a specified question
|
|
|
* @package chamilo.exercise
|
|
|
* @author Olivier Brouckaert
|
|
|
* @version $Id: answer.class.php 21172 2009-06-01 20:58:05Z darkvela $
|
|
|
*/
|
|
|
|
|
|
if(!class_exists('Answer')):
|
|
|
|
|
|
class Answer
|
|
|
{
|
|
|
public $questionId;
|
|
|
|
|
|
// these are arrays
|
|
|
public $answer;
|
|
|
public $correct;
|
|
|
public $comment;
|
|
|
public $weighting;
|
|
|
public $position;
|
|
|
public $hotspot_coordinates;
|
|
|
public $hotspot_type;
|
|
|
public $destination;
|
|
|
|
|
|
// these arrays are used to save temporarily new answers
|
|
|
// then they are moved into the arrays above or deleted in the event of cancellation
|
|
|
public $new_answer;
|
|
|
public $new_correct;
|
|
|
public $new_comment;
|
|
|
public $new_weighting;
|
|
|
public $new_position;
|
|
|
public $new_hotspot_coordinates;
|
|
|
public $new_hotspot_type;
|
|
|
|
|
|
public $nbrAnswers;
|
|
|
public $new_nbrAnswers;
|
|
|
public $new_destination; // id of the next question if feedback option is set to Directfeedback
|
|
|
|
|
|
/**
|
|
|
* constructor of the class
|
|
|
*
|
|
|
* @author Olivier Brouckaert
|
|
|
* @param integer Question ID that answers belong to
|
|
|
*/
|
|
|
function Answer($questionId)
|
|
|
{
|
|
|
//$this->questionType=$questionType;
|
|
|
$this->questionId = (int)$questionId;
|
|
|
$this->answer = array();
|
|
|
$this->correct = array();
|
|
|
$this->comment = array();
|
|
|
$this->weighting = array();
|
|
|
$this->position = array();
|
|
|
$this->hotspot_coordinates = array();
|
|
|
$this->hotspot_type = array();
|
|
|
$this->destination = array();
|
|
|
// clears $new_* arrays
|
|
|
$this->cancel();
|
|
|
|
|
|
// fills arrays
|
|
|
$objExercise = new Exercise();
|
|
|
$objExercise->read($_REQUEST['exerciseId']);
|
|
|
if($objExercise->random_answers=='1') {
|
|
|
$this->readOrderedBy('rand()', '');// randomize answers
|
|
|
} else {
|
|
|
$this->read(); // natural order
|
|
|
}
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* Clears $new_* arrays
|
|
|
*
|
|
|
* @author - Olivier Brouckaert
|
|
|
*/
|
|
|
function cancel()
|
|
|
{
|
|
|
$this->new_answer = array();
|
|
|
$this->new_correct = array();
|
|
|
$this->new_comment = array();
|
|
|
$this->new_weighting = array();
|
|
|
$this->new_position = array();
|
|
|
$this->new_hotspot_coordinates = array();
|
|
|
$this->new_hotspot_type = array();
|
|
|
$this->new_nbrAnswers = 0;
|
|
|
$this->new_destination = array();
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* Reads answer informations from the data base
|
|
|
*
|
|
|
* @author - Olivier Brouckaert
|
|
|
*/
|
|
|
function read()
|
|
|
{
|
|
|
global $_course;
|
|
|
$TBL_ANSWER = Database::get_course_table(TABLE_QUIZ_ANSWER);
|
|
|
|
|
|
$questionId=$this->questionId;
|
|
|
//$answerType=$this->selectType();
|
|
|
|
|
|
$sql="SELECT id,answer,correct,comment,ponderation, position, hotspot_coordinates, hotspot_type, destination, id_auto FROM
|
|
|
$TBL_ANSWER WHERE question_id ='".Database::escape_string($questionId)."' ORDER BY position";
|
|
|
|
|
|
$result=Database::query($sql);
|
|
|
|
|
|
$i=1;
|
|
|
|
|
|
// while a record is found
|
|
|
while($object=Database::fetch_object($result)) {
|
|
|
$this->id[$i] = $object->id;
|
|
|
$this->answer[$i] = $object->answer;
|
|
|
$this->correct[$i] = $object->correct;
|
|
|
$this->comment[$i] = $object->comment;
|
|
|
$this->weighting[$i] = $object->ponderation;
|
|
|
$this->position[$i] = $object->position;
|
|
|
$this->hotspot_coordinates[$i] = $object->hotspot_coordinates;
|
|
|
$this->hotspot_type[$i] = $object->hotspot_type;
|
|
|
$this->destination[$i] = $object->destination;
|
|
|
$this->autoId[$i] = $object->id_auto;
|
|
|
$i++;
|
|
|
}
|
|
|
$this->nbrAnswers=$i-1;
|
|
|
}
|
|
|
/**
|
|
|
* reads answer informations from the data base ordered by parameter
|
|
|
* @param string Field we want to order by
|
|
|
* @param string DESC or ASC
|
|
|
* @author Frederic Vauthier
|
|
|
*/
|
|
|
function readOrderedBy($field,$order=ASC)
|
|
|
{
|
|
|
global $_course;
|
|
|
$field = Database::escape_string($field);
|
|
|
if(empty($field)) {
|
|
|
$field = 'position';
|
|
|
}
|
|
|
if($order != 'ASC' and $order!='DESC')
|
|
|
{
|
|
|
$order = 'ASC';
|
|
|
}
|
|
|
$TBL_ANSWER = Database::get_course_table(TABLE_QUIZ_ANSWER);
|
|
|
|
|
|
$questionId=$this->questionId;
|
|
|
//$answerType=$this->selectType();
|
|
|
|
|
|
$sql="SELECT answer,correct,comment,ponderation,position, hotspot_coordinates, hotspot_type, destination, id_auto " .
|
|
|
"FROM $TBL_ANSWER WHERE question_id='".Database::escape_string($questionId)."' " .
|
|
|
"ORDER BY $field $order";
|
|
|
|
|
|
$result=Database::query($sql);
|
|
|
|
|
|
$i=1;
|
|
|
|
|
|
// while a record is found
|
|
|
while($object=Database::fetch_object($result))
|
|
|
{
|
|
|
$this->answer[$i] = $object->answer;
|
|
|
$this->correct[$i] = $object->correct;
|
|
|
$this->comment[$i] = $object->comment;
|
|
|
$this->weighting[$i] = $object->ponderation;
|
|
|
$this->position[$i] = $object->position;
|
|
|
$this->destination[$i] = $object->destination;
|
|
|
$this->autoId[$i] = $object->id_auto;
|
|
|
$i++;
|
|
|
}
|
|
|
$this->nbrAnswers=$i-1;
|
|
|
}
|
|
|
|
|
|
|
|
|
/**
|
|
|
* returns the autoincrement id identificator
|
|
|
*
|
|
|
* @author - Juan Carlos Ra<EFBFBD>a
|
|
|
* @return - integer - answer num
|
|
|
*/
|
|
|
function selectAutoId($id)
|
|
|
{
|
|
|
return $this->autoId[$id];
|
|
|
}
|
|
|
|
|
|
|
|
|
/**
|
|
|
* returns the number of answers in this question
|
|
|
*
|
|
|
* @author - Olivier Brouckaert
|
|
|
* @return - integer - number of answers
|
|
|
*/
|
|
|
function selectNbrAnswers()
|
|
|
{
|
|
|
return $this->nbrAnswers;
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* returns the question ID which the answers belong to
|
|
|
*
|
|
|
* @author - Olivier Brouckaert
|
|
|
* @return - integer - the question ID
|
|
|
*/
|
|
|
function selectQuestionId()
|
|
|
{
|
|
|
return $this->questionId;
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* returns the question ID of the destination question
|
|
|
*
|
|
|
* @author - Julio Montoya
|
|
|
* @return - integer - the question ID
|
|
|
*/
|
|
|
function selectDestination($id)
|
|
|
{
|
|
|
return $this->destination[$id];
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* returns the answer title
|
|
|
*
|
|
|
* @author - Olivier Brouckaert
|
|
|
* @param - integer $id - answer ID
|
|
|
* @return - string - answer title
|
|
|
*/
|
|
|
function selectAnswer($id)
|
|
|
{
|
|
|
return $this->answer[$id];
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* return array answer by id else return a bool
|
|
|
*/
|
|
|
function selectAnswerByAutoId($auto_id) {
|
|
|
|
|
|
$TBL_ANSWER = Database::get_course_table(TABLE_QUIZ_ANSWER);
|
|
|
$auto_id = intval($auto_id);
|
|
|
$sql="SELECT id, answer FROM $TBL_ANSWER WHERE id_auto='$auto_id'";
|
|
|
$rs = Database::query($sql);
|
|
|
|
|
|
if (Database::num_rows($rs)>0) {
|
|
|
$row = Database::fetch_array($rs);
|
|
|
return $row;
|
|
|
}
|
|
|
return false;
|
|
|
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* returns the answer title from an answer's position
|
|
|
*
|
|
|
* @author - Yannick Warnier
|
|
|
* @param - integer $id - answer ID
|
|
|
* @return - bool - answer title
|
|
|
*/
|
|
|
function selectAnswerIdByPosition($pos)
|
|
|
{
|
|
|
foreach ($this->position as $k => $v) {
|
|
|
if ($v != $pos) { continue; }
|
|
|
return $k;
|
|
|
}
|
|
|
return false;
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* Returns a list of answers
|
|
|
* @author Yannick Warnier <ywarnier@beeznest.org>
|
|
|
* @return array List of answers where each answer is an array of (id, answer, comment, grade) and grade=weighting
|
|
|
*/
|
|
|
function getAnswersList()
|
|
|
{
|
|
|
$list = array();
|
|
|
for($i = 1; $i<=$this->nbrAnswers;$i++){
|
|
|
if(!empty($this->answer[$i])){
|
|
|
$list[] = array(
|
|
|
'id'=>$i,
|
|
|
'answer'=>$this->answer[$i],
|
|
|
'comment'=>$this->comment[$i],
|
|
|
'grade' => $this->weighting[$i],
|
|
|
'hotspot_coord' => $this->hotspot_coordinates[$i],
|
|
|
'hotspot_type' => $this->hotspot_type[$i],
|
|
|
'correct' => $this->correct[$i],
|
|
|
'destination' => $this->destination[$i]
|
|
|
);
|
|
|
}
|
|
|
}
|
|
|
return $list;
|
|
|
}
|
|
|
/**
|
|
|
* Returns a list of grades
|
|
|
* @author Yannick Warnier <ywarnier@beeznest.org>
|
|
|
* @return array List of grades where grade=weighting (?)
|
|
|
*/
|
|
|
function getGradesList()
|
|
|
{
|
|
|
$list = array();
|
|
|
for($i = 0; $i<$this->nbrAnswers;$i++){
|
|
|
if(!empty($this->answer[$i])){
|
|
|
$list[$i] = $this->weighting[$i];
|
|
|
}
|
|
|
}
|
|
|
return $list;
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* Returns the question type
|
|
|
* @author Yannick Warnier <ywarnier@beeznest.org>
|
|
|
* @return integer The type of the question this answer is bound to
|
|
|
*/
|
|
|
function getQuestionType()
|
|
|
{
|
|
|
$TBL_QUESTIONS = Database::get_course_table(TABLE_QUIZ_QUESTION);
|
|
|
$sql = "SELECT type FROM $TBL_QUESTIONS WHERE id = '".Database::escape_string($this->questionId)."'";
|
|
|
$res = Database::query($sql);
|
|
|
if(Database::num_rows($res)<=0){
|
|
|
return null;
|
|
|
}
|
|
|
$row = Database::fetch_array($res);
|
|
|
return $row['type'];
|
|
|
}
|
|
|
|
|
|
|
|
|
/**
|
|
|
* tells if answer is correct or not
|
|
|
*
|
|
|
* @author - Olivier Brouckaert
|
|
|
* @param - integer $id - answer ID
|
|
|
* @return - integer - 0 if bad answer, not 0 if good answer
|
|
|
*/
|
|
|
function isCorrect($id)
|
|
|
{
|
|
|
return $this->correct[$id];
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* returns answer comment
|
|
|
*
|
|
|
* @author - Olivier Brouckaert
|
|
|
* @param - integer $id - answer ID
|
|
|
* @return - string - answer comment
|
|
|
*/
|
|
|
function selectComment($id)
|
|
|
{
|
|
|
return $this->comment[$id];
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* returns answer weighting
|
|
|
*
|
|
|
* @author - Olivier Brouckaert
|
|
|
* @param - integer $id - answer ID
|
|
|
* @return - integer - answer weighting
|
|
|
*/
|
|
|
function selectWeighting($id)
|
|
|
{
|
|
|
return $this->weighting[$id];
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* returns answer position
|
|
|
*
|
|
|
* @author - Olivier Brouckaert
|
|
|
* @param - integer $id - answer ID
|
|
|
* @return - integer - answer position
|
|
|
*/
|
|
|
function selectPosition($id)
|
|
|
{
|
|
|
return $this->position[$id];
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* returns answer hotspot coordinates
|
|
|
*
|
|
|
* @author Olivier Brouckaert
|
|
|
* @param integer Answer ID
|
|
|
* @return integer Answer position
|
|
|
*/
|
|
|
function selectHotspotCoordinates($id)
|
|
|
{
|
|
|
return $this->hotspot_coordinates[$id];
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* returns answer hotspot type
|
|
|
*
|
|
|
* @author Toon Keppens
|
|
|
* @param integer Answer ID
|
|
|
* @return integer Answer position
|
|
|
*/
|
|
|
function selectHotspotType($id)
|
|
|
{
|
|
|
return $this->hotspot_type[$id];
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* creates a new answer
|
|
|
*
|
|
|
* @author Olivier Brouckaert
|
|
|
* @param string answer title
|
|
|
* @param integer 0 if bad answer, not 0 if good answer
|
|
|
* @param string answer comment
|
|
|
* @param integer answer weighting
|
|
|
* @param integer answer position
|
|
|
* @param coordinates Coordinates for hotspot exercises (optional)
|
|
|
* @param integer Type for hotspot exercises (optional)
|
|
|
*/
|
|
|
function createAnswer($answer,$correct,$comment,$weighting,$position,$new_hotspot_coordinates = NULL, $new_hotspot_type = NULL,$destination='')
|
|
|
{
|
|
|
$this->new_nbrAnswers++;
|
|
|
$id=$this->new_nbrAnswers;
|
|
|
$this->new_answer[$id]=$answer;
|
|
|
$this->new_correct[$id]=$correct;
|
|
|
$this->new_comment[$id]=$comment;
|
|
|
$this->new_weighting[$id]=$weighting;
|
|
|
$this->new_position[$id]=$position;
|
|
|
$this->new_hotspot_coordinates[$id]=$new_hotspot_coordinates;
|
|
|
$this->new_hotspot_type[$id]=$new_hotspot_type;
|
|
|
$this->new_destination[$id]=$destination;
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* updates an answer
|
|
|
*
|
|
|
* @author Toon Keppens
|
|
|
* @param string Answer title
|
|
|
* @param string Answer comment
|
|
|
* @param integer Answer weighting
|
|
|
* @param integer Answer position
|
|
|
*/
|
|
|
function updateAnswers($answer,$comment,$weighting,$position,$destination)
|
|
|
{
|
|
|
$TBL_REPONSES = Database :: get_course_table(TABLE_QUIZ_ANSWER);
|
|
|
|
|
|
$questionId=$this->questionId;
|
|
|
$sql = "UPDATE $TBL_REPONSES SET " .
|
|
|
"answer = '".Database::escape_string($answer)."', " .
|
|
|
"comment = '".Database::escape_string($comment)."', " .
|
|
|
"ponderation = '".Database::escape_string($weighting)."', " .
|
|
|
"position = '".Database::escape_string($position)."', " .
|
|
|
"destination = '".Database::escape_string($destination)."' " .
|
|
|
"WHERE id = '".Database::escape_string($position)."' " .
|
|
|
"AND question_i` = '".Database::escape_string($questionId)."'";
|
|
|
|
|
|
Database::query($sql);
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* Records answers into the data base
|
|
|
*
|
|
|
* @author - Olivier Brouckaert
|
|
|
*/
|
|
|
function save()
|
|
|
{
|
|
|
$TBL_REPONSES = Database :: get_course_table(TABLE_QUIZ_ANSWER);
|
|
|
|
|
|
$questionId=$this->questionId;
|
|
|
|
|
|
// removes old answers before inserting of new ones
|
|
|
$sql="DELETE FROM $TBL_REPONSES WHERE question_id='".Database::escape_string($questionId)."'";
|
|
|
Database::query($sql);
|
|
|
|
|
|
// inserts new answers into data base
|
|
|
$sql="INSERT INTO $TBL_REPONSES" .
|
|
|
"(id,question_id,answer,correct,comment," .
|
|
|
"ponderation,position,hotspot_coordinates,hotspot_type,destination) VALUES";
|
|
|
|
|
|
for($i=1;$i <= $this->new_nbrAnswers;$i++) {
|
|
|
$answer = Database::escape_string($this->new_answer[$i]);
|
|
|
$correct = Database::escape_string($this->new_correct[$i]);
|
|
|
$comment = Database::escape_string($this->new_comment[$i]);
|
|
|
$weighting = Database::escape_string($this->new_weighting[$i]);
|
|
|
$position = Database::escape_string($this->new_position[$i]);
|
|
|
$hotspot_coordinates = Database::escape_string($this->new_hotspot_coordinates[$i]);
|
|
|
$hotspot_type = Database::escape_string($this->new_hotspot_type[$i]);
|
|
|
$destination = Database::escape_string($this->new_destination[$i]);
|
|
|
|
|
|
$sql.="('$i','$questionId','$answer','$correct','$comment',
|
|
|
'$weighting','$position','$hotspot_coordinates','$hotspot_type','$destination'),";
|
|
|
}
|
|
|
$sql = api_substr($sql,0,-1);
|
|
|
Database::query($sql);
|
|
|
|
|
|
// moves $new_* arrays
|
|
|
$this->answer=$this->new_answer;
|
|
|
$this->correct=$this->new_correct;
|
|
|
$this->comment=$this->new_comment;
|
|
|
$this->weighting=$this->new_weighting;
|
|
|
$this->position=$this->new_position;
|
|
|
$this->hotspot_coordinates=$this->new_hotspot_coordinates;
|
|
|
$this->hotspot_type=$this->new_hotspot_type;
|
|
|
|
|
|
$this->nbrAnswers=$this->new_nbrAnswers;
|
|
|
$this->destination=$this->new_destination;
|
|
|
// clears $new_* arrays
|
|
|
$this->cancel();
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
* Duplicates answers by copying them into another question
|
|
|
*
|
|
|
* @author - Olivier Brouckaert
|
|
|
* @param - integer $newQuestionId - ID of the new question
|
|
|
*/
|
|
|
function duplicate($newQuestionId)
|
|
|
{
|
|
|
$TBL_REPONSES = Database :: get_course_table(TABLE_QUIZ_ANSWER);
|
|
|
|
|
|
// if at least one answer
|
|
|
if($this->nbrAnswers) {
|
|
|
// inserts new answers into data base
|
|
|
$sql="INSERT INTO $TBL_REPONSES" .
|
|
|
"(id,question_id,answer,correct,comment," .
|
|
|
"ponderation,position,hotspot_coordinates,hotspot_type,destination) VALUES";
|
|
|
|
|
|
for($i=1;$i <= $this->nbrAnswers;$i++) {
|
|
|
$answer = Database::escape_string($this->answer[$i]);
|
|
|
$correct = Database::escape_string($this->correct[$i]);
|
|
|
$comment = Database::escape_string($this->comment[$i]);
|
|
|
$weighting = Database::escape_string($this->weighting[$i]);
|
|
|
$position = Database::escape_string($this->position[$i]);
|
|
|
$hotspot_coordinates = Database::escape_string($this->hotspot_coordinates[$i]);
|
|
|
$hotspot_type = Database::escape_string($this->hotspot_type[$i]);
|
|
|
$destination = Database::escape_string($this->destination[$i]);
|
|
|
$sql.="('$i','$newQuestionId','$answer','$correct','$comment'," .
|
|
|
"'$weighting','$position','$hotspot_coordinates','$hotspot_type','$destination'),";
|
|
|
}
|
|
|
|
|
|
$sql=api_substr($sql,0,-1);
|
|
|
Database::query($sql);
|
|
|
}
|
|
|
}
|
|
|
}
|
|
|
|
|
|
endif;
|
|
|
?>
|
