You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
462 lines
16 KiB
462 lines
16 KiB
<?php
|
|
/* For licensing terms, see /license.txt */
|
|
// $Id: testcategory.class.php 2010-12-06 hubert.borderiou
|
|
|
|
if(!class_exists('Testcategory')):
|
|
|
|
class Testcategory {
|
|
public $id;
|
|
public $name;
|
|
public $description;
|
|
|
|
/**
|
|
* Constructor of the class Category
|
|
* @author - Hubert Borderiou
|
|
If you give an in_id and no in_name, you get info concerning the category of id=in_id
|
|
otherwise, you've got an category objet avec your in_id, in_name, in_descr
|
|
*/
|
|
function Testcategory($in_id=0, $in_name = '', $in_description="") {
|
|
if ($in_id != 0 && $in_name == "") {
|
|
$tmpobj = new Testcategory();
|
|
$tmpobj->getCategory($in_id);
|
|
$this->id = $tmpobj->id;
|
|
$this->name = $tmpobj->name;
|
|
$this->description = $tmpobj->description;
|
|
}
|
|
else {
|
|
$this->id = $in_id;
|
|
$this->name = $in_name;
|
|
$this->description = $in_description;
|
|
}
|
|
}
|
|
|
|
/** return the Testcategory object with id=in_id
|
|
*/
|
|
function getCategory($in_id) {
|
|
$t_cattable = Database::get_course_table(TABLE_QUIZ_QUESTION_CATEGORY);
|
|
$in_id = Database::escape_string($in_id);
|
|
$sql = "SELECT * FROM $t_cattable WHERE id=$in_id AND c_id=".api_get_course_int_id();
|
|
$res = Database::query($sql);
|
|
$numrows = Database::num_rows($res);
|
|
if ($numrows > 0) {
|
|
$row = Database::fetch_array($res);
|
|
$this->id = $row['id'];
|
|
$this->name = $row['title'];
|
|
$this->description = $row['description'];
|
|
}
|
|
}
|
|
|
|
/** add Testcategory in the database if name doesn't already exists
|
|
*/
|
|
function addCategoryInBDD() {
|
|
$t_cattable = Database :: get_course_table(TABLE_QUIZ_QUESTION_CATEGORY);
|
|
$v_name = $this->name;
|
|
$v_name = Database::escape_string($v_name);
|
|
$v_description = $this->description;
|
|
$v_description = Database::escape_string($v_description);
|
|
// check if name already exists
|
|
$sql_verif = "SELECT count(*) AS nb FROM $t_cattable WHERE title = '$v_name' AND c_id=".api_get_course_int_id();
|
|
$result_verif = Database::query($sql_verif);
|
|
$data_verif = Database::fetch_array($result_verif);
|
|
// lets add in BDD if not the same name
|
|
if ($data_verif['nb'] <= 0) {
|
|
$c_id = api_get_course_int_id();
|
|
$sql = "INSERT INTO $t_cattable VALUES ('$c_id', '', '$v_name', '$v_description')";
|
|
$res = Database::query($sql);
|
|
return true;
|
|
}
|
|
else {
|
|
return false;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Removes the category with id=in_id from the database if no question use this category
|
|
* @todo I'm removing the $in_id parameter because it seems that you're using $this->id instead of $in_id after confirmation delete this
|
|
* jmontoya
|
|
*/
|
|
//function removeCategory($in_id) {
|
|
function removeCategory() {
|
|
$t_cattable = Database :: get_course_table(TABLE_QUIZ_QUESTION_CATEGORY);
|
|
$v_id = Database::escape_string($this->id);
|
|
$sql = "DELETE FROM $t_cattable WHERE id=$v_id AND c_id=".api_get_course_int_id();
|
|
$res = Database::query($sql);
|
|
if (Database::affected_rows() <= 0) {
|
|
return false;
|
|
} else {
|
|
return true;
|
|
}
|
|
}
|
|
|
|
|
|
/** modify category name or description of category with id=in_id
|
|
*/
|
|
//function modifyCategory($in_id, $in_name, $in_description) {
|
|
function modifyCategory() {
|
|
$t_cattable = Database :: get_course_table(TABLE_QUIZ_QUESTION_CATEGORY);
|
|
$v_id = Database::escape_string($this->id);
|
|
$v_name = Database::escape_string($this->name);
|
|
$v_description = Database::escape_string($this->description);
|
|
$sql = "UPDATE $t_cattable SET title='$v_name', description='$v_description' WHERE id='$v_id' AND c_id=".api_get_course_int_id();
|
|
$res = Database::query($sql);
|
|
if (Database::affected_rows() <= 0) {
|
|
return false;
|
|
}
|
|
else {
|
|
return true;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Gets the number of question of category id=in_id
|
|
* @todo I'm removing the $in_id parameter because it seems that you're using $this->id instead of $in_id after confirmation delete this
|
|
* jmontoya
|
|
*/
|
|
//function getCategoryQuestionsNumber($in_id) {
|
|
function getCategoryQuestionsNumber() {
|
|
$t_reltable = Database::get_course_table(TABLE_QUIZ_QUESTION_REL_CATEGORY);
|
|
$in_id = Database::escape_string($this->id);
|
|
$sql = "SELECT count(*) AS nb FROM $t_reltable WHERE category_id=$in_id AND c_id=".api_get_course_int_id();
|
|
$res = Database::query($sql);
|
|
$row = Database::fetch_array($res);
|
|
return $row['nb'];
|
|
}
|
|
|
|
function display($in_color="#E0EBF5") {
|
|
echo "<textarea style='background-color:$in_color; width:60%; height:100px;'>";
|
|
print_r($this);
|
|
echo "</textarea>";
|
|
}
|
|
|
|
|
|
|
|
/** return an array of all Category objects in the database
|
|
If in_field=="" Return an array of all category objects in the database
|
|
Otherwise, return an array of all in_field value in the database (in_field = id or name or description)
|
|
*/
|
|
public function getCategoryListInfo($in_field="", $in_courseid="") {
|
|
if (empty($in_courseid) || $in_courseid=="") {
|
|
$in_courseid = api_get_course_int_id();
|
|
}
|
|
$t_cattable = Database :: get_course_table(TABLE_QUIZ_QUESTION_CATEGORY);
|
|
$in_field = Database::escape_string($in_field);
|
|
$tabres = array();
|
|
if ($in_field=="") {
|
|
$sql = "SELECT * FROM $t_cattable WHERE c_id=$in_courseid ORDER BY title ASC";
|
|
$res = Database::query($sql);
|
|
while ($row = Database::fetch_array($res)) {
|
|
$tmpcat = new Testcategory($row['id'], $row['title'], $row['description']);
|
|
$tabres[] = $tmpcat;
|
|
}
|
|
}
|
|
else {
|
|
$sql = "SELECT $in_field FROM $t_cattable WHERE c_id=$in_courseid ORDER BY $in_field ASC";
|
|
$res = Database::query($sql);
|
|
while ($row = Database::fetch_array($res)) {
|
|
$tabres[] = $row[$in_field];
|
|
}
|
|
}
|
|
return $tabres;
|
|
}
|
|
|
|
|
|
/**
|
|
Return the testcategory id for question with question_id = $in_questionid
|
|
In this version, a question has only 1 testcategory.
|
|
Return the testcategory id, 0 if none
|
|
*/
|
|
public static function getCategoryForQuestion($in_questionid, $in_courseid="") {
|
|
$result = 0; // result
|
|
if (empty($in_courseid) || $in_courseid=="") {
|
|
$in_courseid = api_get_course_int_id();
|
|
}
|
|
$t_cattable = Database::get_course_table(TABLE_QUIZ_QUESTION_REL_CATEGORY);
|
|
$question_id = Database::escape_string($in_questionid);
|
|
$sql = "SELECT category_id FROM $t_cattable WHERE question_id='$question_id' AND c_id=$in_courseid";
|
|
$res = Database::query($sql);
|
|
$data = Database::fetch_array($res);
|
|
if (Database::num_rows($res) > 0) {
|
|
$result = $data['category_id'];
|
|
}
|
|
return $result;
|
|
}
|
|
|
|
|
|
/**
|
|
* true if question id has a category
|
|
*/
|
|
public static function isQuestionHasCategory($in_questionid) {
|
|
if (Testcategory::getCategoryForQuestion($in_questionid) > 0) {
|
|
return true;
|
|
}
|
|
return false;
|
|
}
|
|
|
|
|
|
/**
|
|
Return the category name for question with question_id = $in_questionid
|
|
In this version, a question has only 1 category.
|
|
Return the category id, "" if none
|
|
*/
|
|
function getCategoryNameForQuestion($in_questionid, $in_courseid="") {
|
|
if (empty($in_courseid) || $in_courseid=="") {
|
|
$in_courseid = api_get_course_int_id();
|
|
}
|
|
$catid = Testcategory::getCategoryForQuestion($in_questionid, $in_courseid);
|
|
$result = ""; // result
|
|
$t_cattable = Database::get_course_table(TABLE_QUIZ_QUESTION_CATEGORY);
|
|
$catid = Database::escape_string($catid);
|
|
$sql = "SELECT title FROM $t_cattable WHERE id='$catid' AND c_id=$in_courseid";
|
|
$res = Database::query($sql);
|
|
$data = Database::fetch_array($res);
|
|
if (Database::num_rows($res) > 0) {
|
|
$result = $data['title'];
|
|
}
|
|
return $result;
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
* return the list of differents categories ID for a test
|
|
* input : test_id
|
|
* return : array of category id (integer)
|
|
* hubert.borderiou 07-04-2011
|
|
*/
|
|
public static function getListOfCategoriesIDForTest($in_testid) {
|
|
// parcourir les questions d'un test, recup les categories uniques dans un tableau
|
|
$tabcat = array();
|
|
$quiz = new Exercise();
|
|
$quiz->read($in_testid);
|
|
$tabQuestionList = $quiz->selectQuestionList();
|
|
// the array given by selectQuestionList start at indice 1 and not at indice 0 !!! ???
|
|
for ($i=1; $i <= count($tabQuestionList); $i++) {
|
|
if (!in_array(Testcategory::getCategoryForQuestion($tabQuestionList[$i]), $tabcat)) {
|
|
$tabcat[] = Testcategory::getCategoryForQuestion($tabQuestionList[$i]);
|
|
}
|
|
}
|
|
return $tabcat;
|
|
}
|
|
|
|
|
|
/**
|
|
* return the list of differents categories NAME for a test
|
|
* input : test_id
|
|
* return : array of string
|
|
* hubert.borderiou 07-04-2011
|
|
*/
|
|
public static function getListOfCategoriesNameForTest($in_testid) {
|
|
$tabcatName = array();
|
|
$tabcatID = getListOfCategoriesNameForTest($in_testid);
|
|
for ($i=0; $i < count($tabcatID); $i++) {
|
|
$cat = new Testcategory($tabcatID[$i]);
|
|
$tabcatName[] = $cat->name;
|
|
}
|
|
return $tabcatName;
|
|
}
|
|
|
|
/**
|
|
* return the number of differents categories for a test
|
|
* input : test_id
|
|
* return : integer
|
|
* hubert.borderiou 07-04-2011
|
|
*/
|
|
public static function getNumberOfCategoriesForTest($in_testid) {
|
|
return count(Testcategory::getListOfCategoriesIDForTest($in_testid));
|
|
}
|
|
|
|
|
|
/**
|
|
* return the number of question of a category id in a test
|
|
* input : test_id, category_id
|
|
* return : integer
|
|
* hubert.borderiou 07-04-2011
|
|
*/
|
|
public static function getNumberOfQuestionsInCategoryForTest($in_testid, $in_categoryid) {
|
|
$nbCatResult = 0;
|
|
$quiz = new Exercise();
|
|
$quiz->read($in_testid);
|
|
$tabQuestionList = $quiz->selectQuestionList();
|
|
// the array given by selectQuestionList start at indice 1 and not at indice 0 !!! ? ? ?
|
|
for ($i=1; $i <= count($tabQuestionList); $i++) {
|
|
if (Testcategory::getCategoryForQuestion($tabQuestionList[$i]) == $in_categoryid) {
|
|
$nbCatResult++;
|
|
}
|
|
}
|
|
return $nbCatResult;
|
|
}
|
|
|
|
/**
|
|
* return the number of question for a test using random by category
|
|
* input : test_id, number of random question (min 1)
|
|
* hubert.borderiou 07-04-2011
|
|
* question witout categories are not counted
|
|
*/
|
|
public static function getNumberOfQuestionRandomByCategory($in_testid, $in_nbrandom) {
|
|
$nbquestionresult = 0;
|
|
$tabcatid = Testcategory::getListOfCategoriesIDForTest($in_testid);
|
|
for ($i=0; $i < count($tabcatid); $i++) {
|
|
if ($tabcatid[$i] > 0) { // 0 = no category for this questio
|
|
$nbQuestionInThisCat = Testcategory::getNumberOfQuestionsInCategoryForTest($in_testid, $tabcatid[$i]);
|
|
if ($nbQuestionInThisCat > $in_nbrandom) {
|
|
$nbquestionresult += $in_nbrandom;
|
|
}
|
|
else {
|
|
$nbquestionresult += $nbQuestionInThisCat;
|
|
}
|
|
}
|
|
}
|
|
return $nbquestionresult;
|
|
}
|
|
|
|
|
|
/**
|
|
* Return an array (id=>name)
|
|
* tabresult[0] = get_lang('NoCategory');
|
|
*
|
|
*/
|
|
function getCategoriesIdAndName($in_courseid="") {
|
|
if (empty($in_courseid) || $in_courseid=="") {
|
|
$in_courseid = api_get_course_int_id();
|
|
}
|
|
$tabcatobject = Testcategory::getCategoryListInfo("", $in_courseid);
|
|
$tabresult = array("0"=>get_lang('NoCategory'));
|
|
for ($i=0; $i < count($tabcatobject); $i++) {
|
|
$tabresult[$tabcatobject[$i]->id] = $tabcatobject[$i]->name;
|
|
}
|
|
return $tabresult;
|
|
}
|
|
|
|
/**
|
|
* return an array of question_id for each category
|
|
* tabres[0] = array of question id with category id = 0 (i.e. no category)
|
|
* tabres[24] = array of question id with category id = 24
|
|
* In this version, a question has 0 or 1 category
|
|
*/
|
|
function getQuestionsByCat($in_exerciceId) {
|
|
$tabres = array();
|
|
$TBL_EXERCICE = Database::get_course_table(TABLE_QUIZ_TEST);
|
|
$TBL_EXERCICE_QUESTION = Database::get_course_table(TABLE_QUIZ_TEST_QUESTION);
|
|
$TBL_QUESTION_REL_CATEGORY = Database::get_course_table(TABLE_QUIZ_QUESTION_REL_CATEGORY);
|
|
$in_exerciceId = intval($in_exerciceId);
|
|
$sql = "SELECT qrc.question_id, qrc.category_id FROM $TBL_QUESTION_REL_CATEGORY qrc, $TBL_EXERCICE_QUESTION eq
|
|
WHERE exercice_id=$in_exerciceId AND eq.question_id=qrc.question_id AND eq.c_id=".api_get_course_int_id()." AND eq.c_id=qrc.c_id ORDER BY category_id, question_id";
|
|
$res = Database::query($sql);
|
|
while ($data = Database::fetch_array($res)) {
|
|
if (!is_array($tabres[$data['category_id']])) {
|
|
$tabres[$data['category_id']] = array();
|
|
}
|
|
$tabres[$data['category_id']][] = $data['question_id'];
|
|
}
|
|
return $tabres;
|
|
}
|
|
|
|
|
|
/**
|
|
* return a tab of $in_number random elements of $in_tab
|
|
*/
|
|
function getNElementsFromArray($in_tab, $in_number) {
|
|
$tabres = $in_tab;
|
|
shuffle($tabres);
|
|
if ($in_number < count($tabres)) {
|
|
$tabres = array_slice($tabres, 0, $in_number);
|
|
}
|
|
return $tabres;
|
|
}
|
|
|
|
/**
|
|
* display the category
|
|
*/
|
|
public static function displayCategoryAndTitle($in_questionID, $in_display_category_name = 1) {
|
|
$is_student = !(api_is_allowed_to_edit(null,true) || api_is_session_admin());
|
|
$objExercise = $_SESSION['objExercise'];
|
|
if (!empty($objExercise)) {
|
|
$in_display_category_name = $objExercise->display_category_name;
|
|
}
|
|
if (Testcategory::getCategoryNameForQuestion($in_questionID) != "" && ($in_display_category_name == 1 || !$is_student)) {
|
|
echo '<div id="question_title" class="sectiontitle">';
|
|
echo get_lang('Category').": ".Testcategory::getCategoryNameForQuestion($in_questionID);
|
|
echo "</div>";
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* Display signs [+] and/or (>0) after question title if question has options
|
|
* scoreAlwaysPositive and/or uncheckedMayScore
|
|
*/
|
|
function displayQuestionOption($in_objQuestion) {
|
|
if ($in_objQuestion->type == MULTIPLE_ANSWER && $in_objQuestion->scoreAlwaysPositive) {
|
|
echo "<span style='font-size:75%'> (>0)</span>";
|
|
}
|
|
if ($in_objQuestion->type == MULTIPLE_ANSWER && $in_objQuestion->uncheckedMayScore) {
|
|
echo "<span style='font-size:75%'> [+]</span>";
|
|
}
|
|
}
|
|
|
|
/**
|
|
* sortTabByBracketLabel ($tabCategoryQuestions)
|
|
* key of $tabCategoryQuestions are the categopy id (0 for not in a category)
|
|
* value is the array of question id of this category
|
|
* Sort question by Category
|
|
*/
|
|
function sortTabByBracketLabel($in_tab) {
|
|
$tabResult = array();
|
|
$tabCatName = array(); // tab of category name
|
|
while (list($cat_id, $tabquestion) = each($in_tab)) {
|
|
$catTitle = new Testcategory($cat_id);
|
|
$tabCatName[$cat_id] = $catTitle->name;
|
|
}
|
|
reset($in_tab);
|
|
// sort table by value, keeping keys as they are
|
|
asort($tabCatName);
|
|
// keys of $tabCatName are keys order for $in_tab
|
|
while (list($key, $val) = each($tabCatName)) {
|
|
$tabResult[$key] = $in_tab[$key];
|
|
}
|
|
return $tabResult;
|
|
}
|
|
|
|
/**
|
|
* return total score for test exe_id for all question in the category $in_cat_id for user
|
|
* If no question for this category, return ""
|
|
*/
|
|
public static function getCatScoreForExeidForUserid($in_cat_id, $in_exe_id, $in_user_id) {
|
|
$tbl_track_attempt = Database::get_statistic_table(TABLE_STATISTIC_TRACK_E_ATTEMPT);
|
|
$tbl_question_rel_category = Database::get_course_table(TABLE_QUIZ_QUESTION_REL_CATEGORY);
|
|
$in_cat_id = intval($in_cat_id);
|
|
$in_exe_id = intval($in_exe_id);
|
|
$in_user_id = intval($in_user_id);
|
|
|
|
$query = "SELECT DISTINCT marks, exe_id, user_id, ta.question_id, category_id FROM $tbl_track_attempt ta , $tbl_question_rel_category qrc
|
|
WHERE ta.question_id=qrc.question_id AND qrc.category_id=$in_cat_id AND exe_id=$in_exe_id AND user_id=$in_user_id";
|
|
$res = Database::query($query);
|
|
$totalcatscore = "";
|
|
while ($data = Database::fetch_array($res)) {
|
|
$totalcatscore += $data['marks'];
|
|
}
|
|
return $totalcatscore;
|
|
}
|
|
|
|
|
|
/**
|
|
* return the number max of question in a category
|
|
* count the number of questions in all categories, and return the max
|
|
* @author - hubert borderiou
|
|
*/
|
|
public static function getNumberMaxQuestionByCat($in_testid) {
|
|
$res_num_max = 0;
|
|
// foreach question
|
|
$tabcatid = Testcategory::getListOfCategoriesIDForTest($in_testid);
|
|
for ($i=0; $i < count($tabcatid); $i++) {
|
|
if ($tabcatid[$i] > 0) { // 0 = no category for this question
|
|
$nbQuestionInThisCat = Testcategory::getNumberOfQuestionsInCategoryForTest($in_testid, $tabcatid[$i]);
|
|
if ($nbQuestionInThisCat > $res_num_max) {
|
|
$res_num_max = $nbQuestionInThisCat;
|
|
}
|
|
}
|
|
}
|
|
return $res_num_max;
|
|
}
|
|
}
|
|
endif; |