chamilo
/
chamilo-lms
mirror of https://github.com/chamilo/chamilo-lms/tree/1.11.x
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

[svn r13179] Added export classes from Claroline slightly modified (to later process SCORM export)

Browse Source
skala
Yannick Warnier 18 years ago
parent 12e5c2a945
commit d3162e883d
8 changed files with 2778 additions and 0 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 750
      main/exercice/export/exercise_import.inc.php
  2. 116
      main/exercice/export/exercise_import.php
  3. 13
      main/exercice/export/index.php
  4. 565
      main/exercice/export/qti/qti_classes.php
  5. 351
      main/exercice/export/qti/qti_export.php
  6. 427
      main/exercice/export/qti2/qti2_classes.php
  7. 187
      main/exercice/export/qti2/qti2_export.php
  8. 369
      main/exercice/export/scorm/scorm_classes.php

750
main/exercice/export/exercise_import.inc.php
Unescape View File

@ -0,0 +1,750 @@
<?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?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;
}
}
?>

116
main/exercice/export/exercise_import.php
Unescape View File

@ -0,0 +1,116 @@
<?php // $Id: $
/**
* @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>
*/
require '../../inc/global.inc.php';
//SECURITY CHECK
if ( api_is_platform_admin() ) api_not_allowed();
//DECLARE NEEDED LIBRARIES
require_once api_get_path(LIBRARY_PATH) . 'fileManage.lib.php';
require_once api_get_path(LIBRARY_PATH) . 'fileUpload.lib.php';
require_once 'exercise_import.inc.php';
include_once '../exercise.class.php';
include_once '../question.class.php';
include_once 'qti/qti_classes.php';
//SQL table name
$tbl_exercise = Database::get_course_table(TABLE_QUIZ_TEST);
$tbl_question = Database::get_course_table(TABLE_QUIZ_QUESTION);
$tbl_rel_exercise_question = Database::get_course_table(TABLE_QUIZ_TEST_QUESTION);
// tool libraries
include_once '../exercise.class.php';
//Tool title
$nameTools = get_lang('ImportExercise');
//bredcrump
$interbredcrump[]= array ('url' => '../exercise.php','name' => get_lang('Exercises'));
//----------------------------------
// EXECUTE COMMAND
//----------------------------------
$cmd = (isset($_REQUEST['cmd'])? $_REQUEST['cmd'] : 'show_import');
switch ( $cmd )
{
case 'show_import' :
{
$display = '<p>'
. get_lang('Imported exercises must consist of a zip or an XML file (IMS-QTI) and be compatible with your Claroline version.') . '<br>'
. '</p>'
. '<form enctype="multipart/form-data" action="" method="post">'
. '<input name="cmd" type="hidden" value="import" />'
. '<input name="uploadedExercise" type="file" /><br><br>'
. get_lang('Import exercise') . ' : '
. '<input value="' . get_lang('Ok') . '" type="submit" /> '
. claro_html_button( $_SERVER['PHP_SELF'], get_lang('Cancel'))
. '<br><br>'
. '<small>' . get_lang('Max file size') . ' : 2&nbsp;MB</small>'
. '</form>';
}
break;
case 'import' :
{
//include needed librabries for treatment
$result_log = import_exercise($_FILES['uploadedExercise']['name']);
//display the result message (fail or success)
$dialogBox = '';
foreach ($result_log as $log)
{
$dialogBox .= $log . '<br>';
}
}
break;
}
//----------------------------------
// FIND INFORMATION
//----------------------------------
//empty!
//----------------------------------
// DISPLAY
//----------------------------------
include api_get_path(INCLUDE_PATH) . '/header.inc.php';
//display title
Display::display_introduction_section(TOOL_QUIZ);
//Display Forms or dialog box(if needed)
if ( isset($dialogBox) ) echo Display::display_normal_message($dialogBox,false);
//display content
if (isset($display) ) echo $display;
//footer display
include api_get_path(INCLUDE_PATH) . '/footer.inc.php';
?>

13
main/exercice/export/index.php
Unescape View File

@ -0,0 +1,13 @@
<?php // $Id: $
/**
* @copyright (c) 2001-2006 Universite catholique de Louvain (UCL)
*
* @license http://www.gnu.org/copyleft/gpl.html (GPL) GENERAL PUBLIC LICENSE
*
* @author Claro Team <cvs@claroline.net>
* @package dokeos.exercise
*
*/
header("Location: ../../../");
exit();
?>

565
main/exercice/export/qti/qti_classes.php
Unescape View File

