<?php //$Id: restore_check.html,v 1.26.2.1 2006/06/03 20:00:10 stronk7 Exp $
    //This page receive all the restore_form data. Then, if existing course
    //has been selected, shows a list of courses to select one.
    //It cheks that the parammeter from restore_form are coherent.
    //It puts all the restore info in the session.
    //Finally, it calls restore_execute to do the hard work

    //Get objects from session
    if ($SESSION) {
        $info = $SESSION->info;
        $course_header = $SESSION->course_header;
        if (isset($SESSION->restore)) {
            $restore = $SESSION->restore;
        }
    }

    //Detect if we are coming from the restore form
    $fromform = optional_param ('fromform', 0, PARAM_INT);

    //If restore session info exists, but we are coming from the form
    //it has prioriry
    if (isset($restore) and !empty($fromform)) {
        unset($restore);
    }

    // check for session objects
    if (empty($info) or empty($course_header)) {
      error( 'important information missing from SESSION' );
    }

    //If the restore object doesn't exist, we are going
    //to check every variable individually and create it

    if (!isset($restore)) {
        //Check that we have all we need
        //backup_unique_code
        $backup_unique_code = required_param( 'backup_unique_code' );
        //file
        $file = required_param( 'file');
        //Checks for the required restoremod parameters
        if ($allmods = get_records("modules")) {
            foreach ($allmods as $mod) {
                $modname = $mod->name;
                $var = "restore_".$modname;
                $$var = optional_param( $var,0); 
                $var = "restore_user_info_".$modname;
                $$var = optional_param( $var,0);
                $instances = !empty($info->mods[$mod->name]->instances) ? $info->mods[$mod->name]->instances : NULL;
                if ($instances === NULL) {
                    continue;
                }
                foreach ($instances as $instance) {
                    $var = 'restore_'.$modname.'_instance_'.$instance->id;
                    $$var = optional_param($var,0);
                    $var = 'restore_user_info_'.$modname.'_instance_'.$instance->id;
                    $$var = optional_param($var,0);
                }
            }
        }
        //restoreto
        $restore_restoreto = required_param('restore_restoreto');
        //restore_metacourse
        $restore_metacourse = required_param('restore_metacourse');
        //restore_users
        $restore_users = required_param('restore_users');
        //restore_logs
        $restore_logs = required_param('restore_logs');
        //restore_user_files
        $restore_user_files = required_param('restore_user_files');
        //restore_course_files
        $restore_course_files = required_param('restore_course_files');
        //restore_messages
        $restore_messages = required_param('restore_messages');

        //Check we've selected a course to restore to
        $course_id = optional_param('course_id', 0, PARAM_INT);
 
        //We are here, having all we need !!
        //Create the restore object and put it in the session
        $restore->backup_unique_code = $backup_unique_code;
        $restore->file = $file;
        if ($allmods = get_records("modules")) {
            foreach ($allmods as $mod) {
                $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$modname]->restore             $modname = $mod->name;
                $var = "restore_".$modname;
                $restore->mods[$mod