123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492 |
- <?php // $Id: admin.php 9665 2006-10-24 10:43:48Z elixir_inter $
- /*
- ==============================================================================
- Dokeos - elearning and course management software
- Copyright (c) 2004 Dokeos S.A.
- Copyright (c) 2003 Ghent University (UGent)
- Copyright (c) 2001 Universite catholique de Louvain (UCL)
- Copyright (c) Olivier Brouckaert
- For a full list of contributors, see "credits.txt".
- The full license can be read in "license.txt".
- 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 the GNU General Public License for more details.
- Contact: Dokeos, 181 rue Royale, B-1000 Brussels, Belgium, info@dokeos.com
- ==============================================================================
- */
- /**
- * 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"
- *
- * @author Olivier Brouckaert
- * @package dokeos.exercise
- */
- include('exercise.class.php');
- include('question.class.php');
- include('answer.class.php');
- $langFile='exercice';
- include("../inc/global.inc.php");
- include('exercise.lib.php');
- $this_section=SECTION_COURSES;
- 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'];
- // answer types
- define(UNIQUE_ANSWER, 1);
- define(MULTIPLE_ANSWER, 2);
- define(FILL_IN_BLANKS, 3);
- define(MATCHING, 4);
- define(FREE_ANSWER, 5);
- define(HOT_SPOT, 6);
- define(HOT_SPOT_ORDER, 7);
- // allows script inclusions
- define(ALLOWED_TO_INCLUDE,1);
- $is_allowedToEdit=$is_courseAdmin;
- // 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('langUniqueSelect'),get_lang('langMultipleSelect'),get_lang('langFillBlanks'),get_lang('langMatching'),get_lang('freeAnswer'));
- // tables used in the exercise tool
- $TBL_EXERCICE_QUESTION = $_course['dbNameGlu'].'quiz_rel_question';
- $TBL_EXERCICES = $_course['dbNameGlu'].'quiz';
- $TBL_QUESTIONS = $_course['dbNameGlu'].'quiz_question';
- $TBL_REPONSES = $_course['dbNameGlu'].'quiz_answer';
- $TBL_DOCUMENT = $_course['dbNameGlu']."document";
- if(!$is_allowedToEdit)
- {
- api_not_allowed();
- }
- // 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)
- {
- // construction of the Question object
- $objQuestion=new Question();
- // saves the object into the session
- api_session_register('objQuestion');
- // reads question data
- if($editQuestion)
- {
- // question not found
- if(!$objQuestion->read($editQuestion))
- {
- die(get_lang('QuestionNotFound'));
- }
- }
- }
- // checks if the object exists
- if(is_object($objQuestion))
- {
- // gets the question ID
- $questionId=$objQuestion->selectId();
- }
- // question not found
- else
- {
- die(get_lang('QuestionNotFound'));
- }
- }
- // 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');
- }
- $interbreadcrump[]=array("url" => "exercice.php","name" => get_lang('Exercices'));
- // shows a link to go back to the question pool
- if(!$exerciseId && $nameTools != get_lang('ExerciseManagement'))
- {
- $interbreadcrump[]=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");
- ?>
- <h4>
- <?php echo $nameTools; ?>
- </h4>
- <?php
- if($newQuestion || $modifyQuestion)
- {
- // statement management
- $type = $_REQUEST['answerType'];
- ?><input type="hidden" name="Type" value=" <?= $type; ?>" />
- <?php
- include("statement_admin.inc.php");
- }
- /*if($modifyAnswers && !$_REQUEST['setWeighting'])
- { // this might be loaded after statement_admin (second step of answers writing)
- // and $modifyAnswers is then set within statement_admin.inc.php
- // answer management
- include('answer_admin.inc.php');
- }
- */
- if($modifyAnswers)
- { // this might be loaded after statement_admin (second step of answers writing)
- // and $modifyAnswers is then set within statement_admin.inc.php
- // answer management
- include('answer_admin.inc.php');
- }
- if($editQuestion || $usedInSeveralExercises)
- {
- // question management
- include('question_admin.inc.php');
- }
- if(!$newQuestion && !$modifyQuestion && !$editQuestion && !$modifyAnswers)
- {
- // exercise management
- include('exercise_admin.inc.php');
- if(!$modifyExercise)
- {
- // question list management
- include('question_list_admin.inc.php');
- }
- }
- api_session_register('objExercise');
- api_session_register('objQuestion');
- api_session_register('objAnswer');
- Display::display_footer();
- ?>
|