123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509 |
- <?php // $Id: admin.php 21662 2009-06-29 14:55:09Z iflorespaz $
- /* 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 dokeos.exercise
- * @author Olivier Brouckaert
- * @version $Id: admin.php 21662 2009-06-29 14:55:09Z iflorespaz $
- */
- 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 = $_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 ( $questionId ) )
- {
- $questionId = $_SESSION['questionId'];
- }
- if ( empty ( $modifyExercise ) )
- {
- $modifyExercise = $_GET['modifyExercise'];
- }
- // 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((int)$_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."/".md5(time()).".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))
- {
- die(get_lang('QuestionNotFound'));
- }
- // 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);
- }
- // new exercise
- else
- {
- // 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 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'));
- $interbreadcrumb[]=array("url" => "admin.php?exerciseId=".$objExercise->id,"name" => $objExercise->exercise);
- // 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[] = "<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">';
- echo Display::return_icon('preview.gif', get_lang('Preview')).'<a href="exercice_submit.php?'.api_get_cidreq().'&exerciseId='.$objExercise->id.'">'.get_lang('Preview').'</a>';
- if ($show_quiz_edition) {
- echo Display::return_icon('edit.gif', get_lang('ModifyExercise')).'<a href="exercise_admin.php?'.api_get_cidreq().'&modifyExercise=yes&exerciseId='.$objExercise->id.'">'.get_lang('ModifyExercise').'</a>';
- } else {
- echo Display::return_icon('edit_na.gif', get_lang('ModifyExercise')).'<a href="#">'.get_lang('ModifyExercise').'</a>';
- }
- if (isset($_GET['hotspotadmin']) || isset($_GET['newQuestion']) || isset($_GET['myid']))
- echo Display::return_icon('message_reply_forum.png', get_lang('GoBackToQuestionList')).' '.'<a href="admin.php?">'.get_lang('GoBackToQuestionList').'</a><br/>';
- echo '</div>';
- if(isset($_GET['message']))
- {
- if (in_array($_GET['message'], array('ExerciseStored')))
- {
- Display::display_confirmation_message(get_lang($_GET['message']));
- }
- }
- /*
- $description = $objExercise->selectDescription();
- echo '<div class="sectiontitle">'.$objExercise->selectTitle().'</div>';
- if(!empty($description))
- {
- echo '<div class="sectioncomment">'.stripslashes($description).'</div>';
- }
- */
- if($newQuestion || $editQuestion)
- {
- // statement management
- $type = $_REQUEST['answerType'];
- ?><input type="hidden" name="Type" value="<?php echo $type; ?>" />
- <?php
- include('question_admin.inc.php');
- }
- if(isset($_GET['hotspotadmin']))
- {
- include('hotspot_admin.inc.php');
- }
- if(!$newQuestion && !$modifyQuestion && !$editQuestion && !isset($_GET['hotspotadmin']))
- {
- include_once(api_get_path(LIBRARY_PATH).'formvalidator/FormValidator.class.php');
- $form = new FormValidator('exercise_admin', 'post', api_get_self().'?exerciseId='.$_GET['exerciseId']);
- $form -> addElement ('hidden','edit','true');
- //$objExercise -> createForm ($form,'simple');
- if($form -> validate()) {
- $objExercise -> processCreation($form,'simple');
- if($form -> getSubmitValue('edit') == 'true')
- Display::display_confirmation_message(get_lang('ExerciseEdited'));
- }
- if(api_get_setting('search_enabled')=='true' && !extension_loaded('xapian')) {
- Display::display_error_message(get_lang('SearchXapianModuleNotInstaled'));
- }
- $form -> display ();
- echo '<br />';
- // question list management
- include('question_list_admin.inc.php');
- }
- api_session_register('objExercise');
- api_session_register('objQuestion');
- api_session_register('objAnswer');
- Display::display_footer();
- ?>
|