From: gustav_delius <gustav_delius>
Date: Mon, 13 Mar 2006 00:18:38 +0000 (+0000)
Subject: Some work on question restore code, not complete
X-Git-Url: http://git.mjollnir.org/gw?a=commitdiff_plain;h=12fcd27da68c4b87200fee7beea45e0fdea6e7c5;p=moodle.git

Some work on question restore code, not complete
---

diff --git a/backup/restorelib.php b/backup/restorelib.php
index e44c5c3c88..2462aac269 100644
--- a/backup/restorelib.php
+++ b/backup/restorelib.php
@@ -4822,8 +4822,6 @@
                 }
             }
         }
-        // The following will be enabled once the quiz and question restore code are separated
-        //include_once("$CFG->dirroot/question/restorelib.php");
 
         if (!defined('RESTORE_SILENTLY')) {
             //Start the main table
@@ -5041,8 +5039,9 @@
         }
         
 
-        //Now create categories and questions as needed (STEP1)
+        //Now create categories and questions as needed
         if ($status and ($restore->mods['quiz']->restore)) {
+            include_once("$CFG->dirroot/question/restorelib.php");
             if (!defined('RESTORE_SILENTLY')) {
                 echo "</li><li>".get_string("creatingcategoriesandquestions");
                 echo "<ul>";
diff --git a/mod/quiz/restorelib.php b/mod/quiz/restorelib.php
index 5e43df20b7..4731931e0e 100644
--- a/mod/quiz/restorelib.php
+++ b/mod/quiz/restorelib.php
@@ -3,9 +3,6 @@
     //quiz mods
 
 // Todo:
-    // the restoration of the parent and sortorder fields in the category table needs
-    // a lot more thought. We should probably use a library function to add the category
-    // rather than just writing it to the database
 
     // whereever it says "/// We have to recode the .... field" we should put in a check
     // to see if the recoding was successful and throw an appropriate error otherwise
@@ -14,52 +11,16 @@
     //To see, put your terminal to 160cc
 
     //
-    //                           quiz                                                      question_categories
-    //                        (CL,pk->id)                                                   (CL,pk->id)
-    //                            |                                                              |
-    //           -------------------------------------------------------------------             |
-    //           |                        |                    |                   |             |.......................................
-    //           |               quiz_grades                   |        quiz_question_versions   |                                      .
-    //           |           (UL,pk->id,fk->quiz)              |         (CL,pk->id,fk->quiz)    |                                      .
-    //           |                                             |                         .       |    ------question_datasets-------    .
-    //      quiz_attempts                          quiz_question_instances               .       |    |  (CL,pk->id,fk->question,  |    .
-    //  (UL,pk->id,fk->quiz)                    (CL,pk->id,fk->quiz,question)            .       |    |   fk->dataset_definition)  |    .
-    //             |                                              |                      .       |    |                            |    .
-    //             |               question_sessions              |                      .       |    |                            |    .
-    //             |---------(UL,pk->id,fk->attempt,question)-----|                      .       |    |                            |    .
-    //             |                        .                     |                      .       |    |                       question_dataset_definitions
-    //             |                        .                     |                      .       |    |                      (CL,pk->id,fk->category)
-    //             |                 question_states              |                          question                                   |
-    //             ----------(UL,pk->id,fk->attempt,question)--------------------------(CL,pk->id,fk->category,files)                   |
-    //                                      |                                                    |                             question_dataset_items
-    //                                      |                                                    |                          (CL,pk->id,fk->definition)
-    //                              ---------                                                    |
-    //                              |                                                            |
-    //                        question_rqp_states                                                    |
-    //                    (UL,pk->id,fk->stateid)                                                |                                   question_rqp_type
-    //                                                                                           |                                    (SL,pk->id)
-    //                                                                                           |                                         |
-    //             --------------------------------------------------------------------------------------------------------------          |
-    //             |             |              |              |                       |                  |                     |        question_rqp
-    //             |             |              |              |                       |                  |                     |--(CL,pk->id,fk->question)
-    //             |             |              |              |                 question_calculated          |                     |
-    //      question_truefalse       |       question_multichoice      |             (CL,pl->id,fk->question)     |                     |
-    // (CL,pk->id,fk->question)  |   (CL,pk->id,fk->question)  |                       .                  |                     |    question_randomsamatch
-    //             .             |              .              |                       .                  |                     |--(CL,pk->id,fk->question)
-    //             .      question_shortanswer      .       question_numerical                 .            question_multianswer.           |
-    //             .  (CL,pk->id,fk->question)  .  (CL,pk->id,fk->question)            .        (CL,pk->id,fk->question)        |
-    //             .             .              .              .                       .                  .                     |         question_match
-    //             .             .              .              .                       .                  .                     |--(CL,pk->id,fk->question)
-    //             .             .              .              .                       .                  .                     |             .
-    //             .             .              .              .                       .                  .                     |             .
-    //             .             .              .              .                       .                  .                     |             .
-    //             .             .              .              .                       .                  .                     |       question_match_sub
-    //             ........................................................................................                     |--(CL,pk->id,fk->question)
-    //                                                   .                                                                      |
-    //                                                   .                                                                      |
-    //                                                   .                                                                      |    question_numerical_units
-    //                                                question_answers                                                              |--(CL,pk->id,fk->question)
-    //                                         (CL,pk->id,fk->question)----------------------------------------------------------
+    //                           quiz
+    //                        (CL,pk->id)
+    //                            |
+    //           -------------------------------------------------------------------
+    //           |                    |                        |                    |
+    //           |               quiz_grades                   |        quiz_question_versions
+    //           |           (UL,pk->id,fk->quiz)              |         (CL,pk->id,fk->quiz)
+    //           |                                             |
+    //      quiz_attempts                          quiz_question_instances
+    //  (UL,pk->id,fk->quiz)                    (CL,pk->id,fk->quiz,question)
     //
     // Meaning: pk->primary key field of the table
     //          fk->foreign key to link with parent
@@ -71,1240 +32,11 @@
     //
     //-----------------------------------------------------------
 
-// Comments
-    //This module is special, because we make the restore in two steps:
-    // 1.-We restore every category and their questions (complete structure). It includes this tables:
-    //     - question_categories
-    //     - question
-    //     - question_truefalse
-    //     - question_shortanswer
-    //     - question_multianswer
-    //     - question_multichoice
-    //     - question_numerical
-    //     - question_randomsamatch
-    //     - question_match
-    //     - question_match_sub
-    //     - question_calculated
-    //     - question_answers
-    //     - question_numerical_units
-    //     - question_datasets
-    //     - question_dataset_definitions
-    //     - question_dataset_items
-    //    All this backup info has its own section in moodle.xml (QUESTION_CATEGORIES) and it's generated
-    //    before every module backup standard invocation. And only if to restore quizzes has been selected !!
-    //    It's invoked with restore_question_categories. (course independent).
-
-    // 2.-Standard module restore (Invoked via quiz_restore_mods). It includes thes tables:
-    //     - quiz
-    //     - quiz_question_versions
-    //     - quiz_question_instances
-    //     - quiz_attempts
-    //     - quiz_grades
-    //     - question_states
-    //    This step is the standard mod backup. (course dependent).
-
-//STEP 1. Restore categories/questions and associated structures (course independent)
-    function restore_question_categories($category,$restore) {
+    // When we restore a quiz we also need to restore the questions and possibly
+    // the data about student interaction with the questions. The functions to do
+    // that are included with the following library
+    include_once("$CFG->dirroot/question/restorelib.php");
 
-        global $CFG;
-
-        $status = true;
-
-        //Hook to call Moodle < 1.5 Quiz Restore
-        if ($restore->backup_version < 2005043000) {
-            include_once("restorelibpre15.php");
-            return quiz_restore_pre15_question_categories($category,$restore);
-        }
-
-        //Get record from backup_ids
-        $data = backup_getid($restore->backup_unique_code,"question_categories",$category->id);
-
-        if ($data) {
-            //Now get completed xmlized object
-            $info = $data->info;
-            //traverse_xmlize($info);                                                                     //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the question_categories record structure
-            $question_cat->course = $restore->course_id;
-            $question_cat->name = backup_todb($info['QUESTION_CATEGORY']['#']['NAME']['0']['#']);
-            $question_cat->info = backup_todb($info['QUESTION_CATEGORY']['#']['INFO']['0']['#']);
-            $question_cat->publish = backup_todb($info['QUESTION_CATEGORY']['#']['PUBLISH']['0']['#']);
-            $question_cat->stamp = backup_todb($info['QUESTION_CATEGORY']['#']['STAMP']['0']['#']);
-            $question_cat->parent = backup_todb($info['QUESTION_CATEGORY']['#']['PARENT']['0']['#']);
-            $question_cat->sortorder = backup_todb($info['QUESTION_CATEGORY']['#']['SORTORDER']['0']['#']);
-
-            if ($catfound = restore_get_best_question_category($question_cat, $restore->course)) {
-                $newid = $catfound;
-            } else {
-                if (!$question_cat->stamp) {
-                    $question_cat->stamp = make_unique_id_code();
-                }
-                $newid = insert_record ("question_categories",$question_cat);
-            }
-
-            //Do some output
-            if ($newid) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo "<li>".get_string('category', 'quiz')." \"".$question_cat->name."\"<br />";
-                }
-            } else {
-                //We must never arrive here !!
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo "<li>".get_string('category', 'quiz')." \"".$question_cat->name."\" Error!<br />";
-                }
-                $status = false;
-            }
-            backup_flush(300);
-
-            //Here category has been created or selected, so save results in backup_ids and start with questions
-            if ($newid and $status) {
-                //We have the newid, update backup_ids
-                backup_putid($restore->backup_unique_code,"question_categories",
-                             $category->id, $newid);
-                //Now restore question
-                $status = restore_questions ($category->id, $newid,$info,$restore);
-            } else {
-                $status = false;
-            }
-            if (!defined('RESTORE_SILENTLY')) {
-                echo '</li>';
-            }
-        }
-
-        return $status;
-    }
-
-    function restore_questions ($old_category_id,$new_category_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-        $restored_questions = array();
-
-        //Get the questions array
-        $questions = $info['QUESTION_CATEGORY']['#']['QUESTIONS']['0']['#']['QUESTION'];
-
-        //Iterate over questions
-        for($i = 0; $i < sizeof($questions); $i++) {
-            $que_info = $questions[$i];
-            //traverse_xmlize($que_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //We'll need this later!!
-            $oldid = backup_todb($que_info['#']['ID']['0']['#']);
-
-            //Now, build the question record structure
-            $question->category = $new_category_id;
-            $question->parent = backup_todb($que_info['#']['PARENT']['0']['#']);
-            $question->name = backup_todb($que_info['#']['NAME']['0']['#']);
-            $question->questiontext = backup_todb($que_info['#']['QUESTIONTEXT']['0']['#']);
-            $question->questiontextformat = backup_todb($que_info['#']['QUESTIONTEXTFORMAT']['0']['#']);
-            $question->image = backup_todb($que_info['#']['IMAGE']['0']['#']);
-            $question->defaultgrade = backup_todb($que_info['#']['DEFAULTGRADE']['0']['#']);
-            $question->penalty = backup_todb($que_info['#']['PENALTY']['0']['#']);
-            $question->qtype = backup_todb($que_info['#']['QTYPE']['0']['#']);
-            $question->length = backup_todb($que_info['#']['LENGTH']['0']['#']);
-            $question->stamp = backup_todb($que_info['#']['STAMP']['0']['#']);
-            $question->version = backup_todb($que_info['#']['VERSION']['0']['#']);
-            $question->hidden = backup_todb($que_info['#']['HIDDEN']['0']['#']);
-
-            ////We have to recode the parent field
-            // This should work alright because we ordered the questions appropriately during backup so that
-            // questions that can be parents are restored first
-            if ($question->parent and $parent = backup_getid($restore->backup_unique_code,"question",$question->parent)) {
-                $question->parent = $parent->new_id;
-            }
-
-            //Check if the question exists
-            //by category and stamp
-            $question_exists = get_record ("question","category",$question->category,
-                                                 "stamp",$question->stamp,"version",$question->version);
-
-            //If the question exists, only record its id
-            if ($question_exists) {
-                $newid = $question_exists->id;
-                $creatingnewquestion = false;
-            //Else, create a new question
-            } else {
-                //The structure is equal to the db, so insert the question
-                $newid = insert_record ("question",$question);
-                $creatingnewquestion = true;
-            }
-
-            //Save newid to backup tables
-            if ($newid) {
-                //We have the newid, update backup_ids
-                backup_putid($restore->backup_unique_code,"question",$oldid,
-                             $newid);
-            }
-
-            $restored_questions[$i] = new stdClass;
-            $restored_questions[$i]->newid  = $newid;
-            $restored_questions[$i]->oldid  = $oldid;
-            $restored_questions[$i]->qtype  = $question->qtype;
-            $restored_questions[$i]->is_new = $creatingnewquestion;
-        }
-
-        // Loop again, now all the question id mappings exist, so everything can
-        // be restored.
-        for($i = 0; $i < sizeof($questions); $i++) {
-            $que_info = $questions[$i];
-
-            $newid = $restored_questions[$i]->newid;
-            $oldid = $restored_questions[$i]->oldid;
-            $question->qtype = $restored_questions[$i]->qtype;
-
-
-            //If it's a new question in the DB, restore it
-            if ($restored_questions[$i]->is_new) {
-                //Now, restore every question_answers in this question
-                $status = question_restore_answers($oldid,$newid,$que_info,$restore);
-                //Now, depending of the type of questions, invoke different functions
-                if ($question->qtype == "1") {
-                    $status = question_restore_shortanswer($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "2") {
-                    $status = question_restore_truefalse($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "3") {
-                    $status = question_restore_multichoice($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "4") {
-                    //Random question. Nothing to do.
-                } else if ($question->qtype == "5") {
-                    $status = question_restore_match($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "6") {
-                    $status = question_restore_randomsamatch($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "7") {
-                    //Description question. Nothing to do.
-                } else if ($question->qtype == "8") {
-                    $status = question_restore_numerical($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "9") {
-                    $status = question_restore_multianswer($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "10") {
-                    $status = question_restore_calculated($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "11") {
-                    $status = question_restore_rqp($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "12") {
-                    $status = question_restore_essay($oldid,$newid,$que_info,$restore);
-                }
-            } else {
-                //We are NOT creating the question, but we need to know every question_answers
-                //map between the XML file and the database to be able to restore the states
-                //in each attempt.
-                $status = question_restore_map_answers($oldid,$newid,$que_info,$restore);
-                //Now, depending of the type of questions, invoke different functions
-                //to create the necessary mappings in backup_ids, because we are not
-                //creating the question, but need some records in backup table
-                if ($question->qtype == "1") {
-                    //Shortanswer question. Nothing to remap
-                } else if ($question->qtype == "2") {
-                    //Truefalse question. Nothing to remap
-                } else if ($question->qtype == "3") {
-                    //Multichoice question. Nothing to remap
-                } else if ($question->qtype == "4") {
-                    //Random question. Nothing to remap
-                } else if ($question->qtype == "5") {
-                    $status = question_restore_map_match($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "6") {
-                    //Randomsamatch question. Nothing to remap
-                } else if ($question->qtype == "7") {
-                    //Description question. Nothing to remap
-                } else if ($question->qtype == "8") {
-                    //Numerical question. Nothing to remap
-                } else if ($question->qtype == "9") {
-                    $status = question_restore_map_multianswer($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "10") {
-                    //Calculated question. Nothing to remap
-                }
-            }
-
-            //Do some output
-            if (($i+1) % 2 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 40 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-        }
-        return $status;
-    }
-
-    function question_restore_answers ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the answers array
-        if (isset($info['#']['ANSWERS']['0']['#']['ANSWER'])) {
-            $answers = $info['#']['ANSWERS']['0']['#']['ANSWER'];
-
-            //Iterate over answers
-            for($i = 0; $i < sizeof($answers); $i++) {
-                $ans_info = $answers[$i];
-                //traverse_xmlize($ans_info);                                                                 //Debug
-                //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-                //$GLOBALS['traverse_array']="";                                                              //Debug
-
-                //We'll need this later!!
-                $oldid = backup_todb($ans_info['#']['ID']['0']['#']);
-
-                //Now, build the question_answers record structure
-                $answer->question = $new_question_id;
-                $answer->answer = backup_todb($ans_info['#']['ANSWER_TEXT']['0']['#']);
-                $answer->fraction = backup_todb($ans_info['#']['FRACTION']['0']['#']);
-                $answer->feedback = backup_todb($ans_info['#']['FEEDBACK']['0']['#']);
-
-                //The structure is equal to the db, so insert the question_answers
-                $newid = insert_record ("question_answers",$answer);
-
-                //Do some output
-                if (($i+1) % 50 == 0) {
-                    if (!defined('RESTORE_SILENTLY')) {
-                        echo ".";
-                        if (($i+1) % 1000 == 0) {
-                            echo "<br />";
-                        }
-                    }
-                    backup_flush(300);
-                }
-
-                if ($newid) {
-                    //We have the newid, update backup_ids
-                    backup_putid($restore->backup_unique_code,"question_answers",$oldid,
-                                 $newid);
-                } else {
-                    $status = false;
-                }
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_map_answers ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        if (!isset($info['#']['ANSWERS'])) {    // No answers in this question (eg random)
-            return $status;
-        }
-
-        //Get the answers array
-        $answers = $info['#']['ANSWERS']['0']['#']['ANSWER'];
-
-        //Iterate over answers
-        for($i = 0; $i < sizeof($answers); $i++) {
-            $ans_info = $answers[$i];
-            //traverse_xmlize($ans_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //We'll need this later!!
-            $oldid = backup_todb($ans_info['#']['ID']['0']['#']);
-
-            //Now, build the question_answers record structure
-            $answer->question = $new_question_id;
-            $answer->answer = backup_todb($ans_info['#']['ANSWER_TEXT']['0']['#']);
-            $answer->fraction = backup_todb($ans_info['#']['FRACTION']['0']['#']);
-            $answer->feedback = backup_todb($ans_info['#']['FEEDBACK']['0']['#']);
-
-            //If we are in this method is because the question exists in DB, so its
-            //answers must exist too.
-            //Now, we are going to look for that answer in DB and to create the
-            //mappings in backup_ids to use them later where restoring states (user level).
-
-            //Get the answer from DB (by question and answer)
-            $db_answer = get_record ("question_answers","question",$new_question_id,
-                                                    "answer",$answer->answer);
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            if ($db_answer) {
-                //We have the database answer, update backup_ids
-                backup_putid($restore->backup_unique_code,"question_answers",$oldid,
-                             $db_answer->id);
-            } else {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_shortanswer ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the shortanswers array
-        $shortanswers = $info['#']['SHORTANSWER'];
-
-        //Iterate over shortanswers
-        for($i = 0; $i < sizeof($shortanswers); $i++) {
-            $sho_info = $shortanswers[$i];
-            //traverse_xmlize($sho_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_SHORTANSWER record structure
-            $shortanswer->question = $new_question_id;
-            $shortanswer->answers = backup_todb($sho_info['#']['ANSWERS']['0']['#']);
-            $shortanswer->usecase = backup_todb($sho_info['#']['USECASE']['0']['#']);
-
-            //We have to recode the answers field (a list of answers id)
-            //Extracts answer id from sequence
-            $answers_field = "";
-            $in_first = true;
-            $tok = strtok($shortanswer->answers,",");
-            while ($tok) {
-                //Get the answer from backup_ids
-                $answer = backup_getid($restore->backup_unique_code,"question_answers",$tok);
-                if ($answer) {
-                    if ($in_first) {
-                        $answers_field .= $answer->new_id;
-                        $in_first = false;
-                    } else {
-                        $answers_field .= ",".$answer->new_id;
-                    }
-                }
-                //check for next
-                $tok = strtok(",");
-            }
-            //We have the answers field recoded to its new ids
-            $shortanswer->answers = $answers_field;
-
-            //The structure is equal to the db, so insert the question_shortanswer
-            $newid = insert_record ("question_shortanswer",$shortanswer);
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_truefalse ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the truefalse array
-        $truefalses = $info['#']['TRUEFALSE'];
-
-        //Iterate over truefalse
-        for($i = 0; $i < sizeof($truefalses); $i++) {
-            $tru_info = $truefalses[$i];
-            //traverse_xmlize($tru_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_TRUEFALSE record structure
-            $truefalse->question = $new_question_id;
-            $truefalse->trueanswer = backup_todb($tru_info['#']['TRUEANSWER']['0']['#']);
-            $truefalse->falseanswer = backup_todb($tru_info['#']['FALSEANSWER']['0']['#']);
-
-            ////We have to recode the trueanswer field
-            $answer = backup_getid($restore->backup_unique_code,"question_answers",$truefalse->trueanswer);
-            if ($answer) {
-                $truefalse->trueanswer = $answer->new_id;
-            }
-
-            ////We have to recode the falseanswer field
-            $answer = backup_getid($restore->backup_unique_code,"question_answers",$truefalse->falseanswer);
-            if ($answer) {
-                $truefalse->falseanswer = $answer->new_id;
-            }
-
-            //The structure is equal to the db, so insert the question_truefalse
-            $newid = insert_record ("question_truefalse",$truefalse);
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_multichoice ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the multichoices array
-        $multichoices = $info['#']['MULTICHOICE'];
-
-        //Iterate over multichoices
-        for($i = 0; $i < sizeof($multichoices); $i++) {
-            $mul_info = $multichoices[$i];
-            //traverse_xmlize($mul_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_MULTICHOICE record structure
-            $multichoice->question = $new_question_id;
-            $multichoice->layout = backup_todb($mul_info['#']['LAYOUT']['0']['#']);
-            $multichoice->answers = backup_todb($mul_info['#']['ANSWERS']['0']['#']);
-            $multichoice->single = backup_todb($mul_info['#']['SINGLE']['0']['#']);
-            $multichoice->shuffleanswers = backup_todb($mul_info['#']['SHUFFLEANSWERS']['0']['#']);
-
-            //We have to recode the answers field (a list of answers id)
-            //Extracts answer id from sequence
-            $answers_field = "";
-            $in_first = true;
-            $tok = strtok($multichoice->answers,",");
-            while ($tok) {
-                //Get the answer from backup_ids
-                $answer = backup_getid($restore->backup_unique_code,"question_answers",$tok);
-                if ($answer) {
-                    if ($in_first) {
-                        $answers_field .= $answer->new_id;
-                        $in_first = false;
-                    } else {
-                        $answers_field .= ",".$answer->new_id;
-                    }
-                }
-                //check for next
-                $tok = strtok(",");
-            }
-            //We have the answers field recoded to its new ids
-            $multichoice->answers = $answers_field;
-
-            //The structure is equal to the db, so insert the question_shortanswer
-            $newid = insert_record ("question_multichoice",$multichoice);
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_match ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the matchs array
-        $matchs = $info['#']['MATCHS']['0']['#']['MATCH'];
-
-        //We have to build the subquestions field (a list of match_sub id)
-        $subquestions_field = "";
-        $in_first = true;
-
-        //Iterate over matchs
-        for($i = 0; $i < sizeof($matchs); $i++) {
-            $mat_info = $matchs[$i];
-            //traverse_xmlize($mat_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //We'll need this later!!
-            $oldid = backup_todb($mat_info['#']['ID']['0']['#']);
-
-            //Now, build the QUESTION_MATCH_SUB record structure
-            $match_sub->question = $new_question_id;
-            $match_sub->questiontext = backup_todb($mat_info['#']['QUESTIONTEXT']['0']['#']);
-            $match_sub->answertext = backup_todb($mat_info['#']['ANSWERTEXT']['0']['#']);
-
-            //The structure is equal to the db, so insert the question_match_sub
-            $newid = insert_record ("question_match_sub",$match_sub);
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            if ($newid) {
-                //We have the newid, update backup_ids
-                backup_putid($restore->backup_unique_code,"question_match_sub",$oldid,
-                             $newid);
-                //We have a new match_sub, append it to subquestions_field
-                if ($in_first) {
-                    $subquestions_field .= $newid;
-                    $in_first = false;
-                } else {
-                    $subquestions_field .= ",".$newid;
-                }
-            } else {
-                $status = false;
-            }
-        }
-
-        //We have created every match_sub, now create the match
-        $match->question = $new_question_id;
-        $match->subquestions = $subquestions_field;
-
-        //The structure is equal to the db, so insert the question_match_sub
-        $newid = insert_record ("question_match",$match);
-
-        if (!$newid) {
-            $status = false;
-        }
-
-        return $status;
-    }
-
-    function question_restore_map_match ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the matchs array
-        $matchs = $info['#']['MATCHS']['0']['#']['MATCH'];
-
-        //We have to build the subquestions field (a list of match_sub id)
-        $subquestions_field = "";
-        $in_first = true;
-
-        //Iterate over matchs
-        for($i = 0; $i < sizeof($matchs); $i++) {
-            $mat_info = $matchs[$i];
-            //traverse_xmlize($mat_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //We'll need this later!!
-            $oldid = backup_todb($mat_info['#']['ID']['0']['#']);
-
-            //Now, build the QUESTION_MATCH_SUB record structure
-            $match_sub->question = $new_question_id;
-            $match_sub->questiontext = backup_todb($mat_info['#']['QUESTIONTEXT']['0']['#']);
-            $match_sub->answertext = backup_todb($mat_info['#']['ANSWERTEXT']['0']['#']);
-
-            //If we are in this method is because the question exists in DB, so its
-            //match_sub must exist too.
-            //Now, we are going to look for that match_sub in DB and to create the
-            //mappings in backup_ids to use them later where restoring states (user level).
-
-            //Get the match_sub from DB (by question, questiontext and answertext)
-            $db_match_sub = get_record ("question_match_sub","question",$new_question_id,
-                                                      "questiontext",$match_sub->questiontext,
-                                                      "answertext",$match_sub->answertext);
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            //We have the database match_sub, so update backup_ids
-            if ($db_match_sub) {
-                //We have the newid, update backup_ids
-                backup_putid($restore->backup_unique_code,"question_match_sub",$oldid,
-                             $db_match_sub->id);
-            } else {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_map_multianswer ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the multianswers array
-        $multianswers = $info['#']['MULTIANSWERS']['0']['#']['MULTIANSWER'];
-        //Iterate over multianswers
-        for($i = 0; $i < sizeof($multianswers); $i++) {
-            $mul_info = $multianswers[$i];
-            //traverse_xmlize($mul_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //We need this later
-            $oldid = backup_todb($mul_info['#']['ID']['0']['#']);
-
-            //Now, build the QUESTION_MULTIANSWER record structure
-            $multianswer->question = $new_question_id;
-            $multianswer->answers = backup_todb($mul_info['#']['ANSWERS']['0']['#']);
-            $multianswer->positionkey = backup_todb($mul_info['#']['POSITIONKEY']['0']['#']);
-            $multianswer->answertype = backup_todb($mul_info['#']['ANSWERTYPE']['0']['#']);
-            $multianswer->norm = backup_todb($mul_info['#']['NORM']['0']['#']);
-
-            //If we are in this method is because the question exists in DB, so its
-            //multianswer must exist too.
-            //Now, we are going to look for that multianswer in DB and to create the
-            //mappings in backup_ids to use them later where restoring states (user level).
-
-            //Get the multianswer from DB (by question and positionkey)
-            $db_multianswer = get_record ("question_multianswer","question",$new_question_id,
-                                                      "positionkey",$multianswer->positionkey);
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            //We have the database multianswer, so update backup_ids
-            if ($db_multianswer) {
-                //We have the newid, update backup_ids
-                backup_putid($restore->backup_unique_code,"question_multianswer",$oldid,
-                             $db_multianswer->id);
-            } else {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_randomsamatch ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the randomsamatchs array
-        $randomsamatchs = $info['#']['RANDOMSAMATCH'];
-
-        //Iterate over randomsamatchs
-        for($i = 0; $i < sizeof($randomsamatchs); $i++) {
-            $ran_info = $randomsamatchs[$i];
-            //traverse_xmlize($ran_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_RANDOMSAMATCH record structure
-            $randomsamatch->question = $new_question_id;
-            $randomsamatch->choose = backup_todb($ran_info['#']['CHOOSE']['0']['#']);
-            $randomsamatch->shuffleanswers = backup_todb($ran_info['#']['SHUFFLEANSWERS']['0']['#']);
-
-            //The structure is equal to the db, so insert the question_randomsamatch
-            $newid = insert_record ("question_randomsamatch",$randomsamatch);
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_numerical ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the numerical array
-        $numericals = $info['#']['NUMERICAL'];
-
-        //Iterate over numericals
-        for($i = 0; $i < sizeof($numericals); $i++) {
-            $num_info = $numericals[$i];
-            //traverse_xmlize($num_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_NUMERICAL record structure
-            $numerical->question = $new_question_id;
-            $numerical->answer = backup_todb($num_info['#']['ANSWER']['0']['#']);
-            $numerical->tolerance = backup_todb($num_info['#']['TOLERANCE']['0']['#']);
-
-            ////We have to recode the answer field
-            $answer = backup_getid($restore->backup_unique_code,"question_answers",$numerical->answer);
-            if ($answer) {
-                $numerical->answer = $answer->new_id;
-            }
-
-            //The structure is equal to the db, so insert the question_numerical
-            $newid = insert_record ("question_numerical",$numerical);
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            //Now restore numerical_units
-            $status = question_restore_numerical_units ($old_question_id,$new_question_id,$num_info,$restore);
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_calculated ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the calculated-s array
-        $calculateds = $info['#']['CALCULATED'];
-
-        //Iterate over calculateds
-        for($i = 0; $i < sizeof($calculateds); $i++) {
-            $cal_info = $calculateds[$i];
-            //traverse_xmlize($cal_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_CALCULATED record structure
-            $calculated->question = $new_question_id;
-            $calculated->answer = backup_todb($cal_info['#']['ANSWER']['0']['#']);
-            $calculated->tolerance = backup_todb($cal_info['#']['TOLERANCE']['0']['#']);
-            $calculated->tolerancetype = backup_todb($cal_info['#']['TOLERANCETYPE']['0']['#']);
-            $calculated->correctanswerlength = backup_todb($cal_info['#']['CORRECTANSWERLENGTH']['0']['#']);
-            $calculated->correctanswerformat = backup_todb($cal_info['#']['CORRECTANSWERFORMAT']['0']['#']);
-
-            ////We have to recode the answer field
-            $answer = backup_getid($restore->backup_unique_code,"question_answers",$calculated->answer);
-            if ($answer) {
-                $calculated->answer = $answer->new_id;
-            }
-
-            //The structure is equal to the db, so insert the question_calculated
-            $newid = insert_record ("question_calculated",$calculated);
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            //Now restore numerical_units
-            $status = question_restore_numerical_units ($old_question_id,$new_question_id,$cal_info,$restore);
-
-            //Now restore dataset_definitions
-            if ($status && $newid) {
-                $status = question_restore_dataset_definitions ($old_question_id,$new_question_id,$cal_info,$restore);
-            }
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_multianswer ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the multianswers array
-        $multianswers = $info['#']['MULTIANSWERS']['0']['#']['MULTIANSWER'];
-        //Iterate over multianswers
-        for($i = 0; $i < sizeof($multianswers); $i++) {
-            $mul_info = $multianswers[$i];
-            //traverse_xmlize($mul_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //We need this later
-            $oldid = backup_todb($mul_info['#']['ID']['0']['#']);
-
-            //Now, build the QUESTION_MULTIANSWER record structure
-            $multianswer->question = $new_question_id;
-            $multianswer->sequence = backup_todb($mul_info['#']['SEQUENCE']['0']['#']);
-
-            //We have to recode the sequence field (a list of question ids)
-            //Extracts question id from sequence
-            $sequence_field = "";
-            $in_first = true;
-            $tok = strtok($multianswer->sequence,",");
-            while ($tok) {
-                //Get the answer from backup_ids
-                $question = backup_getid($restore->backup_unique_code,"question",$tok);
-                if ($question) {
-                    if ($in_first) {
-                        $sequence_field .= $question->new_id;
-                        $in_first = false;
-                    } else {
-                        $sequence_field .= ",".$question->new_id;
-                    }
-                }
-                //check for next
-                $tok = strtok(",");
-            }
-            //We have the answers field recoded to its new ids
-            $multianswer->sequence = $sequence_field;
-            //The structure is equal to the db, so insert the question_multianswer
-            $newid = insert_record ("question_multianswer",$multianswer);
-
-            //Save ids in backup_ids
-            if ($newid) {
-                backup_putid($restore->backup_unique_code,"question_multianswer",
-                             $oldid, $newid);
-            }
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-/*
-            //If we have created the question_multianswer record, now, depending of the
-            //answertype, delegate the restore to every qtype function
-            if ($newid) {
-                if ($multianswer->answertype == "1") {
-                    $status = question_restore_shortanswer ($old_question_id,$new_question_id,$mul_info,$restore);
-                } else if ($multianswer->answertype == "3") {
-                    $status = question_restore_multichoice ($old_question_id,$new_question_id,$mul_info,$restore);
-                } else if ($multianswer->answertype == "8") {
-                    $status = question_restore_numerical ($old_question_id,$new_question_id,$mul_info,$restore);
-                }
-            } else {
-                $status = false;
-            }
-*/
-        }
-
-        return $status;
-    }
-
-    function question_restore_rqp ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the truefalse array
-        $rqps = $info['#']['RQP'];
-
-        //Iterate over rqp
-        for($i = 0; $i < sizeof($rqps); $i++) {
-            $tru_info = $rqps[$i];
-            //traverse_xmlize($tru_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_RQP record structure
-            $rqp->question = $new_question_id;
-            $rqp->type = backup_todb($tru_info['#']['TYPE']['0']['#']);
-            $rqp->source = backup_todb($tru_info['#']['SOURCE']['0']['#']);
-            $rqp->format = backup_todb($tru_info['#']['FORMAT']['0']['#']);
-            $rqp->flags = backup_todb($tru_info['#']['FLAGS']['0']['#']);
-            $rqp->maxscore = backup_todb($tru_info['#']['MAXSCORE']['0']['#']);
-
-            //The structure is equal to the db, so insert the question_rqp
-            $newid = insert_record ("question_rqp",$rqp);
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-    
-    function question_restore_essay ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the truefalse array
-        $essays = $info['#']['ESSAY'];
-
-        //Iterate over truefalse
-        for($i = 0; $i < sizeof($essays); $i++) {
-            $essay_info = $essays[$i];
-            //traverse_xmlize($tru_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_TRUEFALSE record structure
-            $essay->question = $new_question_id;
-            $essay->answer = backup_todb($essay_info['#']['ANSWER']['0']['#']);
-
-            ////We have to recode the answer field
-            $answer = backup_getid($restore->backup_unique_code,"question_answers",$essay->answer);
-            if ($answer) {
-                $essay->answer = $answer->new_id;
-            }
-
-            //The structure is equal to the db, so insert the question_truefalse
-            $newid = insert_record ("question_essay",$essay);
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                echo ".";
-                if (($i+1) % 1000 == 0) {
-                    echo "<br />";
-                }
-                backup_flush(300);
-            }
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_numerical_units ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the numerical array
-        $numerical_units = $info['#']['NUMERICAL_UNITS']['0']['#']['NUMERICAL_UNIT'];
-
-        //Iterate over numerical_units
-        for($i = 0; $i < sizeof($numerical_units); $i++) {
-            $nu_info = $numerical_units[$i];
-            //traverse_xmlize($nu_info);                                                                  //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_NUMERICAL_UNITS record structure
-            $numerical_unit->question = $new_question_id;
-            $numerical_unit->multiplier = backup_todb($nu_info['#']['MULTIPLIER']['0']['#']);
-            $numerical_unit->unit = backup_todb($nu_info['#']['UNIT']['0']['#']);
-
-            //The structure is equal to the db, so insert the question_numerical_units
-            $newid = insert_record ("question_numerical_units",$numerical_unit);
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_dataset_definitions ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the dataset_definitions array
-        $dataset_definitions = $info['#']['DATASET_DEFINITIONS']['0']['#']['DATASET_DEFINITION'];
-
-        //Iterate over dataset_definitions
-        for($i = 0; $i < sizeof($dataset_definitions); $i++) {
-            $dd_info = $dataset_definitions[$i];
-            //traverse_xmlize($dd_info);                                                                  //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_DATASET_DEFINITION record structure
-            $dataset_definition->category = backup_todb($dd_info['#']['CATEGORY']['0']['#']);
-            $dataset_definition->name = backup_todb($dd_info['#']['NAME']['0']['#']);
-            $dataset_definition->type = backup_todb($dd_info['#']['TYPE']['0']['#']);
-            $dataset_definition->options = backup_todb($dd_info['#']['OPTIONS']['0']['#']);
-            $dataset_definition->itemcount = backup_todb($dd_info['#']['ITEMCOUNT']['0']['#']);
-
-            //We have to recode the category field (only if the category != 0)
-            if ($dataset_definition->category != 0) {
-                $category = backup_getid($restore->backup_unique_code,"question_categories",$dataset_definition->category);
-                if ($category) {
-                    $dataset_definition->category = $category->new_id;
-                }
-            }
-
-            //Now, we hace to decide when to create the new records or reuse an existing one
-            $create_definition = false;
-
-            //If the dataset_definition->category = 0, it's a individual question dataset_definition, so we'll create it
-            if ($dataset_definition->category == 0) {
-                $create_definition = true;
-            } else {
-                //The category isn't 0, so it's a category question dataset_definition, we have to see if it exists
-                //Look for a definition with the same category, name and type
-                if ($definitionrec = get_record_sql("SELECT d.*
-                                                     FROM {$CFG->prefix}question_dataset_definitions d
-                                                     WHERE d.category = '$dataset_definition->category' AND
-                                                           d.name = '$dataset_definition->name' AND
-                                                           d.type = '$dataset_definition->type'")) {
-                    //Such dataset_definition exist. Now we must check if it has enough itemcount
-                    if ($definitionrec->itemcount < $dataset_definition->itemcount) {
-                        //We haven't enough itemcount, so we have to create the definition as an individual question one.
-                        $dataset_definition->category = 0;
-                        $create_definition = true;
-                    } else {
-                        //We have enough itemcount, so we'll reuse the existing definition
-                        $create_definition = false;
-                        $newid = $definitionrec->id;
-                    }
-                } else {
-                    //Such dataset_definition doesn't exist. We'll create it.
-                    $create_definition = true;
-                }
-            }
-
-            //If we've to create the definition, do it
-            if ($create_definition) {
-                //The structure is equal to the db, so insert the question_dataset_definitions
-                $newid = insert_record ("question_dataset_definitions",$dataset_definition);
-                if ($newid) {
-                    //Restore question_dataset_items
-                    $status = question_restore_dataset_items($newid,$dd_info,$restore);
-                }
-            }
-
-            //Now, we must have a definition (created o reused). Its id is in newid. Create the question_datasets record
-            //to join the question and the dataset_definition
-            if ($newid) {
-                $question_dataset->question = $new_question_id;
-                $question_dataset->datasetdefinition = $newid;
-                $newid = insert_record ("question_datasets",$question_dataset);
-            }
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_dataset_items ($definitionid,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the items array
-        $dataset_items = $info['#']['DATASET_ITEMS']['0']['#']['DATASET_ITEM'];
-
-        //Iterate over dataset_items
-        for($i = 0; $i < sizeof($dataset_items); $i++) {
-            $di_info = $dataset_items[$i];
-            //traverse_xmlize($di_info);                                                                  //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_DATASET_ITEMS record structure
-            $dataset_item->definition = $definitionid;
-            $dataset_item->number = backup_todb($di_info['#']['NUMBER']['0']['#']);
-            $dataset_item->value = backup_todb($di_info['#']['VALUE']['0']['#']);
-
-            //The structure is equal to the db, so insert the question_dataset_items
-            $newid = insert_record ("question_dataset_items",$dataset_item);
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-//STEP 2. Restore quizzes and associated structures (course dependent)
     function quiz_restore_mods($mod,$restore) {
 
         global $CFG;
@@ -1533,12 +265,7 @@
     //This function restores the quiz_attempts
     function quiz_attempts_restore_mods($quiz_id,$info,$restore) {
 
-        notify("Restoring quiz without user attempts. Restoring of user attempts will be implemented in Moodle 1.5.1");
-        return true;
-
         global $CFG;
-        
-        include($CFG->dirroot.'/question/lib.php');
 
         $status = true;
 
@@ -1607,334 +334,6 @@
         return $status;
     }
 
-    //This function restores the question_states
-    function question_states_restore_mods($attempt_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the question_states array
-        $states = $info['#']['STATES']['0']['#']['STATE'];
-        //Iterate over states
-        for($i = 0; $i < sizeof($states); $i++) {
-            $res_info = $states[$i];
-            //traverse_xmlize($res_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //We'll need this later!!
-            $oldid = backup_todb($res_info['#']['ID']['0']['#']);
-
-            //Now, build the STATES record structure
-            $state->attempt = $attempt_id;
-            $state->question = backup_todb($res_info['#']['QUESTION']['0']['#']);
-            $state->originalquestion = backup_todb($res_info['#']['ORIGINALQUESTION']['0']['#']);
-            $state->seq_number = backup_todb($res_info['#']['SEQ_NUMBER']['0']['#']);
-            $state->answer = backup_todb($res_info['#']['ANSWER']['0']['#']);
-            $state->timestamp = backup_todb($res_info['#']['TIMESTAMP']['0']['#']);
-            $state->event = backup_todb($res_info['#']['EVENT']['0']['#']);
-            $state->grade = backup_todb($res_info['#']['GRADE']['0']['#']);
-            $state->raw_grade = backup_todb($res_info['#']['RAW_GRADE']['0']['#']);
-            $state->penalty = backup_todb($res_info['#']['PENALTY']['0']['#']);
-
-            //We have to recode the question field
-            $question = backup_getid($restore->backup_unique_code,"question",$state->question);
-            if ($question) {
-                $state->question = $question->new_id;
-            }
-
-            //We have to recode the originalquestion field
-            $question = backup_getid($restore->backup_unique_code,"question",$state->originalquestion);
-            if ($question) {
-                $state->originalquestion = $question->new_id;
-            }
-
-            //We have to recode the answer field
-            //It depends of the question type !!
-            //We get the question first
-            $question = get_record("question","id",$state->question);
-            //It exists
-            if ($question) {
-                //Depending of the qtype, we make different recodes
-                switch ($question->qtype) {
-                    case 1:    //SHORTANSWER QTYPE
-                        //Nothing to do. The response is a text.
-                        break;
-                    case 2:    //TRUEFALSE QTYPE
-                        //The answer is one answer id. We must recode it
-                        $answer = backup_getid($restore->backup_unique_code,"question_answers",$state->answer);
-                        if ($answer) {
-                            $state->answer = $answer->new_id;
-                        }
-                        break;
-                    case 3:    //MULTICHOICE QTYPE
-                        //The answer is a comma separated list of answers. We must recode them
-                        $answer_field = "";
-                        $in_first = true;
-                        $tok = strtok($state->answer,",");
-                        while ($tok) {
-                            //Get the answer from backup_ids
-                            $answer = backup_getid($restore->backup_unique_code,"question_answers",$tok);
-                            if ($answer) {
-                                if ($in_first) {
-                                    $answer_field .= $answer->new_id;
-                                    $in_first = false;
-                                } else {
-                                    $answer_field .= ",".$answer->new_id;
-                                }
-                            }
-                            //check for next
-                            $tok = strtok(",");
-                        }
-                        $state->answer = $answer_field;
-                        break;
-                    case 4:    //RANDOM QTYPE
-                        //The answer links to another question id, we must recode it
-                        $answer_link = backup_getid($restore->backup_unique_code,"question",$state->answer);
-                        if ($answer_link) {
-                            $state->answer = $answer_link->new_id;
-                        }
-                        break;
-                    case 5:    //MATCH QTYPE
-                        //The answer is a comma separated list of hypen separated math_subs (for question and answer)
-                        $answer_field = "";
-                        $in_first = true;
-                        $tok = strtok($state->answer,",");
-                        while ($tok) {
-                            //Extract the match_sub for the question and the answer
-                            $exploded = explode("-",$tok);
-                            $match_question_id = $exploded[0];
-                            $match_answer_id = $exploded[1];
-                            //Get the match_sub from backup_ids (for the question)
-                            $match_que = backup_getid($restore->backup_unique_code,"question_match_sub",$match_question_id);
-                            //Get the match_sub from backup_ids (for the answer)
-                            $match_ans = backup_getid($restore->backup_unique_code,"question_match_sub",$match_answer_id);
-                            if ($match_que) {
-                                //It the question hasn't response, it must be 0
-                                if (!$match_ans and $match_answer_id == 0) {
-                                    $match_ans->new_id = 0;
-                                }
-                                if ($in_first) {
-                                    $answer_field .= $match_que->new_id."-".$match_ans->new_id;
-                                    $in_first = false;
-                                } else {
-                                    $answer_field .= ",".$match_que->new_id."-".$match_ans->new_id;
-                                }
-                            }
-                            //check for next
-                            $tok = strtok(",");
-                        }
-                        $state->answer = $answer_field;
-                        break;
-                    case 6:    //RANDOMSAMATCH QTYPE
-                        //The answer is a comma separated list of hypen separated question_id and answer_id. We must recode them
-                        $answer_field = "";
-                        $in_first = true;
-                        $tok = strtok($state->answer,",");
-                        while ($tok) {
-                            //Extract the question_id and the answer_id
-                            $exploded = explode("-",$tok);
-                            $question_id = $exploded[0];
-                            $answer_id = $exploded[1];
-                            //Get the question from backup_ids
-                            $que = backup_getid($restore->backup_unique_code,"question",$question_id);
-                            //Get the answer from backup_ids
-                            $ans = backup_getid($restore->backup_unique_code,"question_answers",$answer_id);
-                            if ($que) {
-                                //It the question hasn't response, it must be 0
-                                if (!$ans and $answer_id == 0) {
-                                    $ans->new_id = 0;
-                                }
-                                if ($in_first) {
-                                    $answer_field .= $que->new_id."-".$ans->new_id;
-                                    $in_first = false;
-                                } else {
-                                    $answer_field .= ",".$que->new_id."-".$ans->new_id;
-                                }
-                            }
-                            //check for next
-                            $tok = strtok(",");
-                        }
-                        $state->answer = $answer_field;
-                        break;
-                    case 7:    //DESCRIPTION QTYPE
-                        //Nothing to do (there is no awser to this qtype)
-                        //But this case must exist !!
-                        break;
-                    case 8:    //NUMERICAL QTYPE
-                        //Nothing to do. The response is a text.
-                        break;
-                    case 9:    //MULTIANSWER QTYPE
-                        //The answer is a comma separated list of hypen separated multianswer_id and answers. We must recode them.
-                        $answer_field = "";
-                        $in_first = true;
-                        $tok = strtok($state->answer,",");
-                        while ($tok) {
-                            //Extract the multianswer_id and the answer
-                            $exploded = explode("-",$tok);
-                            $multianswer_id = $exploded[0];
-                            $answer = $exploded[1];
-                            //Get the multianswer from backup_ids
-                            $mul = backup_getid($restore->backup_unique_code,"question_multianswer",$multianswer_id);
-                            if ($mul) {
-                                //Now, depending of the answertype field in question_multianswer
-                                //we do diferent things
-                                $mul_db = get_record ("question_multianswer","id",$mul->new_id);
-                                if ($mul_db->answertype == "1") {
-                                    //Shortanswer
-                                    //The answer is text, do nothing
-                                } else if ($mul_db->answertype == "3") {
-                                    //Multichoice
-                                    //The answer is an answer_id, look for it in backup_ids
-                                    $ans = backup_getid($restore->backup_unique_code,"question_answers",$answer);
-                                    $answer = $ans->new_id;
-                                } else if ($mul_db->answertype == "8") {
-                                    //Numeric
-                                    //The answer is text, do nothing
-                                }
-
-                                //Finaly, build the new answer field for each pair
-                                if ($in_first) {
-                                    $answer_field .= $mul->new_id."-".$answer;
-                                    $in_first = false;
-                                } else {
-                                    $answer_field .= ",".$mul->new_id."-".$answer;
-                                }
-                            }
-                            //check for next
-                            $tok = strtok(",");
-                        }
-                        $state->answer = $answer_field;
-                        break;
-                    case 10:    //CALCULATED QTYPE
-                        //Nothing to do. The response is a text.
-                        break;
-                    default:   //UNMATCHED QTYPE.
-                        //This is an error (unimplemented qtype)
-                        $status = false;
-                        break;
-                }
-            } else {
-                $status = false;
-            }
-
-            //The structure is equal to the db, so insert the question_states
-            $newid = insert_record ("question_states",$state);
-
-            //Do some output
-            if (($i+1) % 10 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 200 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            if ($newid) {
-                //We have the newid, update backup_ids
-                backup_putid($restore->backup_unique_code,"question_states",$oldid,
-                             $newid);
-                //Now process question type specific state information
-                $status = question_rqp_states_restore_mods($newid,$res_info,$restore);
-                $status = question_essay_states_restore_mods($newid,$res_info,$restore);
-            } else {
-                $status = false;
-            }
-        }
-
-        //Get the question_sessions array
-        $sessions = $info['#']['NEWEST_STATES']['0']['#']['NEWEST_STATE'];
-        //Iterate over question_sessions
-        for($i = 0; $i < sizeof($sessions); $i++) {
-            $res_info = $sessions[$i];
-            //traverse_xmlize($res_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the NEWEST_STATES record structure
-            $session->attemptid = $attempt_id;
-            $session->questionid = backup_todb($res_info['#']['QUESTIONID']['0']['#']);
-            $session->newest = backup_todb($res_info['#']['NEWEST']['0']['#']);
-            $session->newgraded = backup_todb($res_info['#']['NEWGRADED']['0']['#']);
-            $session->sumpenalty = backup_todb($res_info['#']['SUMPENALTY']['0']['#']);
-
-            //We have to recode the question field
-            $question = backup_getid($restore->backup_unique_code,"question",$session->questionid);
-            if ($question) {
-                $session->questionid = $question->new_id;
-            }
-
-            //We have to recode the newest field
-            $state = backup_getid($restore->backup_unique_code,"question_states",$session->newest);
-            if ($state) {
-                $session->newest = $state->new_id;
-            }
-
-            //We have to recode the newgraded field
-            $state = backup_getid($restore->backup_unique_code,"question_states",$session->newgraded);
-            if ($state) {
-                $session->newgraded = $state->new_id;
-            }
-
-            //The structure is equal to the db, so insert the question_sessions
-            $newid = insert_record ("question_sessions",$session);
-
-        }
-
-        return $status;
-    }
-
-    //This function restores the question_rqp_states
-    function question_rqp_states_restore_mods($state_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the question_rqp_state
-        $rqp_state = $info['#']['RQP_STATE']['0'];
-        if ($rqp_state) {
-
-            //Now, build the RQP_STATES record structure
-            $state->stateid = $state_id;
-            $state->responses = backup_todb($rqp_state['#']['RESPONSES']['0']['#']);
-            $state->persistent_data = backup_todb($rqp_state['#']['PERSISTENT_DATA']['0']['#']);
-            $state->template_vars = backup_todb($rqp_state['#']['TEMPLATE_VARS']['0']['#']);
-
-            //The structure is equal to the db, so insert the question_states
-            $newid = insert_record ("question_rqp_states",$state);
-        }
-
-    return $status;
-    }
-    
-    //This function restores the question_essay_states
-    function question_essay_states_restore_mods($state_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the question_essay_state
-        $essay_state = $info['#']['ESSAY_STATE']['0'];
-        if ($essay_state) {
-
-            //Now, build the ESSAY_STATES record structure
-            $state->stateid = $state_id;
-            $state->graded = backup_todb($essay_state['#']['GRADED']['0']['#']);
-            $state->fraction = backup_todb($essay_state['#']['FRACTION']['0']['#']);
-            $state->response = backup_todb($essay_state['#']['RESPONSE']['0']['#']);
-
-            //The structure is equal to the db, so insert the question_states
-            $newid = insert_record ("question_essay_states",$state);
-        }
-
-        return $status;
-    }
-
     //This function restores the quiz_grades
     function quiz_grades_restore_mods($quiz_id,$info,$restore) {
 
@@ -2279,10 +678,10 @@
         //Extracts question id from sequence
         if ($questionids = explode(',', $layout)) {
             foreach ($questionids as $id => $questionid) {
-            if ($questionid) { // If it iss zero then this is a pagebreak, don't translate
-                $newq = backup_getid($restore->backup_unique_code,"question",$questionid);
-                $questionids[$id] = $newq->new_id;
-            }
+                if ($questionid) { // If it is zero then this is a pagebreak, don't translate
+                    $newq = backup_getid($restore->backup_unique_code,"question",$questionid);
+                    $questionids[$id] = $newq->new_id;
+                }
             }
         }
         return implode(',', $questionids);
diff --git a/question/questiontypes/essay/restorelib.php b/question/questiontypes/essay/restorelib.php
index 4cf4f24739..38a6abbe59 100644
--- a/question/questiontypes/essay/restorelib.php
+++ b/question/questiontypes/essay/restorelib.php
@@ -44,4 +44,30 @@
 
         return $status;
     }
+
+
+    //This function restores the question_essay_states
+    function question_essay_states_restore($state_id,$info,$restore) {
+
+        global $CFG;
+
+        $status = true;
+
+        //Get the question_essay_state
+        $essay_state = $info['#']['ESSAY_STATE']['0'];
+        if ($essay_state) {
+
+            //Now, build the ESSAY_STATES record structure
+            $state->stateid = $state_id;
+            $state->graded = backup_todb($essay_state['#']['GRADED']['0']['#']);
+            $state->fraction = backup_todb($essay_state['#']['FRACTION']['0']['#']);
+            $state->response = backup_todb($essay_state['#']['RESPONSE']['0']['#']);
+
+            //The structure is equal to the db, so insert the question_states
+            $newid = insert_record ("question_essay_states",$state);
+        }
+
+        return $status;
+    }
+
 ?>
diff --git a/question/questiontypes/rqp/restorelib.php b/question/questiontypes/rqp/restorelib.php
index 682455a155..18d16b1f92 100644
--- a/question/questiontypes/rqp/restorelib.php
+++ b/question/questiontypes/rqp/restorelib.php
@@ -44,4 +44,30 @@
 
         return $status;
     }
+
+    
+    //This function restores the question_rqp_states
+    function question_rqp_states_restore($state_id,$info,$restore) {
+
+        global $CFG;
+
+        $status = true;
+
+        //Get the question_rqp_state
+        $rqp_state = $info['#']['RQP_STATE']['0'];
+        if ($rqp_state) {
+
+            //Now, build the RQP_STATES record structure
+            $state->stateid = $state_id;
+            $state->responses = backup_todb($rqp_state['#']['RESPONSES']['0']['#']);
+            $state->persistent_data = backup_todb($rqp_state['#']['PERSISTENT_DATA']['0']['#']);
+            $state->template_vars = backup_todb($rqp_state['#']['TEMPLATE_VARS']['0']['#']);
+
+            //The structure is equal to the db, so insert the question_states
+            $newid = insert_record ("question_rqp_states",$state);
+        }
+
+    return $status;
+    }
+    
 ?>
diff --git a/question/restorelib.php b/question/restorelib.php
index 5e43df20b7..665d8f302a 100644
--- a/question/restorelib.php
+++ b/question/restorelib.php
@@ -1,6 +1,5 @@
 <?php //$Id$
-    //This php script contains all the stuff to backup/restore
-    //quiz mods
+    //This php script contains all the stuff to backup/restore questions
 
 // Todo:
     // the restoration of the parent and sortorder fields in the category table needs
@@ -10,57 +9,68 @@
     // whereever it says "/// We have to recode the .... field" we should put in a check
     // to see if the recoding was successful and throw an appropriate error otherwise
 
-//This is the "graphical" structure of the quiz mod:
+//This is the "graphical" structure of the question database:
     //To see, put your terminal to 160cc
 
+    // The following holds student-independent information about the questions
     //
-    //                           quiz                                                      question_categories
-    //                        (CL,pk->id)                                                   (CL,pk->id)
-    //                            |                                                              |
-    //           -------------------------------------------------------------------             |
-    //           |                        |                    |                   |             |.......................................
-    //           |               quiz_grades                   |        quiz_question_versions   |                                      .
-    //           |           (UL,pk->id,fk->quiz)              |         (CL,pk->id,fk->quiz)    |                                      .
-    //           |                                             |                         .       |    ------question_datasets-------    .
-    //      quiz_attempts                          quiz_question_instances               .       |    |  (CL,pk->id,fk->question,  |    .
-    //  (UL,pk->id,fk->quiz)                    (CL,pk->id,fk->quiz,question)            .       |    |   fk->dataset_definition)  |    .
-    //             |                                              |                      .       |    |                            |    .
-    //             |               question_sessions              |                      .       |    |                            |    .
-    //             |---------(UL,pk->id,fk->attempt,question)-----|                      .       |    |                            |    .
-    //             |                        .                     |                      .       |    |                       question_dataset_definitions
-    //             |                        .                     |                      .       |    |                      (CL,pk->id,fk->category)
-    //             |                 question_states              |                          question                                   |
-    //             ----------(UL,pk->id,fk->attempt,question)--------------------------(CL,pk->id,fk->category,files)                   |
-    //                                      |                                                    |                             question_dataset_items
-    //                                      |                                                    |                          (CL,pk->id,fk->definition)
-    //                              ---------                                                    |
-    //                              |                                                            |
-    //                        question_rqp_states                                                    |
-    //                    (UL,pk->id,fk->stateid)                                                |                                   question_rqp_type
-    //                                                                                           |                                    (SL,pk->id)
-    //                                                                                           |                                         |
+    //          question_categories
+    //             (CL,pk->id)
+    //                  |
+    //                  |
+    //                  |.......................................
+    //                  |                                      .
+    //                  |                                      .
+    //                  |    -------question_datasets------    .
+    //                  |    |  (CL,pk->id,fk->question,  |    .
+    //                  |    |   fk->dataset_definition)  |    .
+    //                  |    |                            |    .
+    //                  |    |                            |    .
+    //                  |    |                            |    .
+    //                  |    |                    question_dataset_definitions
+    //                  |    |                      (CL,pk->id,fk->category)
+    //              question                                   |
+    //        (CL,pk->id,fk->category,files)                   |
+    //                  |                             question_dataset_items
+    //                  |                          (CL,pk->id,fk->definition)
+    //                  |                                                                                                           question_rqp_type
+    //                  |                                                                                                            (SL,pk->id)
+    //                  |                                                                                                                  |
     //             --------------------------------------------------------------------------------------------------------------          |
     //             |             |              |              |                       |                  |                     |        question_rqp
     //             |             |              |              |                       |                  |                     |--(CL,pk->id,fk->question)
-    //             |             |              |              |                 question_calculated          |                     |
-    //      question_truefalse       |       question_multichoice      |             (CL,pl->id,fk->question)     |                     |
-    // (CL,pk->id,fk->question)  |   (CL,pk->id,fk->question)  |                       .                  |                     |    question_randomsamatch
+    //             |             |              |              |             question_calculated          |                     |
+    //      question_truefalse   |     question_multichoice    |          (CL,pl->id,fk->question)        |                     |
+    // (CL,pk->id,fk->question)  |   (CL,pk->id,fk->question)  |                       .                  |                     |  question_randomsamatch
     //             .             |              .              |                       .                  |                     |--(CL,pk->id,fk->question)
-    //             .      question_shortanswer      .       question_numerical                 .            question_multianswer.           |
+    //             .    question_shortanswer    .      question_numerical              .         question_multianswer.          |
     //             .  (CL,pk->id,fk->question)  .  (CL,pk->id,fk->question)            .        (CL,pk->id,fk->question)        |
-    //             .             .              .              .                       .                  .                     |         question_match
+    //             .             .              .              .                       .                  .                     |       question_match
     //             .             .              .              .                       .                  .                     |--(CL,pk->id,fk->question)
     //             .             .              .              .                       .                  .                     |             .
     //             .             .              .              .                       .                  .                     |             .
     //             .             .              .              .                       .                  .                     |             .
-    //             .             .              .              .                       .                  .                     |       question_match_sub
+    //             .             .              .              .                       .                  .                     |    question_match_sub
     //             ........................................................................................                     |--(CL,pk->id,fk->question)
     //                                                   .                                                                      |
     //                                                   .                                                                      |
-    //                                                   .                                                                      |    question_numerical_units
-    //                                                question_answers                                                              |--(CL,pk->id,fk->question)
+    //                                                   .                                                                      |  question_numerical_units
+    //                                             question_answers                                                             |--(CL,pk->id,fk->question)
     //                                         (CL,pk->id,fk->question)----------------------------------------------------------
     //
+    //
+    // The following holds the information about student interaction with the questions
+    //
+    //             question_sessions
+    //      (UL,pk->id,fk->attempt,question)
+    //                    .
+    //                    .
+    //             question_states
+    //       (UL,pk->id,fk->attempt,question)
+    //                |
+    //           question_rqp_states
+    //        (UL,pk->id,fk->stateid)                       
+    //
     // Meaning: pk->primary key field of the table
     //          fk->foreign key to link with parent
     //          nt->nested field (recursive data)
@@ -71,39 +81,33 @@
     //
     //-----------------------------------------------------------
 
-// Comments
-    //This module is special, because we make the restore in two steps:
-    // 1.-We restore every category and their questions (complete structure). It includes this tables:
-    //     - question_categories
-    //     - question
-    //     - question_truefalse
-    //     - question_shortanswer
-    //     - question_multianswer
-    //     - question_multichoice
-    //     - question_numerical
-    //     - question_randomsamatch
-    //     - question_match
-    //     - question_match_sub
-    //     - question_calculated
-    //     - question_answers
-    //     - question_numerical_units
-    //     - question_datasets
-    //     - question_dataset_definitions
-    //     - question_dataset_items
-    //    All this backup info has its own section in moodle.xml (QUESTION_CATEGORIES) and it's generated
-    //    before every module backup standard invocation. And only if to restore quizzes has been selected !!
-    //    It's invoked with restore_question_categories. (course independent).
-
-    // 2.-Standard module restore (Invoked via quiz_restore_mods). It includes thes tables:
-    //     - quiz
-    //     - quiz_question_versions
-    //     - quiz_question_instances
-    //     - quiz_attempts
-    //     - quiz_grades
-    //     - question_states
-    //    This step is the standard mod backup. (course dependent).
-
-//STEP 1. Restore categories/questions and associated structures (course independent)
+    include_once($CFG->libdir.'/questionlib.php');
+    // load questiontype-specific functions
+    unset($restorefns);
+    unset($restoremapfns);
+    //if ($qtypes = get_records('question_types')) {
+        if ($qtypes = get_list_of_plugins('question/questiontypes')) {
+        foreach ($qtypes as $name) {
+            $qtype->name = $name;
+            $restorelib = $CFG->dirroot.'/question/questiontypes/'.$qtype->name.'/restorelib.php';
+            if (file_exists($restorelib)) {
+                include_once($restorelib);
+                $restorefn = 'question_'.$qtype->name.'_restore';
+                if (function_exists($restorefn)) {
+                    $restorefns[$qtype->name] = $restorefn;
+                }
+                $restoremapfn = 'question_'.$qtype->name.'_restore_map';
+                if (function_exists($restoremapfn)) {
+                    $restoremapfns[$qtype->name] = $restoremapfn;
+                }
+                $restorestatefn = 'question_'.$qtype->name.'_states_restore';
+                if (function_exists($restorestatefn)) {
+                    $restorestatefns[$qtype->name] = $restorestatefn;
+                }
+            }
+        }
+    }
+
     function restore_question_categories($category,$restore) {
 
         global $CFG;
@@ -263,30 +267,8 @@
                 //Now, restore every question_answers in this question
                 $status = question_restore_answers($oldid,$newid,$que_info,$restore);
                 //Now, depending of the type of questions, invoke different functions
-                if ($question->qtype == "1") {
-                    $status = question_restore_shortanswer($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "2") {
-                    $status = question_restore_truefalse($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "3") {
-                    $status = question_restore_multichoice($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "4") {
-                    //Random question. Nothing to do.
-                } else if ($question->qtype == "5") {
-                    $status = question_restore_match($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "6") {
-                    $status = question_restore_randomsamatch($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "7") {
-                    //Description question. Nothing to do.
-                } else if ($question->qtype == "8") {
-                    $status = question_restore_numerical($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "9") {
-                    $status = question_restore_multianswer($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "10") {
-                    $status = question_restore_calculated($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "11") {
-                    $status = question_restore_rqp($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "12") {
-                    $status = question_restore_essay($oldid,$newid,$que_info,$restore);
+                if (isset($restorefns[$question->type])) {
+                    $status = $restorefns[$question->type]->restore($oldid,$newid,$que_info,$restore);
                 }
             } else {
                 //We are NOT creating the question, but we need to know every question_answers
@@ -296,26 +278,8 @@
                 //Now, depending of the type of questions, invoke different functions
                 //to create the necessary mappings in backup_ids, because we are not
                 //creating the question, but need some records in backup table
-                if ($question->qtype == "1") {
-                    //Shortanswer question. Nothing to remap
-                } else if ($question->qtype == "2") {
-                    //Truefalse question. Nothing to remap
-                } else if ($question->qtype == "3") {
-                    //Multichoice question. Nothing to remap
-                } else if ($question->qtype == "4") {
-                    //Random question. Nothing to remap
-                } else if ($question->qtype == "5") {
-                    $status = question_restore_map_match($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "6") {
-                    //Randomsamatch question. Nothing to remap
-                } else if ($question->qtype == "7") {
-                    //Description question. Nothing to remap
-                } else if ($question->qtype == "8") {
-                    //Numerical question. Nothing to remap
-                } else if ($question->qtype == "9") {
-                    $status = question_restore_map_multianswer($oldid,$newid,$que_info,$restore);
-                } else if ($question->qtype == "10") {
-                    //Calculated question. Nothing to remap
+                if (isset($restoremapfns[$question->type])) {
+                    $status = $restoremapfns[$question->type]->restore($oldid,$newid,$que_info,$restore);
                 }
             }
 
@@ -447,62 +411,29 @@
         return $status;
     }
 
-    function question_restore_shortanswer ($old_question_id,$new_question_id,$info,$restore) {
+    function question_restore_numerical_units ($old_question_id,$new_question_id,$info,$restore) {
 
         global $CFG;
 
         $status = true;
 
-        //Get the shortanswers array
-        $shortanswers = $info['#']['SHORTANSWER'];
+        //Get the numerical array
+        $numerical_units = $info['#']['NUMERICAL_UNITS']['0']['#']['NUMERICAL_UNIT'];
 
-        //Iterate over shortanswers
-        for($i = 0; $i < sizeof($shortanswers); $i++) {
-            $sho_info = $shortanswers[$i];
-            //traverse_xmlize($sho_info);                                                                 //Debug
+        //Iterate over numerical_units
+        for($i = 0; $i < sizeof($numerical_units); $i++) {
+            $nu_info = $numerical_units[$i];
+            //traverse_xmlize($nu_info);                                                                  //Debug
             //print_object ($GLOBALS['traverse_array']);                                                  //Debug
             //$GLOBALS['traverse_array']="";                                                              //Debug
 
-            //Now, build the QUESTION_SHORTANSWER record structure
-            $shortanswer->question = $new_question_id;
-            $shortanswer->answers = backup_todb($sho_info['#']['ANSWERS']['0']['#']);
-            $shortanswer->usecase = backup_todb($sho_info['#']['USECASE']['0']['#']);
-
-            //We have to recode the answers field (a list of answers id)
-            //Extracts answer id from sequence
-            $answers_field = "";
-            $in_first = true;
-            $tok = strtok($shortanswer->answers,",");
-            while ($tok) {
-                //Get the answer from backup_ids
-                $answer = backup_getid($restore->backup_unique_code,"question_answers",$tok);
-                if ($answer) {
-                    if ($in_first) {
-                        $answers_field .= $answer->new_id;
-                        $in_first = false;
-                    } else {
-                        $answers_field .= ",".$answer->new_id;
-                    }
-                }
-                //check for next
-                $tok = strtok(",");
-            }
-            //We have the answers field recoded to its new ids
-            $shortanswer->answers = $answers_field;
-
-            //The structure is equal to the db, so insert the question_shortanswer
-            $newid = insert_record ("question_shortanswer",$shortanswer);
+            //Now, build the question_numerical_UNITS record structure
+            $numerical_unit->question = $new_question_id;
+            $numerical_unit->multiplier = backup_todb($nu_info['#']['MULTIPLIER']['0']['#']);
+            $numerical_unit->unit = backup_todb($nu_info['#']['UNIT']['0']['#']);
 
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
+            //The structure is equal to the db, so insert the question_numerical_units
+            $newid = insert_record ("question_numerical_units",$numerical_unit);
 
             if (!$newid) {
                 $status = false;
@@ -512,254 +443,118 @@
         return $status;
     }
 
-    function question_restore_truefalse ($old_question_id,$new_question_id,$info,$restore) {
+    function question_restore_dataset_definitions ($old_question_id,$new_question_id,$info,$restore) {
 
         global $CFG;
 
         $status = true;
 
-        //Get the truefalse array
-        $truefalses = $info['#']['TRUEFALSE'];
+        //Get the dataset_definitions array
+        $dataset_definitions = $info['#']['DATASET_DEFINITIONS']['0']['#']['DATASET_DEFINITION'];
 
-        //Iterate over truefalse
-        for($i = 0; $i < sizeof($truefalses); $i++) {
-            $tru_info = $truefalses[$i];
-            //traverse_xmlize($tru_info);                                                                 //Debug
+        //Iterate over dataset_definitions
+        for($i = 0; $i < sizeof($dataset_definitions); $i++) {
+            $dd_info = $dataset_definitions[$i];
+            //traverse_xmlize($dd_info);                                                                  //Debug
             //print_object ($GLOBALS['traverse_array']);                                                  //Debug
             //$GLOBALS['traverse_array']="";                                                              //Debug
 
-            //Now, build the QUESTION_TRUEFALSE record structure
-            $truefalse->question = $new_question_id;
-            $truefalse->trueanswer = backup_todb($tru_info['#']['TRUEANSWER']['0']['#']);
-            $truefalse->falseanswer = backup_todb($tru_info['#']['FALSEANSWER']['0']['#']);
-
-            ////We have to recode the trueanswer field
-            $answer = backup_getid($restore->backup_unique_code,"question_answers",$truefalse->trueanswer);
-            if ($answer) {
-                $truefalse->trueanswer = $answer->new_id;
-            }
-
-            ////We have to recode the falseanswer field
-            $answer = backup_getid($restore->backup_unique_code,"question_answers",$truefalse->falseanswer);
-            if ($answer) {
-                $truefalse->falseanswer = $answer->new_id;
-            }
-
-            //The structure is equal to the db, so insert the question_truefalse
-            $newid = insert_record ("question_truefalse",$truefalse);
+            //Now, build the question_dataset_DEFINITION record structure
+            $dataset_definition->category = backup_todb($dd_info['#']['CATEGORY']['0']['#']);
+            $dataset_definition->name = backup_todb($dd_info['#']['NAME']['0']['#']);
+            $dataset_definition->type = backup_todb($dd_info['#']['TYPE']['0']['#']);
+            $dataset_definition->options = backup_todb($dd_info['#']['OPTIONS']['0']['#']);
+            $dataset_definition->itemcount = backup_todb($dd_info['#']['ITEMCOUNT']['0']['#']);
 
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
+            //We have to recode the category field (only if the category != 0)
+            if ($dataset_definition->category != 0) {
+                $category = backup_getid($restore->backup_unique_code,"question_categories",$dataset_definition->category);
+                if ($category) {
+                    $dataset_definition->category = $category->new_id;
                 }
-                backup_flush(300);
-            }
-
-            if (!$newid) {
-                $status = false;
             }
-        }
-
-        return $status;
-    }
-
-    function question_restore_multichoice ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
 
-        //Get the multichoices array
-        $multichoices = $info['#']['MULTICHOICE'];
-
-        //Iterate over multichoices
-        for($i = 0; $i < sizeof($multichoices); $i++) {
-            $mul_info = $multichoices[$i];
-            //traverse_xmlize($mul_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
+            //Now, we hace to decide when to create the new records or reuse an existing one
+            $create_definition = false;
 
-            //Now, build the QUESTION_MULTICHOICE record structure
-            $multichoice->question = $new_question_id;
-            $multichoice->layout = backup_todb($mul_info['#']['LAYOUT']['0']['#']);
-            $multichoice->answers = backup_todb($mul_info['#']['ANSWERS']['0']['#']);
-            $multichoice->single = backup_todb($mul_info['#']['SINGLE']['0']['#']);
-            $multichoice->shuffleanswers = backup_todb($mul_info['#']['SHUFFLEANSWERS']['0']['#']);
-
-            //We have to recode the answers field (a list of answers id)
-            //Extracts answer id from sequence
-            $answers_field = "";
-            $in_first = true;
-            $tok = strtok($multichoice->answers,",");
-            while ($tok) {
-                //Get the answer from backup_ids
-                $answer = backup_getid($restore->backup_unique_code,"question_answers",$tok);
-                if ($answer) {
-                    if ($in_first) {
-                        $answers_field .= $answer->new_id;
-                        $in_first = false;
+            //If the dataset_definition->category = 0, it's a individual question dataset_definition, so we'll create it
+            if ($dataset_definition->category == 0) {
+                $create_definition = true;
+            } else {
+                //The category isn't 0, so it's a category question dataset_definition, we have to see if it exists
+                //Look for a definition with the same category, name and type
+                if ($definitionrec = get_record_sql("SELECT d.*
+                                                     FROM {$CFG->prefix}question_dataset_definitions d
+                                                     WHERE d.category = '$dataset_definition->category' AND
+                                                           d.name = '$dataset_definition->name' AND
+                                                           d.type = '$dataset_definition->type'")) {
+                    //Such dataset_definition exist. Now we must check if it has enough itemcount
+                    if ($definitionrec->itemcount < $dataset_definition->itemcount) {
+                        //We haven't enough itemcount, so we have to create the definition as an individual question one.
+                        $dataset_definition->category = 0;
+                        $create_definition = true;
                     } else {
-                        $answers_field .= ",".$answer->new_id;
+                        //We have enough itemcount, so we'll reuse the existing definition
+                        $create_definition = false;
+                        $newid = $definitionrec->id;
                     }
+                } else {
+                    //Such dataset_definition doesn't exist. We'll create it.
+                    $create_definition = true;
                 }
-                //check for next
-                $tok = strtok(",");
             }
-            //We have the answers field recoded to its new ids
-            $multichoice->answers = $answers_field;
-
-            //The structure is equal to the db, so insert the question_shortanswer
-            $newid = insert_record ("question_multichoice",$multichoice);
 
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
+            //If we've to create the definition, do it
+            if ($create_definition) {
+                //The structure is equal to the db, so insert the question_dataset_definitions
+                $newid = insert_record ("question_dataset_definitions",$dataset_definition);
+                if ($newid) {
+                    //Restore question_dataset_items
+                    $status = question_restore_dataset_items($newid,$dd_info,$restore);
                 }
-                backup_flush(300);
-            }
-
-            if (!$newid) {
-                $status = false;
             }
-        }
 
-        return $status;
-    }
-
-    function question_restore_match ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the matchs array
-        $matchs = $info['#']['MATCHS']['0']['#']['MATCH'];
-
-        //We have to build the subquestions field (a list of match_sub id)
-        $subquestions_field = "";
-        $in_first = true;
-
-        //Iterate over matchs
-        for($i = 0; $i < sizeof($matchs); $i++) {
-            $mat_info = $matchs[$i];
-            //traverse_xmlize($mat_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //We'll need this later!!
-            $oldid = backup_todb($mat_info['#']['ID']['0']['#']);
-
-            //Now, build the QUESTION_MATCH_SUB record structure
-            $match_sub->question = $new_question_id;
-            $match_sub->questiontext = backup_todb($mat_info['#']['QUESTIONTEXT']['0']['#']);
-            $match_sub->answertext = backup_todb($mat_info['#']['ANSWERTEXT']['0']['#']);
-
-            //The structure is equal to the db, so insert the question_match_sub
-            $newid = insert_record ("question_match_sub",$match_sub);
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
+            //Now, we must have a definition (created o reused). Its id is in newid. Create the question_datasets record
+            //to join the question and the dataset_definition
+            if ($newid) {
+                $question_dataset->question = $new_question_id;
+                $question_dataset->datasetdefinition = $newid;
+                $newid = insert_record ("question_datasets",$question_dataset);
             }
 
-            if ($newid) {
-                //We have the newid, update backup_ids
-                backup_putid($restore->backup_unique_code,"question_match_sub",$oldid,
-                             $newid);
-                //We have a new match_sub, append it to subquestions_field
-                if ($in_first) {
-                    $subquestions_field .= $newid;
-                    $in_first = false;
-                } else {
-                    $subquestions_field .= ",".$newid;
-                }
-            } else {
+            if (!$newid) {
                 $status = false;
             }
         }
 
-        //We have created every match_sub, now create the match
-        $match->question = $new_question_id;
-        $match->subquestions = $subquestions_field;
-
-        //The structure is equal to the db, so insert the question_match_sub
-        $newid = insert_record ("question_match",$match);
-
-        if (!$newid) {
-            $status = false;
-        }
-
         return $status;
     }
 
-    function question_restore_map_match ($old_question_id,$new_question_id,$info,$restore) {
+    function question_restore_dataset_items ($definitionid,$info,$restore) {
 
         global $CFG;
 
         $status = true;
 
-        //Get the matchs array
-        $matchs = $info['#']['MATCHS']['0']['#']['MATCH'];
-
-        //We have to build the subquestions field (a list of match_sub id)
-        $subquestions_field = "";
-        $in_first = true;
+        //Get the items array
+        $dataset_items = $info['#']['DATASET_ITEMS']['0']['#']['DATASET_ITEM'];
 
-        //Iterate over matchs
-        for($i = 0; $i < sizeof($matchs); $i++) {
-            $mat_info = $matchs[$i];
-            //traverse_xmlize($mat_info);                                                                 //Debug
+        //Iterate over dataset_items
+        for($i = 0; $i < sizeof($dataset_items); $i++) {
+            $di_info = $dataset_items[$i];
+            //traverse_xmlize($di_info);                                                                  //Debug
             //print_object ($GLOBALS['traverse_array']);                                                  //Debug
             //$GLOBALS['traverse_array']="";                                                              //Debug
 
-            //We'll need this later!!
-            $oldid = backup_todb($mat_info['#']['ID']['0']['#']);
-
-            //Now, build the QUESTION_MATCH_SUB record structure
-            $match_sub->question = $new_question_id;
-            $match_sub->questiontext = backup_todb($mat_info['#']['QUESTIONTEXT']['0']['#']);
-            $match_sub->answertext = backup_todb($mat_info['#']['ANSWERTEXT']['0']['#']);
-
-            //If we are in this method is because the question exists in DB, so its
-            //match_sub must exist too.
-            //Now, we are going to look for that match_sub in DB and to create the
-            //mappings in backup_ids to use them later where restoring states (user level).
+            //Now, build the question_dataset_ITEMS record structure
+            $dataset_item->definition = $definitionid;
+            $dataset_item->number = backup_todb($di_info['#']['NUMBER']['0']['#']);
+            $dataset_item->value = backup_todb($di_info['#']['VALUE']['0']['#']);
 
-            //Get the match_sub from DB (by question, questiontext and answertext)
-            $db_match_sub = get_record ("question_match_sub","question",$new_question_id,
-                                                      "questiontext",$match_sub->questiontext,
-                                                      "answertext",$match_sub->answertext);
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
+            //The structure is equal to the db, so insert the question_dataset_items
+            $newid = insert_record ("question_dataset_items",$dataset_item);
 
-            //We have the database match_sub, so update backup_ids
-            if ($db_match_sub) {
-                //We have the newid, update backup_ids
-                backup_putid($restore->backup_unique_code,"question_match_sub",$oldid,
-                             $db_match_sub->id);
-            } else {
+            if (!$newid) {
                 $status = false;
             }
         }
@@ -767,887 +562,48 @@
         return $status;
     }
 
-    function question_restore_map_multianswer ($old_question_id,$new_question_id,$info,$restore) {
+
+    //This function restores the question_states
+    function question_states_restore_mods($attempt_id,$info,$restore) {
 
         global $CFG;
 
         $status = true;
 
-        //Get the multianswers array
-        $multianswers = $info['#']['MULTIANSWERS']['0']['#']['MULTIANSWER'];
-        //Iterate over multianswers
-        for($i = 0; $i < sizeof($multianswers); $i++) {
-            $mul_info = $multianswers[$i];
-            //traverse_xmlize($mul_info);                                                                 //Debug
+        //Get the question_states array
+        $states = $info['#']['STATES']['0']['#']['STATE'];
+        //Iterate over states
+        for($i = 0; $i < sizeof($states); $i++) {
+            $res_info = $states[$i];
+            //traverse_xmlize($res_info);                                                                 //Debug
             //print_object ($GLOBALS['traverse_array']);                                                  //Debug
             //$GLOBALS['traverse_array']="";                                                              //Debug
 
-            //We need this later
-            $oldid = backup_todb($mul_info['#']['ID']['0']['#']);
-
-            //Now, build the QUESTION_MULTIANSWER record structure
-            $multianswer->question = $new_question_id;
-            $multianswer->answers = backup_todb($mul_info['#']['ANSWERS']['0']['#']);
-            $multianswer->positionkey = backup_todb($mul_info['#']['POSITIONKEY']['0']['#']);
-            $multianswer->answertype = backup_todb($mul_info['#']['ANSWERTYPE']['0']['#']);
-            $multianswer->norm = backup_todb($mul_info['#']['NORM']['0']['#']);
+            //We'll need this later!!
+            $oldid = backup_todb($res_info['#']['ID']['0']['#']);
 
-            //If we are in this method is because the question exists in DB, so its
-            //multianswer must exist too.
-            //Now, we are going to look for that multianswer in DB and to create the
-            //mappings in backup_ids to use them later where restoring states (user level).
+            //Now, build the STATES record structure
+            $state->attempt = $attempt_id;
+            $state->question = backup_todb($res_info['#']['QUESTION']['0']['#']);
+            $state->originalquestion = backup_todb($res_info['#']['ORIGINALQUESTION']['0']['#']);
+            $state->seq_number = backup_todb($res_info['#']['SEQ_NUMBER']['0']['#']);
+            $state->answer = backup_todb($res_info['#']['ANSWER']['0']['#']);
+            $state->timestamp = backup_todb($res_info['#']['TIMESTAMP']['0']['#']);
+            $state->event = backup_todb($res_info['#']['EVENT']['0']['#']);
+            $state->grade = backup_todb($res_info['#']['GRADE']['0']['#']);
+            $state->raw_grade = backup_todb($res_info['#']['RAW_GRADE']['0']['#']);
+            $state->penalty = backup_todb($res_info['#']['PENALTY']['0']['#']);
 
-            //Get the multianswer from DB (by question and positionkey)
-            $db_multianswer = get_record ("question_multianswer","question",$new_question_id,
-                                                      "positionkey",$multianswer->positionkey);
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
+            //We have to recode the question field
+            $question = backup_getid($restore->backup_unique_code,"question",$state->question);
+            if ($question) {
+                $state->question = $question->new_id;
             }
 
-            //We have the database multianswer, so update backup_ids
-            if ($db_multianswer) {
-                //We have the newid, update backup_ids
-                backup_putid($restore->backup_unique_code,"question_multianswer",$oldid,
-                             $db_multianswer->id);
-            } else {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_randomsamatch ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the randomsamatchs array
-        $randomsamatchs = $info['#']['RANDOMSAMATCH'];
-
-        //Iterate over randomsamatchs
-        for($i = 0; $i < sizeof($randomsamatchs); $i++) {
-            $ran_info = $randomsamatchs[$i];
-            //traverse_xmlize($ran_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_RANDOMSAMATCH record structure
-            $randomsamatch->question = $new_question_id;
-            $randomsamatch->choose = backup_todb($ran_info['#']['CHOOSE']['0']['#']);
-            $randomsamatch->shuffleanswers = backup_todb($ran_info['#']['SHUFFLEANSWERS']['0']['#']);
-
-            //The structure is equal to the db, so insert the question_randomsamatch
-            $newid = insert_record ("question_randomsamatch",$randomsamatch);
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_numerical ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the numerical array
-        $numericals = $info['#']['NUMERICAL'];
-
-        //Iterate over numericals
-        for($i = 0; $i < sizeof($numericals); $i++) {
-            $num_info = $numericals[$i];
-            //traverse_xmlize($num_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_NUMERICAL record structure
-            $numerical->question = $new_question_id;
-            $numerical->answer = backup_todb($num_info['#']['ANSWER']['0']['#']);
-            $numerical->tolerance = backup_todb($num_info['#']['TOLERANCE']['0']['#']);
-
-            ////We have to recode the answer field
-            $answer = backup_getid($restore->backup_unique_code,"question_answers",$numerical->answer);
-            if ($answer) {
-                $numerical->answer = $answer->new_id;
-            }
-
-            //The structure is equal to the db, so insert the question_numerical
-            $newid = insert_record ("question_numerical",$numerical);
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            //Now restore numerical_units
-            $status = question_restore_numerical_units ($old_question_id,$new_question_id,$num_info,$restore);
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_calculated ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the calculated-s array
-        $calculateds = $info['#']['CALCULATED'];
-
-        //Iterate over calculateds
-        for($i = 0; $i < sizeof($calculateds); $i++) {
-            $cal_info = $calculateds[$i];
-            //traverse_xmlize($cal_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_CALCULATED record structure
-            $calculated->question = $new_question_id;
-            $calculated->answer = backup_todb($cal_info['#']['ANSWER']['0']['#']);
-            $calculated->tolerance = backup_todb($cal_info['#']['TOLERANCE']['0']['#']);
-            $calculated->tolerancetype = backup_todb($cal_info['#']['TOLERANCETYPE']['0']['#']);
-            $calculated->correctanswerlength = backup_todb($cal_info['#']['CORRECTANSWERLENGTH']['0']['#']);
-            $calculated->correctanswerformat = backup_todb($cal_info['#']['CORRECTANSWERFORMAT']['0']['#']);
-
-            ////We have to recode the answer field
-            $answer = backup_getid($restore->backup_unique_code,"question_answers",$calculated->answer);
-            if ($answer) {
-                $calculated->answer = $answer->new_id;
-            }
-
-            //The structure is equal to the db, so insert the question_calculated
-            $newid = insert_record ("question_calculated",$calculated);
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            //Now restore numerical_units
-            $status = question_restore_numerical_units ($old_question_id,$new_question_id,$cal_info,$restore);
-
-            //Now restore dataset_definitions
-            if ($status && $newid) {
-                $status = question_restore_dataset_definitions ($old_question_id,$new_question_id,$cal_info,$restore);
-            }
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_multianswer ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the multianswers array
-        $multianswers = $info['#']['MULTIANSWERS']['0']['#']['MULTIANSWER'];
-        //Iterate over multianswers
-        for($i = 0; $i < sizeof($multianswers); $i++) {
-            $mul_info = $multianswers[$i];
-            //traverse_xmlize($mul_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //We need this later
-            $oldid = backup_todb($mul_info['#']['ID']['0']['#']);
-
-            //Now, build the QUESTION_MULTIANSWER record structure
-            $multianswer->question = $new_question_id;
-            $multianswer->sequence = backup_todb($mul_info['#']['SEQUENCE']['0']['#']);
-
-            //We have to recode the sequence field (a list of question ids)
-            //Extracts question id from sequence
-            $sequence_field = "";
-            $in_first = true;
-            $tok = strtok($multianswer->sequence,",");
-            while ($tok) {
-                //Get the answer from backup_ids
-                $question = backup_getid($restore->backup_unique_code,"question",$tok);
-                if ($question) {
-                    if ($in_first) {
-                        $sequence_field .= $question->new_id;
-                        $in_first = false;
-                    } else {
-                        $sequence_field .= ",".$question->new_id;
-                    }
-                }
-                //check for next
-                $tok = strtok(",");
-            }
-            //We have the answers field recoded to its new ids
-            $multianswer->sequence = $sequence_field;
-            //The structure is equal to the db, so insert the question_multianswer
-            $newid = insert_record ("question_multianswer",$multianswer);
-
-            //Save ids in backup_ids
-            if ($newid) {
-                backup_putid($restore->backup_unique_code,"question_multianswer",
-                             $oldid, $newid);
-            }
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-/*
-            //If we have created the question_multianswer record, now, depending of the
-            //answertype, delegate the restore to every qtype function
-            if ($newid) {
-                if ($multianswer->answertype == "1") {
-                    $status = question_restore_shortanswer ($old_question_id,$new_question_id,$mul_info,$restore);
-                } else if ($multianswer->answertype == "3") {
-                    $status = question_restore_multichoice ($old_question_id,$new_question_id,$mul_info,$restore);
-                } else if ($multianswer->answertype == "8") {
-                    $status = question_restore_numerical ($old_question_id,$new_question_id,$mul_info,$restore);
-                }
-            } else {
-                $status = false;
-            }
-*/
-        }
-
-        return $status;
-    }
-
-    function question_restore_rqp ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the truefalse array
-        $rqps = $info['#']['RQP'];
-
-        //Iterate over rqp
-        for($i = 0; $i < sizeof($rqps); $i++) {
-            $tru_info = $rqps[$i];
-            //traverse_xmlize($tru_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_RQP record structure
-            $rqp->question = $new_question_id;
-            $rqp->type = backup_todb($tru_info['#']['TYPE']['0']['#']);
-            $rqp->source = backup_todb($tru_info['#']['SOURCE']['0']['#']);
-            $rqp->format = backup_todb($tru_info['#']['FORMAT']['0']['#']);
-            $rqp->flags = backup_todb($tru_info['#']['FLAGS']['0']['#']);
-            $rqp->maxscore = backup_todb($tru_info['#']['MAXSCORE']['0']['#']);
-
-            //The structure is equal to the db, so insert the question_rqp
-            $newid = insert_record ("question_rqp",$rqp);
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 1000 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-    
-    function question_restore_essay ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the truefalse array
-        $essays = $info['#']['ESSAY'];
-
-        //Iterate over truefalse
-        for($i = 0; $i < sizeof($essays); $i++) {
-            $essay_info = $essays[$i];
-            //traverse_xmlize($tru_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_TRUEFALSE record structure
-            $essay->question = $new_question_id;
-            $essay->answer = backup_todb($essay_info['#']['ANSWER']['0']['#']);
-
-            ////We have to recode the answer field
-            $answer = backup_getid($restore->backup_unique_code,"question_answers",$essay->answer);
-            if ($answer) {
-                $essay->answer = $answer->new_id;
-            }
-
-            //The structure is equal to the db, so insert the question_truefalse
-            $newid = insert_record ("question_essay",$essay);
-
-            //Do some output
-            if (($i+1) % 50 == 0) {
-                echo ".";
-                if (($i+1) % 1000 == 0) {
-                    echo "<br />";
-                }
-                backup_flush(300);
-            }
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_numerical_units ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the numerical array
-        $numerical_units = $info['#']['NUMERICAL_UNITS']['0']['#']['NUMERICAL_UNIT'];
-
-        //Iterate over numerical_units
-        for($i = 0; $i < sizeof($numerical_units); $i++) {
-            $nu_info = $numerical_units[$i];
-            //traverse_xmlize($nu_info);                                                                  //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_NUMERICAL_UNITS record structure
-            $numerical_unit->question = $new_question_id;
-            $numerical_unit->multiplier = backup_todb($nu_info['#']['MULTIPLIER']['0']['#']);
-            $numerical_unit->unit = backup_todb($nu_info['#']['UNIT']['0']['#']);
-
-            //The structure is equal to the db, so insert the question_numerical_units
-            $newid = insert_record ("question_numerical_units",$numerical_unit);
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_dataset_definitions ($old_question_id,$new_question_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the dataset_definitions array
-        $dataset_definitions = $info['#']['DATASET_DEFINITIONS']['0']['#']['DATASET_DEFINITION'];
-
-        //Iterate over dataset_definitions
-        for($i = 0; $i < sizeof($dataset_definitions); $i++) {
-            $dd_info = $dataset_definitions[$i];
-            //traverse_xmlize($dd_info);                                                                  //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_DATASET_DEFINITION record structure
-            $dataset_definition->category = backup_todb($dd_info['#']['CATEGORY']['0']['#']);
-            $dataset_definition->name = backup_todb($dd_info['#']['NAME']['0']['#']);
-            $dataset_definition->type = backup_todb($dd_info['#']['TYPE']['0']['#']);
-            $dataset_definition->options = backup_todb($dd_info['#']['OPTIONS']['0']['#']);
-            $dataset_definition->itemcount = backup_todb($dd_info['#']['ITEMCOUNT']['0']['#']);
-
-            //We have to recode the category field (only if the category != 0)
-            if ($dataset_definition->category != 0) {
-                $category = backup_getid($restore->backup_unique_code,"question_categories",$dataset_definition->category);
-                if ($category) {
-                    $dataset_definition->category = $category->new_id;
-                }
-            }
-
-            //Now, we hace to decide when to create the new records or reuse an existing one
-            $create_definition = false;
-
-            //If the dataset_definition->category = 0, it's a individual question dataset_definition, so we'll create it
-            if ($dataset_definition->category == 0) {
-                $create_definition = true;
-            } else {
-                //The category isn't 0, so it's a category question dataset_definition, we have to see if it exists
-                //Look for a definition with the same category, name and type
-                if ($definitionrec = get_record_sql("SELECT d.*
-                                                     FROM {$CFG->prefix}question_dataset_definitions d
-                                                     WHERE d.category = '$dataset_definition->category' AND
-                                                           d.name = '$dataset_definition->name' AND
-                                                           d.type = '$dataset_definition->type'")) {
-                    //Such dataset_definition exist. Now we must check if it has enough itemcount
-                    if ($definitionrec->itemcount < $dataset_definition->itemcount) {
-                        //We haven't enough itemcount, so we have to create the definition as an individual question one.
-                        $dataset_definition->category = 0;
-                        $create_definition = true;
-                    } else {
-                        //We have enough itemcount, so we'll reuse the existing definition
-                        $create_definition = false;
-                        $newid = $definitionrec->id;
-                    }
-                } else {
-                    //Such dataset_definition doesn't exist. We'll create it.
-                    $create_definition = true;
-                }
-            }
-
-            //If we've to create the definition, do it
-            if ($create_definition) {
-                //The structure is equal to the db, so insert the question_dataset_definitions
-                $newid = insert_record ("question_dataset_definitions",$dataset_definition);
-                if ($newid) {
-                    //Restore question_dataset_items
-                    $status = question_restore_dataset_items($newid,$dd_info,$restore);
-                }
-            }
-
-            //Now, we must have a definition (created o reused). Its id is in newid. Create the question_datasets record
-            //to join the question and the dataset_definition
-            if ($newid) {
-                $question_dataset->question = $new_question_id;
-                $question_dataset->datasetdefinition = $newid;
-                $newid = insert_record ("question_datasets",$question_dataset);
-            }
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    function question_restore_dataset_items ($definitionid,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the items array
-        $dataset_items = $info['#']['DATASET_ITEMS']['0']['#']['DATASET_ITEM'];
-
-        //Iterate over dataset_items
-        for($i = 0; $i < sizeof($dataset_items); $i++) {
-            $di_info = $dataset_items[$i];
-            //traverse_xmlize($di_info);                                                                  //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUESTION_DATASET_ITEMS record structure
-            $dataset_item->definition = $definitionid;
-            $dataset_item->number = backup_todb($di_info['#']['NUMBER']['0']['#']);
-            $dataset_item->value = backup_todb($di_info['#']['VALUE']['0']['#']);
-
-            //The structure is equal to the db, so insert the question_dataset_items
-            $newid = insert_record ("question_dataset_items",$dataset_item);
-
-            if (!$newid) {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-//STEP 2. Restore quizzes and associated structures (course dependent)
-    function quiz_restore_mods($mod,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Hook to call Moodle < 1.5 Quiz Restore
-        if ($restore->backup_version < 2005043000) {
-            include_once("restorelibpre15.php");
-            return quiz_restore_pre15_mods($mod,$restore);
-        }
-
-        //Get record from backup_ids
-        $data = backup_getid($restore->backup_unique_code,$mod->modtype,$mod->id);
-
-        if ($data) {
-            //Now get completed xmlized object
-            $info = $data->info;
-            //traverse_xmlize($info);                                                                     //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //Now, build the QUIZ record structure
-            $quiz->course = $restore->course_id;
-            $quiz->name = backup_todb($info['MOD']['#']['NAME']['0']['#']);
-            $quiz->intro = backup_todb($info['MOD']['#']['INTRO']['0']['#']);
-            $quiz->timeopen = backup_todb($info['MOD']['#']['TIMEOPEN']['0']['#']);
-            $quiz->timeclose = backup_todb($info['MOD']['#']['TIMECLOSE']['0']['#']);
-            $quiz->optionflags = backup_todb($info['MOD']['#']['OPTIONFLAGS']['0']['#']);
-            $quiz->penaltyscheme = backup_todb($info['MOD']['#']['PENALTYSCHEME']['0']['#']);
-            $quiz->attempts = backup_todb($info['MOD']['#']['ATTEMPTS_NUMBER']['0']['#']);
-            $quiz->attemptonlast = backup_todb($info['MOD']['#']['ATTEMPTONLAST']['0']['#']);
-            $quiz->grademethod = backup_todb($info['MOD']['#']['GRADEMETHOD']['0']['#']);
-            $quiz->decimalpoints = backup_todb($info['MOD']['#']['DECIMALPOINTS']['0']['#']);
-            $quiz->review = backup_todb($info['MOD']['#']['REVIEW']['0']['#']);
-            $quiz->questionsperpage = backup_todb($info['MOD']['#']['QUESTIONSPERPAGE']['0']['#']);
-            $quiz->shufflequestions = backup_todb($info['MOD']['#']['SHUFFLEQUESTIONS']['0']['#']);
-            $quiz->shuffleanswers = backup_todb($info['MOD']['#']['SHUFFLEANSWERS']['0']['#']);
-            $quiz->questions = backup_todb($info['MOD']['#']['QUESTIONS']['0']['#']);
-            $quiz->sumgrades = backup_todb($info['MOD']['#']['SUMGRADES']['0']['#']);
-            $quiz->grade = backup_todb($info['MOD']['#']['GRADE']['0']['#']);
-            $quiz->timecreated = backup_todb($info['MOD']['#']['TIMECREATED']['0']['#']);
-            $quiz->timemodified = backup_todb($info['MOD']['#']['TIMEMODIFIED']['0']['#']);
-            $quiz->timelimit = backup_todb($info['MOD']['#']['TIMELIMIT']['0']['#']);
-            $quiz->password = backup_todb($info['MOD']['#']['PASSWORD']['0']['#']);
-            $quiz->subnet = backup_todb($info['MOD']['#']['SUBNET']['0']['#']);
-            $quiz->popup = backup_todb($info['MOD']['#']['POPUP']['0']['#']);
-            $quiz->delay1 = backup_todb($info['MOD']['#']['DELAY1']['0']['#']);
-            $quiz->delay2 = backup_todb($info['MOD']['#']['DELAY2']['0']['#']);
-            //We have to recode the questions field (a list of questions id and pagebreaks)
-            $quiz->questions = quiz_recode_layout($quiz->questions, $restore);
-
-            //The structure is equal to the db, so insert the quiz
-            $newid = insert_record ("quiz",$quiz);
-
-            //Do some output
-            if (!defined('RESTORE_SILENTLY')) {
-                echo "<li>".get_string("modulename","quiz")." \"".format_string(stripslashes($quiz->name),true)."\"</li>";
-            }
-            backup_flush(300);
-
-            if ($newid) {
-                //We have the newid, update backup_ids
-                backup_putid($restore->backup_unique_code,$mod->modtype,
-                             $mod->id, $newid);
-                //We have to restore the question_instances now (course level table)
-                $status = quiz_question_instances_restore_mods($newid,$info,$restore);
-                //We have to restore the question_versions now (course level table)
-                $status = quiz_question_versions_restore_mods($newid,$info,$restore);
-                //Now check if want to restore user data and do it.
-                if (restore_userdata_selected($restore,'quiz',$mod->id)) {
-                    //Restore quiz_attempts
-                    $status = quiz_attempts_restore_mods ($newid,$info,$restore);
-                    if ($status) {
-                        //Restore quiz_grades
-                        $status = quiz_grades_restore_mods ($newid,$info,$restore);
-                    }
-                }
-            } else {
-                $status = false;
-            }
-        } else {
-            $status = false;
-        }
-
-        return $status;
-    }
-
-    //This function restores the quiz_question_instances
-    function quiz_question_instances_restore_mods($quiz_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the quiz_question_instances array
-        $instances = $info['MOD']['#']['QUESTION_INSTANCES']['0']['#']['QUESTION_INSTANCE'];
-
-        //Iterate over question_instances
-        for($i = 0; $i < sizeof($instances); $i++) {
-            $gra_info = $instances[$i];
-            //traverse_xmlize($gra_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //We'll need this later!!
-            $oldid = backup_todb($gra_info['#']['ID']['0']['#']);
-
-            //Now, build the QUESTION_INSTANCES record structure
-            $instance->quiz = $quiz_id;
-            $instance->question = backup_todb($gra_info['#']['QUESTION']['0']['#']);
-            $instance->grade = backup_todb($gra_info['#']['GRADE']['0']['#']);
-
-            //We have to recode the question field
-            $question = backup_getid($restore->backup_unique_code,"question",$instance->question);
-            if ($question) {
-                $instance->question = $question->new_id;
-            }
-
-            //The structure is equal to the db, so insert the quiz_question_instances
-            $newid = insert_record ("quiz_question_instances",$instance);
-
-            //Do some output
-            if (($i+1) % 10 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 200 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            if ($newid) {
-                //We have the newid, update backup_ids
-                backup_putid($restore->backup_unique_code,"quiz_question_instances",$oldid,
-                             $newid);
-            } else {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    //This function restores the quiz_question_versions
-    function quiz_question_versions_restore_mods($quiz_id,$info,$restore) {
-
-        global $CFG, $USER;
-
-        $status = true;
-
-        //Get the quiz_question_versions array
-        $versions = $info['MOD']['#']['QUESTION_VERSIONS']['0']['#']['QUESTION_VERSION'];
-
-        //Iterate over question_versions
-        for($i = 0; $i < sizeof($versions); $i++) {
-            $ver_info = $versions[$i];
-            //traverse_xmlize($ver_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //We'll need this later!!
-            $oldid = backup_todb($ver_info['#']['ID']['0']['#']);
-
-            //Now, build the QUESTION_VERSIONS record structure
-            $version->quiz = $quiz_id;
-            $version->oldquestion = backup_todb($ver_info['#']['OLDQUESTION']['0']['#']);
-            $version->newquestion = backup_todb($ver_info['#']['NEWQUESTION']['0']['#']);
-            $version->originalquestion = backup_todb($ver_info['#']['ORIGINALQUESTION']['0']['#']);
-            $version->userid = backup_todb($ver_info['#']['USERID']['0']['#']);
-            $version->timestamp = backup_todb($ver_info['#']['TIMESTAMP']['0']['#']);
-
-            //We have to recode the oldquestion field
-            $question = backup_getid($restore->backup_unique_code,"question",$version->oldquestion);
-            if ($question) {
-                $version->oldquestion = $question->new_id;
-            }
-
-            //We have to recode the newquestion field
-            $question = backup_getid($restore->backup_unique_code,"question",$version->newquestion);
-            if ($question) {
-                $version->newquestion = $question->new_id;
-            }
-
-            //We have to recode the originalquestion field
-            $question = backup_getid($restore->backup_unique_code,"question",$version->originalquestion);
-            if ($question) {
-                $version->newquestion = $question->new_id;
-            }
-
-            //We have to recode the userid field
-            $user = backup_getid($restore->backup_unique_code,"user",$version->userid);
-            if ($user) {
-                $version->userid = $user->new_id;
-            } else {  //Assign to current user
-                $version->userid = $USER->id;
-            }
-
-            //The structure is equal to the db, so insert the quiz_question_versions
-            $newid = insert_record ("quiz_question_versions",$version);
-
-            //Do some output
-            if (($i+1) % 10 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 200 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            if ($newid) {
-                //We have the newid, update backup_ids
-                backup_putid($restore->backup_unique_code,"quiz_question_versions",$oldid,
-                             $newid);
-            } else {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    //This function restores the quiz_attempts
-    function quiz_attempts_restore_mods($quiz_id,$info,$restore) {
-
-        notify("Restoring quiz without user attempts. Restoring of user attempts will be implemented in Moodle 1.5.1");
-        return true;
-
-        global $CFG;
-        
-        include($CFG->dirroot.'/question/lib.php');
-
-        $status = true;
-
-        //Get the quiz_attempts array
-        $attempts = $info['MOD']['#']['ATTEMPTS']['0']['#']['ATTEMPT'];
-
-        //Iterate over attempts
-        for($i = 0; $i < sizeof($attempts); $i++) {
-            $att_info = $attempts[$i];
-            //traverse_xmlize($att_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //We'll need this later!!
-            $oldid = backup_todb($att_info['#']['ID']['0']['#']);
-            $olduserid = backup_todb($att_info['#']['USERID']['0']['#']);
-
-            //Now, build the ATTEMPTS record structure
-            $attempt->quiz = $quiz_id;
-            $attempt->userid = backup_todb($att_info['#']['USERID']['0']['#']);
-            $attempt->attempt = backup_todb($att_info['#']['ATTEMPTNUM']['0']['#']);
-            $attempt->sumgrades = backup_todb($att_info['#']['SUMGRADES']['0']['#']);
-            $attempt->timestart = backup_todb($att_info['#']['TIMESTART']['0']['#']);
-            $attempt->timefinish = backup_todb($att_info['#']['TIMEFINISH']['0']['#']);
-            $attempt->timemodified = backup_todb($att_info['#']['TIMEMODIFIED']['0']['#']);
-            $attempt->layout = backup_todb($att_info['#']['LAYOUT']['0']['#']);
-            $attempt->preview = backup_todb($att_info['#']['PREVIEW']['0']['#']);
-
-            //We have to recode the userid field
-            $user = backup_getid($restore->backup_unique_code,"user",$attempt->userid);
-            if ($user) {
-                $attempt->userid = $user->new_id;
-            }
-
-            //Set the uniqueid field
-            $attempt->uniqueid = question_new_attempt_uniqueid();
-
-            //We have to recode the layout field (a list of questions id and pagebreaks)
-            $attempt->layout = quiz_recode_layout($attempt->layout, $restore);
-
-            //The structure is equal to the db, so insert the quiz_attempts
-            $newid = insert_record ("quiz_attempts",$attempt);
-
-            //Do some output
-            if (($i+1) % 10 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 200 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            if ($newid) {
-                //We have the newid, update backup_ids
-                backup_putid($restore->backup_unique_code,"quiz_attempts",$oldid,
-                             $newid);
-                //Now process question_states
-                $status = question_states_restore_mods($newid,$att_info,$restore);
-            } else {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    //This function restores the question_states
-    function question_states_restore_mods($attempt_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the question_states array
-        $states = $info['#']['STATES']['0']['#']['STATE'];
-        //Iterate over states
-        for($i = 0; $i < sizeof($states); $i++) {
-            $res_info = $states[$i];
-            //traverse_xmlize($res_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //We'll need this later!!
-            $oldid = backup_todb($res_info['#']['ID']['0']['#']);
-
-            //Now, build the STATES record structure
-            $state->attempt = $attempt_id;
-            $state->question = backup_todb($res_info['#']['QUESTION']['0']['#']);
-            $state->originalquestion = backup_todb($res_info['#']['ORIGINALQUESTION']['0']['#']);
-            $state->seq_number = backup_todb($res_info['#']['SEQ_NUMBER']['0']['#']);
-            $state->answer = backup_todb($res_info['#']['ANSWER']['0']['#']);
-            $state->timestamp = backup_todb($res_info['#']['TIMESTAMP']['0']['#']);
-            $state->event = backup_todb($res_info['#']['EVENT']['0']['#']);
-            $state->grade = backup_todb($res_info['#']['GRADE']['0']['#']);
-            $state->raw_grade = backup_todb($res_info['#']['RAW_GRADE']['0']['#']);
-            $state->penalty = backup_todb($res_info['#']['PENALTY']['0']['#']);
-
-            //We have to recode the question field
-            $question = backup_getid($restore->backup_unique_code,"question",$state->question);
-            if ($question) {
-                $state->question = $question->new_id;
-            }
-
-            //We have to recode the originalquestion field
-            $question = backup_getid($restore->backup_unique_code,"question",$state->originalquestion);
-            if ($question) {
-                $state->originalquestion = $question->new_id;
+            //We have to recode the originalquestion field
+            $question = backup_getid($restore->backup_unique_code,"question",$state->originalquestion);
+            if ($question) {
+                $state->originalquestion = $question->new_id;
             }
 
             //We have to recode the answer field
@@ -1838,8 +794,9 @@
                 backup_putid($restore->backup_unique_code,"question_states",$oldid,
                              $newid);
                 //Now process question type specific state information
-                $status = question_rqp_states_restore_mods($newid,$res_info,$restore);
-                $status = question_essay_states_restore_mods($newid,$res_info,$restore);
+                foreach ($restorestatefns as $restorestatefn) {
+                    $restorestatefn($newid,$res_info,$restore);
+                }
             } else {
                 $status = false;
             }
@@ -1887,405 +844,4 @@
         return $status;
     }
 
-    //This function restores the question_rqp_states
-    function question_rqp_states_restore_mods($state_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the question_rqp_state
-        $rqp_state = $info['#']['RQP_STATE']['0'];
-        if ($rqp_state) {
-
-            //Now, build the RQP_STATES record structure
-            $state->stateid = $state_id;
-            $state->responses = backup_todb($rqp_state['#']['RESPONSES']['0']['#']);
-            $state->persistent_data = backup_todb($rqp_state['#']['PERSISTENT_DATA']['0']['#']);
-            $state->template_vars = backup_todb($rqp_state['#']['TEMPLATE_VARS']['0']['#']);
-
-            //The structure is equal to the db, so insert the question_states
-            $newid = insert_record ("question_rqp_states",$state);
-        }
-
-    return $status;
-    }
-    
-    //This function restores the question_essay_states
-    function question_essay_states_restore_mods($state_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the question_essay_state
-        $essay_state = $info['#']['ESSAY_STATE']['0'];
-        if ($essay_state) {
-
-            //Now, build the ESSAY_STATES record structure
-            $state->stateid = $state_id;
-            $state->graded = backup_todb($essay_state['#']['GRADED']['0']['#']);
-            $state->fraction = backup_todb($essay_state['#']['FRACTION']['0']['#']);
-            $state->response = backup_todb($essay_state['#']['RESPONSE']['0']['#']);
-
-            //The structure is equal to the db, so insert the question_states
-            $newid = insert_record ("question_essay_states",$state);
-        }
-
-        return $status;
-    }
-
-    //This function restores the quiz_grades
-    function quiz_grades_restore_mods($quiz_id,$info,$restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Get the quiz_grades array
-        $grades = $info['MOD']['#']['GRADES']['0']['#']['GRADE'];
-
-        //Iterate over grades
-        for($i = 0; $i < sizeof($grades); $i++) {
-            $gra_info = $grades[$i];
-            //traverse_xmlize($gra_info);                                                                 //Debug
-            //print_object ($GLOBALS['traverse_array']);                                                  //Debug
-            //$GLOBALS['traverse_array']="";                                                              //Debug
-
-            //We'll need this later!!
-            $oldid = backup_todb($gra_info['#']['ID']['0']['#']);
-            $olduserid = backup_todb($gra_info['#']['USERID']['0']['#']);
-
-            //Now, build the GRADES record structure
-            $grade->quiz = $quiz_id;
-            $grade->userid = backup_todb($gra_info['#']['USERID']['0']['#']);
-            $grade->grade = backup_todb($gra_info['#']['GRADEVAL']['0']['#']);
-            $grade->timemodified = backup_todb($gra_info['#']['TIMEMODIFIED']['0']['#']);
-
-            //We have to recode the userid field
-            $user = backup_getid($restore->backup_unique_code,"user",$grade->userid);
-            if ($user) {
-                $grade->userid = $user->new_id;
-            }
-
-            //The structure is equal to the db, so insert the quiz_grades
-            $newid = insert_record ("quiz_grades",$grade);
-
-            //Do some output
-            if (($i+1) % 10 == 0) {
-                if (!defined('RESTORE_SILENTLY')) {
-                    echo ".";
-                    if (($i+1) % 200 == 0) {
-                        echo "<br />";
-                    }
-                }
-                backup_flush(300);
-            }
-
-            if ($newid) {
-                //We have the newid, update backup_ids
-                backup_putid($restore->backup_unique_code,"quiz_grades",$oldid,
-                             $newid);
-            } else {
-                $status = false;
-            }
-        }
-
-        return $status;
-    }
-
-    //Return a content decoded to support interactivities linking. Every module
-    //should have its own. They are called automatically from
-    //quiz_decode_content_links_caller() function in each module
-    //in the restore process
-    function quiz_decode_content_links ($content,$restore) {
-            
-        global $CFG;
-            
-        $result = $content;
-                
-        //Link to the list of quizs
-                
-        $searchstring='/\$@(QUIZINDEX)\*([0-9]+)@\$/';
-        //We look for it
-        preg_match_all($searchstring,$content,$foundset);
-        //If found, then we are going to look for its new id (in backup tables)
-        if ($foundset[0]) {
-            //print_object($foundset);                                     //Debug
-            //Iterate over foundset[2]. They are the old_ids
-            foreach($foundset[2] as $old_id) {
-                //We get the needed variables here (course id)
-                $rec = backup_getid($restore->backup_unique_code,"course",$old_id);
-                //Personalize the searchstring
-                $searchstring='/\$@(QUIZINDEX)\*('.$old_id.')@\$/';
-                //If it is a link to this course, update the link to its new location
-                if($rec->new_id) {
-                    //Now replace it
-                    $result= preg_replace($searchstring,$CFG->wwwroot.'/mod/quiz/index.php?id='.$rec->new_id,$result);
-                } else { 
-                    //It's a foreign link so leave it as original
-                    $result= preg_replace($searchstring,$restore->original_wwwroot.'/mod/quiz/index.php?id='.$old_id,$result);
-                }
-            }
-        }
-
-        //Link to quiz view by moduleid
-
-        $searchstring='/\$@(QUIZVIEWBYID)\*([0-9]+)@\$/';
-        //We look for it
-        preg_match_all($searchstring,$result,$foundset);
-        //If found, then we are going to look for its new id (in backup tables)
-        if ($foundset[0]) {
-            //print_object($foundset);                                     //Debug
-            //Iterate over foundset[2]. They are the old_ids
-            foreach($foundset[2] as $old_id) {
-                //We get the needed variables here (course_modules id)
-                $rec = backup_getid($restore->backup_unique_code,"course_modules",$old_id);
-                //Personalize the searchstring
-                $searchstring='/\$@(QUIZVIEWBYID)\*('.$old_id.')@\$/';
-                //If it is a link to this course, update the link to its new location
-                if($rec->new_id) {
-                    //Now replace it
-                    $result= preg_replace($searchstring,$CFG->wwwroot.'/mod/quiz/view.php?id='.$rec->new_id,$result);
-                } else {
-                    //It's a foreign link so leave it as original
-                    $result= preg_replace($searchstring,$restore->original_wwwroot.'/mod/quiz/view.php?id='.$old_id,$result);
-                }
-            }
-        }
-
-        return $result;
-    }
-
-    //This function makes all the necessary calls to xxxx_decode_content_links()
-    //function in each module, passing them the desired contents to be decoded
-    //from backup format to destination site/course in order to mantain inter-activities
-    //working in the backup/restore process. It's called from restore_decode_content_links()
-    //function in restore process
-    function quiz_decode_content_links_caller($restore) {
-        global $CFG;
-        $status = true;
-        
-        if ($quizs = get_records_sql ("SELECT q.id, q.intro
-                                   FROM {$CFG->prefix}quiz q
-                                   WHERE q.course = $restore->course_id")) {
-                                               //Iterate over each quiz->intro
-            $i = 0;   //Counter to send some output to the browser to avoid timeouts
-            foreach ($quizs as $quiz) {
-                //Increment counter
-                $i++;
-                $content = $quiz->intro;
-                $result = restore_decode_content_links_worker($content,$restore);
-                if ($result != $content) {
-                    //Update record
-                    $quiz->intro = addslashes($result);
-                    $status = update_record("quiz",$quiz);
-                    if ($CFG->debug>7) {
-                        if (!defined('RESTORE_SILENTLY')) {
-                            echo '<br /><hr />'.htmlentities($content).'<br />changed to<br />'.htmlentities($result).'<hr /><br />';
-                        }
-                    }
-                }
-                //Do some output
-                if (($i+1) % 5 == 0) {
-                    if (!defined('RESTORE_SILENTLY')) {
-                        echo ".";
-                        if (($i+1) % 100 == 0) {
-                            echo "<br />";
-                        }
-                    }
-                    backup_flush(300);
-                }
-            }
-        }
-
-        return $status;
-    }
-
-    //This function converts texts in FORMAT_WIKI to FORMAT_MARKDOWN for
-    //some texts in the module
-    function quiz_restore_wiki2markdown ($restore) {
-
-        global $CFG;
-
-        $status = true;
-
-        //Convert question->questiontext
-        if ($records = get_records_sql ("SELECT q.id, q.questiontext, q.questiontextformat
-                                         FROM {$CFG->prefix}question q,
-                                              {$CFG->prefix}backup_ids b
-                                         WHERE b.backup_code = $restore->backup_unique_code AND
-                                               b.table_name = 'question' AND
-                                               q.id = b.new_id AND
-                                               q.questiontextformat = ".FORMAT_WIKI)) {
-            foreach ($records as $record) {
-                //Rebuild wiki links
-                $record->questiontext = restore_decode_wiki_content($record->questiontext, $restore);
-                //Convert to Markdown
-                $wtm = new WikiToMarkdown();
-                $record->questiontext = $wtm->convert($record->questiontext, $restore->course_id);
-                $record->questiontextformat = FORMAT_MARKDOWN;
-                $status = update_record('question', addslashes_object($record));
-                //Do some output
-                $i++;
-                if (($i+1) % 1 == 0) {
-                    if (!defined('RESTORE_SILENTLY')) {
-                        echo ".";
-                        if (($i+1) % 20 == 0) {
-                            echo "<br />";
-                        }
-                    }
-                    backup_flush(300);
-                }
-            }
-        }
-        return $status;
-    }
-
-    //This function returns a log record with all the necessay transformations
-    //done. It's used by restore_log_module() to restore modules log.
-    function quiz_restore_logs($restore,$log) {
-
-        $status = false;
-
-        //Depending of the action, we recode different things
-        switch ($log->action) {
-        case "add":
-            if ($log->cmid) {
-                //Get the new_id of the module (to recode the info field)
-                $mod = backup_getid($restore->backup_unique_code,$log->module,$log->info);
-                if ($mod) {
-                    $log->url = "view.php?id=".$log->cmid;
-                    $log->info = $mod->new_id;
-                    $status = true;
-                }
-            }
-            break;
-        case "update":
-            if ($log->cmid) {
-                //Get the new_id of the module (to recode the info field)
-                $mod = backup_getid($restore->backup_unique_code,$log->module,$log->info);
-                if ($mod) {
-                    $log->url = "view.php?id=".$log->cmid;
-                    $log->info = $mod->new_id;
-                    $status = true;
-                }
-            }
-            break;
-        case "view":
-            if ($log->cmid) {
-                //Get the new_id of the module (to recode the info field)
-                $mod = backup_getid($restore->backup_unique_code,$log->module,$log->info);
-                if ($mod) {
-                    $log->url = "view.php?id=".$log->cmid;
-                    $log->info = $mod->new_id;
-                    $status = true;
-                }
-            }
-            break;
-        case "view all":
-            $log->url = "index.php?id=".$log->course;
-            $status = true;
-            break;
-        case "report":
-            if ($log->cmid) {
-                //Get the new_id of the module (to recode the info field)
-                $mod = backup_getid($restore->backup_unique_code,$log->module,$log->info);
-                if ($mod) {
-                    $log->url = "report.php?id=".$log->cmid;
-                    $log->info = $mod->new_id;
-                    $status = true;
-                }
-            }
-            break;
-        case "attempt":
-            if ($log->cmid) {
-                //Get the new_id of the module (to recode the info field)
-                $mod = backup_getid($restore->backup_unique_code,$log->module,$log->info);
-                if ($mod) {
-                    //Extract the attempt id from the url field
-                    $attid = substr(strrchr($log->url,"="),1);
-                    //Get the new_id of the attempt (to recode the url field)
-                    $att = backup_getid($restore->backup_unique_code,"quiz_attempts",$attid);
-                    if ($att) {
-                        $log->url = "review.php?id=".$log->cmid."&attempt=".$att->new_id;
-                        $log->info = $mod->new_id;
-                        $status = true;
-                    }
-                }
-            }
-            break;
-        case "submit":
-            if ($log->cmid) {
-                //Get the new_id of the module (to recode the info field)
-                $mod = backup_getid($restore->backup_unique_code,$log->module,$log->info);
-                if ($mod) {
-                    //Extract the attempt id from the url field
-                    $attid = substr(strrchr($log->url,"="),1);
-                    //Get the new_id of the attempt (to recode the url field)
-                    $att = backup_getid($restore->backup_unique_code,"quiz_attempts",$attid);
-                    if ($att) {
-                        $log->url = "review.php?id=".$log->cmid."&attempt=".$att->new_id;
-                        $log->info = $mod->new_id;
-                        $status = true;
-                    }
-                }
-            }
-            break;
-        case "review":
-            if ($log->cmid) {
-                //Get the new_id of the module (to recode the info field)
-                $mod = backup_getid($restore->backup_unique_code,$log->module,$log->info);
-                if ($mod) {
-                    //Extract the attempt id from the url field
-                    $attid = substr(strrchr($log->url,"="),1);
-                    //Get the new_id of the attempt (to recode the url field)
-                    $att = backup_getid($restore->backup_unique_code,"quiz_attempts",$attid);
-                    if ($att) {
-                        $log->url = "review.php?id=".$log->cmid."&attempt=".$att->new_id;
-                        $log->info = $mod->new_id;
-                        $status = true;
-                    }
-                }
-            }
-            break;
-        case "editquestions":
-            if ($log->cmid) {
-                //Get the new_id of the module (to recode the url field)
-                $mod = backup_getid($restore->backup_unique_code,$log->module,$log->info);
-                if ($mod) {
-                    $log->url = "view.php?id=".$log->cmid;
-                    $log->info = $mod->new_id;
-                    $status = true;
-                }
-            }
-            break;
-        default:
-            if (!defined('RESTORE_SILENTLY')) {
-                echo "action (".$log->module."-".$log->action.") unknow. Not restored<br />";                 //Debug
-            }
-            break;
-        }
-
-        if ($status) {
-            $status = $log;
-        }
-        return $status;
-    }
-
-    function quiz_recode_layout($layout, $restore) {
-        //Recodes the quiz layout (a list of questions id and pagebreaks)
-
-        //Extracts question id from sequence
-        if ($questionids = explode(',', $layout)) {
-            foreach ($questionids as $id => $questionid) {
-            if ($questionid) { // If it iss zero then this is a pagebreak, don't translate
-                $newq = backup_getid($restore->backup_unique_code,"question",$questionid);
-                $questionids[$id] = $newq->new_id;
-            }
-            }
-        }
-        return implode(',', $questionids);
-    }
-
 ?>