123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750 |
- <?php // $Id: $
- if ( count( get_included_files() ) == 1 ) die( '---' );
- /**
- * @copyright (c) 2001-2006 Universite catholique de Louvain (UCL)
- *
- * @license http://www.gnu.org/copyleft/gpl.html (GPL) GENERAL PUBLIC LICENSE
- *
- * @package dokeos.exercise
- *
- * @author claro team <cvs@claroline.net>
- * @author Guillaume Lederer <guillaume@claroline.net>
- */
- /**
- * function to create a temporary directory (SAME AS IN MODULE ADMIN)
- */
- function tempdir($dir, $prefix='tmp', $mode=0777)
- {
- if (substr($dir, -1) != '/') $dir .= '/';
- do
- {
- $path = $dir.$prefix.mt_rand(0, 9999999);
- } while (!mkdir($path, $mode));
- return $path;
- }
- /**
- * @return the path of the temporary directory where the exercise was uploaded and unzipped
- */
- function get_and_unzip_uploaded_exercise()
- {
- $backlog_message = array();
- //Check if the file is valid (not to big and exists)
- if( !isset($_FILES['uploadedExercise'])
- || !is_uploaded_file($_FILES['uploadedExercise']['tmp_name']))
- {
- $backlog_message[] = get_lang('Problem with file upload');
- }
- else
- {
- $backlog_message[] = get_lang('Temporary file is : ') . $_FILES['uploadedExercise']['tmp_name'];
- }
- //1- Unzip folder in a new repository in claroline/module
- include_once (realpath(dirname(__FILE__) . '/../../inc/lib/pclzip/') . '/pclzip.lib.php');
- //unzip files
- $exerciseRepositorySys = get_conf('rootSys') . get_conf('exerciseRepository','cache/');
- //create temp dir for upload
- claro_mkdir($exerciseRepositorySys);
- $uploadDirFullPath = tempdir($exerciseRepositorySys);
- $uploadDir = str_replace($exerciseRepositorySys,'',$uploadDirFullPath);
- $exercisePath = $exerciseRepositorySys.$uploadDir.'/';
- if ( preg_match('/.zip$/i', $_FILES['uploadedExercise']['name']) && treat_uploaded_file($_FILES['uploadedExercise'],$exerciseRepositorySys, $uploadDir, get_conf('maxFilledSpaceForExercise' , 10000000),'unzip',true))
- {
- $backlog_message[] = get_lang('Files dezipped sucessfully in ' ) . $exercisePath;
- if (!function_exists('gzopen'))
- {
- $backlog_message[] = get_lang('Error : no zlib extension found');
- claro_delete_file($exercisePath);
- return claro_failure::set_failure($backlog_message);
- }
- }
- else
- {
- $backlog_message[] = get_lang('Impossible to unzip file');
- claro_delete_file($exercisePath);
- return claro_failure::set_failure($backlog_message);
- }
- return $exercisePath;
- }
- /**
- * main function to import an exercise,
- *
- * @return an array as a backlog of what was really imported, and error or debug messages to display
- */
- function import_exercise($file)
- {
- global $exercise_info;
- global $element_pile;
- global $non_HTML_tag_to_avoid;
- global $record_item_body;
- global $backlog_message;
- //get required table names
- $tbl_cdb_names = claro_sql_get_course_tbl();
- $tbl_quiz_exercise = $tbl_cdb_names['qwz_exercise'];
- $tbl_quiz_question = $tbl_cdb_names['qwz_question'];
- //set some default values for the new exercise
- $exercise_info = array();
- $exercise_info['name'] = preg_replace('/.zip$/i','' ,$file);
- $exercise_info['description'] = get_lang('undefined description');
- $exercise_info['question'] = array();
- $element_pile = array();
- $backlog_message = array();
- //create parser and array to retrieve info from manifest
- $element_pile = array(); //pile to known the depth in which we are
- $module_info = array(); //array to store the info we need
- //unzip the uploaded file in a tmp directory
- $exercisePath = get_and_unzip_uploaded_exercise();
- //find the different manifests for each question and parse them.
- $exerciseHandle = opendir($exercisePath);
- //find each question repository in the uploaded exercise folder
- array_push ($backlog_message, get_lang('XML question files found : '));
- $question_number = 0;
- //used to specify the question directory where files could be found in relation in any question
- global $questionTempDir;
- //1- parse the parent directory
- $questionHandle = opendir($exercisePath);
- while (false !== ($questionFile = readdir($questionHandle)))
- {
- if (preg_match('/.xml$/i' ,$questionFile))
- {
- array_push ($backlog_message, get_lang("XML question file found : ".$questionFile));
- parse_file($exercisePath, '', $questionFile);
- }//end if xml question file found
- }//end while question rep
- //2- parse every subdirectory to search xml question files
- while (false !== ($file = readdir($exerciseHandle)))
- {
- if (is_dir($exercisePath.$file) && $file != "." && $file != "..")
- {
- //find each manifest for each question repository found
- $questionHandle = opendir($exercisePath.$file);
- while (false !== ($questionFile = readdir($questionHandle)))
- {
- if (preg_match('/.xml$/i' ,$questionFile))
- {
- parse_file($exercisePath, $file, $questionFile);
- }//end if xml question file found
- }//end while question rep
- } //if is_dir
- }//end while loop to find each question data's
- //Display data found
- array_push ($backlog_message, 'Exercise name : <b>' . $exercise_info['name'] . '</b>');
- array_push ($backlog_message, 'Exercise description : ' . $exercise_info['description']);
- foreach ($exercise_info['question'] as $key => $question)
- {
- $question_number++;
- array_push ($backlog_message, '<b>'.$question_number.'-</b> Question found (' .$key. ') : <b>' . $question['title'] . '</b>');
- if (isset($question['statement'])) array_push ($backlog_message, '* Statement : ' . $question['statement']);
- array_push ($backlog_message, '* Type : ' . $question['type']);
- foreach ($exercise_info['question'][$key]['answer'] as $answer)
- {
- if ($question['type']=="MATCHING")
- {
- array_push ($backlog_message, '** Matchset : ');
- foreach ($answer as $matchSetElement)
- {
- array_push ($backlog_message, '*** Element ' . $matchSetElement);
- }
- }
- else
- {
- array_push ($backlog_message, '** Answer found : ' . $answer['value']);
- if (isset($answer['feedback'])) array_push ($backlog_message, '*** Answer feedback : ' . $answer['feedback']);
- }
- }
- if (isset($question['weighting']))
- {
- array_push ($backlog_message, '* WEIGHTING for Answers :');
- foreach ($question['weighting'] as $key => $weighting)
- {
- array_push ($backlog_message, '** Answer : '.$key.' ==> weighting : '.$weighting);
- }
- }
- if (isset($question['correct_answers']))
- {
- array_push ($backlog_message, '* CORRECT ANSWERS :');
- foreach ($question['correct_answers'] as $answerIdent)
- {
- array_push ($backlog_message, '* Answer : '.$answerIdent);
- }
- }
- if (isset($question['response_text']))
- {
- array_push ($backlog_message, '* Text to fill in : '.$question['response_text'] );
- }
- }
- //---------------------
- //add exercise in tool
- //---------------------
- //1.create exercise
- $exercise = new Exercise();
- $exercise->setTitle($exercise_info['name']);
- $exercise->setDescription($exercise_info['description']);
- if ($exercise->validate())
- {
- $exercise_id = $exercise->save();
- }
- else
- {
- array_push ($backlog_message, 'EXERCISE DATA INVALID !!!');
- }
- //For each question found...
- foreach($exercise_info['question'] as $key => $question_array)
- {
- //2.create question
- $question = new ImsQuestion();
- if (isset($question_array['title'])) $question->setTitle($question_array['title']);
- if (isset($question_array['statement'])) $question->setDescription($question_array['statement']);
- $question->setType($question_array['type']);
- if ($question->validate())
- {
- $question_id = $question->save();
- if ($question_id)
- {
- //3.create answers
- $question->setAnswer();
- $question->import($exercise_info['question'][$key], $exercise_info['question'][$key]['tempdir']);
- $exercise->addQuestion($question_id);
- $question->answer->save();
- $question->save();
- }
- else
- {
- array_push ($backlog_message, 'IMPOSSIBLE TO SAVE QUESTION !!!');
- }
- }
- else
- {
- array_push ($backlog_message, 'QUESTION DATA INVALID !!!');
- }
- }
- $link = "<center><a href=\"../exercise_submit.php?gradebook=$gradebook&exId=".$exercise_id."\">".get_lang('See the exercise')."</a></center>";
- array_push ($backlog_message, $link);
- //delete the temp dir where the exercise was unzipped
- claro_delete_file($exercisePath);
- return $backlog_message;
- }
- function parse_file($exercisePath, $file, $questionFile)
- {
- global $exercise_info;
- global $element_pile;
- global $non_HTML_tag_to_avoid;
- global $record_item_body;
- $questionTempDir = $exercisePath.$file.'/';
- $questionFilePath = $questionTempDir.$questionFile;
- $backlog_message = array();
- array_push ($backlog_message, "* ".$questionFile);
- if (!($fp = @fopen($questionFilePath, 'r')))
- {
- array_push ($backlog_message, get_lang("Error opening question's XML file"));
- return $backlog_message;
- }
- else
- {
- $data = fread($fp, filesize( $questionFilePath));
- }
- //parse XML question file
- //used global variable start values declaration :
- $record_item_body = false;
- $non_HTML_tag_to_avoid = array(
- "SIMPLECHOICE",
- "CHOICEINTERACTION",
- "INLINECHOICEINTERACTION",
- "INLINECHOICE",
- "SIMPLEMATCHSET",
- "SIMPLEASSOCIABLECHOICE",
- "TEXTENTRYINTERACTION",
- "FEEDBACKINLINE",
- "MATCHINTERACTION",
- "ITEMBODY",
- "BR",
- "IMG"
- );
- //this array to detect tag not supported by claroline import in the xml file to warn the user.
- $non_supported_content_in_question = array(
- "GAPMATCHINTERACTION",
- "EXTENDEDTEXTINTERACTION",
- "HOTTEXTINTERACTION",
- "HOTSPOTINTERACTION",
- "SELECTPOINTINTERACTION",
- "GRAPHICORDERINTERACTION",
- "GRAPHICASSOCIATIONINTERACTION",
- "GRAPHICGAPMATCHINTERACTION",
- "POSITIONOBJECTINTERACTION",
- "SLIDERINTERACTION",
- "DRAWINGINTERACTION",
- "UPLOADINTERACTION",
- "RESPONSECONDITION",
- "RESPONSEIF"
- );
- $question_format_supported = true;
- $xml_parser = xml_parser_create();
- xml_set_element_handler($xml_parser, 'startElement', 'endElement');
- xml_set_character_data_handler($xml_parser, 'elementData');
- if (!xml_parse($xml_parser, $data, feof($fp)))
- {
- // if reading of the xml file in not successfull :
- // set errorFound, set error msg, break while statement
- array_push ($backlog_message, get_lang('Error reading XML file') );
- return $backlog_message;
- }
- //close file
- fclose($fp);
- if ($question_format_supported)
- {
- array_push ($backlog_message, get_lang('Question format found') );
- }
- else
- {
- array_push ($backlog_message, get_lang('ERROR in:<b>'.$questionFile.'</b> Question format unknown') );
- }
- }
- /**
- * Function used by the SAX xml parser when the parser meets a opening tag
- *
- * @param unknown_type $parser xml parser created with "xml_parser_create()"
- * @param unknown_type $name name of the element
- * @param unknown_type $attributes
- */
- function startElement($parser, $name, $attributes)
- {
- global $element_pile;
- global $exercise_info;
- global $current_question_ident;
- global $current_answer_id;
- global $current_match_set;
- global $currentAssociableChoice;
- global $current_question_item_body;
- global $record_item_body;
- global $non_HTML_tag_to_avoid;
- global $current_inlinechoice_id;
- global $cardinality;
- global $questionTempDir;
- array_push($element_pile,$name);
- $current_element = end($element_pile);
- if (sizeof($element_pile)>=2) $parent_element = $element_pile[sizeof($element_pile)-2]; else $parent_element = "";
- if (sizeof($element_pile)>=3) $grant_parent_element = $element_pile[sizeof($element_pile)-3]; else $grant_parent_element ="";
- if ($record_item_body)
- {
- if ((!in_array($current_element,$non_HTML_tag_to_avoid)))
- {
- $current_question_item_body .= "<".$name;
- foreach ($attributes as $attribute_name => $attribute_value)
- {
- $current_question_item_body .= " ".$attribute_name."=\"".$attribute_value."\"";
- }
- $current_question_item_body .= ">";
- }
- else
- {
- //in case of FIB question, we replace the IMS-QTI tag b y the correct answer between "[" "]",
- //we first save with claroline tags ,then when the answer will be parsed, the claroline tags will be replaced
- if ($current_element=='INLINECHOICEINTERACTION')
- {
- $current_question_item_body .="**claroline_start**".$attributes['RESPONSEIDENTIFIER']."**claroline_end**";
- }
- if ($current_element=='TEXTENTRYINTERACTION')
- {
- $correct_answer_value = $exercise_info['question'][$current_question_ident]['correct_answers'][$current_answer_id];
- $current_question_item_body .= "[".$correct_answer_value."]";
- }
- if ($current_element=='BR')
- {
- $current_question_item_body .= "<BR/>";
- }
- }
- }
- switch ($current_element)
- {
- case 'ASSESSMENTITEM' :
- {
- //retrieve current question
- $current_question_ident = $attributes['IDENTIFIER'];
- $exercise_info['question'][$current_question_ident] = array();
- $exercise_info['question'][$current_question_ident]['answer'] = array();
- $exercise_info['question'][$current_question_ident]['correct_answers'] = array();
- $exercise_info['question'][$current_question_ident]['title'] = $attributes['TITLE'];
- $exercise_info['question'][$current_question_ident]['tempdir'] = $questionTempDir;
- }
- break;
- case 'SECTION' :
- {
- //retrieve exercise name
- $exercise_info['name'] = $attributes['TITLE'];
- }
- break;
- case 'RESPONSEDECLARATION' :
- {
- //retrieve question type
- if ( "multiple" == $attributes['CARDINALITY'])
- {
- $exercise_info['question'][$current_question_ident]['type'] = 'MCMA';
- $cardinality = 'multiple';
- }
- if ( "single" == $attributes['CARDINALITY'])
- {
- $exercise_info['question'][$current_question_ident]['type'] = 'MCUA';
- $cardinality = 'single';
- }
- //needed for FIB
- $current_answer_id = $attributes['IDENTIFIER'];
- }
- break;
- case 'INLINECHOICEINTERACTION' :
- {
- $exercise_info['question'][$current_question_ident]['type'] = 'FIB';
- $exercise_info['question'][$current_question_ident]['subtype'] = 'LISTBOX_FILL';
- $current_answer_id = $attributes['RESPONSEIDENTIFIER'];
- }
- break;
- case 'INLINECHOICE' :
- {
- $current_inlinechoice_id = $attributes['IDENTIFIER'];
- }
- break;
- case 'TEXTENTRYINTERACTION' :
- {
- $exercise_info['question'][$current_question_ident]['type'] = 'FIB';
- $exercise_info['question'][$current_question_ident]['subtype'] = 'TEXTFIELD_FILL';
- $exercise_info['question'][$current_question_ident]['response_text'] = $current_question_item_body;
- //replace claroline tags
- }
- break;
- case 'MATCHINTERACTION' :
- {
- $exercise_info['question'][$current_question_ident]['type'] = 'MATCHING';
- }
- break;
- case 'SIMPLEMATCHSET' :
- {
- if (!isset($current_match_set))
- {
- $current_match_set = 1;
- }
- else
- {
- $current_match_set++;
- }
- $exercise_info['question'][$current_question_ident]['answer'][$current_match_set] = array();
- }
- break;
- case 'SIMPLEASSOCIABLECHOICE' :
- {
- $currentAssociableChoice = $attributes['IDENTIFIER'];
- }
- break;
- //retrieve answers id for MCUA and MCMA questions
- case 'SIMPLECHOICE':
- {
- $current_answer_id = $attributes['IDENTIFIER'];
- if (!isset($exercise_info['question'][$current_question_ident]['answer'][$current_answer_id]))
- {
- $exercise_info['question'][$current_question_ident]['answer'][$current_answer_id] = array();
- }
- }
- break;
- case 'MAPENTRY':
- {
- if ($parent_element == "MAPPING")
- {
- $answer_id = $attributes['MAPKEY'];
- if (!isset($exercise_info['question'][$current_question_ident]['weighting']))
- {
- $exercise_info['question'][$current_question_ident]['weighting'] = array();
- }
- $exercise_info['question'][$current_question_ident]['weighting'][$answer_id] = $attributes['MAPPEDVALUE'];
- }
- }
- break;
- case 'MAPPING':
- {
- if (isset($attributes['DEFAULTVALUE']))
- {
- $exercise_info['question'][$current_question_ident]['default_weighting'] = $attributes['DEFAULTVALUE'];
- }
- }
- case 'ITEMBODY':
- {
- $record_item_body = true;
- $current_question_item_body = '';
- }
- break;
- case 'IMG' :
- {
- $exercise_info['question'][$current_question_ident]['attached_file_url'] = $attributes['SRC'];
- }
- break;
- }
- }
- /**
- * Function used by the SAX xml parser when the parser meets a closing tag
- *
- * @param $parser xml parser created with "xml_parser_create()"
- * @param $name name of the element
- */
- function endElement($parser,$name)
- {
- global $element_pile;
- global $exercise_info;
- global $current_question_ident;
- global $record_item_body;
- global $current_question_item_body;
- global $non_HTML_tag_to_avoid;
- global $cardinality;
- $current_element = end($element_pile);
- //treat the record of the full content of itembody tag :
- if ($record_item_body && (!in_array($current_element,$non_HTML_tag_to_avoid)))
- {
- $current_question_item_body .= "</".$name.">";
- }
- switch ($name)
- {
- case 'ITEMBODY':
- {
- $record_item_body = false;
- if ($exercise_info['question'][$current_question_ident]['type']=='FIB')
- {
- $exercise_info['question'][$current_question_ident]['response_text'] = $current_question_item_body;
- }
- else
- {
- $exercise_info['question'][$current_question_ident]['statement'] = $current_question_item_body;
- }
- }
- break;
- }
- array_pop($element_pile);
- }
- function elementData($parser,$data)
- {
- global $element_pile;
- global $exercise_info;
- global $current_question_ident;
- global $current_answer_id;
- global $current_match_set;
- global $currentAssociableChoice;
- global $current_question_item_body;
- global $record_item_body;
- global $non_HTML_tag_to_avoid;
- global $current_inlinechoice_id;
- global $cardinality;
- $current_element = end($element_pile);
- if (sizeof($element_pile)>=2) $parent_element = $element_pile[sizeof($element_pile)-2]; else $parent_element = "";
- if (sizeof($element_pile)>=3) $grant_parent_element = $element_pile[sizeof($element_pile)-3]; else $grant_parent_element = "";
- //treat the record of the full content of itembody tag (needed for question statment and/or FIB text:
- if ($record_item_body && (!in_array($current_element,$non_HTML_tag_to_avoid)))
- {
- $current_question_item_body .= $data;
- }
- switch ($current_element)
- {
- case 'SIMPLECHOICE':
- {
- if (!isset($exercise_info['question'][$current_question_ident]['answer'][$current_answer_id]['value']))
- {
- $exercise_info['question'][$current_question_ident]['answer'][$current_answer_id]['value'] = trim($data);
- }
- else
- {
- $exercise_info['question'][$current_question_ident]['answer'][$current_answer_id]['value'] .= ' '.trim($data);
- }
- }
- break;
- case 'FEEDBACKINLINE' :
- {
- if (!isset($exercise_info['question'][$current_question_ident]['answer'][$current_answer_id]['feedback']))
- {
- $exercise_info['question'][$current_question_ident]['answer'][$current_answer_id]['feedback'] = trim($data);
- }
- else
- {
- $exercise_info['question'][$current_question_ident]['answer'][$current_answer_id]['feedback'] .= ' '.trim($data);
- }
- }
- break;
- case 'SIMPLEASSOCIABLECHOICE' :
- {
- $exercise_info['question'][$current_question_ident]['answer'][$current_match_set][$currentAssociableChoice] = trim($data);
- }
- break;
- case 'VALUE':
- {
- if ($parent_element=="CORRECTRESPONSE")
- {
- if ($cardinality=="single")
- {
- $exercise_info['question'][$current_question_ident]['correct_answers'][$current_answer_id] = $data;
- }
- else
- {
- $exercise_info['question'][$current_question_ident]['correct_answers'][] = $data;
- }
- }
- }
- break;
- case 'ITEMBODY' :
- {
- $current_question_item_body .= $data;
- }
- break;
- case 'INLINECHOICE' :
- {
- // if this is the right answer, then we must replace the claroline tags in the FIB text bye the answer between "[" and "]" :
- $answer_identifier = $exercise_info['question'][$current_question_ident]['correct_answers'][$current_answer_id];
- if ($current_inlinechoice_id == $answer_identifier)
- {
- $current_question_item_body = str_replace("**claroline_start**".$current_answer_id."**claroline_end**", "[".$data."]", $current_question_item_body);
- }
- else // save wrong answers in an array
- {
- if(!isset($exercise_info['question'][$current_question_ident]['wrong_answers']))
- {
- $exercise_info['question'][$current_question_ident]['wrong_answers'] = array();
- }
- $exercise_info['question'][$current_question_ident]['wrong_answers'][] = $data;
- }
- }
- break;
- }
- }
- ?>
|