@ -0,0 +1,565 @@
<?php // $Id: $
if ( count( get_included_files() ) == 1 ) die( '---' );
/**
* @copyright (c) 2007 Dokeos
* @copyright (c) 2001-2006 Universite catholique de Louvain (UCL)
*
* @license http://www.gnu.org/copyleft/gpl.html (GPL) GENERAL PUBLIC LICENSE
*
* @author Claro Team <cvs@claroline.net>
* @author Yannick Warnier <yannick.warnier@dokeos.com>
* @package dokeos.exercise
*/
require_once('../../exercise.class.php');
require_once('../../question.class.php');
require_once('../../answer.class.php');
require_once('../../unique_answer.class.php');
require_once('../../multiple_answer.class.php');
require_once('../../fill_blanks.class.php');
require_once('../../freeanswer.class.php');
require_once('../../hotspot.class.php');
require_once('../../matching.class.php');
require_once('../../hotspot.class.php');
// answer types
define('UNIQUE_ANSWER', 1);
define('MCUA', 1);
define('TF', 1);
define('MULTIPLE_ANSWER', 2);
define('MCMA', 2);
define('FILL_IN_BLANKS', 3);
define('FIB', 3);
define('MATCHING', 4);
define('FREE_ANSWER', 5);
define('HOTSPOT', 6);
class ImsQuestion extends Question
{
/**
* Include the correct answer class and create answer
*/
function setAnswer()
{
switch($this->type)
{
case MCUA :
$this->answer = new ImsAnswerMultipleChoice($this->id, false);
break;
case MCMA :
$this->answer = new ImsAnswerMultipleChoice($this->id, true);
break;
case TF :
$this->answer = new ImsAnswerTrueFalse($this->id);
break;
case FIB :
$this->answer = new ImsAnswerFillInBlanks($this->id);
break;
case MATCHING :
$this->answer = new ImsAnswerMatching($this->id);
break;
default :
$this->answer = null;
break;
}
return true;
}
/**
* allow to import the question
*
* @param questionArray is an array that must contain all the information needed to build the question
* @author Guillaume Lederer <guillaume@claroline.net>
*/
function import($questionArray, $exerciseTempPath)
{
//import answers
$this->answer->import($questionArray);
//import attached file, if any
if (isset($questionArray['attached_file_url']))
{
$file= array();
$file['name'] = $questionArray['attached_file_url'];
$file['tmp_name'] = $exerciseTempPath.$file['name'];
$this->setAttachment($file);
}
}
}
class ImsAnswerMultipleChoice extends answerMultipleChoice
{
/**
* Return the XML flow for the possible answers.
* That's one <response_lid>, containing several <flow_label>
*
* @author Amand Tihon <amand@alrj.org>
*/
function imsExportResponses($questionIdent)
{
// Opening of the response block.
if( $this->multipleAnswer )
{
$out = '<response_lid ident = "MCM_' . $questionIdent . '" rcardinality = "Multiple" rtiming = "No">' . "\n"
. '<render_choice shuffle = "No" minnumber = "1" maxnumber = "' . count($this->answerList) . '">' . "\n";
}
else
{
$out = '<response_lid ident="MCS_' . $questionIdent . '" rcardinality="Single" rtiming="No"><render_choice shuffle="No">' . "\n";
}
// Loop over answers
foreach( $this->answerList as $answer )
{
$responseIdent = $questionIdent . "_A_" . $answer['id'];
$out.= ' <flow_label><response_label ident="' . $responseIdent . '">'.(!$this->multipleAnswer ? '<flow_mat class="list">':'').'<material>' . "\n"
. ' <mattext><![CDATA[' . $answer['answer'] . ']]></mattext>' . "\n"
. ' </material>'.(!$this->multipleAnswer ? '</flow_mat>':'').'</response_label></flow_label>' . "\n";
}
$out.= "</render_choice></response_lid>\n";
return $out;
}
/**
* Return the XML flow of answer processing : a succession of <respcondition>.
*
* @author Amand Tihon <amand@alrj.org>
*/
function imsExportProcessing($questionIdent)
{
$out = '';
foreach( $this->answerList as $answer )
{
$responseIdent = $questionIdent . "_A_" . $answer['id'];
$feedbackIdent = $questionIdent . "_F_" . $answer['id'];
$conditionIdent = $questionIdent . "_C_" . $answer['id'];
if( $this->multipleAnswer )
{
$out .= '<respcondition title="' . $conditionIdent . '" continue="Yes"><conditionvar>' . "\n"
. ' <varequal respident="MCM_' . $questionIdent . '">' . $responseIdent . '</varequal>' . "\n";
}
else
{
$out .= '<respcondition title="' . $conditionIdent . '"><conditionvar>' . "\n"
. ' <varequal respident="MCS_' . $questionIdent . '">' . $responseIdent . '</varequal>' . "\n";
}
$out .= " </conditionvar>\n" . ' <setvar action="Add">' . $answer['grade'] . "</setvar>\n";
// Only add references for actually existing comments/feedbacks.
if( !empty($answer['comment']) )
{
$out .= ' <displayfeedback feedbacktype="Response" linkrefid="' . $feedbackIdent . '" />' . "\n";
}
$out .= "</respcondition>\n";
}
return $out;
}
/**
* Export the feedback (comments to selected answers) to IMS/QTI
*
* @author Amand Tihon <amand@alrj.org>
*/
function imsExportFeedback($questionIdent)
{
$out = "";
foreach( $this->answerList as $answer )
{
if( !empty($answer['comment']) )
{
$feedbackIdent = $questionIdent . "_F_" . $answer['id'];
$out.= '<itemfeedback ident="' . $feedbackIdent . '" view="Candidate"><flow_mat><material>' . "\n"
. ' <mattext><![CDATA[' . $answer['comment'] . "]]></mattext>\n"
. "</material></flow_mat></itemfeedback>\n";
}
}
return $out;
}
/**
* allow to import the answers, feedbacks, and grades of a question
* @param questionArray is an array that must contain all the information needed to build the question
* @author Guillaume Lederer <guillaume@claroline.net>
*/
function import($questionArray)
{
$answerArray = $questionArray['answer'];
$this->answerList = array(); //re-initialize answer object content
foreach ($answerArray as $key => $answer)
{
if (!isset($answer['feedback'])) $answer['feedback'] = "";
if (!isset($questionArray['weighting'][$key]))
{
if (isset($questionArray['default_weighting']))
{
$grade = $questionArray['default_weighting'];
}
else
{
$grade = 0;
}
}
else
{
$grade = $questionArray['weighting'][$key];
}
if (in_array($key,$questionArray['correct_answers'])) $is_correct = true; else $is_correct = false;
$addedAnswer = array(
'answer' => $answer['value'],
'correct' => $is_correct,
'grade' => $grade,
'comment' => $answer['feedback'],
);
$this->answerList[] = $addedAnswer;
}
}
}
class ImsAnswerTrueFalse extends answerTrueFalse
{
/**
* Return the XML flow for the possible answers.
* That's one <response_lid>, containing several <flow_label>
*
* @author Amand Tihon <amand@alrj.org>
*/
function imsExportResponses($questionIdent)
{
// Opening of the response block.
$out = '<response_lid ident="TF_' . $questionIdent . '" rcardinality="Single" rtiming="No"><render_choice shuffle="No">' . "\n";
// true
$response_ident = $questionIdent . '_A_true';
$out .=
' <flow_label><response_label ident="'.$response_ident.'"><flow_mat class="list"><material>' . "\n"
. ' <mattext><![CDATA[' . get_lang('True') . ']]></mattext>' . "\n"
. ' </material></flow_mat></response_label></flow_label>' . "\n";
// false
$response_ident = $questionIdent . '_A_false';
$out .=
' <flow_label><response_label ident="'.$response_ident.'"><flow_mat class="list"><material>' . "\n"
. ' <mattext><![CDATA[' . get_lang('False') . ']]></mattext>' . "\n"
. ' </material></flow_mat></response_label></flow_label>' . "\n";
$out .= '</render_choice></response_lid>' . "\n";
return $out;
}
/**
* Return the XML flow of answer processing : a succession of <respcondition>.
*
* @author Amand Tihon <amand@alrj.org>
*/
function imsExportProcessing($questionIdent)
{
$out = '';
// true
$response_ident = $questionIdent. '_A_true';
$feedback_ident = $questionIdent . '_F_true';
$condition_ident = $questionIdent . '_C_true';
$out .=
'<respcondition title="' . $condition_ident . '"><conditionvar>' . "\n"
. ' <varequal respident="TF_' . $questionIdent . '">' . $response_ident . '</varequal>' . "\n"
. ' </conditionvar>' . "\n" . ' <setvar action="Add">' . $this->trueGrade . '</setvar>' . "\n";
// Only add references for actually existing comments/feedbacks.
if( !empty($this->trueFeedback) )
{
$out.= ' <displayfeedback feedbacktype="Response" linkrefid="' . $this->trueFeedback . '" />' . "\n";
}
$out .= '</respcondition>' . "\n";
// false
$response_ident = $questionIdent. '_A_false';
$feedback_ident = $questionIdent . '_F_false';
$condition_ident = $questionIdent . '_C_false';
$out .=
'<respcondition title="' . $condition_ident . '"><conditionvar>' . "\n"
. ' <varequal respident="TF_' . $questionIdent . '">' . $response_ident . '</varequal>' . "\n"
. ' </conditionvar>' . "\n" . ' <setvar action="Add">' . $this->falseGrade . '</setvar>' . "\n";
// Only add references for actually existing comments/feedbacks.
if( !empty($this->falseFeedback) )
{
$out.= ' <displayfeedback feedbacktype="Response" linkrefid="' . $feedback_ident . '" />' . "\n";
}
$out .= '</respcondition>' . "\n";
return $out;
}
/**
* Export the feedback (comments to selected answers) to IMS/QTI
*
* @author Amand Tihon <amand@alrj.org>
*/
function imsExportFeedback($questionIdent)
{
$out = "";
if( !empty($this->trueFeedback) )
{
$feedback_ident = $questionIdent . '_F_true';
$out.= '<itemfeedback ident="' . $feedback_ident . '" view="Candidate"><flow_mat><material>' . "\n"
. ' <mattext><![CDATA[' . $this->trueFeedback . "]]></mattext>\n"
. "</material></flow_mat></itemfeedback>\n";
}
if( !empty($this->falseFeedback) )
{
$feedback_ident = $questionIdent . '_F_false';
$out.= '<itemfeedback ident="' . $feedback_ident . '" view="Candidate"><flow_mat><material>' . "\n"
. ' <mattext><![CDATA[' . $this->falseFeedback . "]]></mattext>\n"
. "</material></flow_mat></itemfeedback>\n";
}
return $out;
}
}
class ImsAnswerFillInBlanks extends answerFillInBlanks
{
/**
* Export the text with missing words.
*
* As a side effect, it stores two lists in the class :
* the missing words and their respective weightings.
*
* @author Amand Tihon <amand@alrj.org>
*/
function imsExportResponses($questionIdent)
{
global $charset;
$out = "<flow>\n";
$responsePart = explode(']', $this->answer);
$i = 0; // Used for the reference generation.
foreach($responsePart as $part)
{
$response_ident = $questionIdent . "_A_" . $i;
if( strpos($part,'[') !== false )
{
list($rawText, $blank) = explode('[', $part);
}
else
{
$rawText = $part;
$blank = "";
}
if ($rawText!="")
{
$out.=" <material><mattext><![CDATA[" . $rawText . "]]></mattext></material>\n";
}
if ($blank!="")
{
$out.= ' <response_str ident="' . $response_ident . '" rcardinality="Single" rtiming="No">' . "\n"
. ' <render_fib fibtype="String" prompt="Box" encoding="' . $charset . '">' . "\n"
. ' <response_label ident="A"/>' . "\n"
. " </render_fib>\n"
. " </response_str>\n";
}
$i++;
}
$out.="</flow>\n";
return $out;
}
/**
* Exports the response processing.
*
* It uses the two lists build by export_responses(). This implies that export_responses MUST
* be called before.
*
* @author Amand Tihon <amand@alrj.org>
*/
function imsExportProcessing($questionIdent)
{
$out = "";
$answerCount = count($this->answerList);
for( $i = 0; $i < $answerCount ; $i++ )
{
$response_ident = $questionIdent . "_A_" . $i;
$out.= ' <respcondition continue="Yes"><conditionvar>' . "\n"
. ' <varequal respident="' . $response_ident . '" case="No"><![CDATA[' . $this->answerList[$i] . ']]></varequal>' . "\n"
. ' </conditionvar><setvar action="Add">' . $this->gradeList[$i] . "</setvar>\n"
. " </respcondition>\n";
}
return $out;
}
/**
* Export the feedback (comments to selected answers) to IMS/QTI
*
* @author Amand Tihon <amand@alrj.org>
*/
function imsExportFeedback($questionIdent)
{
// no feedback in this question type
return '';
}
/**
* allow to import the answers, feedbacks, and grades of a question
*
* @param questionArray is an array that must contain all the information needed to build the question
* @author Guillaume Lederer <guillaume@claroline.net>
*/
function import($questionArray)
{
$answerArray = $questionArray['answer'];
$this->answerText = str_replace ("\n","",$questionArray['response_text']);
if ($questionArray['subtype'] == "TEXTFIELD_FILL") $this->type = TEXTFIELD_FILL;
if ($questionArray['subtype'] == "LISTBOX_FILL")
{
$this->wrongAnswerList = $questionArray['wrong_answers'];
$this->type = LISTBOX_FILL;
}
//build correct_answsers array
if (isset($questionArray['weighting']))
{
$this->gradeList = $questionArray['weighting'];
}
}
}
class ImsAnswerMatching extends answerMatching
{
/**
* Export the question part as a matrix-choice, with only one possible answer per line.
* @author Amand Tihon <amand@alrj.org>
*/
function imsExportResponses($questionIdent)
{
$out = "";
// Now, loop again, finding questions (rows)
foreach( $this->leftList as $leftElt )
{
$responseIdent = $questionIdent . "_A_" . $leftElt['code'];
$out.= '<response_lid ident="' . $responseIdent . '" rcardinality="Single" rtiming="No">' . "\n"
. '<material><mattext><![CDATA[' . $leftElt['answer'] . "]]></mattext></material>\n"
. ' <render_choice shuffle="No"><flow_label>' . "\n";
foreach( $this->rightList as $rightElt )
{
$out.= ' <response_label ident="' . $rightElt['code'] . '"><material>' . "\n"
. " <mattext><![CDATA[" . $rightElt['answer'] . "]]></mattext>\n"
. " </material></response_label>\n";
}
$out.= "</flow_label></render_choice></response_lid>\n";
}
return $out;
}
/**
* Export the response processing part
* @author Amand Tihon <amand@alrj.org>
*/
function imsExportProcessing($questionIdent)
{
$out = "";
foreach( $this->leftList as $leftElt )
{
$responseIdent = $questionIdent . "_A_" . $leftElt['code'];
$out.= ' <respcondition continue="Yes"><conditionvar>' . "\n"
. ' <varequal respident="' . $responseIdent . '">' . $leftElt['match'] . "</varequal>\n"
. ' </conditionvar><setvar action="Add">' . $leftElt['grade'] . "</setvar>\n"
. " </respcondition>\n";
}
return $out;
}
/**
* Export the feedback (comments to selected answers) to IMS/QTI
*
* @author Amand Tihon <amand@alrj.org>
*/
function imsExportFeedback($questionIdent)
{
// no feedback in this question type
return '';
}
/**
* allow to import the answers, feedbacks, and grades of a question
*
* @param questionArray is an array that must contain all the information needed to build the question
* @author Guillaume Lederer <guillaume@claroline.net>
*/
function import($questionArray)
{
$answerArray = $questionArray['answer'];
//This tick to remove examples in the answers!!!!
$this->leftList = array();
$this->rightList = array();
//find right and left column
$right_column = array_pop($answerArray);
$left_column = array_pop($answerArray);
//1- build answers
foreach ($right_column as $right_key => $right_element)
{
$code = $this->addRight($right_element);
foreach ($left_column as $left_key => $left_element)
{
$matched_pattern = $left_key." ".$right_key;
$matched_pattern_inverted = $right_key." ".$left_key;
if (in_array($matched_pattern, $questionArray['correct_answers']) || in_array($matched_pattern_inverted, $questionArray['correct_answers']))
{
if (isset($questionArray['weighting'][$matched_pattern]))
{
$grade = $questionArray['weighting'][$matched_pattern];
}
else
{
$grade = 0;
}
$this->addLeft($left_element, $code, $grade);
}
}
}
}
}
?>

