123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486 |
- <?php
- /*
- DOKEOS - elearning and course management software
- For a full list of contributors, see documentation/credits.html
- This program is free software; you can redistribute it and/or
- modify it under the terms of the GNU General Public License
- as published by the Free Software Foundation; either version 2
- of the License, or (at your option) any later version.
- See "documentation/licence.html" more details.
- Contact:
- Dokeos
- Rue des Palais 44 Paleizenstraat
- B-1030 Brussels - Belgium
- Tel. +32 (2) 211 34 56
- */
- /**
- * 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 13302 2007-09-27 04:10:15Z yannoo $
- */
- include('exercise.class.php');
- include('question.class.php');
- include('answer.class.php');
- // name of the language file that needs to be included
- $language_file='exercice';
- include("../inc/global.inc.php");
- include('exercise.lib.php');
- $this_section=SECTION_COURSES;
- $is_allowedToEdit=api_is_allowed_to_edit();
- if(!$is_allowedToEdit)
- {
- api_not_allowed(true);
- }
- // allows script inclusions
- define(ALLOWED_TO_INCLUDE,1);
- include_once(api_get_path(LIBRARY_PATH).'fileUpload.lib.php');
- include_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 = mysql_real_escape_string($_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');
- $garbage_path = api_get_path(GARBAGE_PATH);
- $temp_dir_short = uniqid();
- $temp_zip_dir = $garbage_path."/".$temp_dir_short;
- if(!is_dir($temp_zip_dir)) mkdir($temp_zip_dir);
- $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_zip_dir, PCLZIP_OPT_REMOVE_PATH, $temp_zip_dir);
- $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');
- }
- else
- {
- $nameTools=get_lang('ExerciseManagement');
- }
- $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");
- if(isset($_GET['message']))
- {
- if (in_array($_GET['message'], array('ExerciseStored')))
- {
- Display::display_confirmation_message(get_lang($_GET['message']));
- }
- }
- $description = $objExercise->selectDescription();
- echo '<h3 style="display:inline">'.$objExercise->selectTitle().'</h3> ';
- if(!empty($description))
- {
- echo '<div id="description_box">'.stripslashes($description).'</div>';
- }
- echo '<br /><br />';
- 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']))
- {
- // question list management
- include('question_list_admin.inc.php');
- }
- api_session_register('objExercise');
- api_session_register('objQuestion');
- api_session_register('objAnswer');
- Display::display_footer();
- ?>
|