/**
* Invoke method, every class will have its own
* returns true/false on completion, setting both
* errormsg and output as necessary
*/
function invoke()
{
parent::invoke();
$result = true;
// Set own core attributes
$this->does_generate = ACTION_NONE;
//$this->does_generate = ACTION_GENERATE_HTML;
// These are always here
global $CFG, $XMLDB;
// Do the job, setting result as needed
// Get the dir containing the file
$dirpath = required_param('dir', PARAM_PATH);
$dirpath = $CFG->dirroot . $dirpath;
// Get the correct dirs
if (!empty($XMLDB->dbdirs)) {
$dbdir =& $XMLDB->dbdirs[$dirpath];
} else {
return false;
}
if (!empty($XMLDB->editeddirs)) {
$editeddir =& $XMLDB->editeddirs[$dirpath];
$structure =& $editeddir->xml_file->getStructure();
}
// If the changeme table exists, just get it and continue
$changeme_exists = false;
if ($tables =& $structure->getTables()) {
if ($table =& $structure->getTable('changeme')) {
$changeme_exists = true;
}
}
if (!$changeme_exists) {
// Lets create the table
$field = new xmldb_field('id');
$field->setType(XMLDB_TYPE_INTEGER);
$field->setLength(10);
$field->setNotNull(true);
$field->setUnsigned(true);
$field->setSequence(true);
$field->setLoaded(true);
$field->setChanged(true);
$key = new xmldb_key('primary');
$key->setType(XMLDB_KEY_PRIMARY);
$key->setFields(array('id'));
$key->setLoaded(true);
$key->setChanged(true);
$table = new xmldb_table('changeme');
$table->setComment('Default comment for the table, please edit me');
$table->addField($field);
$table->addKey($key);
// Finally, add the whole retrofitted table to the structure
// in the place specified
$structure->addTable($table);
}
// Launch postaction if exists (leave this here!)
if ($this->getPostAction() && $result) {
return $this->launch($this->getPostAction());
}
// Return ok if arrived here
return $result;
}
/**
* Invoke method, every class will have its own
* returns true/false on completion, setting both
* errormsg and output as necessary
*/
function invoke()
{
parent::invoke();
$result = true;
/// Set own core attributes
$this->does_generate = ACTION_NONE;
//$this->does_generate = ACTION_GENERATE_HTML;
/// These are always here
global $CFG, $XMLDB;
/// Do the job, setting result as needed
if (!data_submitted()) {
///Basic prevention
print_error('wrongcall', 'error');
}
/// Get parameters
$dirpath = required_param('dir', PARAM_PATH);
$dirpath = $CFG->dirroot . $dirpath;
$tableparam = strtolower(required_param('table', PARAM_PATH));
$fieldparam = strtolower(required_param('field', PARAM_PATH));
$name = substr(trim(strtolower(optional_param('name', $fieldparam, PARAM_PATH))), 0, 30);
$comment = required_param('comment', PARAM_CLEAN);
$comment = trim($comment);
$type = required_param('type', PARAM_INT);
$length = strtolower(optional_param('length', NULL, PARAM_ALPHANUM));
$decimals = optional_param('decimals', NULL, PARAM_INT);
$unsigned = optional_param('unsigned', false, PARAM_BOOL);
$notnull = optional_param('notnull', false, PARAM_BOOL);
$sequence = optional_param('sequence', false, PARAM_BOOL);
$default = optional_param('default', NULL, PARAM_PATH);
$default = trim($default);
$editeddir =& $XMLDB->editeddirs[$dirpath];
$structure =& $editeddir->xml_file->getStructure();
$table =& $structure->getTable($tableparam);
$field =& $table->getField($fieldparam);
$oldhash = $field->getHash();
$errors = array();
/// To store all the errors found
/// Perform some automatic asumptions
if ($sequence) {
$unsigned = true;
$notnull = true;
$default = NULL;
}
if ($type != XMLDB_TYPE_NUMBER && $type != XMLDB_TYPE_FLOAT) {
$decimals = NULL;
}
if ($type == XMLDB_TYPE_BINARY) {
$default = NULL;
}
if ($default === '') {
$default = NULL;
}
/// Perform some checks
/// Check empty name
if (empty($name)) {
$errors[] = $this->str['fieldnameempty'];
}
/// Check incorrect name
if ($name == 'changeme') {
$errors[] = $this->str['incorrectfieldname'];
}
/// Check duplicate name
if ($fieldparam != $name && $table->getField($name)) {
$errors[] = $this->str['duplicatefieldname'];
}
/// Integer checks
if ($type == XMLDB_TYPE_INTEGER) {
if (!(is_numeric($length) && !empty($length) && intval($length) == floatval($length) && $length > 0 && $length <= 20)) {
$errors[] = $this->str['integerincorrectlength'];
}
if (!(empty($default) || is_numeric($default) && !empty($default) && intval($default) == floatval($default))) {
$errors[] = $this->str['defaultincorrect'];
}
}
/// Number checks
if ($type == XMLDB_TYPE_NUMBER) {
if (!(is_numeric($length) && !empty($length) && intval($length) == floatval($length) && $length > 0 && $length <= 20)) {
$errors[] = $this->str['numberincorrectlength'];
}
if (!(empty($decimals) || is_numeric($decimals) && !empty($decimals) && intval($decimals) == floatval($decimals) && $decimals >= 0 && $decimals < $length)) {
$errors[] = $this->str['numberincorrectdecimals'];
}
if (!(empty($default) || is_numeric($default) && !empty($default))) {
$errors[] = $this->str['defaultincorrect'];
}
}
/// Float checks
if ($type == XMLDB_TYPE_FLOAT) {
if (!(empty($length) || is_numeric($length) && !empty($length) && intval($length) == floatval($length) && $length > 0 && $length <= 20)) {
$errors[] = $this->str['floatincorrectlength'];
}
if (!(empty($decimals) || is_numeric($decimals) && !empty($decimals) && intval($decimals) == floatval($decimals) && $decimals >= 0 && $decimals < $length)) {
$errors[] = $this->str['floatincorrectdecimals'];
}
if (!(empty($default) || is_numeric($default) && !empty($default))) {
$errors[] = $this->str['defaultincorrect'];
}
}
/// Char checks
if ($type == XMLDB_TYPE_CHAR) {
if (!(is_numeric($length) && !empty($length) && intval($length) == floatval($length) && $length > 0 && $length <= 255)) {
$errors[] = $this->str['charincorrectlength'];
}
if ($default !== NULL && $default !== '') {
if (substr($default, 0, 1) == "'" || substr($default, -1, 1) == "'") {
$errors[] = $this->str['defaultincorrect'];
}
}
}
/// Text checks
if ($type == XMLDB_TYPE_TEXT) {
if ($length != 'small' && $length != 'medium' && $length != 'big') {
$errors[] = $this->str['textincorrectlength'];
}
if ($default !== NULL && $default !== '') {
if (substr($default, 0, 1) == "'" || substr($default, -1, 1) == "'") {
$errors[] = $this->str['defaultincorrect'];
}
}
}
/// Binary checks
if ($type == XMLDB_TYPE_BINARY) {
if ($length != 'small' && $length != 'medium' && $length != 'big') {
$errors[] = $this->str['binaryincorrectlength'];
}
}
if (!empty($errors)) {
$tempfield = new xmldb_field($name);
$tempfield->setType($type);
$tempfield->setLength($length);
$tempfield->setDecimals($decimals);
$tempfield->setUnsigned($unsigned);
$tempfield->setNotNull($notnull);
$tempfield->setSequence($sequence);
$tempfield->setDefault($default);
/// Prepare the output
$site = get_site();
$navlinks = array();
$navlinks[] = array('name' => $this->str['administration'], 'link' => '../index.php', 'type' => 'misc');
$navlinks[] = array('name' => 'XMLDB', 'link' => 'index.php', 'type' => 'misc');
$navigation = build_navigation($navlinks);
print_header("{$site->shortname}: XMLDB", "{$site->fullname}", $navigation);
notice('<p>' . implode(', ', $errors) . '</p>
<p>' . $tempfield->readableInfo() . '</p>', 'index.php?action=edit_field&field=' . $field->getName() . '&table=' . $table->getName() . '&dir=' . urlencode(str_replace($CFG->dirroot, '', $dirpath)));
die;
/// re-die :-P
}
/// Continue if we aren't under errors
if (empty($errors)) {
/// If there is one name change, do it, changing the prev and next
/// atributes of the adjacent fields
if ($fieldparam != $name) {
$field->setName($name);
if ($field->getPrevious()) {
$prev =& $table->getField($field->getPrevious());
$prev->setNext($name);
$prev->setChanged(true);
}
if ($field->getNext()) {
$next =& $table->getField($field->getNext());
$next->setPrevious($name);
$next->setChanged(true);
}
}
/// Set comment
$field->setComment($comment);
/// Set the rest of fields
$field->setType($type);
$field->setLength($length);
$field->setDecimals($decimals);
$field->setUnsigned($unsigned);
$field->setNotNull($notnull);
$field->setSequence($sequence);
$field->setDefault($default);
/// If the hash has changed from the old one, change the version
/// and mark the structure as changed
$field->calculateHash(true);
if ($oldhash != $field->getHash()) {
$field->setChanged(true);
$table->setChanged(true);
/// Recalculate the structure hash
$structure->calculateHash(true);
$structure->setVersion(userdate(time(), '%Y%m%d', 99, false));
/// Mark as changed
$structure->setChanged(true);
}
/// Launch postaction if exists (leave this here!)
if ($this->getPostAction() && $result) {
return $this->launch($this->getPostAction());
}
}
/// Return ok if arrived here
return $result;
}
function xmldb_questionnaire_upgrade($oldversion = 0)
{
global $CFG, $DB;
$dbman = $DB->get_manager();
// Loads ddl manager and xmldb classes.
$result = true;
if ($oldversion < 2007120101) {
$result &= questionnaire_upgrade_2007120101();
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2007120101, 'questionnaire');
}
if ($oldversion < 2007120102) {
// Change enum values to lower case for all tables using them.
$enumvals = array('y', 'n');
$table = new xmldb_table('questionnaire_question');
$field = new xmldb_field('required');
$field->set_attributes(XMLDB_TYPE_CHAR, '1', XMLDB_UNSIGNED, XMLDB_NOTNULL, null, false, null, 'n');
$dbman->change_field_enum($table, $field);
$DB->set_field('questionnaire_question', 'required', 'y', array('required' => 'Y'));
$DB->set_field('questionnaire_question', 'required', 'n', array('required' => 'N'));
$field->set_attributes(XMLDB_TYPE_CHAR, '1', XMLDB_UNSIGNED, XMLDB_NOTNULL, null, XMLDB_ENUM, array('y', 'n'), 'n');
$dbman->change_field_enum($table, $field);
$dbman->change_field_default($table, $field);
unset($field);
$field = new xmldb_field('deleted');
$field->set_attributes(XMLDB_TYPE_CHAR, '1', XMLDB_UNSIGNED, XMLDB_NOTNULL, null, false, null, 'n');
$dbman->change_field_enum($table, $field);
$DB->set_field('questionnaire_question', 'deleted', 'y', array('deleted' => 'Y'));
$DB->set_field('questionnaire_question', 'deleted', 'n', array('deleted' => 'N'));
$field->set_attributes(XMLDB_TYPE_CHAR, '1', XMLDB_UNSIGNED, XMLDB_NOTNULL, null, XMLDB_ENUM, array('y', 'n'), 'n');
$dbman->change_field_enum($table, $field);
$dbman->change_field_default($table, $field);
unset($field);
$field = new xmldb_field('public');
$field->set_attributes(XMLDB_TYPE_CHAR, '1', XMLDB_UNSIGNED, XMLDB_NOTNULL, null, false, null, 'n');
$dbman->change_field_enum($table, $field);
$DB->set_field('questionnaire_question', 'public', 'y', array('public' => 'Y'));
$DB->set_field('questionnaire_question', 'public', 'n', array('public' => 'N'));
$field->set_attributes(XMLDB_TYPE_CHAR, '1', XMLDB_UNSIGNED, XMLDB_NOTNULL, null, XMLDB_ENUM, array('y', 'n'), 'y');
$dbman->change_field_enum($table, $field);
$dbman->change_field_default($table, $field);
unset($field);
unset($table);
$table = new xmldb_table('questionnaire_question_type');
$field = new xmldb_field('has_choices');
$field->set_attributes(XMLDB_TYPE_CHAR, '1', XMLDB_UNSIGNED, XMLDB_NOTNULL, null, false, null, 'n');
$dbman->change_field_enum($table, $field);
$DB->set_field('questionnaire_question_type', 'has_choices', 'y', array('has_choices' => 'Y'));
$DB->set_field('questionnaire_question_type', 'has_choices', 'n', array('has_choices' => 'N'));
$field->set_attributes(XMLDB_TYPE_CHAR, '1', XMLDB_UNSIGNED, XMLDB_NOTNULL, null, XMLDB_ENUM, array('y', 'n'), 'y');
$dbman->change_field_enum($table, $field);
$dbman->change_field_default($table, $field);
unset($field);
unset($table);
$table = new xmldb_table('questionnaire_response');
$field = new xmldb_field('complete');
$field->set_attributes(XMLDB_TYPE_CHAR, '1', XMLDB_UNSIGNED, XMLDB_NOTNULL, null, false, null, 'n');
$dbman->change_field_enum($table, $field);
$DB->set_field('questionnaire_response', 'complete', 'y', array('complete' => 'Y'));
$DB->set_field('questionnaire_response', 'complete', 'n', array('complete' => 'N'));
$field->set_attributes(XMLDB_TYPE_CHAR, '1', XMLDB_UNSIGNED, XMLDB_NOTNULL, null, XMLDB_ENUM, array('y', 'n'), 'n');
$dbman->change_field_enum($table, $field);
$dbman->change_field_default($table, $field);
unset($field);
unset($table);
$table = new xmldb_table('questionnaire_response_bool');
$field = new xmldb_field('choice_id');
$field->set_attributes(XMLDB_TYPE_CHAR, '1', XMLDB_UNSIGNED, XMLDB_NOTNULL, null, false, null, 'n');
$dbman->change_field_enum($table, $field);
$DB->set_field('questionnaire_response_bool', 'choice_id', 'y', array('choice_id' => 'Y'));
$DB->set_field('questionnaire_response_bool', 'choice_id', 'n', array('choice_id' => 'N'));
$field->set_attributes(XMLDB_TYPE_CHAR, '1', XMLDB_UNSIGNED, XMLDB_NOTNULL, null, XMLDB_ENUM, array('y', 'n'), 'y');
$dbman->change_field_enum($table, $field);
$dbman->change_field_default($table, $field);
unset($field);
unset($table);
$table = new xmldb_table('questionnaire_survey');
$field = new xmldb_field('public');
$field->set_attributes(XMLDB_TYPE_CHAR, '1', XMLDB_UNSIGNED, XMLDB_NOTNULL, null, false, null, 'n');
$dbman->change_field_enum($table, $field);
$DB->set_field('questionnaire_survey', 'public', 'y', array('public' => 'Y'));
$DB->set_field('questionnaire_survey', 'public', 'n', array('public' => 'N'));
$field->set_attributes(XMLDB_TYPE_CHAR, '1', XMLDB_UNSIGNED, XMLDB_NOTNULL, null, XMLDB_ENUM, array('y', 'n'), 'y');
$dbman->change_field_enum($table, $field);
$dbman->change_field_default($table, $field);
unset($field);
// Upgrade question_type table with corrected 'response_table' fields.
$DB->set_field('questionnaire_question_type', 'response_table', 'resp_single', array('response_table' => 'response_single'));
$DB->set_field('questionnaire_question_type', 'response_table', 'resp_multiple', array('response_table' => 'response_multiple'));
// Questionnaire savepoint reached..
upgrade_mod_savepoint(true, 2007120102, 'questionnaire');
}
if ($oldversion < 2008031902) {
$table = new xmldb_table('questionnaire');
$field = new xmldb_field('grade');
$field->set_attributes(XMLDB_TYPE_INTEGER, '10', false, true, false, false, null, 0, 'navigate');
$dbman->add_field($table, $field);
unset($field);
unset($table);
$table = new xmldb_table('questionnaire_response');
$field = new xmldb_field('grade');
$field->set_attributes(XMLDB_TYPE_INTEGER, '10', false, true, false, false, null, 0, 'complete');
$dbman->add_field($table, $field);
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2008031902, 'questionnaire');
}
if ($oldversion < 2008031904) {
$sql = "SELECT q.id, q.resp_eligible, q.resp_view, cm.id as cmid\n FROM {questionnaire} q, {course_modules} cm, {modules} m\n WHERE m.name='questionnaire' AND m.id=cm.module AND cm.instance=q.id";
if ($rs = $DB->get_recordset_sql($sql)) {
$studentroleid = $DB->get_field('role', 'id', array('shortname' => 'student'));
$editteacherroleid = $DB->get_field('role', 'id', array('shortname' => 'editingteacher'));
$teacherroleid = $DB->get_field('role', 'id', array('shortname' => 'teacher'));
$capview = 'mod/questionnaire:view';
$capsubmit = 'mod/questionnaire:submit';
foreach ($rs as $questionnaire) {
$context = get_context_instance(CONTEXT_MODULE, $questionnaire->cmid);
// Convert questionnaires with resp_eligible = 'all' so that students & teachers have view and submit.
if ($questionnaire->resp_eligible == 'all') {
assign_capability($capsubmit, CAP_ALLOW, $editteacherroleid, $context->id, true);
assign_capability($capsubmit, CAP_ALLOW, $teacherroleid, $context->id, true);
// Convert questionnaires with resp_eligible = 'students' so that just students have view and submit.
} else {
if ($questionnaire->resp_eligible == 'teachers') {
assign_capability($capsubmit, CAP_ALLOW, $editteacherroleid, $context->id, true);
assign_capability($capsubmit, CAP_ALLOW, $teacherroleid, $context->id, true);
assign_capability($capview, CAP_PREVENT, $studentroleid, $context->id, true);
assign_capability($capsubmit, CAP_PREVENT, $studentroleid, $context->id, true);
}
}
}
$rs->close();
}
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2008031904, 'questionnaire');
}
if ($oldversion < 2008031905) {
$table = new xmldb_table('questionnaire_survey');
$field = new xmldb_field('changed');
$dbman->drop_field($table, $field);
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2008031905, 'questionnaire');
}
if ($oldversion < 2008031906) {
$table = new xmldb_table('questionnaire_response_rank');
$field = new xmldb_field('rank');
$field->set_attributes(XMLDB_TYPE_INTEGER, '11', null, XMLDB_NOTNULL, null, null, null, '0', 'choice_id');
$field->setUnsigned(false);
$dbman->change_field_unsigned($table, $field);
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2008031906, 'questionnaire');
}
if ($oldversion < 2008060401) {
$table = new xmldb_table('questionnaire_question');
$field = new xmldb_field('name');
$field->set_attributes(XMLDB_TYPE_CHAR, '30', null, XMLDB_NOTNULL, null, null, null, null, 'survey_id');
$field->setNotnull(false);
$dbman->change_field_notnull($table, $field);
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2008060401, 'questionnaire');
}
if ($oldversion < 2008070702) {
$table = new xmldb_table('questionnaire_question_type');
$field = new xmldb_field('response_table');
$field->set_attributes(XMLDB_TYPE_CHAR, '32', null, XMLDB_NOTNULL, null, null, null, null, 'has_choices');
$field->setNotnull(false);
$dbman->change_field_notnull($table, $field);
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2008070702, 'questionnaire');
}
if ($oldversion < 2008070703) {
$table = new xmldb_table('questionnaire_resp_multiple');
$index = new xmldb_index('response_question');
$index->set_attributes(XMLDB_INDEX_NOTUNIQUE, array('response_id', 'question_id', 'choice_id'));
if (!$dbman->index_exists($table, $index)) {
$dbman->add_index($table, $index);
}
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2008070703, 'questionnaire');
}
if ($oldversion < 2008070704) {
// CONTRIB-1542.
$table = new xmldb_table('questionnaire_survey');
$field = new xmldb_field('email');
$field->set_attributes(XMLDB_TYPE_CHAR, '64', null, XMLDB_NOTNULL, null, null, null, null, 'title');
$field->setLength('255');
$dbman->change_field_precision($table, $field);
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2008070704, 'questionnaire');
}
if ($oldversion < 2008070705) {
// Rename summary field to 'intro' to adhere to new Moodle standard.
$table = new xmldb_table('questionnaire');
$field = new xmldb_field('summary');
$field->set_attributes(XMLDB_TYPE_TEXT, 'small', null, XMLDB_NOTNULL, null, null, null, null, 'name');
$dbman->rename_field($table, $field, 'intro');
// Add 'introformat' to adhere to new Moodle standard.
$field = new xmldb_field('introformat', XMLDB_TYPE_INTEGER, '4', XMLDB_UNSIGNED, XMLDB_NOTNULL, null, '0', 'intro');
$dbman->add_field($table, $field);
// Set all existing records to HTML format.
$DB->set_field('questionnaire', 'introformat', 1);
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2008070705, 'questionnaire');
}
if ($oldversion < 2008070706) {
// CONTRIB-1153.
$table = new xmldb_table('questionnaire_survey');
$field = new xmldb_field('public');
if ($dbman->field_exists($table, $field)) {
$dbman->drop_field($table, $field);
}
$table = new xmldb_table('questionnaire_question');
$field = new xmldb_field('public');
if ($dbman->field_exists($table, $field)) {
$dbman->drop_field($table, $field);
}
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2008070706, 'questionnaire');
}
if ($oldversion < 2010110100) {
// Drop list of values (enum) from field has_choices on table questionnaire_question_type.
$table = new xmldb_table('questionnaire_question_type');
$field = new xmldb_field('has_choices', XMLDB_TYPE_CHAR, '1', null, XMLDB_NOTNULL, null, 'y', 'type');
// Launch drop of list of values from field has_choices.
$dbman->drop_enum_from_field($table, $field);
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2010110100, 'questionnaire');
}
if ($oldversion < 2010110101) {
// Drop list of values (enum) from field respondenttype on table questionnaire.
$table = new xmldb_table('questionnaire');
$field = new xmldb_field('respondenttype', XMLDB_TYPE_CHAR, '9', null, XMLDB_NOTNULL, null, 'fullname', 'qtype');
// Launch drop of list of values from field respondenttype.
$dbman->drop_enum_from_field($table, $field);
// Drop list of values (enum) from field resp_eligible on table questionnaire.
$field = new xmldb_field('resp_eligible', XMLDB_TYPE_CHAR, '8', null, XMLDB_NOTNULL, null, 'all', 'respondenttype');
// Launch drop of list of values from field resp_eligible.
$dbman->drop_enum_from_field($table, $field);
// Drop list of values (enum) from field required on table questionnaire_question.
$table = new xmldb_table('questionnaire_question');
$field = new xmldb_field('required', XMLDB_TYPE_CHAR, '1', null, XMLDB_NOTNULL, null, 'n', 'content');
// Launch drop of list of values from field required.
$dbman->drop_enum_from_field($table, $field);
// Drop list of values (enum) from field deleted on table questionnaire_question.
$field = new xmldb_field('deleted', XMLDB_TYPE_CHAR, '1', null, XMLDB_NOTNULL, null, 'n', 'required');
// Launch drop of list of values from field deleted.
$dbman->drop_enum_from_field($table, $field);
// Drop list of values (enum) from field complete on table questionnaire_response.
$table = new xmldb_table('questionnaire_response');
$field = new xmldb_field('complete', XMLDB_TYPE_CHAR, '1', null, XMLDB_NOTNULL, null, 'n', 'submitted');
// Launch drop of list of values from field complete.
$dbman->drop_enum_from_field($table, $field);
// Drop list of values (enum) from field choice_id on table questionnaire_response_bool.
$table = new xmldb_table('questionnaire_response_bool');
$field = new xmldb_field('choice_id', XMLDB_TYPE_CHAR, '1', null, XMLDB_NOTNULL, null, 'y', 'question_id');
// Launch drop of list of values from field choice_id.
$dbman->drop_enum_from_field($table, $field);
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2010110101, 'questionnaire');
}
if ($oldversion < 2012100800) {
// Changing precision of field name on table questionnaire_survey to (255).
// First drop the index.
$table = new xmldb_table('questionnaire_survey');
$index = new xmldb_index('name');
$index->set_attributes(XMLDB_INDEX_NOTUNIQUE, array('name'));
$dbman->drop_index($table, $index);
// Launch change of precision for field name.
$field = new xmldb_field('name', XMLDB_TYPE_CHAR, '255', null, XMLDB_NOTNULL, null, null, 'id');
$dbman->change_field_precision($table, $field);
// Add back in the index.
$table = new xmldb_table('questionnaire_survey');
$index = new xmldb_index('name');
$index->set_attributes(XMLDB_INDEX_NOTUNIQUE, array('name'));
$dbman->add_index($table, $index);
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2012100800, 'questionnaire');
}
if ($oldversion < 2013062302) {
// Adding completionsubmit field to table questionnaire.
$table = new xmldb_table('questionnaire');
$field = new xmldb_field('completionsubmit', XMLDB_TYPE_INTEGER, '1', null, XMLDB_NOTNULL, null, '0', 'timemodified');
// Conditionally launch add field.
if (!$dbman->field_exists($table, $field)) {
$dbman->add_field($table, $field);
}
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2013062302, 'questionnaire');
}
if ($oldversion < 2013062501) {
// Skip logic new feature.
// Define field dependquestion to be added to questionnaire_question table.
$table = new xmldb_table('questionnaire_question');
$field = new xmldb_field('dependquestion', XMLDB_TYPE_INTEGER, '10', null, XMLDB_NOTNULL, null, '0', 'deleted');
// Conditionally launch add field.
if (!$dbman->field_exists($table, $field)) {
$dbman->add_field($table, $field);
}
$table = new xmldb_table('questionnaire_question');
$field = new xmldb_field('dependchoice', XMLDB_TYPE_INTEGER, '10', null, XMLDB_NOTNULL, null, '0', 'dependquestion');
// Conditionally launch add field.
if (!$dbman->field_exists($table, $field)) {
$dbman->add_field($table, $field);
}
// Replace the = separator with :: separator in quest_choice content.
// This fixes radio button options using old "value"="display" formats.
require_once $CFG->dirroot . '/mod/questionnaire/locallib.php';
$choices = $DB->get_recordset('questionnaire_quest_choice', $conditions = null);
$total = $DB->count_records('questionnaire_quest_choice');
if ($total > 0) {
$pbar = new progress_bar('convertchoicevalues', 500, true);
$i = 1;
foreach ($choices as $choice) {
if (($choice->value == null || $choice->value == 'NULL') && !preg_match("/^([0-9]{1,3}=.*|!other=.*)\$/", $choice->content)) {
$content = questionnaire_choice_values($choice->content);
if ($pos = strpos($content->text, '=')) {
$newcontent = str_replace('=', '::', $content->text);
$choice->content = $newcontent;
$DB->update_record('questionnaire_quest_choice', $choice);
}
}
$pbar->update($i, $total, "Convert questionnaire choice value separator - {$i}/{$total}.");
$i++;
}
}
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2013062501, 'questionnaire');
}
if ($oldversion < 2013100500) {
// Add autonumbering option for questions and pages.
$table = new xmldb_table('questionnaire');
$field = new xmldb_field('autonum', XMLDB_TYPE_INTEGER, '1', null, XMLDB_NOTNULL, null, '3', 'completionsubmit');
// Conditionally launch add field.
if (!$dbman->field_exists($table, $field)) {
$dbman->add_field($table, $field);
}
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2013100500, 'questionnaire');
}
if ($oldversion < 2013122202) {
// Personality test feature.
$table = new xmldb_table('questionnaire_survey');
$field = new xmldb_field('feedbacksections', XMLDB_TYPE_INTEGER, '2', null, null, null, null, null);
// Conditionally launch add field.
if (!$dbman->field_exists($table, $field)) {
$dbman->add_field($table, $field);
}
unset($field);
$field = new xmldb_field('feedbacknotes', XMLDB_TYPE_TEXT, null, null, null, null, null);
if (!$dbman->field_exists($table, $field)) {
$dbman->add_field($table, $field);
}
unset($table);
unset($field);
// Define table questionnaire_fb_sections to be created.
$table = new xmldb_table('questionnaire_fb_sections');
$table->add_field('id', XMLDB_TYPE_INTEGER, '18', null, XMLDB_NOTNULL, XMLDB_SEQUENCE, null);
$table->add_field('survey_id', XMLDB_TYPE_INTEGER, '18', null, XMLDB_NOTNULL, null, null);
$table->add_field('section', XMLDB_TYPE_INTEGER, '2', null, null, null, null);
$table->add_field('scorecalculation', XMLDB_TYPE_TEXT, null, null, null, null, null);
$table->add_field('sectionlabel', XMLDB_TYPE_CHAR, '50', null, null, null, null);
$table->add_field('sectionheading', XMLDB_TYPE_TEXT, null, null, null, null, null);
$table->add_field('sectionheadingformat', XMLDB_TYPE_INTEGER, '2', null, null, null, '1');
// Adding keys to table questionnaire_fb_sections.
$table->add_key('primary', XMLDB_KEY_PRIMARY, array('id'));
// Conditionally launch create table for assign_user_mapping.
if (!$dbman->table_exists($table)) {
$dbman->create_table($table);
}
unset($table);
// Define table questionnaire_feedback to be created.
$table = new xmldb_table('questionnaire_feedback');
$table->add_field('id', XMLDB_TYPE_INTEGER, '18', null, XMLDB_NOTNULL, XMLDB_SEQUENCE, null);
$table->add_field('section_id', XMLDB_TYPE_INTEGER, '18', null, XMLDB_NOTNULL, null, null);
$table->add_field('feedbacklabel', XMLDB_TYPE_CHAR, '30', null, null, null, null);
$table->add_field('feedbacktext', XMLDB_TYPE_TEXT, null, null, null, null, null);
$table->add_field('feedbacktextformat', XMLDB_TYPE_INTEGER, '2', null, null, null, '1');
$table->add_field('minscore', XMLDB_TYPE_NUMBER, '10,5', null, null, null, '0.00000');
$table->add_field('maxscore', XMLDB_TYPE_NUMBER, '10,5', null, null, null, '101.00000');
// Adding keys to table questionnaire_fb_sections.
$table->add_key('primary', XMLDB_KEY_PRIMARY, array('id'));
// Conditionally launch create table for assign_user_mapping.
if (!$dbman->table_exists($table)) {
$dbman->create_table($table);
}
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2013122202, 'questionnaire');
}
if ($oldversion < 2014010300) {
// Personality test with chart.
$table = new xmldb_table('questionnaire_survey');
$field = new xmldb_field('chart_type', XMLDB_TYPE_CHAR, '64', null, null, null, null, null);
// Conditionally launch add field.
if (!$dbman->field_exists($table, $field)) {
$dbman->add_field($table, $field);
}
$field = new xmldb_field('feedbackscores', XMLDB_TYPE_INTEGER, '1', null, null, null, '0');
// Conditionally launch add field.
if (!$dbman->field_exists($table, $field)) {
$dbman->add_field($table, $field);
}
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2014010300, 'questionnaire');
}
if ($oldversion < 2015051101) {
// Move the global config value for 'usergraph' to the plugin config setting instead.
if (isset($CFG->questionnaire_usergraph)) {
set_config('usergraph', $CFG->questionnaire_usergraph, 'questionnaire');
unset_config('questionnaire_usergraph');
}
upgrade_mod_savepoint(true, 2015051101, 'questionnaire');
}
// Add index to reduce load on the questionnaire_quest_choice table.
if ($oldversion < 2015051102) {
// Conditionally add an index to the question_id field.
$table = new xmldb_table('questionnaire_quest_choice');
$index = new xmldb_index('quest_choice_quesidx', XMLDB_INDEX_NOTUNIQUE, array('question_id'));
// Only add the index if it does not exist.
if (!$dbman->index_exists($table, $index)) {
$dbman->add_index($table, $index);
}
// Questionnaire savepoint reached.
upgrade_mod_savepoint(true, 2015051102, 'questionnaire');
}
return $result;
}