351
main/exercice/export/qti/qti_export.php
Unescape View File

@ -0,0 +1,351 @@
<?php // $Id: $
if ( count( get_included_files() ) == 1 ) die( '---' );
/**
* @copyright (c) 2007 Dokeos
* @copyright (c) 2001-2006 Universite catholique de Louvain (UCL)
*
* @license http://www.gnu.org/copyleft/gpl.html (GPL) GENERAL PUBLIC LICENSE
*
* @author Claro Team <cvs@claroline.net>
* @author Amand Tihon <amand@alrj.org>
* @author Sebastien Piraux <pir@cerdecam.be>
* @author Yannick Warnier <yannick.warnier@dokeos.com>
*
*/
include dirname(__FILE__) . '/qti_classes.php';
/*--------------------------------------------------------
Classes
--------------------------------------------------------*/
/**
* This class represents an entire exercise to be exported in IMS/QTI.
* It will be represented by a single <section> containing several <item>.
*
* Some properties cannot be exported, as IMS does not support them :
* - type (one page or multiple pages)
* - start_date and end_date
* - max_attempts
* - show_answer
* - anonymous_attempts
*
* @author Amand Tihon <amand@alrj.org>
*/
class ImsSection
{
var $exercise;
/**
* Constructor.
* @param $exe The Exercise instance to export
* @author Amand Tihon <amand@alrj.org>
*/
function ImsSection($exe)
{
$this->exercise = $exe;
}
function start_section()
{
$out = '<section ident="EXO_' . $this->exercise->getId() . '" title="' . $this->exercise->getTitle() . '">' . "\n";
return $out;
}
function end_section()
{
return "</section>\n";
}
function export_duration()
{
if ($max_time = $this->exercise->getTimeLimit())
{
// return exercise duration in ISO8601 format.
$minutes = floor($max_time / 60);
$seconds = $max_time % 60;
return '<duration>PT' . $minutes . 'M' . $seconds . "S</duration>\n";
}
else
{
return '';
}
}
/**
* Export the presentation (Exercise's description)
* @author Amand Tihon <amand@alrj.org>
*/
function export_presentation()
{
$out = "<presentation_material><flow_mat><material>\n"
. " <mattext><![CDATA[" . $this->exercise->getDescription() . "]]></mattext>\n"
. "</material></flow_mat></presentation_material>\n";
return $out;
}
/**
* Export the ordering information.
* Either sequential, through all questions, or random, with a selected number of questions.
* @author Amand Tihon <amand@alrj.org>
*/
function export_ordering()
{
$out = '';
if ($n = $this->exercise->getShuffle()) {
$out.= "<selection_ordering>"
. " <selection>\n"
. " <selection_number>" . $n . "</selection_number>\n"
. " </selection>\n"
. ' <order order_type="Random" />'
. "\n</selection_ordering>\n";
}
else
{
$out.= '<selection_ordering sequence_type="Normal">' . "\n"
. " <selection />\n"
. "</selection_ordering>\n";
}
return $out;
}
/**
* Export the questions, as a succession of <items>
* @author Amand Tihon <amand@alrj.org>
*/
function export_questions()
{
$out = "";
foreach ($this->exercise->getQuestionList() as $q)
{
$out .= export_question($q['id'], False);
}
return $out;
}
/**
* Export the exercise in IMS/QTI.
*
* @param bool $standalone Wether it should include XML tag and DTD line.
* @return a string containing the XML flow
* @author Amand Tihon <amand@alrj.org>
*/
function export($standalone)
{
global $charset;
$head = $foot = "";
if ($standalone) {
$head = '<?xml version = "1.0" encoding = "' . $charset . '" standalone = "no"?>' . "\n"
. '<!DOCTYPE questestinterop SYSTEM "ims_qtiasiv1p2p1.dtd">' . "\n"
. "<questestinterop>\n";
$foot = "</questestinterop>\n";
}
$out = $head
. $this->start_section()
. $this->export_duration()
. $this->export_presentation()
. $this->export_ordering()
. $this->export_questions()
. $this->end_section()
. $foot;
return $out;
}
}
/*
Some quick notes on identifiers generation.
The IMS format requires some blocks, like items, responses, feedbacks, to be uniquely
identified.
The unicity is mandatory in a single XML, of course, but it's prefered that the identifier stays
coherent for an entire site.
Here's the method used to generate those identifiers.
Question identifier :: "QST_" + <Question Id from the DB> + "_" + <Question numeric type>
Response identifier :: <Question identifier> + "_A_" + <Response Id from the DB>
Condition identifier :: <Question identifier> + "_C_" + <Response Id from the DB>
Feedback identifier :: <Question identifier> + "_F_" + <Response Id from the DB>
*/
/**
* An IMS/QTI item. It corresponds to a single question.
* This class allows export from Claroline to IMS/QTI XML format.
* It is not usable as-is, but must be subclassed, to support different kinds of questions.
*
* Every start_*() and corresponding end_*(), as well as export_*() methods return a string.
*
* @warning Attached files are NOT exported.
* @author Amand Tihon <amand@alrj.org>
*/
class ImsItem
{
var $question;
var $question_ident;
var $answer;
/**
* Constructor.
*
* @param $question The Question object we want to export.
* @author Anamd Tihon
*/
function ImsItem($question)
{
$this->question = $question;
$this->answer = $question->answer;
$this->questionIdent = "QST_" . $question->getId() ;
}
/**
* Start the XML flow.
*
* This opens the <item> block, with correct attributes.
*
* @author Amand Tihon <amand@alrj.org>
*/
function start_item()
{
return '<item title="' . htmlspecialchars($this->question->getTitle()) . '" ident="' . $this->questionIdent . '">' . "\n";
}
/**
* End the XML flow, closing the </item> tag.
*
* @author Amand Tihon <amand@alrj.org>
*/
function end_item()
{
return "</item>\n";
}
/**
* Create the opening, with the question itself.
*
* This means it opens the <presentation> but doesn't close it, as this is the role of end_presentation().
* Inbetween, the export_responses from the subclass should have been called.
*
* @author Amand Tihon <amand@alrj.org>
*/
function start_presentation()
{
return '<presentation label="' . $this->questionIdent . '"><flow>' . "\n"
. '<material><mattext><![CDATA[' . $this->question->getDescription() . "]]></mattext></material>\n";
}
/**
* End the </presentation> part, opened by export_header.
*
* @author Amand Tihon <amand@alrj.org>
*/
function end_presentation()
{
return "</flow></presentation>\n";
}
/**
* Start the response processing, and declare the default variable, SCORE, at 0 in the outcomes.
*
* @author Amand Tihon <amand@alrj.org>
*/
function start_processing()
{
return '<resprocessing><outcomes><decvar vartype="Integer" defaultval="0" /></outcomes>' . "\n";
}
/**
* End the response processing part.
*
* @author Amand Tihon <amand@alrj.org>
*/
function end_processing()
{
return "</resprocessing>\n";
}
/**
* Export the question as an IMS/QTI Item.
*
* This is a default behaviour, some classes may want to override this.
*
* @param $standalone: Boolean stating if it should be exported as a stand-alone question
* @return A string, the XML flow for an Item.
* @author Amand Tihon <amand@alrj.org>
*/
function export($standalone = False)
{
global $charset;
$head = $foot = "";
if( $standalone )
{
$head = '<?xml version = "1.0" encoding = "'.$charset.'" standalone = "no"?>' . "\n"
. '<!DOCTYPE questestinterop SYSTEM "ims_qtiasiv1p2p1.dtd">' . "\n"
. "<questestinterop>\n";
$foot = "</questestinterop>\n";
}
return $head
. $this->start_item()
. $this->start_presentation()
. $this->answer->imsExportResponses($this->questionIdent)
. $this->end_presentation()
. $this->start_processing()
. $this->answer->imsExportProcessing($this->questionIdent)
. $this->end_processing()
. $this->answer->imsExportFeedback($this->questionIdent)
. $this->end_item()
. $foot;
}
}
/*--------------------------------------------------------
Functions
--------------------------------------------------------*/
/**
* Send a complete exercise in IMS/QTI format, from its ID
*
* @param int $exerciseId The exercise to exporte
* @param boolean $standalone Wether it should include XML tag and DTD line.
* @return The XML as a string, or an empty string if there's no exercise with given ID.
* @author Amand Tihon <amand@alrj.org>
*/
function export_exercise($exerciseId, $standalone=True)
{
$exercise = new Exercise();
if (! $exercise->load($exerciseId))
{
return '';
}
$ims = new ImsSection($exercise);
$xml = $ims->export($standalone);
return $xml;
}
/**
* Returns the XML flow corresponding to one question
*
* @param int The question ID
* @param bool standalone (ie including XML tag, DTD declaration, etc)
* @author Amand Tihon <amand@alrj.org>
*/
function export_question($questionId, $standalone=True)
{
$question = new ImsQuestion();
if( !$question->load($questionId) )
{
return '';
}
$ims = new ImsItem($question);
return $ims->export($standalone);
}
?>

