2004-09-12 17:34:35 +00:00
< ? php // $Id$
2002-12-15 02:41:07 +00:00
function quiz_upgrade ( $oldversion ) {
// This function does anything necessary to upgrade
// older versions to match current functionality
2006-04-27 23:25:06 +00:00
global $CFG , $db ;
2006-08-11 14:59:18 +00:00
$success = true ;
2005-04-13 16:05:46 +00:00
include_once ( " $CFG->dirroot /mod/quiz/locallib.php " );
2002-12-15 02:41:07 +00:00
2003-01-01 13:17:27 +00:00
if ( $oldversion < 2003010100 ) {
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz ADD review integer DEFAULT '0' NOT NULL AFTER `grademethod` " );
}
2003-01-03 16:01:48 +00:00
if ( $oldversion < 2003010301 ) {
2003-02-16 07:08:57 +00:00
table_column ( " quiz_truefalse " , " true " , " trueanswer " , " INTEGER " , " 10 " , " UNSIGNED " , " 0 " , " NOT NULL " , " " );
table_column ( " quiz_truefalse " , " false " , " falseanswer " , " INTEGER " , " 10 " , " UNSIGNED " , " 0 " , " NOT NULL " , " " );
table_column ( " quiz_questions " , " type " , " qtype " , " INTEGER " , " 10 " , " UNSIGNED " , " 0 " , " NOT NULL " , " " );
2003-01-03 16:01:48 +00:00
}
2003-02-24 10:42:07 +00:00
if ( $oldversion < 2003022303 ) {
modify_database ( " " , " CREATE TABLE prefix_quiz_randommatch (
id SERIAL PRIMARY KEY ,
question integer NOT NULL default '0' ,
2003-04-27 17:35:54 +00:00
choose integer NOT NULL default '4'
2003-02-24 10:42:07 +00:00
); " );
}
2003-03-03 17:48:39 +00:00
if ( $oldversion < 2003030303 ) {
2003-03-03 17:43:13 +00:00
table_column ( " quiz_questions " , " " , " defaultgrade " , " INTEGER " , " 6 " , " UNSIGNED " , " 1 " , " NOT NULL " , " image " );
}
2003-02-24 10:42:07 +00:00
2004-06-02 18:03:05 +00:00
if ( $oldversion < 2003033100 ) {
2003-03-30 16:46:50 +00:00
modify_database ( " " , " ALTER TABLE prefix_quiz_randommatch RENAME prefix_quiz_randomsamatch " );
2003-04-18 21:05:12 +00:00
modify_database ( " " , " CREATE TABLE prefix_quiz_match_sub (
2003-03-30 16:46:50 +00:00
id SERIAL PRIMARY KEY ,
question integer NOT NULL default '0' ,
questiontext text NOT NULL default '' ,
answertext varchar ( 255 ) NOT NULL default ''
); " );
2003-05-03 06:44:03 +00:00
modify_database ( " " , " CREATE INDEX prefix_quiz_match_sub_question_idx ON prefix_quiz_match_sub (question); " );
2003-03-30 16:46:50 +00:00
modify_database ( " " , " CREATE TABLE prefix_quiz_multichoice (
id SERIAL PRIMARY KEY ,
question integer NOT NULL default '0' ,
layout integer NOT NULL default '0' ,
answers varchar ( 255 ) NOT NULL default '' ,
single integer NOT NULL default '0'
); " );
2003-05-03 06:44:03 +00:00
modify_database ( " " , " CREATE INDEX prefix_quiz_multichoice_question_idx ON prefix_quiz_multichoice (question); " );
2003-03-30 16:46:50 +00:00
}
2003-04-09 13:57:08 +00:00
if ( $oldversion < 2003040901 ) {
2003-04-27 15:33:31 +00:00
table_column ( " quiz " , " " , " shufflequestions " , " INTEGER " , " 5 " , " UNSIGNED " , " 0 " , " NOT NULL " , " review " );
2003-04-09 13:57:08 +00:00
table_column ( " quiz " , " " , " shuffleanswers " , " INTEGER " , " 4 " , " UNSIGNED " , " 0 " , " NOT NULL " , " shufflequestions " );
}
2003-04-27 15:33:31 +00:00
if ( $oldversion < 2003042702 ) {
modify_database ( " " , " CREATE TABLE prefix_quiz_match (
id SERIAL PRIMARY KEY ,
question integer NOT NULL default '0' ,
subquestions varchar ( 255 ) NOT NULL default ''
); " );
2003-05-03 06:44:03 +00:00
modify_database ( " " , " CREATE INDEX prefix_quiz_match_question_idx ON prefix_quiz_match (question); " );
2003-04-27 15:33:31 +00:00
}
2003-07-10 14:09:43 +00:00
if ( $oldversion < 2003071001 ) {
modify_database ( " " , " CREATE TABLE prefix_quiz_numerical (
id SERIAL PRIMARY KEY ,
question integer NOT NULL default '0' ,
answer integer NOT NULL default '0' ,
min varchar ( 255 ) NOT NULL default '' ,
max varchar ( 255 ) NOT NULL default ''
); " );
modify_database ( " " , " CREATE INDEX prefix_quiz_numerical_answer_idx ON prefix_quiz_numerical (answer); " );
}
2003-07-24 05:18:00 +00:00
2004-06-02 18:03:05 +00:00
if ( $oldversion < 2003072400 ) {
2006-04-24 09:05:08 +00:00
execute_sql ( " INSERT INTO { $CFG -> prefix } log_display (module, action, mtable, field) VALUES ('quiz', 'review', 'quiz', 'name') " );
2003-07-24 05:18:00 +00:00
}
2003-08-23 13:28:32 +00:00
if ( $oldversion < 2003082300 ) {
modify_database ( " " , " CREATE TABLE prefix_quiz_multianswers (
id SERIAL PRIMARY KEY ,
question integer NOT NULL default '0' ,
answers varchar ( 255 ) NOT NULL default '' ,
positionkey varchar ( 255 ) NOT NULL default '' ,
answertype integer NOT NULL default '0' ,
norm integer NOT NULL default '1'
); " );
modify_database ( " " , " CREATE INDEX prefix_quiz_multianswers_question_idx ON prefix_quiz_multianswers (question); " );
table_column ( " quiz " , " " , " attemptonlast " , " INTEGER " , " 10 " , " UNSIGNED " , " 0 " , " NOT NULL " , " attempts " );
table_column ( " quiz_questions " , " " , " stamp " , " varchar " , " 255 " , " " , " qtype " );
2003-08-23 14:18:44 +00:00
}
2003-08-23 13:28:32 +00:00
2003-08-23 14:18:44 +00:00
if ( $oldversion < 2003082301 ) {
table_column ( " quiz_questions " , " " , " version " , " integer " , " 10 " , " " , " 1 " , " not null " , " stamp " );
2003-08-23 13:28:32 +00:00
if ( $questions = get_records ( " quiz_questions " )) {
foreach ( $questions as $question ) {
$stamp = make_unique_id_code ();
if ( ! set_field ( " quiz_questions " , " stamp " , $stamp , " id " , $question -> id )) {
notify ( " Error while adding stamp to question id = $question->id " );
}
}
}
}
2003-08-27 12:53:21 +00:00
if ( $oldversion < 2003082700 ) {
table_column ( " quiz_categories " , " " , " stamp " , " varchar " , " 255 " , " " , " " , " not null " );
if ( $categories = get_records ( " quiz_categories " )) {
foreach ( $categories as $category ) {
$stamp = make_unique_id_code ();
if ( ! set_field ( " quiz_categories " , " stamp " , $stamp , " id " , $category -> id )) {
notify ( " Error while adding stamp to category id = $category->id " );
}
}
}
}
2003-11-11 16:13:57 +00:00
if ( $oldversion < 2003111100 ) {
$duplicates = get_records_sql ( " SELECT stamp as id,count(*) as cuenta
FROM { $CFG -> prefix } quiz_questions
GROUP BY stamp
HAVING count ( * ) > 1 " );
if ( $duplicates ) {
notify ( " You have some quiz questions with duplicate stamps IDs. Cleaning these up. " );
foreach ( $duplicates as $duplicate ) {
$questions = get_records ( " quiz_questions " , " stamp " , $duplicate -> id );
$add = 1 ;
foreach ( $questions as $question ) {
2004-09-12 14:41:49 +00:00
echo " Changing question id $question->id stamp to " . $duplicate -> id . $add . " <br /> " ;
2003-11-11 16:13:57 +00:00
set_field ( " quiz_questions " , " stamp " , $duplicate -> id . $add , " id " , $question -> id );
$add ++ ;
}
2004-06-02 18:03:05 +00:00
}
2003-11-11 16:13:57 +00:00
} else {
notify ( " Checked your quiz questions for stamp duplication errors, but no problems were found. " , " green " );
}
}
2004-02-13 14:01:27 +00:00
if ( $oldversion < 2004021300 ) {
table_column ( " quiz_questions " , " " , " questiontextformat " , " integer " , " 2 " , " " , " 0 " , " not null " , " questiontext " );
}
2004-02-19 13:28:31 +00:00
if ( $oldversion < 2004021900 ) {
2006-04-24 09:05:08 +00:00
modify_database ( " " , " INSERT INTO prefix_log_display (module, action, mtable, field) VALUES ('quiz', 'add', 'quiz', 'name'); " );
modify_database ( " " , " INSERT INTO prefix_log_display (module, action, mtable, field) VALUES ('quiz', 'update', 'quiz', 'name'); " );
2004-02-19 13:28:31 +00:00
}
2004-05-17 17:04:01 +00:00
if ( $oldversion < 2004051700 ) {
2004-04-28 02:56:40 +00:00
include_once ( " $CFG->dirroot /mod/quiz/lib.php " );
quiz_refresh_events ();
}
2004-06-02 18:03:05 +00:00
if ( $oldversion < 2004060200 ) {
2004-07-28 08:51:05 +00:00
table_column ( " quiz " , " " , " timelimit " , " integer " , " " , " " , " 0 " , " NOT NULL " , " " );
2004-06-02 18:03:05 +00:00
}
2004-04-28 02:56:40 +00:00
2004-07-07 07:47:33 +00:00
if ( $oldversion < 2004070700 ) {
table_column ( " quiz " , " " , " password " , " varchar " , " 255 " , " " , " " , " not null " , " " );
table_column ( " quiz " , " " , " subnet " , " varchar " , " 255 " , " " , " " , " not null " , " " );
}
2004-08-11 10:27:00 +00:00
if ( $oldversion < 2004073001 ) {
// Six new tables:
modify_database ( " " , " BEGIN; " );
// One table for handling units for numerical questions
modify_database ( " " , " CREATE TABLE prefix_quiz_numerical_units (
id SERIAL8 PRIMARY KEY ,
question INT8 NOT NULL default '0' ,
multiplier decimal ( 40 , 20 ) NOT NULL default '1.00000000000000000000' ,
unit varchar ( 50 ) NOT NULL default ''
); " );
// Four tables for handling distribution and storage of
// individual data for dataset dependent question types
modify_database ( " " , " CREATE TABLE prefix_quiz_attemptonlast_datasets (
id SERIAL8 PRIMARY KEY ,
category INT8 NOT NULL default '0' ,
userid INT8 NOT NULL default '0' ,
datasetnumber INT8 NOT NULL default '0' ,
2005-05-17 21:51:29 +00:00
CONSTRAINT prefix_quiz_attemptonlast_datasets_category_userid UNIQUE ( category , userid )
2004-08-11 10:27:00 +00:00
) ; " );
modify_database ( " " , " CREATE TABLE prefix_quiz_dataset_definitions (
id SERIAL8 PRIMARY KEY ,
category INT8 NOT NULL default '0' ,
name varchar ( 255 ) NOT NULL default '' ,
type INT8 NOT NULL default '0' ,
options varchar ( 255 ) NOT NULL default '' ,
itemcount INT8 NOT NULL default '0'
) ; " );
modify_database ( " " , " CREATE TABLE prefix_quiz_dataset_items (
id SERIAL8 PRIMARY KEY ,
definition INT8 NOT NULL default '0' ,
number INT8 NOT NULL default '0' ,
value varchar ( 255 ) NOT NULL default ''
) ; " );
modify_database ( " " , " CREATE INDEX prefix_quiz_dataset_items_definition_idx ON prefix_quiz_dataset_items (definition); " );
modify_database ( " " , " CREATE TABLE prefix_quiz_question_datasets (
id SERIAL8 PRIMARY KEY ,
question INT8 NOT NULL default '0' ,
datasetdefinition INT8 NOT NULL default '0'
) ; " );
modify_database ( " " , " CREATE INDEX prefix_quiz_question_datasets_question_datasetdefinition_idx ON prefix_quiz_question_datasets (question,datasetdefinition); " );
// One table for new question type calculated
// - the first dataset dependent question type
modify_database ( " " , " CREATE TABLE prefix_quiz_calculated (
id SERIAL8 PRIMARY KEY ,
question INT8 NOT NULL default '0' ,
answer INT8 NOT NULL default '0' ,
tolerance varchar ( 20 ) NOT NULL default '0.0' ,
tolerancetype INT8 NOT NULL default '1' ,
correctanswerlength INT8 NOT NULL default '2'
) ; " );
modify_database ( " " , " CREATE INDEX prefix_quiz_calculated_question_idx ON prefix_quiz_calculated (question); " );
modify_database ( " " , " COMMIT; " );
}
2004-10-17 04:08:32 +00:00
2004-11-13 19:25:13 +00:00
if ( $oldversion < 2004111400 ) {
table_column ( " quiz_responses " , " answer " , " answer " , " text " , " " , " " , " " , " not null " );
2004-10-17 04:08:32 +00:00
}
2004-11-19 04:14:13 +00:00
if ( $oldversion < 2004111700 ) {
execute_sql ( " DROP INDEX { $CFG -> prefix } quiz_course_idx; " , false );
execute_sql ( " DROP INDEX { $CFG -> prefix } quiz_answers_question_idx; " , false );
2005-03-21 00:06:04 +00:00
execute_sql ( " DROP INDEX { $CFG -> prefix } quiz_attempts_quiz_idx; " , false );
execute_sql ( " DROP INDEX { $CFG -> prefix } quiz_attempts_userid_idx; " , false );
2004-11-19 04:14:13 +00:00
execute_sql ( " DROP INDEX { $CFG -> prefix } quiz_calculated_answer_idx; " , false );
2005-03-21 00:06:04 +00:00
execute_sql ( " DROP INDEX { $CFG -> prefix } quiz_categories_course_idx; " , false );
2004-11-19 04:14:13 +00:00
execute_sql ( " DROP INDEX { $CFG -> prefix } quiz_dataset_definitions_category_idx; " , false );
2005-03-21 00:06:04 +00:00
execute_sql ( " DROP INDEX { $CFG -> prefix } quiz_grades_quiz_idx; " , false );
2004-11-19 04:14:13 +00:00
execute_sql ( " DROP INDEX { $CFG -> prefix } quiz_grades_userid_idx; " , false );
2005-03-21 00:06:04 +00:00
execute_sql ( " DROP INDEX { $CFG -> prefix } quiz_numerical_question_idx; " , false );
2004-11-19 04:14:13 +00:00
execute_sql ( " DROP INDEX { $CFG -> prefix } quiz_numerical_units_question_idx; " , false );
2005-03-21 00:06:04 +00:00
execute_sql ( " DROP INDEX { $CFG -> prefix } quiz_question_grades_quiz_idx; " , false );
2004-11-19 04:14:13 +00:00
execute_sql ( " DROP INDEX { $CFG -> prefix } quiz_question_grades_question_idx; " , false );
2005-03-21 00:06:04 +00:00
execute_sql ( " DROP INDEX { $CFG -> prefix } quiz_questions_category_idx; " , false );
2004-11-19 04:14:13 +00:00
execute_sql ( " DROP INDEX { $CFG -> prefix } quiz_randomsamatch_question_idx; " , false );
2005-03-21 00:06:04 +00:00
execute_sql ( " DROP INDEX { $CFG -> prefix } quiz_responses_attempt_idx; " , false );
2004-11-19 04:14:13 +00:00
execute_sql ( " DROP INDEX { $CFG -> prefix } quiz_responses_question_idx; " , false );
modify_database ( '' , 'CREATE INDEX prefix_quiz_course_idx ON prefix_quiz (course);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_answers_question_idx ON prefix_quiz_answers (question);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_attempts_quiz_idx ON prefix_quiz_attempts (quiz);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_attempts_userid_idx ON prefix_quiz_attempts (userid);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_calculated_answer_idx ON prefix_quiz_calculated (answer);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_categories_course_idx ON prefix_quiz_categories (course);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_dataset_definitions_category_idx ON prefix_quiz_dataset_definitions (category);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_grades_quiz_idx ON prefix_quiz_grades (quiz);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_grades_userid_idx ON prefix_quiz_grades (userid);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_numerical_question_idx ON prefix_quiz_numerical (question);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_numerical_units_question_idx ON prefix_quiz_numerical_units (question);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_question_grades_quiz_idx ON prefix_quiz_question_grades (quiz);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_question_grades_question_idx ON prefix_quiz_question_grades (question);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_questions_category_idx ON prefix_quiz_questions (category);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_randomsamatch_question_idx ON prefix_quiz_randomsamatch (question);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_responses_attempt_idx ON prefix_quiz_responses (attempt);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_responses_question_idx ON prefix_quiz_responses (question);' );
}
2004-11-23 05:04:53 +00:00
if ( $oldversion < 2004112300 ) { //try and clean up an old mistake - try and bring us up to what is in postgres7.sql today.
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_attemptonlast_datasets DROP CONSTRAINT category; " , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_attemptonlast_datasets DROP CONSTRAINT { $CFG -> prefix } quiz_attemptonlast_datasets_category_userid; " , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_attemptonlast_datasets DROP CONSTRAINT { $CFG -> prefix } quiz_category_userid_unique; " , false );
modify_database ( '' , 'ALTER TABLE prefix_quiz_attemptonlast_datasets ADD CONSTRAINT prefix_quiz_category_userid_unique UNIQUE (category,userid);' );
}
2004-12-05 12:56:01 +00:00
if ( $oldversion < 2004120501 ) {
2005-01-03 00:41:33 +00:00
table_column ( " quiz_calculated " , " " , " correctanswerformat " , " integer " , " 10 " , " " , " 0 " , " not null " , " correctanswerlength " );
2004-12-05 12:56:01 +00:00
}
2004-12-14 06:43:22 +00:00
if ( $oldversion < 2004121400 ) { // New field to determine popup window behaviour
table_column ( " quiz " , " " , " popup " , " integer " , " 4 " , " " , " 0 " , " not null " , " subnet " );
}
2005-01-02 15:10:50 +00:00
if ( $oldversion < 2005010201 ) {
2005-01-05 17:47:01 +00:00
table_column ( 'quiz_categories' , '' , 'parent' );
table_column ( 'quiz_categories' , '' , 'sortorder' , 'integer' , '10' , '' , '999' );
2005-01-02 15:10:50 +00:00
}
2005-01-03 00:41:33 +00:00
if ( $oldversion < 2005010300 ) {
table_column ( " quiz " , " " , " questionsperpage " , " integer " , " 10 " , " " , " 0 " , " not null " , " review " );
}
2005-01-27 03:10:57 +00:00
if ( $oldversion < 2005012700 ) {
table_column ( 'quiz_grades' , 'grade' , 'grade' , 'real' , 2 , '' );
}
2005-02-14 18:24:24 +00:00
if ( $oldversion < 2005021400 ) {
table_column ( " quiz " , " " , " decimalpoints " , " integer " , " 4 " , " " , " 2 " , " not null " , " grademethod " );
}
2005-03-03 15:17:45 +00:00
if ( $oldversion < 2005022800 ) {
table_column ( 'quiz_questions' , '' , 'hidden' , 'integer' , '1' , 'unsigned' , '0' , 'not null' , 'version' );
table_column ( 'quiz_responses' , '' , 'originalquestion' , 'integer' , '10' , 'unsigned' , '0' , 'not null' , 'question' );
modify_database ( '' , " CREATE TABLE prefix_quiz_question_version (
id SERIAL PRIMARY KEY ,
quiz integer NOT NULL default '0' ,
oldquestion integer NOT NULL default '0' ,
newquestion integer NOT NULL default '0' ,
userid integer NOT NULL default '0' ,
timestamp integer NOT NULL default '0' ); " );
}
2005-03-21 00:06:04 +00:00
if ( $oldversion < 2005032000 ) {
2006-04-24 09:05:08 +00:00
execute_sql ( " INSERT INTO { $CFG -> prefix } log_display (module, action, mtable, field) VALUES ('quiz', 'editquestions', 'quiz', 'name') " );
2005-03-21 00:06:04 +00:00
}
2005-03-23 20:59:55 +00:00
if ( $oldversion < 2005032300 ) {
2005-04-06 02:04:17 +00:00
modify_database ( '' , 'ALTER TABLE prefix_quiz_question_version RENAME TO prefix_quiz_question_versions;' );
2005-03-23 20:59:55 +00:00
}
2005-04-12 07:52:31 +00:00
if ( $oldversion < 2005041200 ) { // replace wiki-like with markdown
include_once ( " $CFG->dirroot /lib/wiki_to_markdown.php " );
$wtm = new WikiToMarkdown ();
$sql = " select course from { $CFG -> prefix } quiz_categories, { $CFG -> prefix } quiz_questions " ;
2005-04-12 20:04:50 +00:00
$sql .= " where { $CFG -> prefix } quiz_category.id = { $CFG -> prefix } quiz_questions.category " ;
$sql .= " and { $CFG -> prefix } quiz_questions.id = " ;
2005-04-12 07:52:31 +00:00
$wtm -> update ( 'quiz_questions' , 'questiontext' , 'questiontextformat' , $sql );
}
2005-04-13 16:02:20 +00:00
if ( $oldversion < 2005041300 ) {
modify_database ( '' , " UPDATE prefix_quiz_questions SET hidden = '1' WHERE qtype =' " . RANDOM . " '; " );
}
2005-05-14 17:28:17 +00:00
2005-04-20 05:19:35 +00:00
if ( $oldversion < 2005042002 ) {
table_column ( 'quiz_answers' , 'answer' , 'answer' , 'text' , '' , '' , '' , 'not null' , '' );
}
2005-04-13 16:02:20 +00:00
2005-05-07 02:38:42 +00:00
if ( $oldversion < 2005042400 ) {
begin_sql ();
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// Changes to quiz table
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// The bits of the optionflags field will hold various option flags
table_column ( 'quiz' , '' , 'optionflags' , 'integer' , '10' , 'unsigned' , '0' , 'not null' , 'timeclose' );
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// The penalty scheme
table_column ( 'quiz' , '' , 'penaltyscheme' , 'integer' , '4' , 'unsigned' , '0' , 'not null' , 'optionflags' );
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// The review options are now all stored in the bits of the review field
table_column ( 'quiz' , 'review' , 'review' , 'integer' , 10 , 'unsigned' , 0 , 'not null' , '' );
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
/// Changes to quiz_attempts table
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// The preview flag marks teacher previews
table_column ( 'quiz_attempts' , '' , 'preview' , 'tinyint' , '2' , 'unsigned' , '0' , 'not null' , 'timemodified' );
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// The layout is the list of questions with inserted page breaks.
table_column ( 'quiz_attempts' , '' , 'layout' , 'text' , '' , '' , '' , 'not null' , 'timemodified' );
// For old quiz attempts we will set this to the repaginated question list from $quiz->questions
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
/// The following updates of field values require a loop through all quizzes
// This is because earlier versions of mysql don't allow joins in UPDATE
if ( $quizzes = get_records ( 'quiz' )) {
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// turn reporting off temporarily to avoid one line output per set_field
$olddebug = $db -> debug ;
$db -> debug = false ;
foreach ( $quizzes as $quiz ) {
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// repaginate
$quiz -> questions = ( $quiz -> questionsperpage ) ? quiz_repaginate ( $quiz -> questions , $quiz -> questionsperpage ) : $quiz -> questions ;
if ( $quiz -> questionsperpage ) {
$quiz -> questions = quiz_repaginate ( $quiz -> questions , $quiz -> questionsperpage );
set_field ( 'quiz' , 'questions' , $quiz -> questions , 'id' , $quiz -> id );
}
set_field ( 'quiz_attempts' , 'layout' , $quiz -> questions , 'quiz' , $quiz -> id );
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// set preview flag
if ( $teachers = get_course_teachers ( $quiz -> course )) {
$teacherids = implode ( ',' , array_keys ( $teachers ));
execute_sql ( " UPDATE { $CFG -> prefix } quiz_attempts SET preview = 1 WHERE userid IN ( $teacherids ) " );
}
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// set review flags in quiz table
$review = ( QUIZ_REVIEW_IMMEDIATELY & ( QUIZ_REVIEW_RESPONSES + QUIZ_REVIEW_SCORES ));
if ( $quiz -> feedback ) {
$review += ( QUIZ_REVIEW_IMMEDIATELY & QUIZ_REVIEW_FEEDBACK );
}
if ( $quiz -> correctanswers ) {
$review += ( QUIZ_REVIEW_IMMEDIATELY & QUIZ_REVIEW_ANSWERS );
}
if ( $quiz -> review & 1 ) {
$review += QUIZ_REVIEW_CLOSED ;
}
if ( $quiz -> review & 2 ) {
$review += QUIZ_REVIEW_OPEN ;
}
set_field ( 'quiz' , 'review' , $review , 'id' , $quiz -> id );
}
$db -> debug = $olddebug ;
}
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// We can now drop the fields whose data has been moved to the review field
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz DROP COLUMN feedback " );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz DROP COLUMN correctanswers " );
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
/// Renaming tables
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// rename the quiz_question_grades table to quiz_question_instances
modify_database ( '' , 'ALTER TABLE prefix_quiz_question_grades RENAME TO prefix_quiz_question_instances;' );
modify_database ( '' , 'ALTER TABLE prefix_quiz_question_grades_id_seq RENAME TO prefix_quiz_question_instances_id_seq;' );
modify_database ( '' , 'ALTER TABLE prefix_quiz_question_instances ALTER COLUMN id SET DEFAULT nextval(\'prefix_quiz_question_instances_id_seq\');' );
modify_database ( '' , 'DROP INDEX prefix_quiz_question_grades_quiz_idx' );
modify_database ( '' , 'DROP INDEX prefix_quiz_question_grades_question_idx;' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_question_instances_quiz_idx ON prefix_quiz_question_instances (quiz);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_question_instances_question_idx ON prefix_quiz_question_instances (question);' );
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// rename the quiz_responses table quiz_states
modify_database ( '' , 'ALTER TABLE prefix_quiz_responses RENAME TO prefix_quiz_states;' );
modify_database ( '' , 'ALTER TABLE prefix_quiz_responses_id_seq RENAME TO prefix_quiz_states_id_seq;' );
modify_database ( '' , 'ALTER TABLE prefix_quiz_states ALTER COLUMN id SET DEFAULT nextval(\'prefix_quiz_states_id_seq\');' );
modify_database ( '' , 'DROP INDEX prefix_quiz_responses_attempt_idx;' );
modify_database ( '' , 'DROP INDEX prefix_quiz_responses_question_idx;' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_states_attempt_idx ON prefix_quiz_states (attempt);' );
modify_database ( '' , 'CREATE INDEX prefix_quiz_states_question_idx ON prefix_quiz_states (question);' );
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
/// add columns to quiz_states table
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// The sequence number of the state.
table_column ( 'quiz_states' , '' , 'seq_number' , 'integer' , '6' , 'unsigned' , '0' , 'not null' , 'originalquestion' );
// For existing states we leave this at 0 because in the old quiz code there was only one response allowed
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// The time the state was created.
table_column ( 'quiz_states' , '' , 'timestamp' , 'integer' , '10' , 'unsigned' , '0' , 'not null' , 'answer' );
// For existing states we will below set this to the timemodified field of the attempt
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// The type of event that led to the creation of the state
table_column ( 'quiz_states' , '' , 'event' , 'integer' , '4' , 'unsigned' , '0' , 'not null' , 'timestamp' );
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// The raw grade
table_column ( 'quiz_states' , '' , 'raw_grade' , 'varchar' , '10' , '' , '' , 'not null' , 'grade' );
// For existing states (no penalties) this is equal to the grade
execute_sql ( " UPDATE { $CFG -> prefix } quiz_states SET raw_grade = grade " );
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// The penalty that the response attracted
table_column ( 'quiz_states' , '' , 'penalty' , 'varchar' , '10' , '' , '0.0' , 'not null' , 'raw_grade' );
// For existing states this can stay at 0 because penalties did not exist previously.
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
/// New table for pointers to newest and newest graded states
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
modify_database ( '' , " CREATE TABLE prefix_quiz_newest_states (
id SERIAL PRIMARY KEY ,
attemptid integer NOT NULL default '0' ,
questionid integer NOT NULL default '0' ,
2005-05-08 10:38:56 +00:00
newest integer NOT NULL default '0' ,
2005-05-07 02:38:42 +00:00
newgraded integer NOT NULL default '0' ,
sumpenalty varchar ( 10 ) NOT NULL default '0.0'
); " );
modify_database ( 'CREATE UNIQUE INDEX prefix_quiz_newest_states_attempt_idx ON prefix_quiz_newest_states (attemptid,questionid);' );
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
/// Now upgrade some fields in states and newest_states tables where necessary
// to save time on large sites only do this for attempts that have not yet been finished.
if ( $attempts = get_records_select ( 'quiz_attempts' , 'timefinish = 0' )) {
// turn reporting off temporarily to avoid one line output per set_field
$olddebug = $db -> debug ;
$db -> debug = false ;
foreach ( $attempts as $attempt ) {
quiz_upgrade_states ( $attempt );
}
$db -> debug = $olddebug ;
}
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
/// Entries for the log_display table
2005-05-14 17:28:17 +00:00
2006-04-24 09:05:08 +00:00
modify_database ( '' , " INSERT INTO prefix_log_display (module, action, mtable, field) VALUES ('quiz', 'preview', 'quiz', 'name'); " );
modify_database ( '' , " INSERT INTO prefix_log_display (module, action, mtable, field) VALUES ('quiz', 'start attempt', 'quiz', 'name'); " );
modify_database ( '' , " INSERT INTO prefix_log_display (module, action, mtable, field) VALUES ('quiz', 'close attempt', 'quiz', 'name'); " );
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
/// update the default settings in $CFG
$review = ( QUIZ_REVIEW_IMMEDIATELY & ( QUIZ_REVIEW_RESPONSES + QUIZ_REVIEW_SCORES ));
if ( ! empty ( $CFG -> quiz_feedback )) {
$review += ( QUIZ_REVIEW_IMMEDIATELY & QUIZ_REVIEW_FEEDBACK );
}
if ( ! empty ( $CFG -> quiz_correctanswers )) {
$review += ( QUIZ_REVIEW_IMMEDIATELY & QUIZ_REVIEW_ANSWERS );
}
if ( isset ( $CFG -> quiz_review ) and ( $CFG -> quiz_review & 1 )) {
$review += QUIZ_REVIEW_CLOSED ;
}
if ( isset ( $CFG -> quiz_review ) and ( $CFG -> quiz_review & 2 )) {
$review += QUIZ_REVIEW_OPEN ;
}
set_config ( 'quiz_review' , $review );
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
/// Use tolerance instead of min and max in numerical question type
table_column ( 'quiz_numerical' , '' , 'tolerance' , 'varchar' , '255' , '' , '0.0' , 'not null' , 'question' );
2005-05-08 21:28:37 +00:00
execute_sql ( " UPDATE { $CFG -> prefix } quiz_numerical SET tolerance = (max::text::real-min::text::real)/2 " );
2005-05-07 02:38:42 +00:00
modify_database ( '' , 'ALTER TABLE prefix_quiz_numerical DROP COLUMN min' ); // Replaced by tolerance
modify_database ( '' , 'ALTER TABLE prefix_quiz_numerical DROP COLUMN max' ); // Replaced by tolerance
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
/// Tables for Remote Questions
modify_database ( '' , " CREATE TABLE prefix_quiz_rqp (
id SERIAL PRIMARY KEY ,
question integer NOT NULL default '0' ,
type integer NOT NULL default '0' ,
source text NOT NULL ,
format varchar ( 255 ) NOT NULL default '' ,
flags integer NOT NULL default '0' ,
maxscore integer NOT NULL default '1'
); " );
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
modify_database ( '' , " CREATE INDEX prefix_quiz_rqp_question_idx ON prefix_quiz_rqp (question); " );
modify_database ( '' , " CREATE TABLE prefix_quiz_rqp_states (
id SERIAL PRIMARY KEY ,
stateid integer NOT NULL default '0' ,
responses text NOT NULL ,
persistent_data text NOT NULL ,
template_vars text NOT NULL
); " );
2005-06-15 22:49:02 +00:00
modify_database ( '' , " CREATE TABLE prefix_quiz_rqp_types (
2005-05-07 02:38:42 +00:00
id SERIAL PRIMARY KEY ,
name varchar ( 255 ) NOT NULL default '' ,
rendering_server varchar ( 255 ) NOT NULL default '' ,
cloning_server varchar ( 255 ) NOT NULL default '' ,
flags integer NOT NULL default '0'
); " );
2005-06-19 21:38:39 +00:00
modify_database ( '' , " CREATE UNIQUE INDEX prefix_quiz_rqp_types_name_uk ON prefix_quiz_rqp_types (name); " );
2005-05-07 02:38:42 +00:00
commit_sql ();
}
2005-05-14 17:28:17 +00:00
if ( $oldversion < 2005042900 && false ) { // We don't want this to be executed any more!!!
2005-05-07 02:38:42 +00:00
begin_sql ();
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
table_column ( 'quiz_multianswers' , '' , 'sequence' , 'varchar' , '255' , '' , '' , 'not null' , 'question' );
table_column ( 'quiz_numerical' , '' , 'answers' , 'varchar' , '255' , '' , '' , 'not null' , 'answer' );
modify_database ( '' , 'UPDATE prefix_quiz_numerical SET answers = answer' );
table_column ( 'quiz_questions' , '' , 'parent' , 'integer' , '10' , 'unsigned' , '0' , 'not null' , 'category' );
modify_database ( '' , " UPDATE prefix_quiz_questions SET parent = id WHERE qtype =' " . RANDOM . " '; " );
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// convert multianswer questions to the new model
if ( $multianswers = get_records_sql ( " SELECT m.id, q.category, q.id AS parent,
q . name , q . questiontextformat , m . norm AS
defaultgrade , m . answertype AS qtype ,
q . version , q . hidden , m . answers ,
m . positionkey
FROM { $CFG -> prefix } quiz_questions q ,
{ $CFG -> prefix } quiz_multianswers m
WHERE q . qtype = '".MULTIANSWER."'
AND q . id = m . question
ORDER BY q . id ASC , m . positionkey ASC " )) {
$multianswers = array_values ( $multianswers );
$n = count ( $multianswers );
$parent = $multianswers [ 0 ] -> parent ;
$sequence = array ();
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// turn reporting off temporarily to avoid one line output per set_field
$olddebug = $db -> debug ;
$db -> debug = false ;
for ( $i = 0 ; $i < $n ; $i ++ ) {
$answers = $multianswers [ $i ] -> answers ; unset ( $multianswers [ $i ] -> answers );
$pos = $multianswers [ $i ] -> positionkey ; unset ( $multianswers [ $i ] -> positionkey );
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// create questions for all the multianswer victims
unset ( $multianswers [ $i ] -> id );
$multianswers [ $i ] -> length = 0 ;
$multianswers [ $i ] -> questiontext = '' ;
$multianswers [ $i ] -> stamp = make_unique_id_code ();
$id = insert_record ( 'quiz_questions' , $multianswers [ $i ]);
$sequence [ $pos ] = $id ;
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// update the answers table to point to these new questions
modify_database ( '' , " UPDATE prefix_quiz_answers SET question = ' $id ' WHERE id IN ( $answers ); " );
// update the questiontype tables to point to these new questions
if ( SHORTANSWER == $multianswers [ $i ] -> qtype ) {
modify_database ( '' , " UPDATE prefix_quiz_shortanswer SET question = ' $id ' WHERE answers = ' $answers '; " );
} else if ( NUMERICAL == $multianswers [ $i ] -> qtype ) {
if ( strpos ( $answers , ',' )) {
$numerical = get_records_list ( 'quiz_numerical' , 'answer' , $answers );
// Get the biggest tolerance value
$tolerance = 0 ;
foreach ( $numerical as $num ) {
$tolerance = ( $tolerance < $num -> tolerance ? $num -> tolerance : $tolerance );
}
delete_records_select ( 'quiz_numerical' , " answer IN ( $answers ) " );
$new = new stdClass ;
$new -> question = $id ;
$new -> tolerance = $tolerance ;
$new -> answers = $answers ;
insert_record ( 'quiz_numerical' , $new );
unset ( $numerical , $new , $tolerance );
} else {
modify_database ( '' , " UPDATE prefix_quiz_numerical SET question = ' $id ', answers = ' $answers ' WHERE answer IN ( $answers ); " );
}
} else if ( MULTICHOICE == $multianswers [ $i ] -> qtype ) {
modify_database ( '' , " UPDATE prefix_quiz_multichoice SET question = ' $id ' WHERE answers = ' $answers '; " );
}
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
if ( ! isset ( $multianswers [ $i + 1 ]) || $parent != $multianswers [ $i + 1 ] -> parent ) {
delete_records ( 'quiz_multianswers' , 'question' , $parent );
$multi = new stdClass ;
$multi -> question = $parent ;
$multi -> sequence = implode ( ',' , $sequence );
insert_record ( 'quiz_multianswers' , $multi );
if ( isset ( $multianswers [ $i + 1 ])) {
$parent = $multianswers [ $i + 1 ] -> parent ;
$sequence = array ();
}
}
}
$db -> debug = $olddebug ;
}
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// Remove redundant fields from quiz_multianswers
modify_database ( '' , 'ALTER TABLE prefix_quiz_multianswers DROP COLUMN answers' );
modify_database ( '' , 'ALTER TABLE prefix_quiz_multianswers DROP COLUMN positionkey' );
modify_database ( '' , 'ALTER TABLE prefix_quiz_multianswers DROP COLUMN answertype' );
modify_database ( '' , 'ALTER TABLE prefix_quiz_multianswers DROP COLUMN norm' );
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
// Change numerical from answer to answers
modify_database ( '' , 'ALTER TABLE prefix_quiz_numerical DROP COLUMN answer' );
commit_sql ();
}
2005-05-14 17:28:17 +00:00
2005-05-07 02:38:42 +00:00
if ( $oldversion < 2005050300 ) {
// length of question determines question numbering. Currently all questions require one
// question number except for DESCRIPTION questions.
table_column ( 'quiz_questions' , '' , 'length' , 'integer' , '10' , 'unsigned' , '1' , 'not null' , 'qtype' );
execute_sql ( " UPDATE { $CFG -> prefix } quiz_questions SET length = 0 WHERE qtype = " . DESCRIPTION );
}
2005-05-14 17:28:17 +00:00
2005-05-13 15:49:15 +00:00
if ( $oldversion < 2005050408 ) {
2005-05-07 02:38:42 +00:00
table_column ( 'quiz_questions' , '' , 'penalty' , 'float' , '' , '' , '0.1' , 'not null' , 'defaultgrade' );
}
2005-05-14 17:28:17 +00:00
if ( $oldversion < 2005051401 ) {
// Some earlier changes are undone here, so we need another condition
if ( $oldversion >= 2005042900 ) {
// Restore the answer field
table_column ( 'quiz_numerical' , '' , 'answer' , 'integer' , '10' , 'unsigned' , '0' , 'not null' , 'answers' );
$singleanswer = array ();
if ( $numericals = get_records ( 'quiz_numerical' )) {
$numericals = array_values ( $numericals );
$n = count ( $numericals );
for ( $i = 0 ; $i < $n ; $i ++ ) {
$numerical =& $numericals [ $i ];
if ( strpos ( $numerical -> answers , ',' )) { // comma separated list?
// Back this up to delete the record after the new ones are created
$id = $numerical -> id ;
unset ( $numerical -> id );
// We need to create a record for each answer id
$answers = explode ( ',' , $numerical -> answers );
foreach ( $answers as $answer ) {
$numerical -> answer = $answer ;
insert_record ( 'quiz_numerical' , $numerical );
}
// ... and get rid of the old record
delete_records ( 'quiz_numerical' , 'id' , $id );
} else {
$singleanswer [] = $numerical -> id ;
}
}
}
// Do all of these at once
if ( ! empty ( $singleanswer )) {
$singleanswer = implode ( ',' , $singleanswer );
modify_database ( '' , " UPDATE prefix_quiz_numerical SET answer = answers WHERE id IN ( $singleanswer ); " );
}
// All answer fields are set, so we can delete the answers field
modify_database ( '' , 'ALTER TABLE prefix_quiz_numerical DROP answers' );
// If the earlier changes weren't made we can safely do only the
// bits here.
} else {
// Comma separated questionids will be stored as sequence
table_column ( 'quiz_multianswers' , '' , 'sequence' , 'varchar' , '255' , '' , '' , 'not null' , 'question' );
2005-05-16 17:01:21 +00:00
// Change the type of positionkey to int, so that the sorting works!
table_column ( 'quiz_multianswers' , 'positionkey' , 'positionkey' , 'integer' , '10' , 'unsigned' , '0' , 'not null' , '' );
2005-05-14 17:28:17 +00:00
table_column ( 'quiz_questions' , '' , 'parent' , 'integer' , '10' , 'unsigned' , '0' , 'not null' , 'category' );
modify_database ( '' , " UPDATE prefix_quiz_questions SET parent = id WHERE qtype =' " . RANDOM . " '; " );
// Each multianswer record is converted to a question object and then
// inserted as a new question into the quiz_questions table.
// After that the question fields in the quiz_answers table and the
// qtype specific tables are updated to point to the new question id.
// Note: The quiz_numerical table is different as it stores one record
// per defined answer (to allow different tolerance values for
// different possible answers. (Currently multiple answers are
// not supported by the numerical editing interface, but all
// all processing code does support that possibility.
if ( $multianswers = get_records_sql ( " SELECT m.id, q.category, " .
" q.id AS parent, " . // question id (of multianswer question) as parent
" q.name, q.questiontextformat, " .
" m.norm AS defaultgrade, " . // norm is snow stored as defaultgrade
" m.answertype AS qtype, " . // just rename this
" q.version, q.hidden, m.answers, " .
" m.positionkey " .
" FROM { $CFG -> prefix } quiz_questions q, " .
" { $CFG -> prefix } quiz_multianswers m " .
" WHERE q.qtype = ' " . MULTIANSWER . " ' " .
" AND q.id = m.question " .
" ORDER BY q.id ASC, m.positionkey ASC " )) { // ordered by positionkey
$multianswers = array_values ( $multianswers );
$n = count ( $multianswers );
$parent = $multianswers [ 0 ] -> parent ;
$sequence = array ();
2005-05-16 17:01:21 +00:00
$positions = array ();
2005-05-14 17:28:17 +00:00
// Turn reporting off temporarily to avoid one line output per set_field
global $db ;
$olddebug = $db -> debug ;
// $db->debug = false;
for ( $i = 0 ; $i < $n ; $i ++ ) {
// Backup these two values before unsetting the object fields
$answers = $multianswers [ $i ] -> answers ; unset ( $multianswers [ $i ] -> answers );
$pos = $multianswers [ $i ] -> positionkey ; unset ( $multianswers [ $i ] -> positionkey );
2005-05-16 17:01:21 +00:00
// Needed for substituting multianswer ids with position keys in the $state->answer field
$positions [ $multianswers [ $i ] -> id ] = $pos ;
2005-05-14 17:28:17 +00:00
// Create questions for all the multianswer victims
unset ( $multianswers [ $i ] -> id );
$multianswers [ $i ] -> length = 0 ;
$multianswers [ $i ] -> questiontext = '' ;
$multianswers [ $i ] -> stamp = make_unique_id_code ();
// $multianswers[$i]->parent is set in the query
// $multianswers[$i]->defaultgrade is set in the query
// $multianswers[$i]->qtype is set in the query
$id = insert_record ( 'quiz_questions' , $multianswers [ $i ]);
$sequence [ $pos ] = $id ;
// Update the quiz_answers table to point to these new questions
modify_database ( '' , " UPDATE prefix_quiz_answers SET question = ' $id ' WHERE id IN ( $answers ); " );
// Update the questiontype tables to point to these new questions
2005-05-16 17:01:21 +00:00
2005-05-14 17:28:17 +00:00
if ( SHORTANSWER == $multianswers [ $i ] -> qtype ) {
modify_database ( '' , " UPDATE prefix_quiz_shortanswer SET question = ' $id ' WHERE answers = ' $answers '; " );
} else if ( MULTICHOICE == $multianswers [ $i ] -> qtype ) {
modify_database ( '' , " UPDATE prefix_quiz_multichoice SET question = ' $id ' WHERE answers = ' $answers '; " );
} else if ( NUMERICAL == $multianswers [ $i ] -> qtype ) {
modify_database ( '' , " UPDATE prefix_quiz_numerical SET question = ' $id ' WHERE answer IN ( $answers ); " );
}
// Whenever we're through with the subquestions of one multianswer
// question we delete the old records in the multianswers table,
// store a new record with the sequence in the multianswers table
// and point $parent to the next multianswer question.
if ( ! isset ( $multianswers [ $i + 1 ]) || $parent != $multianswers [ $i + 1 ] -> parent ) {
2005-05-16 17:01:21 +00:00
// Substituting multianswer ids with position keys in the $state->answer field
if ( $states = get_records ( 'quiz_states' , 'question' , $parent )) {
foreach ( $states as $state ) {
$reg = array ();
preg_match_all ( '/(?:^|,)([0-9]+)-([^,]*)/' , $state -> answer , $reg );
$state -> answer = '' ;
$m = count ( $reg [ 1 ]);
for ( $j = 0 ; $j < $m ; $j ++ ) {
if ( isset ( $positions [ $reg [ 1 ][ $j ]])) {
$state -> answer .= $positions [ $reg [ 1 ][ $j ]] . '-' . $reg [ 2 ][ $j ] . ',' ;
} else {
notify ( " Undefined multianswer id ( { $reg [ 1 ][ $j ] } ) used in state # { $state -> id } ! " );
$state -> answer .= $j + 1 . '-' . $reg [ 2 ][ $j ] . ',' ;
}
}
$state -> answer = rtrim ( $state -> answer , ',' ); // strip trailing comma
update_record ( 'quiz_states' , $state );
}
}
2005-05-14 17:28:17 +00:00
delete_records ( 'quiz_multianswers' , 'question' , $parent );
$multi = new stdClass ;
$multi -> question = $parent ;
$multi -> sequence = implode ( ',' , $sequence );
insert_record ( 'quiz_multianswers' , $multi );
2005-05-16 17:01:21 +00:00
2005-05-14 17:28:17 +00:00
if ( isset ( $multianswers [ $i + 1 ])) {
2005-05-16 17:01:21 +00:00
$parent = $multianswers [ $i + 1 ] -> parent ;
$sequence = array ();
$positions = array ();
2005-05-14 17:28:17 +00:00
}
}
}
$db -> debug = $olddebug ;
}
// Remove redundant fields from quiz_multianswers
modify_database ( '' , 'ALTER TABLE prefix_quiz_multianswers DROP answers' );
modify_database ( '' , 'ALTER TABLE prefix_quiz_multianswers DROP positionkey' );
modify_database ( '' , 'ALTER TABLE prefix_quiz_multianswers DROP answertype' );
modify_database ( '' , 'ALTER TABLE prefix_quiz_multianswers DROP norm' );
}
}
2005-05-17 21:51:29 +00:00
if ( $oldversion < 2005051402 ) {
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_attemptonlast_datasets DROP CONSTRAINT category; " , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_attemptonlast_datasets DROP CONSTRAINT { $CFG -> prefix } attemptonlast_datasets_category_userid; " , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_attemptonlast_datasets DROP CONSTRAINT { $CFG -> prefix } quiz_category_userid_unique; " , false );
modify_database ( '' , 'ALTER TABLE prefix_quiz_attemptonlast_datasets ADD CONSTRAINT prefix_quiz_category_userid_unique UNIQUE (category,userid);' );
}
2005-06-03 12:52:22 +00:00
if ( $oldversion < 2005060300 ) {
// We need to remove some duplicate entries that may be present in some databases
// due to a faulty restore script
// Remove duplicate entries from quiz_numerical
if ( $dups = get_records_sql ( "
2005-06-12 09:57:13 +00:00
SELECT question , answer , count ( * ) as num
2005-06-03 12:52:22 +00:00
FROM { $CFG -> prefix } quiz_numerical
GROUP BY question , answer
HAVING count ( * ) > 1 "
)) {
foreach ( $dups as $dup ) {
$ids = get_records_sql ( "
SELECT id , id
FROM { $CFG -> prefix } quiz_numerical
WHERE question = '$dup->question'
AND answer = '$dup->answer' "
);
$skip = true ;
foreach ( $ids as $id ) {
if ( $skip ) {
$skip = false ;
} else {
delete_records ( 'quiz_numerical' , 'id' , $id -> id );
}
}
}
}
// Remove duplicate entries from quiz_shortanswer
if ( $dups = get_records_sql ( "
2005-06-12 09:57:13 +00:00
SELECT question , answers , count ( * ) as num
2005-06-03 12:52:22 +00:00
FROM { $CFG -> prefix } quiz_shortanswer
GROUP BY question , answers
HAVING count ( * ) > 1 "
)) {
foreach ( $dups as $dup ) {
$ids = get_records_sql ( "
SELECT id , id
FROM { $CFG -> prefix } quiz_shortanswer
WHERE question = '$dup->question'
AND answers = '$dup->answers' "
);
$skip = true ;
foreach ( $ids as $id ) {
if ( $skip ) {
$skip = false ;
} else {
delete_records ( 'quiz_shortanswer' , 'id' , $id -> id );
}
}
}
}
// Remove duplicate entries from quiz_multichoice
if ( $dups = get_records_sql ( "
2005-06-12 09:57:13 +00:00
SELECT question , answers , count ( * ) as num
2005-06-03 12:52:22 +00:00
FROM { $CFG -> prefix } quiz_multichoice
GROUP BY question , answers
HAVING count ( * ) > 1 "
)) {
foreach ( $dups as $dup ) {
$ids = get_records_sql ( "
SELECT id , id
FROM { $CFG -> prefix } quiz_multichoice
WHERE question = '$dup->question'
AND answers = '$dup->answers' "
);
$skip = true ;
foreach ( $ids as $id ) {
if ( $skip ) {
$skip = false ;
} else {
delete_records ( 'quiz_multichoice' , 'id' , $id -> id );
}
}
}
}
//Search all the orphan categories (those whose course doesn't exist)
//and process them, deleting or moving them to site course - Bug 2459
//Set debug to false
$olddebug = $db -> debug ;
$db -> debug = false ;
//Iterate over all the quiz_categories records to get their course id
if ( $courses = get_records_sql ( " SELECT DISTINCT course as id, course
FROM { $CFG -> prefix } quiz_categories " )) {
//Iterate over courses
foreach ( $courses as $course ) {
//If the course doesn't exist, orphan category found!
2006-07-18 11:01:06 +00:00
//Process it with question_delete_course(). It will do all the hard work.
2005-06-03 12:52:22 +00:00
if ( ! record_exists ( 'course' , 'id' , $course -> id )) {
2006-07-18 11:01:06 +00:00
require_once ( " $CFG->libdir /questionlib.php " );
question_delete_course ( $course );
2005-06-03 12:52:22 +00:00
}
}
}
//Reset rebug to its original state
$db -> debug = $olddebug ;
}
2005-06-15 22:49:02 +00:00
if ( $oldversion < 2005060301 ) {
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_rqp_type RENAME TO ' . $CFG -> prefix . 'quiz_rqp_types' );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_rqp_type_id_seq RENAME TO ' . $CFG -> prefix . 'rqp_types_id_seq' );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_rqp_types ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'quiz_rqp_types_id_seq\')' );
execute_sql ( 'DROP INDEX ' . $CFG -> prefix . 'quiz_rqp_type_name_uk' );
execute_sql ( 'CREATE UNIQUE INDEX ' . $CFG -> prefix . 'quiz_rqp_types_name_uk ON ' . $CFG -> prefix . 'quiz_rqp_types (name);' );
}
2005-08-15 23:17:58 +00:00
if ( $oldversion < 2005060302 ) { // Mass cleanup of bad postgres upgrade scripts
2005-10-05 01:36:59 +00:00
execute_sql ( 'CREATE UNIQUE INDEX ' . $CFG -> prefix . 'quiz_newest_states_attempt_idx ON ' . $CFG -> prefix . 'quiz_newest_states (attemptid, questionid)' , false );
execute_sql ( 'ALTER TABLE ONLY ' . $CFG -> prefix . 'quiz_attemptonlast_datasets DROP CONSTRAINT ' . $CFG -> prefix . 'quiz_category_userid_unique' , false );
execute_sql ( 'ALTER TABLE ONLY ' . $CFG -> prefix . 'quiz_attemptonlast_datasets ADD CONSTRAINT ' . $CFG -> prefix . 'quiz_attemptonlast_datasets_category_userid UNIQUE (category, userid)' , false );
execute_sql ( 'ALTER TABLE ONLY ' . $CFG -> prefix . 'quiz_question_instances DROP CONSTRAINT ' . $CFG -> prefix . 'quiz_question_grades_pkey' , false );
execute_sql ( 'ALTER TABLE ONLY ' . $CFG -> prefix . 'quiz_question_instances ADD CONSTRAINT ' . $CFG -> prefix . 'quiz_question_instances_pkey PRIMARY KEY (id)' , false );
execute_sql ( 'ALTER TABLE ONLY ' . $CFG -> prefix . 'quiz_question_versions DROP CONSTRAINT ' . $CFG -> prefix . 'quiz_question_version_pkey' , false );
execute_sql ( 'ALTER TABLE ONLY ' . $CFG -> prefix . 'quiz_question_versions ADD CONSTRAINT ' . $CFG -> prefix . 'quiz_question_versions_pkey PRIMARY KEY (id)' , false );
execute_sql ( 'ALTER TABLE ONLY ' . $CFG -> prefix . 'quiz_states DROP CONSTRAINT ' . $CFG -> prefix . 'quiz_responses_pkey' , false );
execute_sql ( 'ALTER TABLE ONLY ' . $CFG -> prefix . 'quiz_states ADD CONSTRAINT ' . $CFG -> prefix . 'quiz_states_pkey PRIMARY KEY (id)' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz ALTER decimalpoints SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz ALTER optionflags SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz ALTER penaltyscheme SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz ALTER popup SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz ALTER questionsperpage SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz ALTER review SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_answers ALTER answer SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_attempts ALTER layout SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_attempts ALTER preview SET NOT NULL' , false );
2005-08-15 23:17:58 +00:00
table_column ( 'quiz_calculated' , 'correctanswerformat' , 'correctanswerformat' , 'integer' , '16' , 'unsigned' , '2' );
2005-10-05 01:36:59 +00:00
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_categories ALTER parent SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_categories ALTER sortorder SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_grades ALTER grade SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_multianswers ALTER sequence SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_numerical ALTER tolerance SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_questions ALTER hidden SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_questions ALTER length SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_questions ALTER parent SET NOT NULL' , false );
2005-08-15 23:17:58 +00:00
table_column ( 'quiz_questions' , 'penalty' , 'penalty' , 'real' , '' , 'UNSIGNED' , '0.1' );
2005-10-05 01:36:59 +00:00
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_states ALTER answer SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_states ALTER event SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_states ALTER originalquestion SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_states ALTER penalty SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_states ALTER raw_grade SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_states ALTER seq_number SET NOT NULL' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_states ALTER timestamp SET NOT NULL' , false );
}
if ( $oldversion < 2005100500 ) {
// clean up an old mistake.
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_question_version_id_seq RENAME TO ' . $CFG -> prefix . 'quiz_question_versions_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_question_versions ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'quiz_question_versions_id_seq\')' , false );
2005-08-15 23:17:58 +00:00
}
2006-02-08 04:41:31 +00:00
if ( $oldversion < 2006020801 ) {
table_column ( " quiz " , " " , " delay1 " , " INTEGER " , " 10 " , " UNSIGNED " , " 0 " , " NOT NULL " , " popup " );
table_column ( " quiz " , " " , " delay2 " , " INTEGER " , " 10 " , " UNSIGNED " , " 0 " , " NOT NULL " , " delay1 " );
}
2006-02-11 21:07:08 +00:00
if ( $oldversion < 2006021101 ) {
// set defaultgrade field properly (probably not necessary, but better make sure)
execute_sql ( " UPDATE { $CFG -> prefix } quiz_questions SET defaultgrade = '1' WHERE defaultgrade = '0' " , false );
execute_sql ( " UPDATE { $CFG -> prefix } quiz_questions SET defaultgrade = '0' WHERE qtype = ' " . DESCRIPTION . " ' " , false );
}
2006-02-12 09:46:34 +00:00
if ( $oldversion < 2006021103 ) {
// add new field to store the question-level shuffleanswers option
table_column ( 'quiz_match' , '' , 'shuffleanswers' , 'tinyint' , '4' , 'unsigned' , '1' , 'not null' , 'subquestions' );
table_column ( 'quiz_multichoice' , '' , 'shuffleanswers' , 'tinyint' , '4' , 'unsigned' , '1' , 'not null' , 'single' );
table_column ( 'quiz_randomsamatch' , '' , 'shuffleanswers' , 'tinyint' , '4' , 'unsigned' , '1' , 'not null' , 'choose' );
}
2006-02-12 15:28:17 +00:00
if ( $oldversion < 2006021104 ) {
// add originalversion field for the new versioning mechanism
table_column ( 'quiz_question_versions' , '' , 'originalquestion' , 'int' , '10' , 'unsigned' , '0' , 'not null' , 'newquestion' );
}
2006-02-13 23:15:40 +00:00
if ( $oldversion < 2006021302 ) {
table_column ( 'quiz_match_sub' , '' , 'code' , 'int' , '10' , 'unsigned' , '0' , 'not null' , 'id' );
execute_sql ( " UPDATE { $CFG -> prefix } quiz_match_sub SET code = id " , false );
}
2006-02-13 23:34:30 +00:00
if ( $oldversion < 2006021304 ) {
// convert sequence field to text to accomodate very long sequences, see bug 4257
table_column ( 'quiz_multianswers' , 'sequence' , 'sequence' , 'text' , '' , '' , '' , 'not null' , 'question' );
}
2006-02-14 02:01:06 +00:00
if ( $oldversion < 2006021400 ) {
2006-05-17 06:56:14 +00:00
// modify_database('','CREATE UNIQUE INDEX prefix_quiz_attempts_uniqueid_uk ON prefix_quiz_attempts (uniqueid);');
// this index will not be created since uniqueid was not added, proper upgrade will be on 2006042801
2006-02-14 02:01:06 +00:00
}
2006-02-15 08:38:41 +00:00
if ( $oldversion < 2006021501 ) {
2006-02-15 08:34:36 +00:00
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_newest_states RENAME TO { $CFG -> prefix } question_sessions " , false );
}
2006-02-19 22:49:30 +00:00
if ( $oldversion < 2006021900 ) {
2006-02-19 23:08:52 +00:00
2006-02-19 23:06:25 +00:00
modify_database ( '' , "
CREATE TABLE prefix_quiz_essay (
id SERIAL PRIMARY KEY ,
question integer NOT NULL default '0' ,
answer varchar ( 255 ) NOT NULL default ''
) " );
2006-02-19 23:08:52 +00:00
2006-02-19 23:06:25 +00:00
modify_database ( '' , "
2006-02-19 23:15:55 +00:00
CREATE TABLE prefix_quiz_essay_states (
2006-02-19 23:06:25 +00:00
id SERIAL PRIMARY KEY ,
stateid integer NOT NULL default '0' ,
graded integer NOT NULL default '0' ,
fraction varchar ( 10 ) NOT NULL default '0.0' ,
2006-02-19 23:15:55 +00:00
response text NOT NULL default ''
); " );
2006-02-19 23:08:52 +00:00
// convert grade fields to real
table_column ( 'quiz_attempts' , 'sumgrades' , 'sumgrades' , 'real' , '' , '' , '0' , 'not null' );
table_column ( 'quiz_answers' , 'fraction' , 'fraction' , 'real' , '' , '' , '0' , 'not null' );
table_column ( 'quiz_essay_states' , 'fraction' , 'fraction' , 'real' , '' , '' , '0' , 'not null' );
table_column ( 'quiz_states' , 'grade' , 'grade' , 'real' , '' , '' , '0' , 'not null' );
table_column ( 'quiz_states' , 'raw_grade' , 'raw_grade' , 'real' , '' , '' , '0' , 'not null' );
table_column ( 'quiz_states' , 'penalty' , 'penalty' , 'real' , '' , '' , '0' , 'not null' );
table_column ( 'question_sessions' , 'sumpenalty' , 'sumpenalty' , 'real' , '' , '' , '0' , 'not null' );
2006-02-19 22:49:30 +00:00
}
2006-02-19 23:06:25 +00:00
2006-03-01 02:17:47 +00:00
if ( $oldversion < 2006030100 ) {
// Fix up another table rename :(
// THIS caused the mistake: execute_sql("ALTER TABLE {$CFG->prefix}quiz_newest_states RENAME TO {$CFG->prefix}question_sessions", false);
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_newest_states_id_seq RENAME TO ' . $CFG -> prefix . 'question_sessions_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_sessions ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_sessions_id_seq\')' , false );
}
2006-03-01 07:03:57 +00:00
if ( $oldversion < 2006030101 ) {
2006-03-02 01:30:04 +00:00
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_questions RENAME TO { $CFG -> prefix } question " , false );
2006-03-01 07:03:57 +00:00
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_questions_id_seq RENAME TO ' . $CFG -> prefix . 'question_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_id_seq\')' , false );
2006-03-02 01:30:04 +00:00
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_states RENAME TO { $CFG -> prefix } question_states " , false );
2006-03-01 07:03:57 +00:00
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_states_id_seq RENAME TO ' . $CFG -> prefix . 'question_states_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_states ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_states_id_seq\')' , false );
2006-03-02 01:30:04 +00:00
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_answers RENAME TO { $CFG -> prefix } question_answers " , false );
2006-03-01 07:03:57 +00:00
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_answers_id_seq RENAME TO ' . $CFG -> prefix . 'question_answers_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_answers ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_answers_id_seq\')' , false );
2006-03-02 01:30:04 +00:00
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_categories RENAME TO { $CFG -> prefix } question_categories " , false );
2006-03-01 07:03:57 +00:00
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_categories_id_seq RENAME TO ' . $CFG -> prefix . 'question_categories_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_categories ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_categories_id_seq\')' , false );
}
2006-03-12 21:17:42 +00:00
if ( $oldversion < 2006031202 ) {
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_truefalse RENAME TO { $CFG -> prefix } question_truefalse " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_truefalse_id_seq RENAME TO ' . $CFG -> prefix . 'question_truefalse_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_truefalse ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_truefalse_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_shortanswer RENAME TO { $CFG -> prefix } question_shortanswer " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_shortanswer_id_seq RENAME TO ' . $CFG -> prefix . 'question_shortanswer_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_shortanswer ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_shortanswer_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_multianswers RENAME TO { $CFG -> prefix } question_multianswer " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_multianswers_id_seq RENAME TO ' . $CFG -> prefix . 'question_multianswer_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_multianswer ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_multianswer_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_multichoice RENAME TO { $CFG -> prefix } question_multichoice " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_multichoice_id_seq RENAME TO ' . $CFG -> prefix . 'question_multichoice_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_multichoice ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_multichoice_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_numerical RENAME TO { $CFG -> prefix } question_numerical " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_numerical_id_seq RENAME TO ' . $CFG -> prefix . 'question_numerical_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_numerical ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_numerical_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_numerical_units RENAME TO { $CFG -> prefix } question_numerical_units " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_numerical_units_id_seq RENAME TO ' . $CFG -> prefix . 'question_numerical_units_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_numerical_units ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_numerical_units_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_randomsamatch RENAME TO { $CFG -> prefix } question_randomsamatch " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_randomsamatch_id_seq RENAME TO ' . $CFG -> prefix . 'question_randomsamatch_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_randomsamatch ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_randomsamatch_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_match RENAME TO { $CFG -> prefix } question_match " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_match_id_seq RENAME TO ' . $CFG -> prefix . 'question_match_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_match ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_match_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_match_sub RENAME TO { $CFG -> prefix } question_match_sub " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_match_sub_id_seq RENAME TO ' . $CFG -> prefix . 'question_match_sub_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_match_sub ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_match_sub_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_calculated RENAME TO { $CFG -> prefix } question_calculated " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_calculated_id_seq RENAME TO ' . $CFG -> prefix . 'question_calculated_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_calculated ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_calculated_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_dataset_definitions RENAME TO { $CFG -> prefix } question_dataset_definitions " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_dataset_definitions_id_seq RENAME TO ' . $CFG -> prefix . 'question_dataset_definitions_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_dataset_definitions ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_dataset_definitions_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_dataset_items RENAME TO { $CFG -> prefix } question_dataset_items " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_dataset_items_id_seq RENAME TO ' . $CFG -> prefix . 'question_dataset_items_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_dataset_items ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_dataset_items_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_question_datasets RENAME TO { $CFG -> prefix } question_datasets " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_question_datasets_id_seq RENAME TO ' . $CFG -> prefix . 'question_datasets_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_datasets ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_datasets_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_rqp RENAME TO { $CFG -> prefix } question_rqp " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_rqp_id_seq RENAME TO ' . $CFG -> prefix . 'question_rqp_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_rqp ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_rqp_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_rqp_servers RENAME TO { $CFG -> prefix } question_rqp_servers " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_rqp_servers_id_seq RENAME TO ' . $CFG -> prefix . 'question_rqp_servers_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_rqp_servers ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_rqp_servers_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_rqp_states RENAME TO { $CFG -> prefix } question_rqp_states " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_rqp_states_id_seq RENAME TO ' . $CFG -> prefix . 'question_rqp_states_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_rqp_states ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_rqp_states_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_rqp_types RENAME TO { $CFG -> prefix } question_rqp_types " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_rqp_types_id_seq RENAME TO ' . $CFG -> prefix . 'question_rqp_types_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_rqp_types ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_rqp_types_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_essay RENAME TO { $CFG -> prefix } question_essay " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_essay_id_seq RENAME TO ' . $CFG -> prefix . 'question_essay_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_essay ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_essay_id_seq\')' , false );
execute_sql ( " ALTER TABLE { $CFG -> prefix } quiz_essay_states RENAME TO { $CFG -> prefix } question_essay_states " , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'quiz_essay_states_id_seq RENAME TO ' . $CFG -> prefix . 'question_essay_states_id_seq' , false );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_essay_states ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_essay_states_id_seq\')' , false );
}
2006-03-21 23:08:36 +00:00
if ( $oldversion < 2006032100 ) {
2006-08-09 13:45:49 +00:00
// change from the old questiontype numbers to using the questiontype names
2006-03-21 23:08:36 +00:00
table_column ( 'question' , 'qtype' , 'qtype' , 'varchar' , 20 , '' , '' , 'not null' );
set_field ( 'question' , 'qtype' , 'shortanswer' , 'qtype' , 1 );
set_field ( 'question' , 'qtype' , 'truefalse' , 'qtype' , 2 );
set_field ( 'question' , 'qtype' , 'multichoice' , 'qtype' , 3 );
set_field ( 'question' , 'qtype' , 'random' , 'qtype' , 4 );
set_field ( 'question' , 'qtype' , 'match' , 'qtype' , 5 );
set_field ( 'question' , 'qtype' , 'randomsamatch' , 'qtype' , 6 );
set_field ( 'question' , 'qtype' , 'description' , 'qtype' , 7 );
set_field ( 'question' , 'qtype' , 'numerical' , 'qtype' , 8 );
set_field ( 'question' , 'qtype' , 'multianswer' , 'qtype' , 9 );
set_field ( 'question' , 'qtype' , 'calculated' , 'qtype' , 10 );
set_field ( 'question' , 'qtype' , 'rqp' , 'qtype' , 11 );
set_field ( 'question' , 'qtype' , 'essay' , 'qtype' , 12 );
}
2006-03-22 08:41:56 +00:00
if ( $oldversion < 2006032200 ) {
// set version for all questiontypes that already have their tables installed
set_config ( 'qtype_calculated_version' , 2006032100 );
set_config ( 'qtype_essay_version' , 2006032100 );
set_config ( 'qtype_match_version' , 2006032100 );
set_config ( 'qtype_multianswer_version' , 2006032100 );
set_config ( 'qtype_multichoice_version' , 2006032100 );
set_config ( 'qtype_numerical_version' , 2006032100 );
set_config ( 'qtype_randomsamatch_version' , 2006032100 );
set_config ( 'qtype_rqp_version' , 2006032100 );
set_config ( 'qtype_shortanswer_version' , 2006032100 );
set_config ( 'qtype_truefalse_version' , 2006032100 );
}
2006-04-06 16:42:00 +00:00
if ( $oldversion < 2006040600 ) {
table_column ( 'question_sessions' , '' , 'comment' , 'text' , '' , '' , '' , 'not null' , 'sumpenalty' );
}
2006-04-09 21:59:55 +00:00
if ( $oldversion < 2006040900 ) {
modify_database ( '' , " UPDATE prefix_question SET parent = id WHERE qtype ='random'; " );
}
2006-04-10 19:13:21 +00:00
if ( $oldversion < 2006041000 ) {
2006-04-24 09:05:08 +00:00
modify_database ( '' , " INSERT INTO prefix_log_display (module, action, mtable, field) VALUES ('quiz', 'continue attempt', 'quiz', 'name'); " );
2006-04-10 19:13:21 +00:00
}
2006-04-10 22:10:32 +00:00
if ( $oldversion < 2006041001 ) {
table_column ( 'question' , 'version' , 'version' , 'varchar' , 255 );
}
2006-04-27 22:56:25 +00:00
if ( $oldversion < 2006042800 ) {
// Check we have some un-renamed tables (verified in some servers)
if ( $tables = $db -> MetaTables ( 'TABLES' )) {
if ( in_array ( $CFG -> prefix . 'quiz_randommatch' , $tables ) &&
! in_array ( $CFG -> prefix . 'question_randomsamatch' , $tables )) {
modify_database ( " " , " ALTER TABLE prefix_quiz_randommatch RENAME prefix_question_randomsamatch " );
modify_database ( " " , " ALTER TABLE prefix_quiz_randommatch_id_seq RENAME prefix_question_randomsamatch_id_seq " );
execute_sql ( 'ALTER TABLE ' . $CFG -> prefix . 'question_randomsamatch ALTER COLUMN id SET DEFAULT nextval(\'' . $CFG -> prefix . 'question_randomsamatch_id_seq\')' , false );
}
// Check for one possible missing field in one table
if ( $columns = $db -> MetaColumnNames ( $CFG -> prefix . 'question_randomsamatch' )) {
if ( ! in_array ( 'shuffleanswers' , $columns )) {
table_column ( 'question_randomsamatch' , '' , 'shuffleanswers' , 'tinyint' , '4' , 'unsigned' , '1' , 'not null' , 'choose' );
}
}
}
}
2006-05-17 06:56:14 +00:00
if ( $oldversion < 2006051300 ) { // this block also exec'ed by 2006042801 on MOODLE_16_STABLE
2006-04-30 16:23:55 +00:00
// The newgraded field must always point to a valid state
modify_database ( " " , " UPDATE prefix_question_sessions SET newgraded = newest where newgraded = '0' " );
2006-05-13 16:57:17 +00:00
2006-06-07 17:56:47 +00:00
// Only perform this if hasn't been performed before (in MOODLE_16_STABLE branch - bug 5717)
$tables = $db -> MetaTables ( 'TABLES' );
if ( ! in_array ( $CFG -> prefix . 'question_attempts' , $tables )) {
// The following table is discussed in bug 5468
modify_database ( " " , " CREATE TABLE prefix_question_attempts (
id SERIAL PRIMARY KEY ,
modulename varchar ( 20 ) NOT NULL default 'quiz'
); " );
// create one entry for all the existing quiz attempts
modify_database ( " " , " INSERT INTO prefix_question_attempts (id)
SELECT uniqueid
FROM prefix_quiz_attempts ; " );
}
2006-04-30 16:23:55 +00:00
}
2006-05-17 06:56:14 +00:00
if ( $oldversion < 2006051700 ) { // this block also exec'd by 2006042802 on MOODLE_16_STABLE
2006-06-09 10:15:03 +00:00
notify ( " The next set of upgrade operations may report an
2006-05-17 06:56:14 +00:00
error if you are upgrading from v1 . 6.
This error mesage is normal , and can be ignored . " );
// this block is taken from mysql.php 2005070202
// add new unique id to prepare the way for lesson module to have its own attempts table
table_column ( 'quiz_attempts' , '' , 'uniqueid' , 'integer' , '10' , 'unsigned' , '0' , 'not null' , 'id' );
// initially we can use the id as the unique id because no other modules use attempts yet.
execute_sql ( " UPDATE { $CFG -> prefix } quiz_attempts SET uniqueid = id " , false );
// we set $CFG->attemptuniqueid to the next available id
$record = get_record_sql ( " SELECT nextval(' { $CFG -> prefix } quiz_attempts_id_seq') " );
set_config ( 'attemptuniqueid' , empty ( $record -> nextid ) ? 1 : $record -> nextid );
// the above will be a race condition, see bug 5468
2006-06-28 17:21:53 +00:00
2006-05-17 06:56:14 +00:00
modify_database ( '' , 'CREATE UNIQUE INDEX prefix_quiz_attempts_uniqueid_uk ON prefix_quiz_attempts (uniqueid);' );
2006-06-28 17:21:53 +00:00
// Copy the teacher comments from the question_essay_states table to the new
// question_sessions table.
// Get the attempt unique ID, teacher comment, graded flag, state ID, and question ID
// based on the quesiont_essay_states
if ( $results = get_records_sql ( " SELECT a.uniqueid, es.response AS essaycomment, es.graded AS isgraded,
qs . id AS stateid , qs . question AS questionid
FROM { $CFG -> prefix } question_states as qs ,
{ $CFG -> prefix } question_essay_states es ,
{ $CFG -> prefix } quiz_attempts a
WHERE es . stateid = qs . id AND a . uniqueid = qs . attempt " )) {
foreach ( $results as $result ) {
// Create a state object to be used for updating
$state = new stdClass ;
$state -> id = $result -> stateid ;
if ( $result -> isgraded ) {
// Graded - save comment to the sessions and change state event to QUESTION_EVENTMANUALGRADE
if ( ! set_field ( 'question_sessions' , 'comment' , $result -> essaycomment , 'attemptid' , $result -> uniqueid , 'questionid' , $result -> questionid )) {
notify ( " Essay Table Migration: Cannot save comment " );
}
$state -> event = 9 ; //QUESTION_EVENTMANUALGRADE;
} else {
// Not graded
$state -> event = 7 ; //QUESTION_EVENTSUBMIT;
}
// Save the event
if ( ! update_record ( 'question_states' , $state )) {
notify ( " Essay Table Migration: Cannot update state " );
}
}
}
2006-05-17 06:56:14 +00:00
// dropping unused tables
execute_sql ( 'DROP TABLE ' . $CFG -> prefix . 'question_essay_states' );
execute_sql ( 'DROP TABLE ' . $CFG -> prefix . 'question_essay' );
execute_sql ( 'DROP TABLE ' . $CFG -> prefix . 'quiz_attemptonlast_datasets' );
2006-05-17 06:57:03 +00:00
modify_database ( '' , ' ALTER TABLE prefix_question
ALTER COLUMN qtype SET DEFAULT \ ' 0 \ ' ,
ALTER COLUMN version SET DEFAULT \ '\'' );
// recreate the indexes that was not moved while quiz was transitioning to question lib
notify ( 'Errors on indexes not being able to drop or already exists can be ignored as they may have been properly upgraded previously' );
modify_database ( '' , 'DROP INDEX prefix_quiz_numerical_answer_idx' );
modify_database ( '' , 'DROP INDEX prefix_quiz_numerical_question_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_numerical_question_idx ON prefix_question_numerical (question)' );
modify_database ( '' , 'CREATE INDEX prefix_question_numerical_answer_idx ON prefix_question_numerical (answer)' );
modify_database ( '' , 'DROP INDEX prefix_quiz_question_datasets_question_datasetdefinition_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_datasets_question_datasetdefinition_idx ON prefix_question_datasets (question, datasetdefinition)' );
modify_database ( '' , 'DROP INDEX prefix_quiz_multichoice_question_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_multichoice_question_idx ON prefix_question_multichoice (question)' );
modify_database ( '' , 'DROP INDEX prefix_quiz_categories_course_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_categories_course_idx ON prefix_question_categories (course)' );
modify_database ( '' , 'DROP INDEX prefix_quiz_shortanswer_question_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_shortanswer_question_idx ON prefix_question_shortanswer (question)' );
modify_database ( '' , 'DROP INDEX prefix_quiz_questions_category_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_category_idx ON prefix_question (category)' );
modify_database ( '' , 'DROP INDEX prefix_quiz_calculated_answer_idx' );
modify_database ( '' , 'DROP INDEX prefix_quiz_calculated_question_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_calculated_question_idx ON prefix_question_calculated (question)' );
modify_database ( '' , 'CREATE INDEX prefix_question_calculated_answer_idx ON prefix_question_calculated (answer)' );
modify_database ( '' , 'DROP INDEX prefix_quiz_answers_question_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_answers_question_idx ON prefix_question_answers (question)' );
modify_database ( '' , 'DROP INDEX prefix_quiz_dataset_items_definition_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_dataset_items_definition_idx ON prefix_question_dataset_items (definition)' );
modify_database ( '' , 'DROP INDEX prefix_quiz_numerical_units_question_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_numerical_units_question_idx ON prefix_question_numerical_units (question)' );
modify_database ( '' , 'DROP INDEX prefix_quiz_randomsamatch_question_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_randomsamatch_question_idx ON prefix_question_randomsamatch (question)' );
modify_database ( '' , 'DROP INDEX prefix_quiz_states_question_idx' );
modify_database ( '' , 'DROP INDEX prefix_quiz_states_attempt_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_states_question_idx ON prefix_question_states (question)' );
modify_database ( '' , 'CREATE INDEX prefix_question_states_attempt_idx ON prefix_question_states (attempt)' );
modify_database ( '' , 'DROP INDEX prefix_quiz_match_question_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_match_question_idx ON prefix_question_match (question)' );
modify_database ( '' , 'DROP INDEX prefix_quiz_match_sub_question_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_match_sub_question_idx ON prefix_question_match_sub (question)' );
modify_database ( '' , 'DROP INDEX prefix_quiz_multianswers_question_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_multianswer_question_idx ON prefix_question_multianswer (question)' );
modify_database ( '' , 'DROP INDEX prefix_quiz_dataset_definitions_category_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_dataset_definitions_category_idx ON prefix_question_dataset_definitions (category)' );
modify_database ( '' , 'CREATE INDEX prefix_log_timecoursemoduleaction_idx ON prefix_log ("time", course, module, "action")' );
modify_database ( '' , 'CREATE INDEX prefix_log_coursemoduleaction_idx ON prefix_log (course, module, "action")' );
modify_database ( '' , 'DROP INDEX prefix_quiz_rqp_question_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_rqp_question_idx ON prefix_question_rqp (question)' );
modify_database ( '' , 'DROP INDEX prefix_quiz_truefalse_question_idx' );
modify_database ( '' , 'CREATE INDEX prefix_question_truefalse_question_idx ON prefix_question_truefalse (question)' );
notify ( 'End of upgrading of indexes' );
notify ( 'Renaming primary key names' );
modify_database ( '' , 'ALTER TABLE prefix_question_numerical DROP CONSTRAINT prefix_quiz_numerical_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_numerical ADD CONSTRAINT prefix_question_numerical_pkey PRIMARY KEY (id)' );
modify_database ( '' , 'ALTER TABLE prefix_question_datasets DROP CONSTRAINT prefix_quiz_question_datasets_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_datasets ADD CONSTRAINT prefix_question_datasets_pkey PRIMARY KEY (id)' );
modify_database ( '' , 'ALTER TABLE prefix_question_multichoice DROP CONSTRAINT prefix_quiz_multichoice_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_multichoice ADD CONSTRAINT prefix_question_multichoice_pkey PRIMARY KEY (id)' );
2006-08-09 13:45:49 +00:00
modify_database ( '' , 'ALTER TABLE prefix_question_rqp_states DROP CONSTRAINT prefix_quiz_rqp_states_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_rqp_states ADD CONSTRAINT prefix_question_rqp_states_pkey PRIMARY KEY (id)' );
2006-05-17 06:57:03 +00:00
2006-08-09 13:45:49 +00:00
modify_database ( '' , 'ALTER TABLE prefix_question_categories DROP CONSTRAINT prefix_quiz_categories_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_categories ADD CONSTRAINT prefix_question_categories_pkey PRIMARY KEY (id)' );
2006-05-17 06:57:03 +00:00
modify_database ( '' , 'ALTER TABLE prefix_question_shortanswer DROP CONSTRAINT prefix_quiz_shortanswer_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_shortanswer ADD CONSTRAINT prefix_question_shortanswer_pkey PRIMARY KEY (id)' );
modify_database ( '' , 'ALTER TABLE prefix_question DROP CONSTRAINT prefix_quiz_questions_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question ADD CONSTRAINT prefix_question_pkey PRIMARY KEY (id)' );
modify_database ( '' , 'ALTER TABLE prefix_question_sessions DROP CONSTRAINT prefix_quiz_newest_states_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_sessions ADD CONSTRAINT prefix_question_sessions_pkey PRIMARY KEY (id)' );
2006-08-09 13:45:49 +00:00
modify_database ( '' , 'ALTER TABLE prefix_question_calculated DROP CONSTRAINT prefix_quiz_calculated_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_calculated ADD CONSTRAINT prefix_question_calculated_pkey PRIMARY KEY (id)' );
2006-05-17 06:57:03 +00:00
modify_database ( '' , 'ALTER TABLE prefix_question_answers DROP CONSTRAINT prefix_quiz_answers_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_answers ADD CONSTRAINT prefix_question_answers_pkey PRIMARY KEY (id)' );
modify_database ( '' , 'ALTER TABLE prefix_question_dataset_items DROP CONSTRAINT prefix_quiz_dataset_items_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_dataset_items ADD CONSTRAINT prefix_question_dataset_items_pkey PRIMARY KEY (id)' );
modify_database ( '' , 'ALTER TABLE prefix_question_numerical_units DROP CONSTRAINT prefix_quiz_numerical_units_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_numerical_units ADD CONSTRAINT prefix_question_numerical_units_pkey PRIMARY KEY (id)' );
modify_database ( '' , 'ALTER TABLE prefix_question_randomsamatch DROP CONSTRAINT prefix_quiz_randomsamatch_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_randomsamatch ADD CONSTRAINT prefix_question_randomsamatch_pkey PRIMARY KEY (id)' );
modify_database ( '' , 'ALTER TABLE prefix_question_rqp_types DROP CONSTRAINT prefix_quiz_rqp_types_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_rqp_types ADD CONSTRAINT prefix_question_rqp_types_pkey PRIMARY KEY (id)' );
modify_database ( '' , 'ALTER TABLE prefix_question_states DROP CONSTRAINT prefix_quiz_states_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_states ADD CONSTRAINT prefix_question_states_pkey PRIMARY KEY (id)' );
modify_database ( '' , 'ALTER TABLE prefix_question_match DROP CONSTRAINT prefix_quiz_match_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_match ADD CONSTRAINT prefix_question_match_pkey PRIMARY KEY (id)' );
modify_database ( '' , 'ALTER TABLE prefix_question_match_sub DROP CONSTRAINT prefix_quiz_match_sub_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_match_sub ADD CONSTRAINT prefix_question_match_sub_pkey PRIMARY KEY (id)' );
modify_database ( '' , 'ALTER TABLE prefix_question_multianswer DROP CONSTRAINT prefix_quiz_multianswers_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_multianswer ADD CONSTRAINT prefix_question_multianswer_pkey PRIMARY KEY (id)' );
modify_database ( '' , 'ALTER TABLE prefix_question_dataset_definitions DROP CONSTRAINT prefix_quiz_dataset_definitions_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_dataset_definitions ADD CONSTRAINT prefix_question_dataset_definitions_pkey PRIMARY KEY (id)' );
modify_database ( '' , 'ALTER TABLE prefix_question_rqp DROP CONSTRAINT prefix_quiz_rqp_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_rqp ADD CONSTRAINT prefix_question_rqp_pkey PRIMARY KEY (id)' );
modify_database ( '' , 'ALTER TABLE prefix_question_truefalse DROP CONSTRAINT prefix_quiz_truefalse_pkey' );
modify_database ( '' , 'ALTER TABLE prefix_question_truefalse ADD CONSTRAINT prefix_question_truefalse_pkey PRIMARY KEY (id)' );
notify ( 'End of renaming primary keys' );
2006-05-17 06:56:14 +00:00
}
2006-08-11 14:59:18 +00:00
if ( $oldversion < 2006081000 ) {
2006-09-19 13:35:42 +00:00
// Add a column to the the question table to store the question general feedback.
2006-08-11 14:59:18 +00:00
$success = $success && table_column ( 'question' , '' , 'commentarytext' , 'text' , '' , '' , '' , 'not null' , 'image' );
2006-09-19 13:35:42 +00:00
// Adjust the quiz review options so that general feedback is displayed whenever feedback is.
2006-08-11 14:59:18 +00:00
$success = $success && execute_sql ( 'UPDATE ' . $CFG -> prefix . 'quiz SET review = ' .
2006-09-19 13:35:42 +00:00
'(review & ~' . QUIZ_REVIEW_GENERALFEEDBACK . ') | ' . // Clear any existing junk from the commenary bits.
'((review & ' . QUIZ_REVIEW_FEEDBACK . ') * 8)' ); // Set the general feedback bits to be the same as the feedback ones.
2006-06-28 17:21:53 +00:00
2006-08-11 14:59:18 +00:00
// Same adjustment to the defaults for new quizzes.
2006-09-19 13:35:42 +00:00
$success = $success && set_config ( 'quiz_review' , ( $CFG -> quiz_review & ~ QUIZ_REVIEW_GENERALFEEDBACK ) |
2006-08-11 14:59:18 +00:00
(( $CFG -> quiz_review & QUIZ_REVIEW_FEEDBACK ) << 3 ));
}
2006-08-22 17:31:26 +00:00
if ( $success && $oldversion < 2006081400 ) {
$success = $success && modify_database ( '' , "
CREATE TABLE prefix_quiz_feedback (
id SERIAL PRIMARY KEY ,
quizid integer NOT NULL default '0' ,
feedbacktext text NOT NULL default '' ,
maxgrade real NOT NULL default '0' ,
mingrade real NOT NULL default '0'
);
" );
$success = $success && modify_database ( '' ,
" CREATE INDEX prefix_quiz_feedback_quizid_idx ON prefix_quiz_feedback (quizid); " );
$success = $success && execute_sql ( "
INSERT INTO { $CFG -> prefix } quiz_feedback ( quizid , feedbacktext , maxgrade , mingrade )
SELECT id , '' , grade + 1 , 0 FROM { $CFG -> prefix } quiz ;
" );
}
2006-08-11 14:59:18 +00:00
2006-08-24 16:44:15 +00:00
if ( $success && $oldversion < 2006082400 ) {
$success = $success && table_column ( 'question_sessions' , 'comment' , 'manualcomment' , 'text' , '' , '' , '' );
}
2006-09-19 10:56:00 +00:00
if ( $success && $oldversion < 2006091900 ) {
2006-09-19 13:35:42 +00:00
$success = $success && table_column ( 'question_dataset_items' , 'number' , 'itemnumber' , 'integer' );
}
if ( $success && $oldversion < 2006091901 ) {
$success = $success && table_column ( 'question' , 'commentarytext' , 'generalfeedback' , 'text' , '' , '' , '' );
2006-09-19 10:56:00 +00:00
}
2006-08-11 14:59:18 +00:00
return $success ;
2002-12-15 02:41:07 +00:00
}
?>
