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.
500 lines
17 KiB
500 lines
17 KiB
<?php
|
|
/* For licensing terms, see /license.txt */
|
|
/**
|
|
* Exercise administration
|
|
* This script allows to manage (create, modify) an exercise and its questions
|
|
*
|
|
* Following scripts are includes for a best code understanding :
|
|
*
|
|
* - exercise.class.php : for the creation of an Exercise object
|
|
* - question.class.php : for the creation of a Question object
|
|
* - answer.class.php : for the creation of an Answer object
|
|
* - exercise.lib.php : functions used in the exercise tool
|
|
* - exercise_admin.inc.php : management of the exercise
|
|
* - question_admin.inc.php : management of a question (statement & answers)
|
|
* - statement_admin.inc.php : management of a statement
|
|
* - answer_admin.inc.php : management of answers
|
|
* - question_list_admin.inc.php : management of the question list
|
|
*
|
|
* Main variables used in this script :
|
|
*
|
|
* - $is_allowedToEdit : set to 1 if the user is allowed to manage the exercise
|
|
* - $objExercise : exercise object
|
|
* - $objQuestion : question object
|
|
* - $objAnswer : answer object
|
|
* - $aType : array with answer types
|
|
* - $exerciseId : the exercise ID
|
|
* - $picturePath : the path of question pictures
|
|
* - $newQuestion : ask to create a new question
|
|
* - $modifyQuestion : ID of the question to modify
|
|
* - $editQuestion : ID of the question to edit
|
|
* - $submitQuestion : ask to save question modifications
|
|
* - $cancelQuestion : ask to cancel question modifications
|
|
* - $deleteQuestion : ID of the question to delete
|
|
* - $moveUp : ID of the question to move up
|
|
* - $moveDown : ID of the question to move down
|
|
* - $modifyExercise : ID of the exercise to modify
|
|
* - $submitExercise : ask to save exercise modifications
|
|
* - $cancelExercise : ask to cancel exercise modifications
|
|
* - $modifyAnswers : ID of the question which we want to modify answers for
|
|
* - $cancelAnswers : ask to cancel answer modifications
|
|
* - $buttonBack : ask to go back to the previous page in answers of type "Fill in blanks"
|
|
*
|
|
* @package chamilo.exercise
|
|
* @author Olivier Brouckaert
|
|
*/
|
|
/**
|
|
* Code
|
|
*/
|
|
require_once 'exercise.class.php';
|
|
require_once 'question.class.php';
|
|
require_once 'answer.class.php';
|
|
|
|
// Name of the language file that needs to be included
|
|
$language_file='exercice';
|
|
|
|
require_once '../inc/global.inc.php';
|
|
require_once 'exercise.lib.php';
|
|
|
|
$this_section=SECTION_COURSES;
|
|
|
|
$is_allowedToEdit = api_is_allowed_to_edit(null,true);
|
|
|
|
if (!$is_allowedToEdit) {
|
|
api_not_allowed(true);
|
|
}
|
|
|
|
// Allows script inclusions
|
|
define(ALLOWED_TO_INCLUDE,1);
|
|
|
|
require_once api_get_path(LIBRARY_PATH).'fileUpload.lib.php';
|
|
require_once api_get_path(LIBRARY_PATH).'document.lib.php';
|
|
/* stripslashes POST data */
|
|
if($_SERVER['REQUEST_METHOD'] == 'POST') {
|
|
foreach($_POST as $key=>$val) {
|
|
if(is_string($val)) {
|
|
$_POST[$key]=stripslashes($val);
|
|
} elseif(is_array($val)) {
|
|
foreach($val as $key2=>$val2) {
|
|
$_POST[$key][$key2]=stripslashes($val2);
|
|
}
|
|
}
|
|
$GLOBALS[$key]=$_POST[$key];
|
|
}
|
|
}
|
|
|
|
// get vars from GET
|
|
if ( empty ( $exerciseId ) ) {
|
|
$exerciseId = intval($_GET['exerciseId']);
|
|
}
|
|
if ( empty ( $newQuestion ) ) {
|
|
$newQuestion = $_GET['newQuestion'];
|
|
}
|
|
if ( empty ( $modifyAnswers ) ) {
|
|
$modifyAnswers = $_GET['modifyAnswers'];
|
|
}
|
|
if ( empty ( $editQuestion ) ) {
|
|
$editQuestion = $_GET['editQuestion'];
|
|
}
|
|
if ( empty ( $modifyQuestion ) ) {
|
|
$modifyQuestion = $_GET['modifyQuestion'];
|
|
}
|
|
if ( empty ( $deleteQuestion ) ) {
|
|
$deleteQuestion = $_GET['deleteQuestion'];
|
|
}
|
|
if ( empty ($clone_question) ) {
|
|
$clone_question = $_GET['clone_question'];
|
|
}
|
|
if ( empty ( $questionId ) ) {
|
|
$questionId = $_SESSION['questionId'];
|
|
}
|
|
if ( empty ( $modifyExercise ) ) {
|
|
$modifyExercise = $_GET['modifyExercise'];
|
|
}
|
|
|
|
//Cleaning all incomplete attempts of the admin/teacher to avoid weird problems when changing the exercise settings, number of questions, etc
|
|
|
|
delete_all_incomplete_attempts(api_get_user_id(), $exerciseId, api_get_course_id(), api_get_session_id());
|
|
|
|
// get from session
|
|
$objExercise = $_SESSION['objExercise'];
|
|
$objQuestion = $_SESSION['objQuestion'];
|
|
$objAnswer = $_SESSION['objAnswer'];
|
|
|
|
// document path
|
|
$documentPath = api_get_path(SYS_COURSE_PATH).$_course['path'].'/document';
|
|
|
|
// picture path
|
|
$picturePath = $documentPath.'/images';
|
|
|
|
// audio path
|
|
$audioPath=$documentPath.'/audio';
|
|
|
|
// the 5 types of answers
|
|
$aType=array(get_lang('UniqueSelect'),get_lang('MultipleSelect'),get_lang('FillBlanks'),get_lang('Matching'),get_lang('FreeAnswer'));
|
|
|
|
// tables used in the exercise tool
|
|
$TBL_EXERCICE_QUESTION = Database::get_course_table(TABLE_QUIZ_TEST_QUESTION);
|
|
$TBL_EXERCICES = Database::get_course_table(TABLE_QUIZ_TEST);
|
|
$TBL_QUESTIONS = Database::get_course_table(TABLE_QUIZ_QUESTION);
|
|
$TBL_REPONSES = Database::get_course_table(TABLE_QUIZ_ANSWER);
|
|
$TBL_DOCUMENT = Database::get_course_table(TABLE_DOCUMENT);
|
|
|
|
if ($_GET['action'] == 'exportqti2' && !empty($_GET['questionId'])) {
|
|
require_once 'export/qti2/qti2_export.php';
|
|
$export = export_question($_GET['questionId'],true);
|
|
$qid = (int)$_GET['questionId'];
|
|
require_once(api_get_path(LIBRARY_PATH).'pclzip/pclzip.lib.php');
|
|
$archive_path = api_get_path(SYS_ARCHIVE_PATH);
|
|
$temp_dir_short = uniqid();
|
|
$temp_zip_dir = $archive_path."/".$temp_dir_short;
|
|
if(!is_dir($temp_zip_dir)) mkdir($temp_zip_dir, api_get_permissions_for_new_directories());
|
|
$temp_zip_file = $temp_zip_dir."/".api_get_unique_id().".zip";
|
|
$temp_xml_file = $temp_zip_dir."/qti2export_".$qid.'.xml';
|
|
file_put_contents($temp_xml_file,$export);
|
|
$zip_folder=new PclZip($temp_zip_file);
|
|
$zip_folder->add($temp_xml_file, PCLZIP_OPT_REMOVE_ALL_PATH);
|
|
$name = 'qti2_export_'.$qid.'.zip';
|
|
|
|
DocumentManager::file_send_for_download($temp_zip_file,true,$name);
|
|
unlink($temp_zip_file);
|
|
unlink($temp_xml_file);
|
|
rmdir($temp_zip_dir);
|
|
//DocumentManager::string_send_for_download($export,true,'qti2export_q'.$_GET['questionId'].'.xml');
|
|
exit; //otherwise following clicks may become buggy
|
|
}
|
|
|
|
// intializes the Exercise object
|
|
if (!is_object($objExercise)) {
|
|
// construction of the Exercise object
|
|
$objExercise = new Exercise();
|
|
|
|
// creation of a new exercise if wrong or not specified exercise ID
|
|
if ($exerciseId) {
|
|
$objExercise->read($exerciseId);
|
|
}
|
|
// saves the object into the session
|
|
api_session_register('objExercise');
|
|
}
|
|
|
|
// doesn't select the exercise ID if we come from the question pool
|
|
if(!$fromExercise) {
|
|
// gets the right exercise ID, and if 0 creates a new exercise
|
|
if(!$exerciseId = $objExercise->selectId()) {
|
|
$modifyExercise='yes';
|
|
}
|
|
}
|
|
|
|
$nbrQuestions = $objExercise->selectNbrQuestions();
|
|
|
|
// intializes the Question object
|
|
if ($editQuestion || $newQuestion || $modifyQuestion || $modifyAnswers) {
|
|
if ($editQuestion || $newQuestion) {
|
|
|
|
// reads question data
|
|
if ($editQuestion) {
|
|
// question not found
|
|
if (!$objQuestion = Question::read($editQuestion)) {
|
|
api_not_allowed();
|
|
}
|
|
// saves the object into the session
|
|
api_session_register('objQuestion');
|
|
}
|
|
}
|
|
|
|
// checks if the object exists
|
|
if(is_object($objQuestion)) {
|
|
// gets the question ID
|
|
$questionId = $objQuestion->selectId();
|
|
}
|
|
}
|
|
|
|
|
|
|
|
// if cancelling an exercise
|
|
if ($cancelExercise) {
|
|
// existing exercise
|
|
if($exerciseId) {
|
|
unset($modifyExercise);
|
|
} else {
|
|
// new exercise
|
|
// goes back to the exercise list
|
|
header('Location: exercice.php');
|
|
exit();
|
|
}
|
|
}
|
|
|
|
// if cancelling question creation/modification
|
|
if ($cancelQuestion) {
|
|
// if we are creating a new question from the question pool
|
|
if(!$exerciseId && !$questionId) {
|
|
// goes back to the question pool
|
|
header('Location: question_pool.php');
|
|
exit();
|
|
} else {
|
|
// goes back to the question viewing
|
|
$editQuestion=$modifyQuestion;
|
|
|
|
unset($newQuestion,$modifyQuestion);
|
|
}
|
|
}
|
|
|
|
if (isset($clone_question) && !empty($objExercise->id)) {
|
|
$old_question_obj = Question::read($clone_question);
|
|
$old_question_obj->question = $old_question_obj->question.' - '.get_lang('Copy');
|
|
|
|
$new_id = $old_question_obj->duplicate();
|
|
$new_question_obj = Question::read($new_id);
|
|
$new_question_obj->addToList($exerciseId);
|
|
|
|
// This should be moved to the duplicate function
|
|
$new_answer_obj = new Answer($clone_question);
|
|
$new_answer_obj->read();
|
|
$new_answer_obj->duplicate($new_id);
|
|
header('Location: admin.php?'.api_get_cidreq().'&exerciseId='.$objExercise->id);
|
|
exit;
|
|
}
|
|
|
|
// if cancelling answer creation/modification
|
|
if($cancelAnswers) {
|
|
// goes back to the question viewing
|
|
$editQuestion=$modifyAnswers;
|
|
unset($modifyAnswers);
|
|
}
|
|
|
|
// modifies the query string that is used in the link of tool name
|
|
if($editQuestion || $modifyQuestion || $newQuestion || $modifyAnswers) {
|
|
$nameTools = get_lang('QuestionManagement');
|
|
}
|
|
|
|
if (isset($_SESSION['gradebook'])){
|
|
$gradebook= $_SESSION['gradebook'];
|
|
}
|
|
|
|
if (!empty($gradebook) && $gradebook=='view') {
|
|
$interbreadcrumb[]= array (
|
|
'url' => '../gradebook/'.$_SESSION['gradebook_dest'],
|
|
'name' => get_lang('ToolGradebook')
|
|
);
|
|
}
|
|
|
|
$interbreadcrumb[] = array("url" => "exercice.php","name" => get_lang('Exercices'));
|
|
if (isset($_GET['newQuestion']) || isset($_GET['editQuestion']) ) {
|
|
$interbreadcrumb[] = array("url" => "admin.php?exerciseId=".$objExercise->id, "name" => $objExercise->name);
|
|
} else {
|
|
$interbreadcrumb[] = array("url" => "#", "name" => $objExercise->name);
|
|
}
|
|
|
|
// shows a link to go back to the question pool
|
|
if(!$exerciseId && $nameTools != get_lang('ExerciseManagement')){
|
|
$interbreadcrumb[]=array("url" => "question_pool.php?fromExercise=$fromExercise","name" => get_lang('QuestionPool'));
|
|
}
|
|
|
|
// if the question is duplicated, disable the link of tool name
|
|
if($modifyIn == 'thisExercise') {
|
|
if($buttonBack) {
|
|
$modifyIn='allExercises';
|
|
} else {
|
|
$noPHP_SELF=true;
|
|
}
|
|
}
|
|
|
|
|
|
$htmlHeadXtra[] = api_get_jquery_ui_js();
|
|
|
|
$htmlHeadXtra[] = '<script type="text/javascript">
|
|
|
|
function multiple_answer_true_false_onchange(variable) {
|
|
var result = variable.checked;
|
|
var id = variable.id;
|
|
var weight_id = "weighting_" + id;
|
|
var array_result=new Array(); array_result[1]="1"; array_result[0]= "-0.50"; array_result[-1]= "0";
|
|
if (result) {
|
|
result = 1;
|
|
} else {
|
|
result = 0;
|
|
}
|
|
document.getElementById(weight_id).value = array_result[result];
|
|
}
|
|
|
|
|
|
</script>';
|
|
|
|
$htmlHeadXtra[] = "<script type=\"text/javascript\" src=\"../plugin/hotspot/JavaScriptFlashGateway.js\"></script>
|
|
<script src=\"../plugin/hotspot/hotspot.js\" type=\"text/javascript\"></script>
|
|
<script language=\"JavaScript\" type=\"text/javascript\">
|
|
<!--
|
|
// -----------------------------------------------------------------------------
|
|
// Globals
|
|
// Major version of Flash required
|
|
var requiredMajorVersion = 7;
|
|
// Minor version of Flash required
|
|
var requiredMinorVersion = 0;
|
|
// Minor version of Flash required
|
|
var requiredRevision = 0;
|
|
// the version of javascript supported
|
|
var jsVersion = 1.0;
|
|
// -----------------------------------------------------------------------------
|
|
// -->
|
|
</script>
|
|
<script language=\"VBScript\" type=\"text/vbscript\">
|
|
<!-- // Visual basic helper required to detect Flash Player ActiveX control version information
|
|
Function VBGetSwfVer(i)
|
|
on error resume next
|
|
Dim swControl, swVersion
|
|
swVersion = 0
|
|
|
|
set swControl = CreateObject(\"ShockwaveFlash.ShockwaveFlash.\" + CStr(i))
|
|
if (IsObject(swControl)) then
|
|
swVersion = swControl.GetVariable(\"\$version\")
|
|
end if
|
|
VBGetSwfVer = swVersion
|
|
End Function
|
|
// -->
|
|
</script>
|
|
|
|
<script language=\"JavaScript1.1\" type=\"text/javascript\">
|
|
<!-- // Detect Client Browser type
|
|
var isIE = (navigator.appVersion.indexOf(\"MSIE\") != -1) ? true : false;
|
|
var isWin = (navigator.appVersion.toLowerCase().indexOf(\"win\") != -1) ? true : false;
|
|
var isOpera = (navigator.userAgent.indexOf(\"Opera\") != -1) ? true : false;
|
|
jsVersion = 1.1;
|
|
// JavaScript helper required to detect Flash Player PlugIn version information
|
|
function JSGetSwfVer(i){
|
|
// NS/Opera version >= 3 check for Flash plugin in plugin array
|
|
if (navigator.plugins != null && navigator.plugins.length > 0) {
|
|
if (navigator.plugins[\"Shockwave Flash 2.0\"] || navigator.plugins[\"Shockwave Flash\"]) {
|
|
var swVer2 = navigator.plugins[\"Shockwave Flash 2.0\"] ? \" 2.0\" : \"\";
|
|
var flashDescription = navigator.plugins[\"Shockwave Flash\" + swVer2].description;
|
|
descArray = flashDescription.split(\" \");
|
|
tempArrayMajor = descArray[2].split(\".\");
|
|
versionMajor = tempArrayMajor[0];
|
|
versionMinor = tempArrayMajor[1];
|
|
if ( descArray[3] != \"\" ) {
|
|
tempArrayMinor = descArray[3].split(\"r\");
|
|
} else {
|
|
tempArrayMinor = descArray[4].split(\"r\");
|
|
}
|
|
versionRevision = tempArrayMinor[1] > 0 ? tempArrayMinor[1] : 0;
|
|
flashVer = versionMajor + \".\" + versionMinor + \".\" + versionRevision;
|
|
} else {
|
|
flashVer = -1;
|
|
}
|
|
}
|
|
// MSN/WebTV 2.6 supports Flash 4
|
|
else if (navigator.userAgent.toLowerCase().indexOf(\"webtv/2.6\") != -1) flashVer = 4;
|
|
// WebTV 2.5 supports Flash 3
|
|
else if (navigator.userAgent.toLowerCase().indexOf(\"webtv/2.5\") != -1) flashVer = 3;
|
|
// older WebTV supports Flash 2
|
|
else if (navigator.userAgent.toLowerCase().indexOf(\"webtv\") != -1) flashVer = 2;
|
|
// Can't detect in all other cases
|
|
else {
|
|
|
|
flashVer = -1;
|
|
}
|
|
return flashVer;
|
|
}
|
|
// When called with reqMajorVer, reqMinorVer, reqRevision returns true if that version or greater is available
|
|
function DetectFlashVer(reqMajorVer, reqMinorVer, reqRevision)
|
|
{
|
|
reqVer = parseFloat(reqMajorVer + \".\" + reqRevision);
|
|
// loop backwards through the versions until we find the newest version
|
|
for (i=25;i>0;i--) {
|
|
if (isIE && isWin && !isOpera) {
|
|
versionStr = VBGetSwfVer(i);
|
|
} else {
|
|
versionStr = JSGetSwfVer(i);
|
|
}
|
|
if (versionStr == -1 ) {
|
|
return false;
|
|
} else if (versionStr != 0) {
|
|
if(isIE && isWin && !isOpera) {
|
|
tempArray = versionStr.split(\" \");
|
|
tempString = tempArray[1];
|
|
versionArray = tempString .split(\",\");
|
|
} else {
|
|
versionArray = versionStr.split(\".\");
|
|
}
|
|
versionMajor = versionArray[0];
|
|
versionMinor = versionArray[1];
|
|
versionRevision = versionArray[2];
|
|
|
|
versionString = versionMajor + \".\" + versionRevision; // 7.0r24 == 7.24
|
|
versionNum = parseFloat(versionString);
|
|
// is the major.revision >= requested major.revision AND the minor version >= requested minor
|
|
if ( (versionMajor > reqMajorVer) && (versionNum >= reqVer) ) {
|
|
return true;
|
|
} else {
|
|
return ((versionNum >= reqVer && versionMinor >= reqMinorVer) ? true : false );
|
|
}
|
|
}
|
|
}
|
|
}
|
|
// -->
|
|
</script>";
|
|
|
|
Display::display_header($nameTools,'Exercise');
|
|
|
|
|
|
$show_quiz_edition = true;
|
|
if (isset($exerciseId) && !empty($exerciseId)) {
|
|
$TBL_LP_ITEM = Database::get_course_table(TABLE_LP_ITEM);
|
|
$sql="SELECT max_score FROM $TBL_LP_ITEM
|
|
WHERE item_type = '".TOOL_QUIZ."' AND path ='".Database::escape_string($exerciseId)."'";
|
|
$result = Database::query($sql);
|
|
if (Database::num_rows($result) > 0) {
|
|
Display::display_warning_message(get_lang('EditingExerciseCauseProblemsInLP'));
|
|
$show_quiz_edition = false;
|
|
}
|
|
}
|
|
|
|
echo '<div class="actions">';
|
|
if (isset($_GET['hotspotadmin']) || isset($_GET['newQuestion']) || isset($_GET['myid']))
|
|
echo '<a href="admin.php?exerciseId='.$exerciseId.'">'.Display::return_icon('back.png', get_lang('GoBackToQuestionList'),'','32').'</a>';
|
|
|
|
if (!isset($_GET['hotspotadmin']) && !isset($_GET['newQuestion']) && !isset($_GET['myid']) && !isset($_GET['editQuestion'])) {
|
|
echo '<a href="exercice.php?'.api_get_cidReq().'">'.Display::return_icon('back.png', get_lang('BackToExercisesList'),'','32').'</a>';
|
|
}
|
|
echo '<a href="overview.php?'.api_get_cidreq().'&exerciseId='.$objExercise->id.'&preview=1">'.Display::return_icon('preview_view.png', get_lang('Preview'),'','32').'</a>';
|
|
|
|
echo Display::url(Display::return_icon('test_results.png', get_lang('Results'),'','32'), 'exercice.php?'.api_get_cidReq().'&show=result&exerciseId='.$objExercise->id);
|
|
|
|
if ($show_quiz_edition) {
|
|
echo '<a href="exercise_admin.php?'.api_get_cidreq().'&modifyExercise=yes&exerciseId='.$objExercise->id.'">'.Display::return_icon('settings.png', get_lang('ModifyExercise'),'','32').'</a>';
|
|
} else {
|
|
echo '<a href="">'.Display::return_icon('settings_na.png', get_lang('ModifyExercise'),'','32').'</a>';
|
|
}
|
|
|
|
echo '</div>';
|
|
|
|
if (isset($_GET['message'])) {
|
|
if (in_array($_GET['message'], array('ExerciseStored', 'ItemUpdated', 'ItemAdded'))) {
|
|
Display::display_confirmation_message(get_lang($_GET['message']));
|
|
}
|
|
}
|
|
|
|
if ($newQuestion || $editQuestion) {
|
|
// statement management
|
|
$type = Security::remove_XSS($_REQUEST['answerType']);
|
|
echo '<input type="hidden" name="Type" value="'.$type.'" />';
|
|
require 'question_admin.inc.php';
|
|
}
|
|
|
|
if (isset($_GET['hotspotadmin'])) {
|
|
if (!is_object($objQuestion)) {
|
|
$objQuestion = Question :: read($_GET['hotspotadmin']);
|
|
}
|
|
if (!$objQuestion) {
|
|
api_not_allowed();
|
|
}
|
|
require 'hotspot_admin.inc.php';}
|
|
if (!$newQuestion && !$modifyQuestion && !$editQuestion && !isset($_GET['hotspotadmin'])) {
|
|
// question list management
|
|
require 'question_list_admin.inc.php';
|
|
}
|
|
|
|
api_session_register('objExercise');
|
|
api_session_register('objQuestion');
|
|
api_session_register('objAnswer');
|
|
|
|
Display::display_footer();
|
|
|