427
main/exercice/export/qti2/qti2_classes.php
Unescape View File

@ -0,0 +1,427 @@
<?php // $Id: $
if ( count( get_included_files() ) == 1 ) die( '---' );
/**
* @copyright (c) 2007 Dokeos
* @copyright (c) 2001-2006 Universite catholique de Louvain (UCL)
*
* @license http://www.gnu.org/copyleft/gpl.html (GPL) GENERAL PUBLIC LICENSE
*
* @author Claro Team <cvs@claroline.net>
* @author Yannick Warnier <yannick.warnier@dokeos.com> - updated ImsAnswerHotspot to match QTI norms
*/
// answer types
define('UNIQUE_ANSWER', 1);
define('MCUA', 1);
define('TF', 1);
define('MULTIPLE_ANSWER', 2);
define('MCMA', 2);
define('FILL_IN_BLANKS', 3);
define('FIB', 3);
define('MATCHING', 4);
define('FREE_ANSWER', 5);
define('HOTSPOT', 6);
require_once(api_get_path(SYS_CODE_PATH).'/exercice/answer.class.php');
//include_once $path . '/../../lib/answer_multiplechoice.class.php';
//include_once $path . '/../../lib/answer_truefalse.class.php';
//include_once $path . '/../../lib/answer_fib.class.php';
//include_once $path . '/../../lib/answer_matching.class.php';
class Ims2Question extends Question
{
/**
* Include the correct answer class and create answer
*/
function setAnswer()
{
switch($this->type)
{
case MCUA :
$answer = new ImsAnswerMultipleChoice($this->id);
return $answer;
case MCMA :
$answer = new ImsAnswerMultipleChoice($this->id);
return $answer;
case TF :
$answer = new ImsAnswerMultipleChoice($this->id);
return $answer;
case FIB :
$answer = new ImsAnswerFillInBlanks($this->id);
return $answer;
case MATCHING :
$answer = new ImsAnswerMatching($this->id);
return $answer;
case HOTSPOT :
$answer = new ImsAnswerHotspot($this->id);
return $answer;
default :
$answer = null;
break;
}
return $answer;
}
}
class ImsAnswerMultipleChoice extends Answer
{
/**
* Return the XML flow for the possible answers.
*
*/
function imsExportResponses($questionIdent, $questionStatment)
{
$this->answerList = $this->getAnswersList();
$out = ' <choiceInteraction responseIdentifier="' . $questionIdent . '" >' . "\n";
$out .= ' <prompt> ' . $questionStatment . ' </prompt>'. "\n";
foreach ($this->answerList as $current_answer)
{
$out .= ' <simpleChoice identifier="answer_' . $current_answer['id'] . '" fixed="false">' . $current_answer['answer'];
if (isset($current_answer['comment']) && $current_answer['comment'] != '')
{
$out .= '<feedbackInline identifier="answer_' . $current_answer['id'] . '">' . $current_answer['comment'] . '</feedbackInline>';
}
$out .= '</simpleChoice>'. "\n";
}
$out .= ' </choiceInteraction>'. "\n";
return $out;
}
/**
* Return the XML flow of answer ResponsesDeclaration
*
*/
function imsExportResponsesDeclaration($questionIdent)
{
$this->answerList = $this->getAnswersList();
$type = $this->getQuestionType();
if ($type == MCMA) $cardinality = 'multiple'; else $cardinality = 'single';
$out = ' <responseDeclaration identifier="' . $questionIdent . '" cardinality="' . $cardinality . '" baseType="identifier">' . "\n";
//Match the correct answers
$out .= ' <correctResponse>'. "\n";
foreach($this->answerList as $current_answer)
{
if ($current_answer['correct'])
{
$out .= ' <value>answer_'. $current_answer['id'] .'</value>'. "\n";
}
}
$out .= ' </correctResponse>'. "\n";
//Add the grading
$out .= ' <mapping>'. "\n";
foreach($this->answerList as $current_answer)
{
if (isset($current_answer['grade']))
{
$out .= ' <mapEntry mapKey="answer_'. $current_answer['id'] .'" mappedValue="'.$current_answer['grade'].'" />'. "\n";
}
}
$out .= ' </mapping>'. "\n";
$out .= ' </responseDeclaration>'. "\n";
return $out;
}
}
class ImsAnswerFillInBlanks extends Answer
{
/**
* Export the text with missing words.
*
*
*/
function imsExportResponses($questionIdent, $questionStatment)
{
global $charset;
$this->answerList = $this->getAnswersList();
//switch ($this->type)
//{
// case TEXTFIELD_FILL :
// {
$text = '';
$text .= $this->answerText;
foreach ($this->answerList as $key=>$answer)
{
$key = $answer['id'];
$answer = $answer['answer'];
$len = strlen($answer);
$text = str_replace('['.$answer.']','<textEntryInteraction responseIdentifier="fill_'.$key.'" expectedLength="'.strlen($answer).'"/>', $text);
}
$out = $text;
// }
// break;
/*
case LISTBOX_FILL :
{
$text = $this->answerText;
foreach ($this->answerList as $answerKey=>$answer)
{
//build inlinechoice list
$inlineChoiceList = '';
//1-start interaction tag
$inlineChoiceList .= '<inlineChoiceInteraction responseIdentifier="fill_'.$answerKey.'" >'. "\n";
//2- add wrong answer array
foreach ($this->wrongAnswerList as $choiceKey=>$wrongAnswer)
{
$inlineChoiceList .= ' <inlineChoice identifier="choice_w_'.$answerKey.'_'.$choiceKey.'">'.$wrongAnswer.'</inlineChoice>'. "\n";
}
//3- add correct answers array
foreach ($this->answerList as $choiceKey=>$correctAnswer)
{
$inlineChoiceList .= ' <inlineChoice identifier="choice_c_'.$answerKey.'_'.$choiceKey.'">'.$correctAnswer.'</inlineChoice>'. "\n";
}
//4- finish interaction tag
$inlineChoiceList .= '</inlineChoiceInteraction>';
$text = str_replace('['.$answer.']',$inlineChoiceList, $text);
}
$out = $text;
}
break;
*/
//}
return $out;
}
/**
*
*/
function imsExportResponsesDeclaration($questionIdent)
{
$this->answerList = $this->getAnswersList();
$this->gradeList = $this->getGradesList();
$out = '';
foreach ($this->answerList as $answerKey=>$answer)
{
$answerKey = $answer['id'];
$answer = $answer['answer'];
$out .= ' <responseDeclaration identifier="fill_' . $answerKey . '" cardinality="single" baseType="identifier">' . "\n";
$out .= ' <correctResponse>'. "\n";
//if ($this->type==TEXTFIELD_FILL)
//{
$out .= ' <value>'.$answer.'</value>'. "\n";
//}
/*
else
{
//find correct answer key to apply in manifest and output it
foreach ($this->answerList as $choiceKey=>$correctAnswer)
{
if ($correctAnswer==$answer)
{
$out .= ' <value>choice_c_'.$answerKey.'_'.$choiceKey.'</value>'. "\n";
}
}
}
*/
$out .= ' </correctResponse>'. "\n";
if (isset($this->gradeList[$answerKey]))
{
$out .= ' <mapping>'. "\n";
$out .= ' <mapEntry mapKey="'.$answer.'" mappedValue="'.$this->gradeList[$answerKey].'"/>'. "\n";
$out .= ' </mapping>'. "\n";
}
$out .= ' </responseDeclaration>'. "\n";
}
return $out;
}
}
class ImsAnswerMatching extends Answer
{
/**
* Export the question part as a matrix-choice, with only one possible answer per line.
*/
function imsExportResponses($questionIdent, $questionStatment)
{
$this->answerList = $this->getAnswersList();
$maxAssociation = max(count($this->leftList), count($this->rightList));
$out = "";
$out .= '<matchInteraction responseIdentifier="' . $questionIdent . '" maxAssociations="'. $maxAssociation .'">'. "\n";
$out .= $questionStatment;
//add left column
$out .= ' <simpleMatchSet>'. "\n";
foreach ($this->leftList as $leftKey=>$leftElement)
{
$out .= ' <simpleAssociableChoice identifier="left_'.$leftKey.'" >'. $leftElement['answer'] .'</simpleAssociableChoice>'. "\n";
}
$out .= ' </simpleMatchSet>'. "\n";
//add right column
$out .= ' <simpleMatchSet>'. "\n";
$i = 0;
foreach($this->rightList as $rightKey=>$rightElement)
{
$out .= ' <simpleAssociableChoice identifier="right_'.$i.'" >'. $rightElement['answer'] .'</simpleAssociableChoice>'. "\n";
$i++;
}
$out .= ' </simpleMatchSet>'. "\n";
$out .= '</matchInteraction>'. "\n";
return $out;
}
/**
*
*/
function imsExportResponsesDeclaration($questionIdent)
{
$this->answerList = $this->getAnswersList();
$out = ' <responseDeclaration identifier="' . $questionIdent . '" cardinality="single" baseType="identifier">' . "\n";
$out .= ' <correctResponse>' . "\n";
$gradeArray = array();
foreach ($this->leftList as $leftKey=>$leftElement)
{
$i=0;
foreach ($this->rightList as $rightKey=>$rightElement)
{
if( ($leftElement['match'] == $rightElement['code']))
{
$out .= ' <value>left_' . $leftKey . ' right_'.$i.'</value>'. "\n";
$gradeArray['left_' . $leftKey . ' right_'.$i] = $leftElement['grade'];
}
$i++;
}
}
$out .= ' </correctResponse>'. "\n";
$out .= ' <mapping>' . "\n";
foreach ($gradeArray as $gradeKey=>$grade)
{
$out .= ' <mapEntry mapKey="'.$gradeKey.'" mappedValue="'.$grade.'"/>' . "\n";
}
$out .= ' </mapping>' . "\n";
$out .= ' </responseDeclaration>'. "\n";
return $out;
}
}
class ImsAnswerHotspot extends Answer
{
/**
* TODO update this to match hotspots instead of copying matching
* Export the question part as a matrix-choice, with only one possible answer per line.
*/
function imsExportResponses($questionIdent, $questionStatment, $questionDesc='', $questionMedia='')
{
global $charset;
$this->answerList = $this->getAnswersList();
$questionMedia = api_get_path(WEB_COURSE_PATH).api_get_course_path().'/document/images/'.$questionMedia;
$mimetype = mime_content_type($questionMedia);
if(empty($mimetype)){
$mimetype = 'image/jpeg';
}
$text = ' <p>'.$questionStatment.'</p>'."\n";
$text .= ' <graphicOrderInteraction responseIdentifier="hotspot_'.$questionIdent.'">'."\n";
$text .= ' <prompt>'.$questionDesc.'</prompt>'."\n";
$text .= ' <object type="'.$mimetype.'" width="250" height="230" data="'.$questionMedia.'">-</object>'."\n";
foreach ($this->answerList as $key=>$answer)
{
$key = $answer['id'];
$answerTxt = $answer['answer'];
$len = strlen($answerTxt);
//coords are transformed according to QTIv2 rules here: http://www.imsproject.org/question/qtiv2p1pd/imsqti_infov2p1pd.html#element10663
$coords = '';
$type = 'default';
switch($answer['hotspot_type']){
case 'square':
$type = 'rect';
$res = array();
$coords = preg_match('/^\s*(\d+);(\d+)\|(\d+)\|(\d+)\s*$/',$answer['hotspot_coord'],$res);
$coords = $res[1].','.$res[2].','.((int)$res[1]+(int)$res[3]).",".((int)$res[2]+(int)$res[4]);
break;
case 'circle':
$type = 'circle';
$res = array();
$coords = preg_match('/^\s*(\d+);(\d+)\|(\d+)\|(\d+)\s*$/',$answer['hotspot_coord'],$res);
$coords = $res[1].','.$res[2].','.sqrt(pow(($res[1]-$res[3]),2)+pow(($res[2]-$res[4])));
break;
case 'poly':
$type = 'poly';
$coords = str_replace(array(';','|'),array(',',','),$answer['hotspot_coord']);
break;
}
$text .= ' <hotspotChoice shape="'.$type.'" coords="'.$coords.'" identifier="'.$key.'"/>'."\n";
}
$text .= ' </graphicOrderInteraction>'."\n";
$out = $text;
return $out;
}
/**
*
*/
function imsExportResponsesDeclaration($questionIdent)
{
$this->answerList = $this->getAnswersList();
$this->gradeList = $this->getGradesList();
$out = '';
$out .= ' <responseDeclaration identifier="hotspot_'.$questionIdent.'" cardinality="ordered" baseType="identifier">' . "\n";
$out .= ' <correctResponse>'. "\n";
foreach ($this->answerList as $answerKey=>$answer)
{
$answerKey = $answer['id'];
$answer = $answer['answer'];
$out .= ' <value>'.$answerKey.'</value>'. "\n";
}
$out .= ' </correctResponse>'. "\n";
$out .= ' </responseDeclaration>'. "\n";
return $out;
}
}
?>

