You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2652 lines
92 KiB
2652 lines
92 KiB
2 years ago
|
<?php
|
||
|
|
// This file is part of Moodle - http://moodle.org/
|
||
|
|
//
|
||
|
|
// Moodle is free software: you can redistribute it and/or modify
|
||
|
|
// it under the terms of the GNU General Public License as published by
|
||
|
|
// the Free Software Foundation, either version 3 of the License, or
|
||
|
|
// (at your option) any later version.
|
||
|
|
//
|
||
|
|
// Moodle is distributed in the hope that it will be useful,
|
||
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
|
// GNU General Public License for more details.
|
||
|
|
//
|
||
|
|
// You should have received a copy of the GNU General Public License
|
||
|
|
// along with Moodle. If not, see <http://www.gnu.org/licenses/>.
|
||
|
|
/**
|
||
|
|
* @package backup-convert
|
||
|
|
* @copyright 2011 Darko Miletic <dmiletic@moodlerooms.com>
|
||
|
|
* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
|
||
|
|
*/
|
||
|
|
|
||
|
|
defined('MOODLE_INTERNAL') or die('Direct access to this script is forbidden.');
|
||
|
|
|
||
|
|
require_once('cc_utils.php');
|
||
|
|
require_once('cc_general.php');
|
||
|
|
|
||
|
|
abstract class cc_xml_namespace {
|
||
|
|
const xml = 'http://www.w3.org/XML/1998/namespace';
|
||
|
|
}
|
||
|
|
|
||
|
|
abstract class cc_qti_metadata {
|
||
|
|
// Assessment.
|
||
|
|
const qmd_assessmenttype = 'qmd_assessmenttype';
|
||
|
|
const qmd_scoretype = 'qmd_scoretype';
|
||
|
|
const qmd_feedbackpermitted = 'qmd_feedbackpermitted';
|
||
|
|
const qmd_hintspermitted = 'qmd_hintspermitted';
|
||
|
|
const qmd_solutionspermitted = 'qmd_solutionspermitted';
|
||
|
|
const qmd_timelimit = 'qmd_timelimit';
|
||
|
|
const cc_allow_late_submission = 'cc_allow_late_submission';
|
||
|
|
const cc_maxattempts = 'cc_maxattempts';
|
||
|
|
const cc_profile = 'cc_profile';
|
||
|
|
|
||
|
|
// Items.
|
||
|
|
const cc_weighting = 'cc_weighting';
|
||
|
|
const qmd_scoringpermitted = 'qmd_scoringpermitted';
|
||
|
|
const qmd_computerscored = 'qmd_computerscored';
|
||
|
|
const cc_question_category = 'cc_question_category';
|
||
|
|
}
|
||
|
|
|
||
|
|
abstract class cc_qti_profiletype {
|
||
|
|
const multiple_choice = 'cc.multiple_choice.v0p1';
|
||
|
|
const multiple_response = 'cc.multiple_response.v0p1';
|
||
|
|
const true_false = 'cc.true_false.v0p1';
|
||
|
|
const field_entry = 'cc.fib.v0p1';
|
||
|
|
const pattern_match = 'cc.pattern_match.v0p1';
|
||
|
|
const essay = 'cc.essay.v0p1';
|
||
|
|
|
||
|
|
/**
|
||
|
|
*
|
||
|
|
* validates a profile value
|
||
|
|
* @param string $value
|
||
|
|
* @return boolean
|
||
|
|
*/
|
||
|
|
public static function valid($value) {
|
||
|
|
static $verification_values = array( self::essay,
|
||
|
|
self::field_entry,
|
||
|
|
self::multiple_choice,
|
||
|
|
self::multiple_response,
|
||
|
|
self::pattern_match,
|
||
|
|
self::true_false
|
||
|
|
);
|
||
|
|
return in_array($value, $verification_values);
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
abstract class cc_qti_values {
|
||
|
|
const exam_profile = 'cc.exam.v0p1';
|
||
|
|
const Yes = 'Yes';
|
||
|
|
const No = 'No';
|
||
|
|
const Response = 'Response';
|
||
|
|
const Solution = 'Solution';
|
||
|
|
const Hint = 'Hint';
|
||
|
|
const Examination = 'Examination';
|
||
|
|
const Percentage = 'Percentage';
|
||
|
|
const unlimited = 'unlimited';
|
||
|
|
const Single = 'Single';
|
||
|
|
const Multiple = 'Multiple';
|
||
|
|
const Ordered = 'Ordered';
|
||
|
|
const Asterisk = 'Asterisk';
|
||
|
|
const Box = 'Box';
|
||
|
|
const Dashline = 'Dashline';
|
||
|
|
const Underline = 'Underline';
|
||
|
|
const Decimal = 'Decimal';
|
||
|
|
const Integer = 'Integer';
|
||
|
|
const Scientific = 'Scientific';
|
||
|
|
const String = 'String';
|
||
|
|
const SCORE = 'SCORE';
|
||
|
|
const Set = 'Set';
|
||
|
|
const Complete = 'Complete';
|
||
|
|
const texttype = 'text/plain';
|
||
|
|
const htmltype = 'text/html';
|
||
|
|
}
|
||
|
|
|
||
|
|
abstract class cc_qti_tags {
|
||
|
|
const questestinterop = 'questestinterop';
|
||
|
|
const assessment = 'assessment';
|
||
|
|
const qtimetadata = 'qtimetadata';
|
||
|
|
const qtimetadatafield = 'qtimetadatafield';
|
||
|
|
const fieldlabel = 'fieldlabel';
|
||
|
|
const fieldentry = 'fieldentry';
|
||
|
|
const section = 'section';
|
||
|
|
const ident = 'ident';
|
||
|
|
const item = 'item';
|
||
|
|
const title = 'title';
|
||
|
|
const itemmetadata = 'itemmetadata';
|
||
|
|
const presentation = 'presentation';
|
||
|
|
const material = 'material';
|
||
|
|
const mattext = 'mattext';
|
||
|
|
const matref = 'matref';
|
||
|
|
const matbreak = 'matbreak';
|
||
|
|
const texttype = 'texttype';
|
||
|
|
const response_lid = 'response_lid';
|
||
|
|
const render_choice = 'render_choice';
|
||
|
|
const response_label = 'response_label';
|
||
|
|
const resprocessing = 'resprocessing';
|
||
|
|
const outcomes = 'outcomes';
|
||
|
|
const decvar = 'decvar';
|
||
|
|
const respcondition = 'respcondition';
|
||
|
|
const conditionvar = 'conditionvar';
|
||
|
|
const other = 'other';
|
||
|
|
const displayfeedback = 'displayfeedback';
|
||
|
|
const maxvalue = 'maxvalue';
|
||
|
|
const minvalue = 'minvalue';
|
||
|
|
const varname = 'varname';
|
||
|
|
const vartype = 'vartype';
|
||
|
|
const continue_ = 'continue';
|
||
|
|
const feedbacktype = 'feedbacktype';
|
||
|
|
const linkrefid = 'linkrefid';
|
||
|
|
const varequal = 'varequal';
|
||
|
|
const respident = 'respident';
|
||
|
|
const itemfeedback = 'itemfeedback';
|
||
|
|
const flow_mat = 'flow_mat';
|
||
|
|
const rcardinality = 'rcardinality';
|
||
|
|
const charset = 'charset';
|
||
|
|
const label = 'label';
|
||
|
|
const uri = 'uri';
|
||
|
|
const width = 'width';
|
||
|
|
const height = 'height';
|
||
|
|
const x0 = 'x0';
|
||
|
|
const y0 = 'y0';
|
||
|
|
const xml_lang = 'lang';
|
||
|
|
const xml_space = 'space';
|
||
|
|
const rubric = 'rubric';
|
||
|
|
const altmaterial = 'altmaterial';
|
||
|
|
const presentation_material = 'presentation_material';
|
||
|
|
const t_class = 'class';
|
||
|
|
const material_ref = 'material_ref';
|
||
|
|
const rtiming = 'rtiming';
|
||
|
|
const render_fib = 'render_fib';
|
||
|
|
const shuffle = 'shuffle';
|
||
|
|
const minnumber = 'minnumber';
|
||
|
|
const maxnumber = 'maxnumber';
|
||
|
|
const encoding = 'encoding';
|
||
|
|
const maxchars = 'maxchars';
|
||
|
|
const prompt = 'prompt';
|
||
|
|
const fibtype = 'fibtype';
|
||
|
|
const rows = 'rows';
|
||
|
|
const columns = 'columns';
|
||
|
|
const labelrefid = 'labelrefid';
|
||
|
|
const rshuffle = 'rshuffle';
|
||
|
|
const match_group = 'match_group';
|
||
|
|
const match_max = 'match_max';
|
||
|
|
const flow = 'flow';
|
||
|
|
const response_str = 'response_str';
|
||
|
|
const flow_label = 'flow_label';
|
||
|
|
const setvar = 'setvar';
|
||
|
|
const action = 'action';
|
||
|
|
const and_ = 'and';
|
||
|
|
const not_ = 'not';
|
||
|
|
const case_ = 'case';
|
||
|
|
const varsubstring = 'varsubstring';
|
||
|
|
const hint = 'hint';
|
||
|
|
const solution = 'solution';
|
||
|
|
const feedbackstyle = 'feedbackstyle';
|
||
|
|
const solutionmaterial = 'solutionmaterial';
|
||
|
|
const hintmaterial = 'hintmaterial';
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_question_metadata_base {
|
||
|
|
/**
|
||
|
|
* @var array
|
||
|
|
*/
|
||
|
|
protected $metadata = array();
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param string $setting
|
||
|
|
* @param mixed $value
|
||
|
|
*/
|
||
|
|
protected function set_setting($setting, $value = null) {
|
||
|
|
$this->metadata[$setting] = $value;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param string $setting
|
||
|
|
* @return mixed
|
||
|
|
*/
|
||
|
|
protected function get_setting($setting) {
|
||
|
|
$result = null;
|
||
|
|
if (array_key_exists($setting, $this->metadata)) {
|
||
|
|
$result = $this->metadata[$setting];
|
||
|
|
}
|
||
|
|
return $result;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param string $setting
|
||
|
|
* @param string $namespace
|
||
|
|
* @param string $value
|
||
|
|
*/
|
||
|
|
protected function set_setting_wns($setting, $namespace, $value = null) {
|
||
|
|
$this->metadata[$setting] = array($namespace => $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param string $setting
|
||
|
|
* @param boolean $value
|
||
|
|
*/
|
||
|
|
protected function enable_setting_yesno($setting, $value = true) {
|
||
|
|
$svalue = $value ? cc_qti_values::Yes : cc_qti_values::No;
|
||
|
|
$this->set_setting($setting, $svalue);
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param XMLGenericDocument $doc
|
||
|
|
* @param DOMNode $item
|
||
|
|
* @param string $namespace
|
||
|
|
*/
|
||
|
|
public function generate_attributes(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
foreach ($this->metadata as $attribute => $value) {
|
||
|
|
if (!is_null($value)) {
|
||
|
|
if (!is_array($value)) {
|
||
|
|
$doc->append_new_attribute_ns($item, $namespace, $attribute, $value);
|
||
|
|
} else {
|
||
|
|
$ns = key($value);
|
||
|
|
$nval = current($value);
|
||
|
|
if (!is_null($nval)) {
|
||
|
|
$doc->append_new_attribute_ns($item, $ns, $attribute, $nval);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param XMLGenericDocument $doc
|
||
|
|
* @param DOMNode $item
|
||
|
|
* @param string $namespace
|
||
|
|
*/
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$qtimetadata = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::qtimetadata);
|
||
|
|
foreach ($this->metadata as $label => $entry) {
|
||
|
|
if (!is_null($entry)) {
|
||
|
|
$qtimetadatafield = $doc->append_new_element_ns($qtimetadata, $namespace, cc_qti_tags::qtimetadatafield);
|
||
|
|
$doc->append_new_element_ns($qtimetadatafield, $namespace, cc_qti_tags::fieldlabel, $label);
|
||
|
|
$doc->append_new_element_ns($qtimetadatafield, $namespace, cc_qti_tags::fieldentry, $entry);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_question_metadata extends cc_question_metadata_base {
|
||
|
|
|
||
|
|
public function set_category($value) {
|
||
|
|
$this->set_setting(cc_qti_metadata::cc_question_category, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_weighting($value) {
|
||
|
|
$this->set_setting(cc_qti_metadata::cc_weighting, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function enable_scoringpermitted($value = true) {
|
||
|
|
$this->enable_setting_yesno(cc_qti_metadata::qmd_scoringpermitted, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function enable_computerscored($value = true) {
|
||
|
|
$this->enable_setting_yesno(cc_qti_metadata::qmd_computerscored, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
*
|
||
|
|
* Constructs metadata
|
||
|
|
* @param string $profile
|
||
|
|
* @throws InvalidArgumentException
|
||
|
|
*/
|
||
|
|
public function __construct($profile) {
|
||
|
|
if (!cc_qti_profiletype::valid($profile)) {
|
||
|
|
throw new InvalidArgumentException('Invalid profile type!');
|
||
|
|
}
|
||
|
|
$this->set_setting(cc_qti_metadata::cc_profile, $profile);
|
||
|
|
$this->set_setting(cc_qti_metadata::cc_question_category);
|
||
|
|
$this->set_setting(cc_qti_metadata::cc_weighting );
|
||
|
|
$this->set_setting(cc_qti_metadata::qmd_scoringpermitted);
|
||
|
|
$this->set_setting(cc_qti_metadata::qmd_computerscored );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
class cc_assesment_metadata extends cc_question_metadata_base {
|
||
|
|
|
||
|
|
public function enable_hints($value = true) {
|
||
|
|
$this->enable_setting_yesno(cc_qti_metadata::qmd_hintspermitted, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function enable_solutions($value = true) {
|
||
|
|
$this->enable_setting_yesno(cc_qti_metadata::qmd_solutionspermitted, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function enable_latesubmissions($value = true) {
|
||
|
|
$this->enable_setting_yesno(cc_qti_metadata::cc_allow_late_submission, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function enable_feedback($value = true) {
|
||
|
|
$this->enable_setting_yesno(cc_qti_metadata::qmd_feedbackpermitted, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_timelimit($value) {
|
||
|
|
$ivalue = (int)$value;
|
||
|
|
if (($ivalue < 0) || ($ivalue > 527401)) {
|
||
|
|
throw new OutOfRangeException('Time limit value out of permitted range!');
|
||
|
|
}
|
||
|
|
|
||
|
|
$this->set_setting(cc_qti_metadata::qmd_timelimit, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_maxattempts($value) {
|
||
|
|
$valid_values = array(cc_qti_values::Examination, cc_qti_values::unlimited, 1, 2, 3, 4, 5);
|
||
|
|
if (!in_array($value, $valid_values)) {
|
||
|
|
throw new OutOfRangeException('Max attempts has invalid value');
|
||
|
|
}
|
||
|
|
|
||
|
|
$this->set_setting(cc_qti_metadata::cc_maxattempts, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function __construct() {
|
||
|
|
//prepared default values
|
||
|
|
$this->set_setting(cc_qti_metadata::cc_profile , cc_qti_values::exam_profile);
|
||
|
|
$this->set_setting(cc_qti_metadata::qmd_assessmenttype, cc_qti_values::Examination );
|
||
|
|
$this->set_setting(cc_qti_metadata::qmd_scoretype , cc_qti_values::Percentage );
|
||
|
|
//optional empty values
|
||
|
|
$this->set_setting(cc_qti_metadata::qmd_feedbackpermitted );
|
||
|
|
$this->set_setting(cc_qti_metadata::qmd_hintspermitted );
|
||
|
|
$this->set_setting(cc_qti_metadata::qmd_solutionspermitted );
|
||
|
|
$this->set_setting(cc_qti_metadata::qmd_timelimit );
|
||
|
|
$this->set_setting(cc_qti_metadata::cc_allow_late_submission);
|
||
|
|
$this->set_setting(cc_qti_metadata::cc_maxattempts );
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_mattext extends cc_question_metadata_base {
|
||
|
|
protected $value = null;
|
||
|
|
|
||
|
|
public function __construct($value = null) {
|
||
|
|
$this->set_setting(cc_qti_tags::texttype, cc_qti_values::texttype);
|
||
|
|
$this->set_setting(cc_qti_tags::charset);//, 'ascii-us');
|
||
|
|
$this->set_setting(cc_qti_tags::label);
|
||
|
|
$this->set_setting(cc_qti_tags::uri);
|
||
|
|
$this->set_setting(cc_qti_tags::width);
|
||
|
|
$this->set_setting(cc_qti_tags::height);
|
||
|
|
$this->set_setting(cc_qti_tags::x0);
|
||
|
|
$this->set_setting(cc_qti_tags::y0);
|
||
|
|
$this->set_setting_wns(cc_qti_tags::xml_lang , cc_xml_namespace::xml);
|
||
|
|
$this->set_setting_wns(cc_qti_tags::xml_space, cc_xml_namespace::xml);//, 'default');
|
||
|
|
$this->value = $value;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_label($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::label, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_uri($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::uri, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_width_height($width = null, $height = null) {
|
||
|
|
$this->set_setting(cc_qti_tags::width, $width);
|
||
|
|
$this->set_setting(cc_qti_tags::height, $height);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_coor($x = null, $y = null) {
|
||
|
|
$this->set_setting(cc_qti_tags::x0, $x);
|
||
|
|
$this->set_setting(cc_qti_tags::y0, $y);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_lang($lang = null) {
|
||
|
|
$this->set_setting_wns(cc_qti_tags::xml_lang , cc_xml_namespace::xml, $lang);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_content($content, $type = cc_qti_values::texttype, $charset = null) {
|
||
|
|
$this->value = $content;
|
||
|
|
$this->set_setting(cc_qti_tags::texttype, $type);
|
||
|
|
$this->set_setting(cc_qti_tags::charset, $charset);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$mattext = $doc->append_new_element_ns_cdata($item, $namespace, cc_qti_tags::mattext, $this->value);
|
||
|
|
$this->generate_attributes($doc, $mattext, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_matref {
|
||
|
|
protected $linkref = null;
|
||
|
|
|
||
|
|
public function __construct($linkref) {
|
||
|
|
$this->linkref = $linkref;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$doc->append_new_element_ns($item, $namespace, cc_qti_tags::matref, $this->linkref);
|
||
|
|
$doc->append_new_attribute_ns($node, $namespace, cc_qti_tags::linkrefid, $this->linkref);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_response_matref extends cc_assesment_matref {
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::material_ref);
|
||
|
|
$doc->append_new_attribute_ns($node, $namespace, cc_qti_tags::linkrefid, $this->linkref);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_matbreak {
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$doc->append_new_element_ns($item, $namespace, cc_qti_tags::matbreak);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
abstract class cc_assesment_material_base extends cc_question_metadata_base {
|
||
|
|
/**
|
||
|
|
* @var mixed
|
||
|
|
*/
|
||
|
|
protected $mattag = null;
|
||
|
|
protected $tagname = null;
|
||
|
|
|
||
|
|
protected function set_tag_value($object) {
|
||
|
|
$this->mattag = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_mattext(cc_assesment_mattext $object) {
|
||
|
|
$this->set_tag_value($object);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_matref(cc_assesment_matref $object) {
|
||
|
|
$this->set_tag_value($object);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_matbreak(cc_assesment_matbreak $object) {
|
||
|
|
$this->set_tag_value($object);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_lang($value) {
|
||
|
|
$this->set_setting_wns(cc_qti_tags::xml_lang , cc_xml_namespace::xml, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$material = $doc->append_new_element_ns($item, $namespace, $this->tagname);
|
||
|
|
$this->generate_attributes($doc, $material, $namespace);
|
||
|
|
if (!empty($this->mattag)) {
|
||
|
|
$this->mattag->generate($doc, $material, $namespace);
|
||
|
|
}
|
||
|
|
return $material;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_altmaterial extends cc_assesment_material_base {
|
||
|
|
public function __construct($value = null) {
|
||
|
|
$this->set_setting_wns(cc_qti_tags::xml_lang , cc_xml_namespace::xml);
|
||
|
|
$this->tagname = cc_qti_tags::altmaterial;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_material extends cc_assesment_material_base {
|
||
|
|
|
||
|
|
protected $altmaterial = null;
|
||
|
|
|
||
|
|
public function __construct($value = null) {
|
||
|
|
$this->set_setting(cc_qti_tags::label);
|
||
|
|
$this->set_setting_wns(cc_qti_tags::xml_lang , cc_xml_namespace::xml);
|
||
|
|
$this->tagname = cc_qti_tags::material;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_label($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::label, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_altmaterial(cc_assesment_altmaterial $object) {
|
||
|
|
$this->altmaterial = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$material = parent::generate($doc, $item, $namespace);
|
||
|
|
if (!empty($this->altmaterial)) {
|
||
|
|
$this->altmaterial->generate($doc, $material, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_rubric_base extends cc_question_metadata_base {
|
||
|
|
|
||
|
|
protected $material = null;
|
||
|
|
|
||
|
|
public function set_material($object) {
|
||
|
|
$this->material = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$rubric = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::rubric);
|
||
|
|
if (!empty($this->material)) {
|
||
|
|
$this->material->generate($doc, $rubric, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_presentation_material_base extends cc_question_metadata_base {
|
||
|
|
protected $flowmats = array();
|
||
|
|
|
||
|
|
public function add_flow_mat($object) {
|
||
|
|
$this->flowmats[] = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::presentation_material);
|
||
|
|
if (!empty($this->flowmats)) {
|
||
|
|
foreach ($this->flowmats as $flow_mat) {
|
||
|
|
$flow_mat->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_flow_mat_base extends cc_question_metadata_base {
|
||
|
|
|
||
|
|
protected $mattag = null;
|
||
|
|
|
||
|
|
protected function set_tag_value($object) {
|
||
|
|
$this->mattag = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_flow_mat(cc_assesment_flow_mat_base $object) {
|
||
|
|
$this->set_tag_value($object);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_material(cc_assesment_material $object) {
|
||
|
|
$this->set_tag_value($object);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_material_ref(cc_assesment_matref $object) {
|
||
|
|
$this->set_tag_value($object);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function __construct($value = null) {
|
||
|
|
$this->set_setting(cc_qti_tags::t_class);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_class($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::t_class, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::flow_mat);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
if (!empty($this->mattag)) {
|
||
|
|
$this->mattag->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_section extends cc_question_metadata_base {
|
||
|
|
/**
|
||
|
|
* @var array
|
||
|
|
*/
|
||
|
|
protected $items = array();
|
||
|
|
|
||
|
|
public function __construct() {
|
||
|
|
$this->set_setting(cc_qti_tags::ident, cc_helpers::uuidgen('I_'));
|
||
|
|
$this->set_setting(cc_qti_tags::title);
|
||
|
|
$this->set_setting_wns(cc_qti_tags::xml_lang, cc_xml_namespace::xml);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_ident($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::ident, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_title($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::title, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_lang($value) {
|
||
|
|
$this->set_setting_wns(cc_qti_tags::xml_lang, cc_xml_namespace::xml, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function add_item(cc_assesment_section_item $object) {
|
||
|
|
$this->items[] = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::section);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
if (!empty($this->items)) {
|
||
|
|
foreach ($this->items as $item) {
|
||
|
|
$item->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_itemmetadata extends cc_question_metadata_base {
|
||
|
|
public function add_metadata($object) {
|
||
|
|
$this->metadata[] = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::itemmetadata);
|
||
|
|
if (!empty($this->metadata)) {
|
||
|
|
foreach ($this->metadata as $metaitem) {
|
||
|
|
$metaitem->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_decvartype extends cc_question_metadata_base {
|
||
|
|
|
||
|
|
public function __construct() {
|
||
|
|
$this->set_setting(cc_qti_tags::varname, cc_qti_values::SCORE);
|
||
|
|
$this->set_setting(cc_qti_tags::vartype, cc_qti_values::Integer);
|
||
|
|
$this->set_setting(cc_qti_tags::minvalue);
|
||
|
|
$this->set_setting(cc_qti_tags::maxvalue);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_vartype($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::vartype, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_limits($min = null, $max = null) {
|
||
|
|
$this->set_setting(cc_qti_tags::minvalue, $min);
|
||
|
|
$this->set_setting(cc_qti_tags::maxvalue, $max);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::decvar);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
class cc_assignment_conditionvar_othertype extends cc_question_metadata_base {
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$doc->append_new_element_ns($item, $namespace, cc_qti_tags::other);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assignment_conditionvar_varequaltype extends cc_question_metadata_base {
|
||
|
|
protected $tagname = null;
|
||
|
|
protected $answerid = null;
|
||
|
|
|
||
|
|
public function __construct($value = null) {
|
||
|
|
if (is_null($value)) {
|
||
|
|
throw new InvalidArgumentException('Must not pass null!');
|
||
|
|
}
|
||
|
|
$this->answerid = $value;
|
||
|
|
$this->set_setting(cc_qti_tags::respident);
|
||
|
|
$this->set_setting(cc_qti_tags::case_);//, cc_qti_values::No );
|
||
|
|
$this->tagname = cc_qti_tags::varequal;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_respident($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::respident, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function enable_case($value = true) {
|
||
|
|
$this->enable_setting_yesno(cc_qti_tags::case_, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, $this->tagname, $this->answerid);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assignment_conditionvar_varsubstringtype extends cc_assignment_conditionvar_varequaltype {
|
||
|
|
public function __construct($value) {
|
||
|
|
parent::__construct($value);
|
||
|
|
$this->tagname = cc_qti_tags::varsubstring;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
class cc_assignment_conditionvar_andtype extends cc_question_metadata_base {
|
||
|
|
protected $nots = array();
|
||
|
|
protected $varequals = array();
|
||
|
|
|
||
|
|
public function set_not(cc_assignment_conditionvar_varequaltype $object) {
|
||
|
|
$this->nots[] = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_varequal(cc_assignment_conditionvar_varequaltype $object) {
|
||
|
|
$this->varequals[] = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::and_);
|
||
|
|
if (!empty($this->nots)) {
|
||
|
|
foreach ($this->nots as $notv) {
|
||
|
|
$not = $doc->append_new_element_ns($node, $namespace, cc_qti_tags::not_);
|
||
|
|
$notv->generate($doc, $not, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->varequals)) {
|
||
|
|
foreach ($this->varequals as $varequal) {
|
||
|
|
$varequal->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assignment_conditionvar extends cc_question_metadata_base {
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var cc_assignment_conditionvar_andtype
|
||
|
|
*/
|
||
|
|
protected $and = null;
|
||
|
|
/**
|
||
|
|
* @var cc_assignment_conditionvar_othertype
|
||
|
|
*/
|
||
|
|
protected $other = null;
|
||
|
|
/**
|
||
|
|
* @var array
|
||
|
|
*/
|
||
|
|
protected $varequal = array();
|
||
|
|
/**
|
||
|
|
* @var cc_assignment_conditionvar_varsubstringtype
|
||
|
|
*/
|
||
|
|
protected $varsubstring = null;
|
||
|
|
|
||
|
|
public function set_and(cc_assignment_conditionvar_andtype $object) {
|
||
|
|
$this->and = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_other(cc_assignment_conditionvar_othertype $object) {
|
||
|
|
$this->other = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_varequal(cc_assignment_conditionvar_varequaltype $object) {
|
||
|
|
$this->varequal[] = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_varsubstring(cc_assignment_conditionvar_varsubstringtype $object) {
|
||
|
|
$this->varsubstring = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::conditionvar);
|
||
|
|
|
||
|
|
if (!empty($this->and)) {
|
||
|
|
$this->and->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->other)) {
|
||
|
|
$this->other->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->varequal)) {
|
||
|
|
foreach ($this->varequal as $varequal) {
|
||
|
|
$varequal->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->varsubstring)) {
|
||
|
|
$this->varsubstring->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assignment_displayfeedbacktype extends cc_question_metadata_base {
|
||
|
|
public function __construct() {
|
||
|
|
$this->set_setting(cc_qti_tags::feedbacktype);
|
||
|
|
$this->set_setting(cc_qti_tags::linkrefid);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_feedbacktype($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::feedbacktype, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_linkrefid($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::linkrefid, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::displayfeedback);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
class cc_assignment_setvartype extends cc_question_metadata_base {
|
||
|
|
/**
|
||
|
|
* @var integer
|
||
|
|
*/
|
||
|
|
protected $tagvalue = null;
|
||
|
|
|
||
|
|
public function __construct($tagvalue = 100) {
|
||
|
|
$this->set_setting(cc_qti_tags::varname, cc_qti_values::SCORE);
|
||
|
|
$this->set_setting(cc_qti_tags::action , cc_qti_values::Set );
|
||
|
|
$this->tagvalue = $tagvalue;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_varname($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::varname, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::setvar, $this->tagvalue);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_respconditiontype extends cc_question_metadata_base {
|
||
|
|
/**
|
||
|
|
* @var cc_assignment_conditionvar
|
||
|
|
*/
|
||
|
|
protected $conditionvar = null;
|
||
|
|
protected $setvar = array();
|
||
|
|
protected $displayfeedback = array();
|
||
|
|
|
||
|
|
public function __construct() {
|
||
|
|
$this->set_setting(cc_qti_tags::title);
|
||
|
|
$this->set_setting(cc_qti_tags::continue_, cc_qti_values::No);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_title($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::title, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function enable_continue($value = true) {
|
||
|
|
$this->enable_setting_yesno(cc_qti_tags::continue_, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_conditionvar(cc_assignment_conditionvar $object) {
|
||
|
|
$this->conditionvar = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function add_setvar(cc_assignment_setvartype $object) {
|
||
|
|
$this->setvar[] = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function add_displayfeedback(cc_assignment_displayfeedbacktype $object) {
|
||
|
|
$this->displayfeedback[] = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::respcondition);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
|
||
|
|
if (!empty($this->conditionvar)) {
|
||
|
|
$this->conditionvar->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->setvar)) {
|
||
|
|
foreach ($this->setvar as $setvar) {
|
||
|
|
$setvar->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->displayfeedback)) {
|
||
|
|
foreach ($this->displayfeedback as $displayfeedback) {
|
||
|
|
$displayfeedback->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
class cc_assesment_resprocessingtype extends cc_question_metadata_base {
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_decvartype
|
||
|
|
*/
|
||
|
|
protected $decvar = null;
|
||
|
|
/**
|
||
|
|
* @var array
|
||
|
|
*/
|
||
|
|
protected $respconditions = array();
|
||
|
|
|
||
|
|
public function set_decvar(cc_assesment_decvartype $object) {
|
||
|
|
$this->decvar = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function add_respcondition(cc_assesment_respconditiontype $object) {
|
||
|
|
$this->respconditions[] = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::resprocessing);
|
||
|
|
$outcomes = $doc->append_new_element_ns($node, $namespace, cc_qti_tags::outcomes);
|
||
|
|
if (!empty($this->decvar)) {
|
||
|
|
$this->decvar->generate($doc, $outcomes, $namespace);
|
||
|
|
}
|
||
|
|
if (!empty($this->respconditions)) {
|
||
|
|
foreach ($this->respconditions as $rcond) {
|
||
|
|
$rcond->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
class cc_assesment_itemfeedback_shintmaterial_base extends cc_question_metadata_base {
|
||
|
|
/**
|
||
|
|
* @var string
|
||
|
|
*/
|
||
|
|
protected $tagname = null;
|
||
|
|
/**
|
||
|
|
* @var array
|
||
|
|
*/
|
||
|
|
protected $flow_mats = array();
|
||
|
|
/**
|
||
|
|
* @var array
|
||
|
|
*/
|
||
|
|
protected $materials = array();
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param cc_assesment_flow_mattype $object
|
||
|
|
*/
|
||
|
|
public function add_flow_mat(cc_assesment_flow_mattype $object) {
|
||
|
|
$this->flow_mats[] = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param cc_assesment_material $object
|
||
|
|
*/
|
||
|
|
public function add_material(cc_assesment_material $object) {
|
||
|
|
$this->materials[] = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, $this->tagname);
|
||
|
|
|
||
|
|
if (!empty($this->flow_mats)) {
|
||
|
|
foreach ($this->flow_mats as $flow_mat) {
|
||
|
|
$flow_mat->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->materials)) {
|
||
|
|
foreach ($this->materials as $material) {
|
||
|
|
$material->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_itemfeedback_hintmaterial extends cc_assesment_itemfeedback_shintmaterial_base {
|
||
|
|
public function __construct() {
|
||
|
|
$this->tagname = cc_qti_tags::hint;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_itemfeedback_solutionmaterial extends cc_assesment_itemfeedback_shintmaterial_base {
|
||
|
|
public function __construct() {
|
||
|
|
$this->tagname = cc_qti_tags::solutionmaterial;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_itemfeedback_shintype_base extends cc_question_metadata_base {
|
||
|
|
/**
|
||
|
|
* @var string
|
||
|
|
*/
|
||
|
|
protected $tagname = null;
|
||
|
|
/**
|
||
|
|
* @var array
|
||
|
|
*/
|
||
|
|
protected $items = array();
|
||
|
|
|
||
|
|
public function __construct() {
|
||
|
|
$this->set_setting(cc_qti_tags::feedbackstyle, cc_qti_values::Complete);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, $this->tagname);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
|
||
|
|
if (!empty($this->items)) {
|
||
|
|
foreach ($this->items as $telement) {
|
||
|
|
$telement->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_itemfeedback_solutiontype extends cc_assesment_itemfeedback_shintype_base {
|
||
|
|
public function __construct() {
|
||
|
|
parent::__construct();
|
||
|
|
$this->tagname = cc_qti_tags::solution;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param cc_assesment_itemfeedback_solutionmaterial $object
|
||
|
|
*/
|
||
|
|
public function add_solutionmaterial(cc_assesment_itemfeedback_solutionmaterial $object) {
|
||
|
|
$this->items[] = $object;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_itemfeedbac_hinttype extends cc_assesment_itemfeedback_shintype_base {
|
||
|
|
public function __construct() {
|
||
|
|
parent::__construct();
|
||
|
|
$this->tagname = cc_qti_tags::hint;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param cc_assesment_itemfeedback_hintmaterial $object
|
||
|
|
*/
|
||
|
|
public function add_hintmaterial(cc_assesment_itemfeedback_hintmaterial $object) {
|
||
|
|
$this->items[] = $object;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_itemfeedbacktype extends cc_question_metadata_base {
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_flow_mattype
|
||
|
|
*/
|
||
|
|
protected $flow_mat = null;
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_material
|
||
|
|
*/
|
||
|
|
protected $material = null;
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_itemfeedback_solutiontype
|
||
|
|
*/
|
||
|
|
protected $solution = null;
|
||
|
|
protected $hint = null;
|
||
|
|
|
||
|
|
public function __construct() {
|
||
|
|
$this->set_setting(cc_qti_tags::ident, cc_helpers::uuidgen('I_'));
|
||
|
|
$this->set_setting(cc_qti_tags::title);
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param string $value
|
||
|
|
*/
|
||
|
|
public function set_ident($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::ident, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param string $value
|
||
|
|
*/
|
||
|
|
public function set_title($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::title, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param cc_assesment_flow_mattype $object
|
||
|
|
*/
|
||
|
|
public function set_flow_mat(cc_assesment_flow_mattype $object) {
|
||
|
|
$this->flow_mat = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param cc_assesment_material $object
|
||
|
|
*/
|
||
|
|
public function set_material(cc_assesment_material $object) {
|
||
|
|
$this->material = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param cc_assesment_itemfeedback_solutiontype $object
|
||
|
|
*/
|
||
|
|
public function set_solution(cc_assesment_itemfeedback_solutiontype $object) {
|
||
|
|
$this->solution = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_hint($object) {
|
||
|
|
$this->hint = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::itemfeedback);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
|
||
|
|
if (!empty($this->flow_mat) && empty($this->material)) {
|
||
|
|
$this->flow_mat->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->material) && empty($this->flow_mat)) {
|
||
|
|
$this->material->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->solution)) {
|
||
|
|
$this->solution->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->itemfeedback)) {
|
||
|
|
$this->itemfeedback->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_section_item extends cc_assesment_section {
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_itemmetadata
|
||
|
|
*/
|
||
|
|
protected $itemmetadata = null;
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_presentation
|
||
|
|
*/
|
||
|
|
protected $presentation = null;
|
||
|
|
protected $resprocessing = array();
|
||
|
|
protected $itemfeedback = array();
|
||
|
|
|
||
|
|
public function set_itemmetadata(cc_assesment_itemmetadata $object) {
|
||
|
|
$this->itemmetadata = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_presentation(cc_assesment_presentation $object) {
|
||
|
|
$this->presentation = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function add_resprocessing(cc_assesment_resprocessingtype $object) {
|
||
|
|
$this->resprocessing[] = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function add_itemfeedback(cc_assesment_itemfeedbacktype $object) {
|
||
|
|
$this->itemfeedback[] = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::item);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
|
||
|
|
if (!empty($this->itemmetadata)) {
|
||
|
|
$this->itemmetadata->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->presentation)) {
|
||
|
|
$this->presentation->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->resprocessing)) {
|
||
|
|
foreach ($this->resprocessing as $resprocessing) {
|
||
|
|
$resprocessing->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->itemfeedback)) {
|
||
|
|
foreach ($this->itemfeedback as $itemfeedback) {
|
||
|
|
$itemfeedback->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_render_choicetype extends cc_question_metadata_base {
|
||
|
|
/**
|
||
|
|
* @var array
|
||
|
|
*/
|
||
|
|
protected $materials = array();
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var array
|
||
|
|
*/
|
||
|
|
protected $material_refs = array();
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var array
|
||
|
|
*/
|
||
|
|
protected $response_labels = array();
|
||
|
|
/**
|
||
|
|
* @var array
|
||
|
|
*/
|
||
|
|
protected $flow_labels = array();
|
||
|
|
|
||
|
|
public function __construct() {
|
||
|
|
$this->set_setting(cc_qti_tags::shuffle, cc_qti_values::No);
|
||
|
|
$this->set_setting(cc_qti_tags::minnumber);
|
||
|
|
$this->set_setting(cc_qti_tags::maxnumber);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function add_material(cc_assesment_material $object) {
|
||
|
|
$this->materials[] = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function add_material_ref(cc_assesment_response_matref $object) {
|
||
|
|
$this->material_refs[] = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function add_response_label(cc_assesment_response_labeltype $object) {
|
||
|
|
$this->response_labels[] = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function add_flow_label($object) {
|
||
|
|
$this->flow_labels[] = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function enable_shuffle($value = true) {
|
||
|
|
$this->enable_setting_yesno(cc_qti_tags::shuffle, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_limits($min = null, $max = null) {
|
||
|
|
$this->set_setting(cc_qti_tags::minnumber, $min);
|
||
|
|
$this->set_setting(cc_qti_tags::maxnumber, $max);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::render_choice);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
|
||
|
|
if (!empty($this->materials)) {
|
||
|
|
foreach ($this->materials as $mattag) {
|
||
|
|
$mattag->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->material_refs)) {
|
||
|
|
foreach ($this->material_refs as $matreftag) {
|
||
|
|
$matreftag->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->response_labels)) {
|
||
|
|
foreach ($this->response_labels as $resplabtag) {
|
||
|
|
$resplabtag->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->flow_labels)) {
|
||
|
|
foreach ($this->flow_labels as $flowlabtag) {
|
||
|
|
$flowlabtag->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_flow_mattype extends cc_question_metadata_base {
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_material
|
||
|
|
*/
|
||
|
|
protected $material = null;
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_response_matref
|
||
|
|
*/
|
||
|
|
protected $material_ref = null;
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_flow_mattype
|
||
|
|
*/
|
||
|
|
protected $flow_mat = null;
|
||
|
|
|
||
|
|
public function __construct() {
|
||
|
|
$this->set_setting(cc_qti_tags::t_class);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_class($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::t_class, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_material(cc_assesment_material $object) {
|
||
|
|
$this->material = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_material_ref(cc_assesment_response_matref $object) {
|
||
|
|
$this->material_ref = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_flow_mat(cc_assesment_flow_mattype $object) {
|
||
|
|
$this->flow_mat = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::flow_mat);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
|
||
|
|
if (!empty($this->flow_mat)) {
|
||
|
|
$this->flow_mat->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->material)) {
|
||
|
|
$this->material->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->material_ref)) {
|
||
|
|
$this->material_ref->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_response_labeltype extends cc_question_metadata_base {
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_material
|
||
|
|
*/
|
||
|
|
protected $material = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_response_matref
|
||
|
|
*/
|
||
|
|
protected $material_ref = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_flow_mattype
|
||
|
|
*/
|
||
|
|
protected $flow_mat = null;
|
||
|
|
|
||
|
|
public function __construct() {
|
||
|
|
$this->set_setting(cc_qti_tags::ident, cc_helpers::uuidgen('I_'));
|
||
|
|
$this->set_setting(cc_qti_tags::labelrefid);
|
||
|
|
$this->set_setting(cc_qti_tags::rshuffle);
|
||
|
|
$this->set_setting(cc_qti_tags::match_group);
|
||
|
|
$this->set_setting(cc_qti_tags::match_max);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_ident($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::ident, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function get_ident() {
|
||
|
|
return $this->get_setting(cc_qti_tags::ident);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_labelrefid($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::labelrefid, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function enable_rshuffle($value = true) {
|
||
|
|
$this->enable_setting_yesno(cc_qti_tags::rshuffle, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_match_group($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::match_group, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_match_max($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::match_max, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_material(cc_assesment_material $object) {
|
||
|
|
$this->material = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_material_ref(cc_assesment_response_matref $object) {
|
||
|
|
$this->material_ref = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_flow_mat(cc_assesment_flow_mattype $object) {
|
||
|
|
$this->flow_mat = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::response_label);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
|
||
|
|
if (!empty($this->material)) {
|
||
|
|
$this->material->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->material_ref)) {
|
||
|
|
$this->material_ref->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->flow_mat)) {
|
||
|
|
$this->flow_mat->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_flow_labeltype extends cc_question_metadata_base {
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_flow_labeltype
|
||
|
|
*/
|
||
|
|
protected $flow_label = null;
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_response_labeltype
|
||
|
|
*/
|
||
|
|
protected $response_label = null;
|
||
|
|
|
||
|
|
public function __construct() {
|
||
|
|
$this->set_setting(cc_qti_tags::t_class);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_class($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::t_class, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_flow_label(cc_assesment_flow_labeltype $object) {
|
||
|
|
$this->flow_label = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_response_label(cc_assesment_response_labeltype $object) {
|
||
|
|
$this->response_label = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::flow_label);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
|
||
|
|
if (!empty($this->material)) {
|
||
|
|
$this->material->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->material_ref)) {
|
||
|
|
$this->material_ref->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->response_label)) {
|
||
|
|
$this->response_label->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->flow_label)) {
|
||
|
|
$this->flow_label->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
class cc_assesment_render_fibtype extends cc_question_metadata_base {
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_material
|
||
|
|
*/
|
||
|
|
protected $material = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_response_matref
|
||
|
|
*/
|
||
|
|
protected $material_ref = null;
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_response_labeltype
|
||
|
|
*/
|
||
|
|
protected $response_label = null;
|
||
|
|
/**
|
||
|
|
*
|
||
|
|
* Enter description here ...
|
||
|
|
* @var unknown_type
|
||
|
|
*/
|
||
|
|
protected $flow_label = null;
|
||
|
|
|
||
|
|
|
||
|
|
public function __construct() {
|
||
|
|
$this->set_setting(cc_qti_tags::encoding );
|
||
|
|
$this->set_setting(cc_qti_tags::charset );
|
||
|
|
$this->set_setting(cc_qti_tags::rows );
|
||
|
|
$this->set_setting(cc_qti_tags::columns );
|
||
|
|
$this->set_setting(cc_qti_tags::maxchars );
|
||
|
|
$this->set_setting(cc_qti_tags::minnumber);
|
||
|
|
$this->set_setting(cc_qti_tags::maxnumber);
|
||
|
|
$this->set_setting(cc_qti_tags::prompt, cc_qti_values::Box);
|
||
|
|
$this->set_setting(cc_qti_tags::fibtype, cc_qti_values::String);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_encoding($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::encoding, $value);
|
||
|
|
}
|
||
|
|
public function set_charset($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::charset, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_rows($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::rows, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_columns($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::columns, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_maxchars($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::columns, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_limits($min = null, $max = null) {
|
||
|
|
$this->set_setting(cc_qti_tags::minnumber, $min);
|
||
|
|
$this->set_setting(cc_qti_tags::maxnumber, $max);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_prompt($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::prompt, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_fibtype($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::fibtype, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_material(cc_assesment_material $object) {
|
||
|
|
$this->material = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_material_ref(cc_assesment_response_matref $object) {
|
||
|
|
$this->material_ref = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_response_label(cc_assesment_response_labeltype $object) {
|
||
|
|
$this->response_label = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_flow_label($object) {
|
||
|
|
$this->flow_label = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::render_fib);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
|
||
|
|
if (!empty($this->material) && empty($this->material_ref)) {
|
||
|
|
$this->material->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->material_ref) && empty($this->material)) {
|
||
|
|
$this->material_ref->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->response_label)) {
|
||
|
|
$this->response_label->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->flow_label)) {
|
||
|
|
$this->flow_label->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_response_lidtype extends cc_question_metadata_base {
|
||
|
|
/**
|
||
|
|
* @var string
|
||
|
|
*/
|
||
|
|
protected $tagname = null;
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_material
|
||
|
|
*/
|
||
|
|
protected $material = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_response_matref
|
||
|
|
*/
|
||
|
|
protected $material_ref = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_render_choicetype
|
||
|
|
*/
|
||
|
|
protected $render_choice = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_render_fibtype
|
||
|
|
*/
|
||
|
|
protected $render_fib = null;
|
||
|
|
|
||
|
|
public function __construct() {
|
||
|
|
$this->set_setting(cc_qti_tags::rcardinality, cc_qti_values::Single);
|
||
|
|
$this->set_setting(cc_qti_tags::rtiming);
|
||
|
|
$this->set_setting(cc_qti_tags::ident, cc_helpers::uuidgen('I_'));
|
||
|
|
$this->tagname = cc_qti_tags::response_lid;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_rcardinality($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::rcardinality, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function enable_rtiming($value = true) {
|
||
|
|
$this->enable_setting_yesno(cc_qti_tags::rtiming, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_ident($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::ident, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function get_ident() {
|
||
|
|
return $this->get_setting(cc_qti_tags::ident);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_material_ref(cc_assesment_response_matref $object) {
|
||
|
|
$this->material_ref = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_material(cc_assesment_material $object) {
|
||
|
|
$this->material = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_render_choice(cc_assesment_render_choicetype $object) {
|
||
|
|
$this->render_choice = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_render_fib(cc_assesment_render_fibtype $object) {
|
||
|
|
$this->render_fib = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, $this->tagname);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
|
||
|
|
if (!empty($this->material) && empty($this->material_ref)) {
|
||
|
|
$this->material->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->material_ref) && empty($this->material)) {
|
||
|
|
$this->material_ref->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->render_choice) && empty($this->render_fib)) {
|
||
|
|
$this->render_choice->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->render_fib) && empty($this->render_choice)) {
|
||
|
|
$this->render_fib->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_response_strtype extends cc_response_lidtype {
|
||
|
|
public function __construct() {
|
||
|
|
$rtt = parent::__construct();
|
||
|
|
$this->tagname = cc_qti_tags::response_str;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_flowtype extends cc_question_metadata_base {
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_flowtype
|
||
|
|
*/
|
||
|
|
protected $flow = null;
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_material
|
||
|
|
*/
|
||
|
|
protected $material = null;
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_response_matref
|
||
|
|
*/
|
||
|
|
protected $material_ref = null;
|
||
|
|
/**
|
||
|
|
* @var cc_response_lidtype
|
||
|
|
*/
|
||
|
|
protected $response_lid = null;
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_response_strtype
|
||
|
|
*/
|
||
|
|
protected $response_str = null;
|
||
|
|
|
||
|
|
public function __construct() {
|
||
|
|
$this->set_setting(cc_qti_tags::t_class);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_class($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::t_class, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_flow(cc_assesment_flowtype $object) {
|
||
|
|
$this->flow = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_material(cc_assesment_material $object) {
|
||
|
|
$this->material = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_material_ref(cc_assesment_response_matref $object) {
|
||
|
|
$this->material_ref = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_response_lid(cc_response_lidtype $object) {
|
||
|
|
$this->response_lid = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_response_str(cc_assesment_response_strtype $object) {
|
||
|
|
$this->response_str = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::flow);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
|
||
|
|
if (!empty($this->flow)) {
|
||
|
|
$this->flow->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->material)) {
|
||
|
|
$this->material->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->response_lid)) {
|
||
|
|
$this->response_lid->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->response_str)) {
|
||
|
|
$this->response_str->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_presentation extends cc_question_metadata_base {
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_flowtype
|
||
|
|
*/
|
||
|
|
protected $flow = null;
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_material
|
||
|
|
*/
|
||
|
|
protected $material = null;
|
||
|
|
/**
|
||
|
|
* @var cc_response_lidtype
|
||
|
|
*/
|
||
|
|
protected $response_lid = null;
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_response_strtype
|
||
|
|
*/
|
||
|
|
protected $response_str = null;
|
||
|
|
|
||
|
|
public function __construct() {
|
||
|
|
$this->set_setting(cc_qti_tags::label);
|
||
|
|
$this->set_setting_wns(cc_qti_tags::xml_lang , cc_xml_namespace::xml);
|
||
|
|
$this->set_setting(cc_qti_tags::x0);
|
||
|
|
$this->set_setting(cc_qti_tags::y0);
|
||
|
|
$this->set_setting(cc_qti_tags::width);
|
||
|
|
$this->set_setting(cc_qti_tags::height);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_label($value) {
|
||
|
|
$this->set_setting(cc_qti_tags::label, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_lang($value) {
|
||
|
|
$this->set_setting_wns(cc_qti_tags::xml_lang , cc_xml_namespace::xml, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_coor($x = null, $y = null) {
|
||
|
|
$this->set_setting(cc_qti_tags::x0, $x);
|
||
|
|
$this->set_setting(cc_qti_tags::y0, $y);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_size($width = null, $height = null) {
|
||
|
|
$this->set_setting(cc_qti_tags::width, $width);
|
||
|
|
$this->set_setting(cc_qti_tags::height, $height);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_flow(cc_assesment_flowtype $object) {
|
||
|
|
$this->flow = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_material(cc_assesment_material $object) {
|
||
|
|
$this->material = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_response_lid(cc_response_lidtype $object) {
|
||
|
|
$this->response_lid = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_response_str(cc_assesment_response_strtype $object) {
|
||
|
|
$this->response_str = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate(XMLGenericDocument &$doc, DOMNode &$item, $namespace) {
|
||
|
|
$node = $doc->append_new_element_ns($item, $namespace, cc_qti_tags::presentation);
|
||
|
|
$this->generate_attributes($doc, $node, $namespace);
|
||
|
|
|
||
|
|
if (!empty($this->flow)) {
|
||
|
|
$this->flow->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->material) && empty($this->flow)) {
|
||
|
|
$this->material->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->response_lid) && empty($this->flow)) {
|
||
|
|
$this->response_lid->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($this->response_str) && empty($this->flow)) {
|
||
|
|
$this->response_str->generate($doc, $node, $namespace);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class assesment1_resurce_file extends general_cc_file {
|
||
|
|
const deafultname = 'assesment.xml';
|
||
|
|
|
||
|
|
protected $rootns = 'xmlns';
|
||
|
|
protected $rootname = cc_qti_tags::questestinterop;
|
||
|
|
protected $ccnamespaces = array('xmlns' => 'http://www.imsglobal.org/xsd/ims_qtiasiv1p2',
|
||
|
|
'xsi' => 'http://www.w3.org/2001/XMLSchema-instance');
|
||
|
|
protected $ccnsnames = array('xmlns' => 'http://www.imsglobal.org/profile/cc/ccv1p0/derived_schema/domainProfile_4/ims_qtiasiv1p2_localised.xsd');
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var string
|
||
|
|
*/
|
||
|
|
protected $assessment_title = 'Untitled';
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_metadata
|
||
|
|
*/
|
||
|
|
protected $metadata = null;
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_rubric_base
|
||
|
|
*/
|
||
|
|
protected $rubric = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_presentation_material_base
|
||
|
|
*/
|
||
|
|
protected $presentation_material = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_section
|
||
|
|
*/
|
||
|
|
protected $section = null;
|
||
|
|
|
||
|
|
public function set_metadata(cc_assesment_metadata $object) {
|
||
|
|
$this->metadata = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_rubric(cc_assesment_rubric_base $object) {
|
||
|
|
$this->rubric = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_presentation_material(cc_assesment_presentation_material_base $object) {
|
||
|
|
$this->presentation_material = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_section(cc_assesment_section $object) {
|
||
|
|
$this->section = $object;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function set_title($value) {
|
||
|
|
$this->assessment_title = self::safexml($value);
|
||
|
|
}
|
||
|
|
|
||
|
|
protected function on_save() {
|
||
|
|
$rns = $this->ccnamespaces[$this->rootns];
|
||
|
|
//root assesment element - required
|
||
|
|
$assessment = $this->append_new_element_ns($this->root, $rns, cc_qti_tags::assessment);
|
||
|
|
$this->append_new_attribute_ns($assessment, $rns, cc_qti_tags::ident, cc_helpers::uuidgen('QDB_'));
|
||
|
|
$this->append_new_attribute_ns($assessment, $rns, cc_qti_tags::title, $this->assessment_title);
|
||
|
|
|
||
|
|
//metadata - optional
|
||
|
|
if (!empty($this->metadata)) {
|
||
|
|
$this->metadata->generate($this, $assessment, $rns);
|
||
|
|
}
|
||
|
|
|
||
|
|
//rubric - optional
|
||
|
|
if (!empty($this->rubric)) {
|
||
|
|
$this->rubric->generate($this, $assessment, $rns);
|
||
|
|
}
|
||
|
|
|
||
|
|
//presentation_material - optional
|
||
|
|
if (!empty($this->presentation_material)) {
|
||
|
|
$this->presentation_material->generate($this, $assessment, $rns);
|
||
|
|
}
|
||
|
|
|
||
|
|
//section - required
|
||
|
|
if (!empty($this->section)) {
|
||
|
|
$this->section->generate($this, $assessment, $rns);
|
||
|
|
}
|
||
|
|
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
class assesment11_resurce_file extends assesment1_resurce_file {
|
||
|
|
protected $ccnsnames = array('xmlns' => 'http://www.imsglobal.org/profile/cc/ccv1p1/ccv1p1_qtiasiv1p2p1_v1p0.xsd');
|
||
|
|
}
|
||
|
|
|
||
|
|
abstract class cc_assesment_helper {
|
||
|
|
|
||
|
|
public static $correct_fb = null;
|
||
|
|
public static $incorrect_fb = null;
|
||
|
|
|
||
|
|
public static function add_feedback($qitem, $content, $content_type, $ident) {
|
||
|
|
if (empty($content)) {
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
$qitemfeedback = new cc_assesment_itemfeedbacktype();
|
||
|
|
$qitem->add_itemfeedback($qitemfeedback);
|
||
|
|
if (!empty($ident)) {
|
||
|
|
$qitemfeedback->set_ident($ident);
|
||
|
|
}
|
||
|
|
$qflowmat = new cc_assesment_flow_mattype();
|
||
|
|
$qitemfeedback->set_flow_mat($qflowmat);
|
||
|
|
$qmaterialfb = new cc_assesment_material();
|
||
|
|
$qflowmat->set_material($qmaterialfb);
|
||
|
|
$qmattext = new cc_assesment_mattext();
|
||
|
|
$qmaterialfb->set_mattext($qmattext);
|
||
|
|
$qmattext->set_content($content, $content_type);
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
|
||
|
|
public static function add_answer($qresponse_choice, $content, $content_type) {
|
||
|
|
$qresponse_label = new cc_assesment_response_labeltype();
|
||
|
|
$qresponse_choice->add_response_label($qresponse_label);
|
||
|
|
$qrespmaterial = new cc_assesment_material();
|
||
|
|
$qresponse_label->set_material($qrespmaterial);
|
||
|
|
$qrespmattext = new cc_assesment_mattext();
|
||
|
|
$qrespmaterial->set_mattext($qrespmattext);
|
||
|
|
$qrespmattext->set_content($content, $content_type);
|
||
|
|
return $qresponse_label;
|
||
|
|
}
|
||
|
|
|
||
|
|
public static function add_response_condition($node, $title, $ident, $feedback_refid, $respident) {
|
||
|
|
$qrespcondition = new cc_assesment_respconditiontype();
|
||
|
|
$node->add_respcondition($qrespcondition);
|
||
|
|
//define rest of the conditions
|
||
|
|
$qconditionvar = new cc_assignment_conditionvar();
|
||
|
|
$qrespcondition->set_conditionvar($qconditionvar);
|
||
|
|
$qvarequal = new cc_assignment_conditionvar_varequaltype($ident);
|
||
|
|
$qvarequal->enable_case();
|
||
|
|
$qconditionvar->set_varequal($qvarequal);
|
||
|
|
$qvarequal->set_respident($respident);
|
||
|
|
$qdisplayfeedback = new cc_assignment_displayfeedbacktype();
|
||
|
|
$qrespcondition->add_displayfeedback($qdisplayfeedback);
|
||
|
|
$qdisplayfeedback->set_feedbacktype(cc_qti_values::Response);
|
||
|
|
$qdisplayfeedback->set_linkrefid($feedback_refid);
|
||
|
|
}
|
||
|
|
|
||
|
|
public static function add_assesment_description($rt, $content, $contenttype) {
|
||
|
|
if (empty($rt) || empty($content)) {
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
$activity_rubric = new cc_assesment_rubric_base();
|
||
|
|
$rubric_material = new cc_assesment_material();
|
||
|
|
$activity_rubric->set_material($rubric_material);
|
||
|
|
$rubric_mattext = new cc_assesment_mattext();
|
||
|
|
$rubric_material->set_label('Summary');
|
||
|
|
$rubric_material->set_mattext($rubric_mattext);
|
||
|
|
$rubric_mattext->set_content($content, $contenttype);
|
||
|
|
$rt->set_rubric($activity_rubric);
|
||
|
|
}
|
||
|
|
|
||
|
|
public static function add_respcondition($node, $title, $feedback_refid, $grade_value = null, $continue = false ) {
|
||
|
|
$qrespcondition = new cc_assesment_respconditiontype();
|
||
|
|
$qrespcondition->set_title($title);
|
||
|
|
$node->add_respcondition($qrespcondition);
|
||
|
|
$qrespcondition->enable_continue($continue);
|
||
|
|
//Add setvar if grade present
|
||
|
|
if ($grade_value !== null) {
|
||
|
|
$qsetvar = new cc_assignment_setvartype($grade_value);
|
||
|
|
$qrespcondition->add_setvar($qsetvar);
|
||
|
|
}
|
||
|
|
//define the condition for success
|
||
|
|
$qconditionvar = new cc_assignment_conditionvar();
|
||
|
|
$qrespcondition->set_conditionvar($qconditionvar);
|
||
|
|
$qother = new cc_assignment_conditionvar_othertype();
|
||
|
|
$qconditionvar->set_other($qother);
|
||
|
|
$qdisplayfeedback = new cc_assignment_displayfeedbacktype();
|
||
|
|
$qrespcondition->add_displayfeedback($qdisplayfeedback);
|
||
|
|
$qdisplayfeedback->set_feedbacktype(cc_qti_values::Response);
|
||
|
|
$qdisplayfeedback->set_linkrefid($feedback_refid);
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
*
|
||
|
|
* Enter description here ...
|
||
|
|
* @param XMLGenericDocument $qdoc
|
||
|
|
* @param unknown_type $manifest
|
||
|
|
* @param cc_assesment_section $section
|
||
|
|
* @param unknown_type $rootpath
|
||
|
|
* @param unknown_type $contextid
|
||
|
|
* @param unknown_type $outdir
|
||
|
|
*/
|
||
|
|
public static function process_questions(&$qdoc, &$manifest, cc_assesment_section &$section, $rootpath, $contextid, $outdir) {
|
||
|
|
$question_file = $rootpath . DIRECTORY_SEPARATOR . 'questions.xml';
|
||
|
|
//load questions file
|
||
|
|
$questions = new XMLGenericDocument();
|
||
|
|
if (!$questions->load($question_file)) {
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
pkg_resource_dependencies::instance()->reset();
|
||
|
|
$questioncount = 0;
|
||
|
|
$questionforexport = 0;
|
||
|
|
$qids = $qdoc->nodeList('//question_instances//questionid');
|
||
|
|
foreach ($qids as $qid) {
|
||
|
|
/** @var DOMNode $qid */
|
||
|
|
$value = $qid->nodeValue;
|
||
|
|
if (intval($value) == 0) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
$question_node = $questions->node("//question_category/questions/question[@id='{$value}']");
|
||
|
|
if (empty($question_node)) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
++$questionforexport;
|
||
|
|
//process question
|
||
|
|
//question type
|
||
|
|
$qtype = $questions->nodeValue('qtype', $question_node);
|
||
|
|
$question_processor = null;
|
||
|
|
switch ($qtype) {
|
||
|
|
case 'multichoice':
|
||
|
|
$single_correct_answer = (int)$questions->nodeValue('plugin_qtype_multichoice_question/multichoice/single', $question_node) > 0;
|
||
|
|
//TODO: Add checking for the nunmber of valid responses
|
||
|
|
//If question is marked as multi response but contains only one valid answer it
|
||
|
|
//should be handle as single response - classic multichoice
|
||
|
|
if ($single_correct_answer) {
|
||
|
|
$question_processor = new cc_assesment_question_multichoice($qdoc, $questions, $manifest, $section, $question_node, $rootpath, $contextid, $outdir);
|
||
|
|
} else {
|
||
|
|
$question_processor = new cc_assesment_question_multichoice_multiresponse($qdoc, $questions, $manifest, $section, $question_node, $rootpath, $contextid, $outdir);
|
||
|
|
}
|
||
|
|
$question_processor->generate();
|
||
|
|
++$questioncount;
|
||
|
|
break;
|
||
|
|
case 'truefalse':
|
||
|
|
$question_processor = new cc_assesment_question_truefalse($qdoc, $questions, $manifest, $section, $question_node, $rootpath, $contextid, $outdir);
|
||
|
|
$question_processor->generate();
|
||
|
|
++$questioncount;
|
||
|
|
break;
|
||
|
|
case 'essay':
|
||
|
|
$question_processor = new cc_assesment_question_essay($qdoc, $questions, $manifest, $section, $question_node, $rootpath, $contextid, $outdir);
|
||
|
|
$question_processor->generate();
|
||
|
|
++$questioncount;
|
||
|
|
break;
|
||
|
|
case 'shortanswer':
|
||
|
|
//This is rather ambiguos since shortanswer supports partial pattern match
|
||
|
|
//In order to detect pattern match we need to scan for all the responses
|
||
|
|
//if at least one of the responses uses wildcards it should be treated as
|
||
|
|
//pattern match, otherwise it should be simple fill in the blank
|
||
|
|
if (self::has_matching_element($questions, $question_node)) {
|
||
|
|
//$question_processor = new cc_assesment_question_patternmatch($qdoc, $questions, $manifest, $section, $question_node, $rootpath, $contextid, $outdir);
|
||
|
|
$questionforexport--;
|
||
|
|
} else {
|
||
|
|
$question_processor = new cc_assesment_question_sfib($qdoc, $questions, $manifest, $section, $question_node, $rootpath, $contextid, $outdir);
|
||
|
|
}
|
||
|
|
if (!empty($question_processor)) {
|
||
|
|
$question_processor->generate();
|
||
|
|
++$questioncount;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
//return dependencies
|
||
|
|
return ($questioncount == 0) || ($questioncount != $questionforexport)?
|
||
|
|
false: pkg_resource_dependencies::instance()->get_deps();
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
*
|
||
|
|
* Checks if question has matching element
|
||
|
|
* @param XMLGenericDocument $questions
|
||
|
|
* @param object $question_node
|
||
|
|
* @return bool
|
||
|
|
*/
|
||
|
|
public static function has_matching_element(XMLGenericDocument $questions, $question_node) {
|
||
|
|
$answers = $questions->nodeList('plugin_qtype_shortanswer_question//answertext', $question_node);
|
||
|
|
$result = false;
|
||
|
|
foreach ($answers as $answer) {
|
||
|
|
$prepare = str_replace('\*', '\#', $answer->nodeValue);
|
||
|
|
$result = (strpos($prepare, '*') !== false);
|
||
|
|
if ($result) {
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return $result;
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_question_proc_base {
|
||
|
|
/**
|
||
|
|
* @var XMLGenericDocument
|
||
|
|
*/
|
||
|
|
protected $quiz = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var XMLGenericDocument
|
||
|
|
*/
|
||
|
|
protected $questions = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var cc_manifest
|
||
|
|
*/
|
||
|
|
protected $manifest = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_section
|
||
|
|
*/
|
||
|
|
protected $section = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var DOMElement
|
||
|
|
*/
|
||
|
|
protected $question_node = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var string
|
||
|
|
*/
|
||
|
|
protected $rootpath = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var string
|
||
|
|
*/
|
||
|
|
protected $contextid = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var string
|
||
|
|
*/
|
||
|
|
protected $outdir = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var string
|
||
|
|
*/
|
||
|
|
protected $qtype = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var cc_question_metadata
|
||
|
|
*/
|
||
|
|
protected $qmetadata = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_section_item
|
||
|
|
*/
|
||
|
|
protected $qitem = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var cc_assesment_presentation
|
||
|
|
*/
|
||
|
|
protected $qpresentation = null;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var cc_response_lidtype
|
||
|
|
*/
|
||
|
|
protected $qresponse_lid = null;
|
||
|
|
|
||
|
|
protected $qresprocessing = null;
|
||
|
|
|
||
|
|
protected $correct_grade_value = null;
|
||
|
|
protected $correct_answer_node_id = null;
|
||
|
|
protected $correct_answer_ident = null;
|
||
|
|
|
||
|
|
protected $total_grade_value = null;
|
||
|
|
|
||
|
|
protected $answerlist = null;
|
||
|
|
|
||
|
|
protected $general_feedback = null;
|
||
|
|
protected $correct_feedbacks = array();
|
||
|
|
protected $incorrect_feedbacks = array();
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param XMLGenericDocument $questions
|
||
|
|
* @param cc_manifest $manifest
|
||
|
|
* @param cc_assesment_section $section
|
||
|
|
* @param DOMElement $question_node
|
||
|
|
* @param string $rootpath
|
||
|
|
* @param string $contextid
|
||
|
|
* @param string $outdir
|
||
|
|
*/
|
||
|
|
public function __construct(XMLGenericDocument &$quiz, XMLGenericDocument &$questions, cc_manifest &$manifest, cc_assesment_section &$section, &$question_node, $rootpath, $contextid, $outdir) {
|
||
|
|
$this->quiz = $quiz;
|
||
|
|
$this->questions = $questions;
|
||
|
|
$this->manifest = $manifest;
|
||
|
|
$this->section = $section;
|
||
|
|
$this->question_node = $question_node;
|
||
|
|
$this->rootpath = $rootpath;
|
||
|
|
$this->contextid = $contextid;
|
||
|
|
$this->outdir = $outdir;
|
||
|
|
|
||
|
|
//
|
||
|
|
$qitem = new cc_assesment_section_item();
|
||
|
|
$this->section->add_item($qitem);
|
||
|
|
$qitem->set_title($this->questions->nodeValue('name', $this->question_node));
|
||
|
|
$this->qitem = $qitem;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function on_generate_metadata() {
|
||
|
|
if (empty($this->qmetadata)) {
|
||
|
|
$this->qmetadata = new cc_question_metadata($this->qtype);
|
||
|
|
//Get weighting value
|
||
|
|
$weighting_value = (int)$this->questions->nodeValue('defaultmark', $this->question_node);
|
||
|
|
if ($weighting_value > 1) {
|
||
|
|
$this->qmetadata->set_weighting($weighting_value);
|
||
|
|
}
|
||
|
|
//Get category
|
||
|
|
$question_category = $this->questions->nodeValue('../../name', $this->question_node);
|
||
|
|
if (!empty($question_category)) {
|
||
|
|
$this->qmetadata->set_category($question_category);
|
||
|
|
}
|
||
|
|
$rts = new cc_assesment_itemmetadata();
|
||
|
|
$rts->add_metadata($this->qmetadata);
|
||
|
|
$this->qitem->set_itemmetadata($rts);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
public function on_generate_presentation() {
|
||
|
|
if (empty($this->qpresentation)) {
|
||
|
|
$qpresentation = new cc_assesment_presentation();
|
||
|
|
$this->qitem->set_presentation($qpresentation);
|
||
|
|
//add question text
|
||
|
|
$qmaterial = new cc_assesment_material();
|
||
|
|
$qmattext = new cc_assesment_mattext();
|
||
|
|
$question_text = $this->questions->nodeValue('questiontext', $this->question_node);
|
||
|
|
$result = cc_helpers::process_linked_files( $question_text,
|
||
|
|
$this->manifest,
|
||
|
|
$this->rootpath,
|
||
|
|
$this->contextid,
|
||
|
|
$this->outdir);
|
||
|
|
$qmattext->set_content($result[0], cc_qti_values::htmltype);
|
||
|
|
$qmaterial->set_mattext($qmattext);
|
||
|
|
$qpresentation->set_material($qmaterial);
|
||
|
|
$this->qpresentation = $qpresentation;
|
||
|
|
pkg_resource_dependencies::instance()->add($result[1]);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
public function on_generate_answers() {}
|
||
|
|
public function on_generate_feedbacks() {
|
||
|
|
$general_question_feedback = $this->questions->nodeValue('generalfeedback', $this->question_node);
|
||
|
|
if (empty($general_question_feedback)) {
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
$name = 'general_fb';
|
||
|
|
//Add question general feedback - the one that should be always displayed
|
||
|
|
$result = cc_helpers::process_linked_files( $general_question_feedback,
|
||
|
|
$this->manifest,
|
||
|
|
$this->rootpath,
|
||
|
|
$this->contextid,
|
||
|
|
$this->outdir);
|
||
|
|
|
||
|
|
cc_assesment_helper::add_feedback($this->qitem,
|
||
|
|
$result[0],
|
||
|
|
cc_qti_values::htmltype,
|
||
|
|
$name);
|
||
|
|
pkg_resource_dependencies::instance()->add($result[1]);
|
||
|
|
$this->general_feedback = $name;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function on_generate_response_processing() {
|
||
|
|
|
||
|
|
$qresprocessing = new cc_assesment_resprocessingtype();
|
||
|
|
$this->qitem->add_resprocessing($qresprocessing);
|
||
|
|
$qdecvar = new cc_assesment_decvartype();
|
||
|
|
$qresprocessing->set_decvar($qdecvar);
|
||
|
|
//according to the Common Cartridge 1.1 Profile: Implementation document
|
||
|
|
//this should always be set to 0, 100 in case of question type that is not essay
|
||
|
|
$qdecvar->set_limits(0,100);
|
||
|
|
$qdecvar->set_vartype(cc_qti_values::Decimal);
|
||
|
|
|
||
|
|
$this->qresprocessing = $qresprocessing;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
public function generate() {
|
||
|
|
$this->on_generate_metadata();
|
||
|
|
|
||
|
|
$this->on_generate_presentation();
|
||
|
|
|
||
|
|
$this->on_generate_answers();
|
||
|
|
|
||
|
|
$this->on_generate_feedbacks();
|
||
|
|
|
||
|
|
$this->on_generate_response_processing();
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_question_multichoice extends cc_assesment_question_proc_base {
|
||
|
|
public function __construct($quiz, $questions, $manifest, $section, $question_node, $rootpath, $contextid, $outdir) {
|
||
|
|
parent::__construct($quiz, $questions, $manifest, $section, $question_node, $rootpath, $contextid, $outdir);
|
||
|
|
$this->qtype = cc_qti_profiletype::multiple_choice;
|
||
|
|
|
||
|
|
/**
|
||
|
|
*
|
||
|
|
* What is needed is a maximum grade value taken from the answer fraction
|
||
|
|
* It is supposed to always be between 1 and 0 in decimal representation,
|
||
|
|
* however that is not always the case so a change in test was needed
|
||
|
|
* but since we support here one correct answer type
|
||
|
|
* correct answer would always have to be 1
|
||
|
|
*/
|
||
|
|
$correct_answer_node = $this->questions->node("plugin_qtype_multichoice_question/answers/answer[fraction > 0]", $this->question_node);
|
||
|
|
if (empty($correct_answer_node)) {
|
||
|
|
throw new RuntimeException('No correct answer!');
|
||
|
|
}
|
||
|
|
$this->correct_answer_node_id = $this->questions->nodeValue('@id', $correct_answer_node);
|
||
|
|
$maximum_quiz_grade = (int)$this->quiz->nodeValue('/activity/quiz/grade');
|
||
|
|
$this->total_grade_value = ($maximum_quiz_grade + 1).'.0000000';
|
||
|
|
}
|
||
|
|
|
||
|
|
public function on_generate_answers() {
|
||
|
|
//add responses holder
|
||
|
|
$qresponse_lid = new cc_response_lidtype();
|
||
|
|
$this->qresponse_lid = $qresponse_lid;
|
||
|
|
$this->qpresentation->set_response_lid($qresponse_lid);
|
||
|
|
$qresponse_choice = new cc_assesment_render_choicetype();
|
||
|
|
$qresponse_lid->set_render_choice($qresponse_choice);
|
||
|
|
//Mark that question has only one correct answer -
|
||
|
|
//which applies for multiple choice and yes/no questions
|
||
|
|
$qresponse_lid->set_rcardinality(cc_qti_values::Single);
|
||
|
|
//are we to shuffle the responses?
|
||
|
|
$shuffle_answers = (int)$this->quiz->nodeValue('/activity/quiz/shuffleanswers') > 0;
|
||
|
|
$qresponse_choice->enable_shuffle($shuffle_answers);
|
||
|
|
$answerlist = array();
|
||
|
|
$qa_responses = $this->questions->nodeList('plugin_qtype_multichoice_question/answers/answer', $this->question_node);
|
||
|
|
foreach ($qa_responses as $node) {
|
||
|
|
$answer_content = $this->questions->nodeValue('answertext', $node);
|
||
|
|
$id = ((int)$this->questions->nodeValue('@id', $node) == $this->correct_answer_node_id);
|
||
|
|
$result = cc_helpers::process_linked_files( $answer_content,
|
||
|
|
$this->manifest,
|
||
|
|
$this->rootpath,
|
||
|
|
$this->contextid,
|
||
|
|
$this->outdir);
|
||
|
|
$qresponse_label = cc_assesment_helper::add_answer( $qresponse_choice,
|
||
|
|
$result[0],
|
||
|
|
cc_qti_values::htmltype);
|
||
|
|
pkg_resource_dependencies::instance()->add($result[1]);
|
||
|
|
$answer_ident = $qresponse_label->get_ident();
|
||
|
|
$feedback_ident = $answer_ident.'_fb';
|
||
|
|
if (empty($this->correct_answer_ident) && $id) {
|
||
|
|
$this->correct_answer_ident = $answer_ident;
|
||
|
|
}
|
||
|
|
//add answer specific feedbacks if not empty
|
||
|
|
$content = $this->questions->nodeValue('feedback', $node);
|
||
|
|
if (!empty($content)) {
|
||
|
|
$result = cc_helpers::process_linked_files( $content,
|
||
|
|
$this->manifest,
|
||
|
|
$this->rootpath,
|
||
|
|
$this->contextid,
|
||
|
|
$this->outdir);
|
||
|
|
|
||
|
|
|
||
|
|
cc_assesment_helper::add_feedback( $this->qitem,
|
||
|
|
$result[0],
|
||
|
|
cc_qti_values::htmltype,
|
||
|
|
$feedback_ident);
|
||
|
|
|
||
|
|
pkg_resource_dependencies::instance()->add($result[1]);
|
||
|
|
|
||
|
|
$answerlist[$answer_ident] = $feedback_ident;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$this->answerlist = $answerlist;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
public function on_generate_feedbacks() {
|
||
|
|
parent::on_generate_feedbacks();
|
||
|
|
//Question combined feedbacks
|
||
|
|
$correct_question_fb = $this->questions->nodeValue('plugin_qtype_multichoice_question/multichoice/correctfeedback', $this->question_node);
|
||
|
|
$incorrect_question_fb = $this->questions->nodeValue('plugin_qtype_multichoice_question/multichoice/incorrectfeedback', $this->question_node);
|
||
|
|
$proc = array('correct_fb' => $correct_question_fb, 'general_incorrect_fb' => $incorrect_question_fb);
|
||
|
|
foreach ($proc as $ident => $content) {
|
||
|
|
if (empty($content)) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
$result = cc_helpers::process_linked_files( $content,
|
||
|
|
$this->manifest,
|
||
|
|
$this->rootpath,
|
||
|
|
$this->contextid,
|
||
|
|
$this->outdir);
|
||
|
|
|
||
|
|
cc_assesment_helper::add_feedback( $this->qitem,
|
||
|
|
$result[0],
|
||
|
|
cc_qti_values::htmltype,
|
||
|
|
$ident);
|
||
|
|
|
||
|
|
pkg_resource_dependencies::instance()->add($result[1]);
|
||
|
|
if ($ident == 'correct_fb') {
|
||
|
|
$this->correct_feedbacks[] = $ident;
|
||
|
|
} else {
|
||
|
|
$this->incorrect_feedbacks[] = $ident;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
public function on_generate_response_processing() {
|
||
|
|
parent::on_generate_response_processing();
|
||
|
|
|
||
|
|
//respconditions
|
||
|
|
/**
|
||
|
|
* General unconditional feedback must be added as a first respcondition
|
||
|
|
* without any condition and just displayfeedback (if exists)
|
||
|
|
*/
|
||
|
|
if (!empty($this->general_feedback)) {
|
||
|
|
$qrespcondition = new cc_assesment_respconditiontype();
|
||
|
|
$qrespcondition->set_title('General feedback');
|
||
|
|
$this->qresprocessing->add_respcondition($qrespcondition);
|
||
|
|
$qrespcondition->enable_continue();
|
||
|
|
//define the condition for success
|
||
|
|
$qconditionvar = new cc_assignment_conditionvar();
|
||
|
|
$qrespcondition->set_conditionvar($qconditionvar);
|
||
|
|
$qother = new cc_assignment_conditionvar_othertype();
|
||
|
|
$qconditionvar->set_other($qother);
|
||
|
|
$qdisplayfeedback = new cc_assignment_displayfeedbacktype();
|
||
|
|
$qrespcondition->add_displayfeedback($qdisplayfeedback);
|
||
|
|
$qdisplayfeedback->set_feedbacktype(cc_qti_values::Response);
|
||
|
|
$qdisplayfeedback->set_linkrefid('general_fb');
|
||
|
|
}
|
||
|
|
|
||
|
|
//success condition
|
||
|
|
/**
|
||
|
|
* For all question types outside of the Essay question, scoring is done in a
|
||
|
|
* single <respcondition> with a continue flag set to No. The outcome is always
|
||
|
|
* a variable named SCORE which value must be set to 100 in case of correct answer.
|
||
|
|
* Partial scores (not 0 or 100) are not supported.
|
||
|
|
*/
|
||
|
|
$qrespcondition = new cc_assesment_respconditiontype();
|
||
|
|
$qrespcondition->set_title('Correct');
|
||
|
|
$this->qresprocessing->add_respcondition($qrespcondition);
|
||
|
|
$qrespcondition->enable_continue(false);
|
||
|
|
$qsetvar = new cc_assignment_setvartype(100);
|
||
|
|
$qrespcondition->add_setvar($qsetvar);
|
||
|
|
//define the condition for success
|
||
|
|
$qconditionvar = new cc_assignment_conditionvar();
|
||
|
|
$qrespcondition->set_conditionvar($qconditionvar);
|
||
|
|
$qvarequal = new cc_assignment_conditionvar_varequaltype($this->correct_answer_ident);
|
||
|
|
$qconditionvar->set_varequal($qvarequal);
|
||
|
|
$qvarequal->set_respident($this->qresponse_lid->get_ident());
|
||
|
|
|
||
|
|
if (array_key_exists($this->correct_answer_ident, $this->answerlist)) {
|
||
|
|
$qdisplayfeedback = new cc_assignment_displayfeedbacktype();
|
||
|
|
$qrespcondition->add_displayfeedback($qdisplayfeedback);
|
||
|
|
$qdisplayfeedback->set_feedbacktype(cc_qti_values::Response);
|
||
|
|
$qdisplayfeedback->set_linkrefid($this->answerlist[$this->correct_answer_ident]);
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach ($this->correct_feedbacks as $ident) {
|
||
|
|
$qdisplayfeedback = new cc_assignment_displayfeedbacktype();
|
||
|
|
$qrespcondition->add_displayfeedback($qdisplayfeedback);
|
||
|
|
$qdisplayfeedback->set_feedbacktype(cc_qti_values::Response);
|
||
|
|
$qdisplayfeedback->set_linkrefid($ident);
|
||
|
|
}
|
||
|
|
|
||
|
|
//rest of the conditions
|
||
|
|
foreach ($this->answerlist as $ident => $refid) {
|
||
|
|
if ($ident == $this->correct_answer_ident) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
$qrespcondition = new cc_assesment_respconditiontype();
|
||
|
|
$this->qresprocessing->add_respcondition($qrespcondition);
|
||
|
|
$qsetvar = new cc_assignment_setvartype(0);
|
||
|
|
$qrespcondition->add_setvar($qsetvar);
|
||
|
|
//define the condition for fail
|
||
|
|
$qconditionvar = new cc_assignment_conditionvar();
|
||
|
|
$qrespcondition->set_conditionvar($qconditionvar);
|
||
|
|
$qvarequal = new cc_assignment_conditionvar_varequaltype($ident);
|
||
|
|
$qconditionvar->set_varequal($qvarequal);
|
||
|
|
$qvarequal->set_respident($this->qresponse_lid->get_ident());
|
||
|
|
|
||
|
|
$qdisplayfeedback = new cc_assignment_displayfeedbacktype();
|
||
|
|
$qrespcondition->add_displayfeedback($qdisplayfeedback);
|
||
|
|
$qdisplayfeedback->set_feedbacktype(cc_qti_values::Response);
|
||
|
|
$qdisplayfeedback->set_linkrefid($refid);
|
||
|
|
|
||
|
|
foreach ($this->incorrect_feedbacks as $ident) {
|
||
|
|
$qdisplayfeedback = new cc_assignment_displayfeedbacktype();
|
||
|
|
$qrespcondition->add_displayfeedback($qdisplayfeedback);
|
||
|
|
$qdisplayfeedback->set_feedbacktype(cc_qti_values::Response);
|
||
|
|
$qdisplayfeedback->set_linkrefid($ident);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
class cc_assesment_question_multichoice_multiresponse extends cc_assesment_question_proc_base {
|
||
|
|
/**
|
||
|
|
* @var DOMNodeList
|
||
|
|
*/
|
||
|
|
protected $correct_answers = null;
|
||
|
|
|
||
|
|
public function __construct($quiz, $questions, $manifest, $section, $question_node, $rootpath, $contextid, $outdir) {
|
||
|
|
parent::__construct($quiz, $questions, $manifest, $section, $question_node, $rootpath, $contextid, $outdir);
|
||
|
|
$this->qtype = cc_qti_profiletype::multiple_response;
|
||
|
|
|
||
|
|
$correct_answer_nodes = $this->questions->nodeList("plugin_qtype_multichoice_question/answers/answer[fraction > 0]", $this->question_node);
|
||
|
|
if ($correct_answer_nodes->length == 0) {
|
||
|
|
throw new RuntimeException('No correct answer!');
|
||
|
|
}
|
||
|
|
$this->correct_answers = $correct_answer_nodes;
|
||
|
|
//$this->correct_answer_node_id = $this->questions->nodeValue('@id', $correct_answer_node);
|
||
|
|
$maximum_quiz_grade = (int)$this->quiz->nodeValue('/activity/quiz/grade');
|
||
|
|
$this->total_grade_value = ($maximum_quiz_grade + 1).'.0000000';
|
||
|
|
}
|
||
|
|
|
||
|
|
public function on_generate_answers() {
|
||
|
|
//add responses holder
|
||
|
|
$qresponse_lid = new cc_response_lidtype();
|
||
|
|
$this->qresponse_lid = $qresponse_lid;
|
||
|
|
$this->qpresentation->set_response_lid($qresponse_lid);
|
||
|
|
$qresponse_choice = new cc_assesment_render_choicetype();
|
||
|
|
$qresponse_lid->set_render_choice($qresponse_choice);
|
||
|
|
//Mark that question has more than one correct answer
|
||
|
|
$qresponse_lid->set_rcardinality(cc_qti_values::Multiple);
|
||
|
|
//are we to shuffle the responses?
|
||
|
|
$shuffle_answers = (int)$this->quiz->nodeValue('/activity/quiz/shuffleanswers') > 0;
|
||
|
|
$qresponse_choice->enable_shuffle($shuffle_answers);
|
||
|
|
$answerlist = array();
|
||
|
|
$qa_responses = $this->questions->nodeList('plugin_qtype_multichoice_question/answers/answer', $this->question_node);
|
||
|
|
foreach ($qa_responses as $node) {
|
||
|
|
$answer_content = $this->questions->nodeValue('answertext', $node);
|
||
|
|
$answer_grade_fraction = (float)$this->questions->nodeValue('fraction', $node);
|
||
|
|
$result = cc_helpers::process_linked_files( $answer_content,
|
||
|
|
$this->manifest,
|
||
|
|
$this->rootpath,
|
||
|
|
$this->contextid,
|
||
|
|
$this->outdir);
|
||
|
|
$qresponse_label = cc_assesment_helper::add_answer( $qresponse_choice,
|
||
|
|
$result[0],
|
||
|
|
cc_qti_values::htmltype);
|
||
|
|
pkg_resource_dependencies::instance()->add($result[1]);
|
||
|
|
$answer_ident = $qresponse_label->get_ident();
|
||
|
|
$feedback_ident = $answer_ident.'_fb';
|
||
|
|
//add answer specific feedbacks if not empty
|
||
|
|
$content = $this->questions->nodeValue('feedback', $node);
|
||
|
|
if (!empty($content)) {
|
||
|
|
$result = cc_helpers::process_linked_files( $content,
|
||
|
|
$this->manifest,
|
||
|
|
$this->rootpath,
|
||
|
|
$this->contextid,
|
||
|
|
$this->outdir);
|
||
|
|
|
||
|
|
|
||
|
|
cc_assesment_helper::add_feedback( $this->qitem,
|
||
|
|
$result[0],
|
||
|
|
cc_qti_values::htmltype,
|
||
|
|
$feedback_ident);
|
||
|
|
|
||
|
|
pkg_resource_dependencies::instance()->add($result[1]);
|
||
|
|
|
||
|
|
}
|
||
|
|
$answerlist[$answer_ident] = array($feedback_ident, ($answer_grade_fraction > 0));
|
||
|
|
}
|
||
|
|
|
||
|
|
$this->answerlist = $answerlist;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
public function on_generate_feedbacks() {
|
||
|
|
parent::on_generate_feedbacks();
|
||
|
|
//Question combined feedbacks
|
||
|
|
$correct_question_fb = $this->questions->nodeValue('plugin_qtype_multichoice_question/multichoice/correctfeedback', $this->question_node);
|
||
|
|
$incorrect_question_fb = $this->questions->nodeValue('plugin_qtype_multichoice_question/multichoice/incorrectfeedback', $this->question_node);
|
||
|
|
if (empty($correct_question_fb)) {
|
||
|
|
//Hardcode some text for now
|
||
|
|
$correct_question_fb = 'Well done!';
|
||
|
|
}
|
||
|
|
if (empty($incorrect_question_fb)) {
|
||
|
|
//Hardcode some text for now
|
||
|
|
$incorrect_question_fb = 'Better luck next time!';
|
||
|
|
}
|
||
|
|
|
||
|
|
$proc = array('correct_fb' => $correct_question_fb, 'incorrect_fb' => $incorrect_question_fb);
|
||
|
|
foreach ($proc as $ident => $content) {
|
||
|
|
if (empty($content)) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
$result = cc_helpers::process_linked_files( $content,
|
||
|
|
$this->manifest,
|
||
|
|
$this->rootpath,
|
||
|
|
$this->contextid,
|
||
|
|
$this->outdir);
|
||
|
|
|
||
|
|
cc_assesment_helper::add_feedback( $this->qitem,
|
||
|
|
$result[0],
|
||
|
|
cc_qti_values::htmltype,
|
||
|
|
$ident);
|
||
|
|
|
||
|
|
pkg_resource_dependencies::instance()->add($result[1]);
|
||
|
|
if ($ident == 'correct_fb') {
|
||
|
|
$this->correct_feedbacks[$ident] = $ident;
|
||
|
|
} else {
|
||
|
|
$this->incorrect_feedbacks[$ident] = $ident;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
public function on_generate_response_processing() {
|
||
|
|
parent::on_generate_response_processing();
|
||
|
|
|
||
|
|
//respconditions
|
||
|
|
/**
|
||
|
|
* General unconditional feedback must be added as a first respcondition
|
||
|
|
* without any condition and just displayfeedback (if exists)
|
||
|
|
*/
|
||
|
|
cc_assesment_helper::add_respcondition( $this->qresprocessing,
|
||
|
|
'General feedback',
|
||
|
|
$this->general_feedback,
|
||
|
|
null,
|
||
|
|
true
|
||
|
|
);
|
||
|
|
|
||
|
|
//success condition
|
||
|
|
/**
|
||
|
|
* For all question types outside of the Essay question, scoring is done in a
|
||
|
|
* single <respcondition> with a continue flag set to No. The outcome is always
|
||
|
|
* a variable named SCORE which value must be set to 100 in case of correct answer.
|
||
|
|
* Partial scores (not 0 or 100) are not supported.
|
||
|
|
*/
|
||
|
|
$qrespcondition = new cc_assesment_respconditiontype();
|
||
|
|
$qrespcondition->set_title('Correct');
|
||
|
|
$this->qresprocessing->add_respcondition($qrespcondition);
|
||
|
|
$qrespcondition->enable_continue(false);
|
||
|
|
$qsetvar = new cc_assignment_setvartype(100);
|
||
|
|
$qrespcondition->add_setvar($qsetvar);
|
||
|
|
//define the condition for success
|
||
|
|
$qconditionvar = new cc_assignment_conditionvar();
|
||
|
|
$qrespcondition->set_conditionvar($qconditionvar);
|
||
|
|
//create root and condition
|
||
|
|
$qandcondition = new cc_assignment_conditionvar_andtype();
|
||
|
|
$qconditionvar->set_and($qandcondition);
|
||
|
|
foreach ($this->answerlist as $ident => $refid) {
|
||
|
|
$qvarequal = new cc_assignment_conditionvar_varequaltype($ident);
|
||
|
|
$qvarequal->enable_case();
|
||
|
|
if ($refid[1]) {
|
||
|
|
$qandcondition->set_varequal($qvarequal);
|
||
|
|
} else {
|
||
|
|
$qandcondition->set_not($qvarequal);
|
||
|
|
}
|
||
|
|
$qvarequal->set_respident($this->qresponse_lid->get_ident());
|
||
|
|
}
|
||
|
|
|
||
|
|
$qdisplayfeedback = new cc_assignment_displayfeedbacktype();
|
||
|
|
$qrespcondition->add_displayfeedback($qdisplayfeedback);
|
||
|
|
$qdisplayfeedback->set_feedbacktype(cc_qti_values::Response);
|
||
|
|
//TODO: this needs to be fixed
|
||
|
|
reset($this->correct_feedbacks);
|
||
|
|
$ident = key($this->correct_feedbacks);
|
||
|
|
$qdisplayfeedback->set_linkrefid($ident);
|
||
|
|
|
||
|
|
|
||
|
|
//rest of the conditions
|
||
|
|
foreach ($this->answerlist as $ident => $refid) {
|
||
|
|
cc_assesment_helper::add_response_condition( $this->qresprocessing,
|
||
|
|
'Incorrect feedback',
|
||
|
|
$refid[0],
|
||
|
|
$this->general_feedback,
|
||
|
|
$this->qresponse_lid->get_ident()
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
//Final element for incorrect feedback
|
||
|
|
reset($this->incorrect_feedbacks);
|
||
|
|
$ident = key($this->incorrect_feedbacks);
|
||
|
|
cc_assesment_helper::add_respcondition( $this->qresprocessing,
|
||
|
|
'Incorrect feedback',
|
||
|
|
$ident,
|
||
|
|
0
|
||
|
|
);
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|