187
main/exercice/export/qti2/qti2_export.php
Unescape View File

@ -0,0 +1,187 @@
<?php // $Id: $
if ( count( get_included_files() ) == 1 ) die( '---' );
/**
* @copyright (c) 2007 Dokeos
* @copyright (c) 2001-2006 Universite catholique de Louvain (UCL)
*
* @license http://www.gnu.org/copyleft/gpl.html (GPL) GENERAL PUBLIC LICENSE
*
* @author Claro Team <cvs@claroline.net>
* @author Yannick Warnier <yannick.warnier@dokeos.com>
*/
require dirname(__FILE__) . '/qti2_classes.php';
/*--------------------------------------------------------
Classes
--------------------------------------------------------*/
/**
* An IMS/QTI item. It corresponds to a single question.
* This class allows export from Claroline to IMS/QTI2.0 XML format of a single question.
* It is not usable as-is, but must be subclassed, to support different kinds of questions.
*
* Every start_*() and corresponding end_*(), as well as export_*() methods return a string.
*
* @warning Attached files are NOT exported.
*/
class ImsAssessmentItem
{
var $question;
var $question_ident;
var $answer;
/**
* Constructor.
*
* @param $question The Question object we want to export.
*/
function ImsAssessmentItem($question)
{
$this->question = $question;
//$this->answer = new Answer($question->id);
$this->answer = $this->question->setAnswer();
$this->questionIdent = "QST_" . $question->id ;
}
/**
* Start the XML flow.
*
* This opens the <item> block, with correct attributes.
*
*/
function start_item()
{
/*
return '<assessmentItem xmlns="http://www.imsglobal.org/xsd/imsqti_v2p0"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://www.imsglobal.org/xsd/imsqti_v2p0 imsqti_v2p0.xsd"
identifier="'.$this->questionIdent.'"
title="'.htmlspecialchars($this->question->selectTitle()).'">'."\n";
*/
$string = '<assessmentItem xmlns="http://www.imsglobal.org/xsd/imsqti_v2p1"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://www.imsglobal.org/xsd/imsqti_v2p1 imsqti_v2p1.xsd"
identifier="'.$this->questionIdent.'"
title="'.htmlspecialchars($this->question->selectTitle()).'">'."\n";
return $string;
}
/**
* End the XML flow, closing the </item> tag.
*
*/
function end_item()
{
return "</assessmentItem>\n";
}
/**
* Start the itemBody
*
*/
function start_item_body()
{
return ' <itemBody>' . "\n";
}
/**
* End the itemBody part.
*
*/
function end_item_body()
{
return " </itemBody>\n";
}
/**
* add the response processing template used.
*
*/
function add_response_processing()
{
//return ' <responseProcessing template="http://www.imsglobal.org/question/qti_v2p0/rptemplates/map_response"/>' . "\n";
return ' <responseProcessing template="http://www.imsglobal.org/question/qti_v2p1/rptemplates/map_correct"/>' . "\n";
}
/**
* Export the question as an IMS/QTI Item.
*
* This is a default behaviour, some classes may want to override this.
*
* @param $standalone: Boolean stating if it should be exported as a stand-alone question
* @return A string, the XML flow for an Item.
*/
function export($standalone = False)
{
global $charset;
$head = $foot = "";
if( $standalone )
{
$head = '<?xml version="1.0" encoding="'.$charset.'" standalone="no"?>' . "\n";
}
$res = $head
. $this->start_item()
.$this->answer->imsExportResponsesDeclaration($this->questionIdent)
. $this->start_item_body()
. $this->answer->imsExportResponses($this->questionIdent, $this->question->question, $this->question->description, $this->question->picture)
. $this->end_item_body()
. $this->add_response_processing()
. $this->end_item()
. $foot;
return $res;
}
}
/*--------------------------------------------------------
Functions
--------------------------------------------------------*/
/**
* Send a complete exercise in IMS/QTI format, from its ID
*
* @param int $exerciseId The exercise to exporte
* @param boolean $standalone Wether it should include XML tag and DTD line.
* @return The XML as a string, or an empty string if there's no exercise with given ID.
*/
function export_exercise($exerciseId, $standalone=True)
{
$exercise = new Exercise();
if (! $exercise->read($exerciseId))
{
return '';
}
$ims = new ImsSection($exercise);
$xml = $ims->export($standalone);
return $xml;
}
/**
* Returns the XML flow corresponding to one question
*
* @param int The question ID
* @param bool standalone (ie including XML tag, DTD declaration, etc)
*/
function export_question($questionId, $standalone=True)
{
$question = new Ims2Question();
if( !$question->read($questionId) )
{
return '';
}
$ims = new ImsAssessmentItem($question);
return $ims->export($standalone);
}
?>

369
main/exercice/export/scorm/scorm_classes.php
Unescape View File

@ -0,0 +1,369 @@
<?php // $Id: scorm_classes.php,v 1.2 2006/07/06 18:50:49 moosh Exp $
if ( count( get_included_files() ) == 1 ) die( '---' );
/**
* @copyright (c) 2007 Dokeos
* @copyright (c) 2001-2006 Universite catholique de Louvain (UCL)
*
* @license http://www.gnu.org/copyleft/gpl.html (GPL) GENERAL PUBLIC LICENSE
*
* @author Claro Team <cvs@claroline.net>
* @author Yannick Warnier <yannick.warnier@dokeos.com>
*/
require_once('../../exercise.class.php');
require_once('../../question.class.php');
require_once('../../answer.class.php');
require_once('../../unique_answer.class.php');
require_once('../../multiple_answer.class.php');
require_once('../../fill_blanks.class.php');
require_once('../../freeanswer.class.php');
require_once('../../hotspot.class.php');
require_once('../../matching.class.php');
require_once('../../hotspot.class.php');
// answer types
define('UNIQUE_ANSWER', 1);
define('MCUA', 1);
define('TF', 1);
define('MULTIPLE_ANSWER', 2);
define('MCMA', 2);
define('FILL_IN_BLANKS', 3);
define('FIB', 3);
define('MATCHING', 4);
define('FREE_ANSWER', 5);
define('HOTSPOT', 6);
class ScormQuestion extends Question
{
/**
* Include the correct answer class and create answer
*/
function setAnswer()
{
switch($this->type)
{
case MCUA :
$this->answer = new ScormAnswerMultipleChoice($this->id, false);
break;
case MCMA :
$this->answer = new ScormAnswerMultipleChoice($this->id, true);
break;
case TF :
$this->answer = new ScormAnswerTrueFalse($this->id);
break;
case FIB :
$this->answer = new ScormAnswerFillInBlanks($this->id);
break;
case MATCHING :
$this->answer = new ScormAnswerMatching($this->id);
break;
default :
$this->answer = null;
break;
}
return true;
}
function export()
{
$out = $this->getQuestionHtml();
if( is_object($this->answer) )
{
$out .= $this->answer->export();
}
return $out;
}
}
class ScormAnswerMultipleChoice extends answerMultipleChoice
{
/**
* Return the XML flow for the possible answers.
* That's one <response_lid>, containing several <flow_label>
*
* @author Amand Tihon <amand@alrj.org>
*/
function export()
{
$out =
'<table width="100%">' . "\n\n";
if( $this->multipleAnswer )
{
$questionTypeLang = get_lang('Multiple choice (Multiple answers)');
foreach( $this->answerList as $answer )
{
$identifier = 'multiple_'.$this->questionId.'_'.$answer['id'];
$scormIdentifier = 'scorm_'.getIdCounter();
$out .=
'<tr>' . "\n"
. '<td align="center" width="5%">' . "\n"
. '<input name="'.$identifier.'" id="'.$scormIdentifier.'" value="'.$answer['grade'].'" type="checkbox" '
. ($this->response == 'TRUE'? 'checked="checked"':'')
. '/>' . "\n"
. '</td>' . "\n"
. '<td width="95%">' . "\n"
. '<label for="'.$scormIdentifier.'">' . $answer['answer'] . '</label>' . "\n"
. '</td>' . "\n"
. '</tr>' . "\n\n";
}
}
else
{
$questionTypeLang = get_lang('Multiple choice (Unique answer)');
$identifier = 'unique_'.$this->questionId.'_x';
foreach( $this->answerList as $answer )
{
$scormIdentifier = 'scorm_'.getIdCounter();
$out .=
'<tr>' . "\n"
. '<td align="center" width="5%">' . "\n"
. '<input name="'.$identifier.'" id="'.$scormIdentifier.'" value="'.$answer['grade'].'" type="radio" '
. ($this->response == 'TRUE'? 'checked="checked"':'')
. '/>' . "\n"
. '</td>' . "\n"
. '<td width="95%">' . "\n"
. '<label for="'.$scormIdentifier.'">' . $answer['answer'] . '</label>' . "\n"
. '</td>' . "\n"
. '</tr>' . "\n\n";
}
}
$out .=
'</table>' . "\n"
. '<p><small>' . $questionTypeLang . '</small></p>' . "\n";
return $out;
}
}
class ScormAnswerTrueFalse extends answerTrueFalse
{
/**
* Return the XML flow for the possible answers.
* That's one <response_lid>, containing several <flow_label>
*
* @author Amand Tihon <amand@alrj.org>
*/
function export()
{
$identifier = 'unique_'.$this->questionId.'_x';
$out =
'<table width="100%">' . "\n\n";
$scormIdentifier = 'scorm_'.getIdCounter();
$out .=
'<tr>' . "\n"
. '<td align="center" width="5%">' . "\n"
. '<input name="'.$identifier.'" id="'.$scormIdentifier.'" value="'.$this->trueGrade.'" type="radio" '
. ($this->response == 'TRUE'? 'checked="checked"':'')
. '/>' . "\n"
. '</td>' . "\n"
. '<td width="95%">' . "\n"
. '<label for="'.$scormIdentifier.'">' . get_lang('True') . '</label>' . "\n"
. '</td>' . "\n"
. '</tr>' . "\n\n";
$scormIdentifier = 'scorm_'.getIdCounter();
$out .=
'<tr>' . "\n"
. '<td align="center" width="5%">' . "\n"
. '<input name="'.$identifier.'" id="'.$scormIdentifier.'" value="'.$this->falseGrade.'" type="radio" '
. ($this->response == 'FALSE'? 'checked="checked"':'')
. '/>' . "\n"
. '</td>' . "\n"
. '<td width="95%">' . "\n"
. '<label for="'.$scormIdentifier.'">' . get_lang('False') . '</label>' . "\n"
. '</td>' . "\n"
. '</tr>' . "\n\n"
. '</table>' . "\n"
. '<p><small>' . get_lang('True/False') . '</small></p>' . "\n";
return $out;
}
}
class ScormAnswerFillInBlanks extends answerFillInBlanks
{
/**
* Export the text with missing words.
*
* As a side effect, it stores two lists in the class :
* the missing words and their respective weightings.
*
* @author Amand Tihon <amand@alrj.org>
*/
function export()
{
// get all enclosed answers
foreach( $this->answerList as $answer )
{
$blankList[] = '['.$answer.']';
}
$answerCount = count($blankList);
// build replacement
$replacementList = array();
if( $this->type == LISTBOX_FILL )
{
// build the list shown in list box
// prepare option list using good and wrong answers
$allAnswerList = array_merge($this->answerList, $this->wrongAnswerList);
// alphabetical sort of the list
natcasesort($allAnswerList);
$optionList[''] = '';
foreach( $allAnswerList as $answer )
{
$optionList[htmlspecialchars($answer)] = htmlspecialchars($answer);
}
for( $i = 0; $i < $answerCount; $i++ )
{
$identifier = 'fill_' . $this->questionId . '_' . $i;
$attr['id'] = 'scorm_'.getIdCounter();
$replacementList[] = claro_html_form_select($identifier, $optionList, null, $attr);
}
}
else
{
for( $i = 0; $i < $answerCount; $i++ )
{
$identifier = 'fill_' . $this->questionId . '_' . $i;
$scormIdentifier = 'scorm_'.getIdCounter();
$replacementList[] = "\n" . ' <input type="text" name="'.$identifier.'" id="'.$scormIdentifier.'" size="10" value="" /> ' . "\n";
}
}
// apply replacement on answer
$displayedAnswer = str_replace( $blankList, $replacementList, claro_parse_user_text($this->answerText) );
// some javascript must be added for that kind of questions
$out =
'<script type="text/javascript" language="javascript">' . "\n";
// Add the data for fillAnswerList
for( $i = 0; $i < $answerCount; $i++ )
{
$out .= " fillAnswerList['fill_" . $this->questionId . "_" . $i . "'] = new Array('" . $this->answerList[$i] . "', '" . $this->gradeList[$i] . "');\n";
}
$out .=
'</script>' . "\n"
. '<table width="100%">' . "\n\n"
. '<tr>' . "\n"
. '<td>' . "\n"
. $displayedAnswer . "\n"
. '</td>' . "\n"
. '</tr>' . "\n\n"
. '</table>' . "\n"
. '<p><small>' . get_lang('Fill in blanks') . '</small></p>' . "\n";
return $out;
}
}
class ScormAnswerMatching extends answerMatching
{
/**
* Export the question part as a matrix-choice, with only one possible answer per line.
* @author Amand Tihon <amand@alrj.org>
*/
function export()
{
// prepare list of right proposition to allow
// - easiest display
// - easiest randomisation if needed one day
// (here I use array_values to change array keys from $code1 $code2 ... to 0 1 ...)
$displayedRightList = array_values($this->rightList);
// get max length of displayed array
$arrayLength = max( count($this->leftList), count($this->rightList) );
$out = '<table width="100%">' . "\n\n";
$leftCpt = 1;
$rightCpt = 'A';
for( $i = 0; $i < $arrayLength; $i++ )
{
if( isset($this->leftList[$i]['answer']) )
{
// build html option list
$optionList = array();
$optionCpt = 'A';
$optionList[0] = '--';
foreach( $this->rightList as $rightElt )
{
$optionList[$optionCpt] = $this->leftList[$i]['grade'];
$optionCpt++;
}
$leftHtml = $leftCpt . '. ' . $this->leftList[$i]['answer'];
$attr['id'] = 'scorm_'.getIdCounter();
$centerHtml = claro_html_form_select('matching_'.$this->questionId.'_'.$this->leftList[$i]['code'], $optionList, null, $attr);
}
else
{
$leftHtml = '&nbsp;';
$centerHtml = '&nbsp;';
}
if( isset($displayedRightList[$i]['answer']) )
{
$rightHtml = $rightCpt . '. ' . $displayedRightList[$i]['answer'];
}
else
{
$rightHtml = '&nbsp;';
}
$out .=
'<tr>' . "\n"
. '<td valign="top" width="40%">' . "\n" . $leftHtml . "\n" . '</td>' . "\n"
. '<td valign="top" width="20%">' . "\n" . $centerHtml . "\n" . '</td>' . "\n"
. '<td valign="top" width="40%">' . "\n" . $rightHtml . "\n" . '</td>' . "\n"
. '</tr>' . "\n\n";
$leftCpt++;
$rightCpt++;
}
$out .=
'</table>' . "\n"
. '<p><small>' . get_lang('Matching') . '</small></p>' . "\n";
return $out;
}
}
?>
Write Preview
Loading…
Cancel
Save