2004-09-12 17:34:35 +00:00
|
|
|
<?php //$Id$
|
2004-06-07 13:28:59 +00:00
|
|
|
//This php script contains all the stuff to backup/restore
|
|
|
|
//reservation mods
|
|
|
|
|
|
|
|
//This is the "graphical" structure of the scorm mod:
|
|
|
|
//
|
2005-05-23 06:56:10 +00:00
|
|
|
// scorm
|
2005-04-01 15:53:32 +00:00
|
|
|
// (CL,pk->id)---------------------
|
2005-05-23 06:56:10 +00:00
|
|
|
// | |
|
|
|
|
// | |
|
|
|
|
// | |
|
|
|
|
// scorm_scoes |
|
|
|
|
// (UL,pk->id, fk->scorm) |
|
|
|
|
// | |
|
|
|
|
// | |
|
|
|
|
// | |
|
|
|
|
// scorm_scoes_track |
|
|
|
|
// (UL,pk->id, fk->scormid, fk->scoid, fk->userid)--
|
2004-06-07 13:28:59 +00:00
|
|
|
//
|
|
|
|
// Meaning: pk->primary key field of the table
|
|
|
|
// fk->foreign key to link with parent
|
|
|
|
// nt->nested field (recursive data)
|
|
|
|
// CL->course level info
|
|
|
|
// UL->user level info
|
|
|
|
// files->table may have files)
|
|
|
|
//
|
|
|
|
//-----------------------------------------------------------
|
|
|
|
|
|
|
|
//This function executes all the restore procedure about this mod
|
|
|
|
function scorm_restore_mods($mod,$restore) {
|
|
|
|
|
|
|
|
global $CFG;
|
|
|
|
|
|
|
|
$status = true;
|
|
|
|
|
|
|
|
//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 SCORM record structure
|
|
|
|
$scorm->course = $restore->course_id;
|
|
|
|
$scorm->name = backup_todb($info['MOD']['#']['NAME']['0']['#']);
|
|
|
|
$scorm->reference = backup_todb($info['MOD']['#']['REFERENCE']['0']['#']);
|
2005-05-24 14:32:57 +00:00
|
|
|
$scorm->version = backup_todb($info['MOD']['#']['VERSION']['0']['#']);
|
|
|
|
$scorm->maxgrade = backup_todb($info['MOD']['#']['MAXGRADE']['0']['#']);
|
2005-06-06 12:41:44 +00:00
|
|
|
if (!is_int($scorm->maxgrade)) {
|
|
|
|
$scorm->maxgrade = 0;
|
|
|
|
}
|
2005-05-24 14:32:57 +00:00
|
|
|
$scorm->grademethod = backup_todb($info['MOD']['#']['GRADEMETHOD']['0']['#']);
|
2005-06-06 12:41:44 +00:00
|
|
|
if (!is_int($scorm->grademethod)) {
|
|
|
|
$scorm->grademethod = 0;
|
|
|
|
}
|
2005-06-29 07:49:44 +00:00
|
|
|
if ($restore->backup_version < 2005041500) {
|
|
|
|
$scorm->datadir = substr(backup_todb($info['MOD']['#']['DATADIR']['0']['#']),1);
|
|
|
|
} else {
|
|
|
|
$scorm->datadir = backup_todb($info['MOD']['#']['ID']['0']['#']);
|
|
|
|
}
|
|
|
|
$oldlaunch = backup_todb($info['MOD']['#']['LAUNCH']['0']['#']);
|
2004-06-07 13:28:59 +00:00
|
|
|
$scorm->summary = backup_todb($info['MOD']['#']['SUMMARY']['0']['#']);
|
|
|
|
$scorm->auto = backup_todb($info['MOD']['#']['AUTO']['0']['#']);
|
2005-06-29 07:49:44 +00:00
|
|
|
if ($restore->backup_version < 2005040200) {
|
|
|
|
$oldpopup = backup_todb($info['MOD']['#']['POPUP']['0']['#']);
|
|
|
|
if (!empty($oldpopup)) {
|
|
|
|
$scorm->popup = 1;
|
|
|
|
} else {
|
|
|
|
$scorm->popup = 0;
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
$scorm->popup = backup_todb($info['MOD']['#']['POPUP']['0']['#']);
|
|
|
|
}
|
2005-05-23 06:56:10 +00:00
|
|
|
$scorm->width = backup_todb($info['MOD']['#']['WIDTH']['0']['#']);
|
2005-06-06 12:41:44 +00:00
|
|
|
if ($scorm->width == 0) {
|
|
|
|
$scorm->width = 800;
|
|
|
|
}
|
2005-05-23 06:56:10 +00:00
|
|
|
$scorm->height = backup_todb($info['MOD']['#']['HEIGHT']['0']['#']);
|
2005-06-06 12:41:44 +00:00
|
|
|
if ($scorm->height == 0) {
|
|
|
|
$scorm->height = 600;
|
|
|
|
}
|
2005-05-24 14:32:57 +00:00
|
|
|
$scorm->timemodified = time();
|
2004-06-07 13:28:59 +00:00
|
|
|
|
|
|
|
//The structure is equal to the db, so insert the scorm
|
|
|
|
$newid = insert_record ("scorm",$scorm);
|
2005-05-23 06:56:10 +00:00
|
|
|
//Do some output
|
2005-04-24 18:08:59 +00:00
|
|
|
echo "<li>".get_string("modulename","scorm")." \"".format_string(stripslashes($scorm->name),true)."\"</li>";
|
2004-06-07 13:28:59 +00:00
|
|
|
backup_flush(300);
|
|
|
|
|
|
|
|
if ($newid) {
|
|
|
|
//We have the newid, update backup_ids
|
|
|
|
backup_putid($restore->backup_unique_code,$mod->modtype,
|
|
|
|
$mod->id, $newid);
|
2005-06-29 07:49:44 +00:00
|
|
|
$scorm->id = $newid;
|
2004-06-07 13:28:59 +00:00
|
|
|
//Now copy moddata associated files
|
2005-04-15 14:34:48 +00:00
|
|
|
$status = scorm_restore_files ($scorm, $restore);
|
2005-05-23 06:56:10 +00:00
|
|
|
|
2005-06-29 07:49:44 +00:00
|
|
|
if ($status) {
|
2004-06-07 13:28:59 +00:00
|
|
|
$status = scorm_scoes_restore_mods ($newid,$info,$restore);
|
2005-06-29 07:49:44 +00:00
|
|
|
if ($status) {
|
|
|
|
$launchsco = backup_getid($restore->backup_unique_code,"scorm_scoes",$oldlaunch);
|
|
|
|
$scorm->launch = $launchsco->new_id;
|
|
|
|
update_record('scorm',$scorm);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2004-06-07 13:28:59 +00:00
|
|
|
} else {
|
|
|
|
$status = false;
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
$status = false;
|
|
|
|
}
|
|
|
|
|
|
|
|
return $status;
|
|
|
|
}
|
|
|
|
|
|
|
|
//This function restores the scorm_scoes
|
|
|
|
function scorm_scoes_restore_mods($scorm_id,$info,$restore) {
|
2005-05-24 14:32:57 +00:00
|
|
|
|
2004-06-07 13:28:59 +00:00
|
|
|
global $CFG;
|
|
|
|
|
|
|
|
$status = true;
|
|
|
|
|
|
|
|
//Get the sco array
|
|
|
|
$scoes = $info['MOD']['#']['SCOES']['0']['#']['SCO'];
|
|
|
|
|
|
|
|
//Iterate over scoes
|
|
|
|
for($i = 0; $i < sizeof($scoes); $i++) {
|
|
|
|
$sub_info = $scoes[$i];
|
|
|
|
|
2005-05-16 23:41:58 +00:00
|
|
|
//We'll need this later!!
|
2004-06-07 13:28:59 +00:00
|
|
|
$oldid = backup_todb($sub_info['#']['ID']['0']['#']);
|
2005-05-23 06:56:10 +00:00
|
|
|
|
2004-06-07 13:28:59 +00:00
|
|
|
//Now, build the scorm_scoes record structure
|
|
|
|
$sco->scorm = $scorm_id;
|
2004-07-19 14:53:43 +00:00
|
|
|
$sco->manifest = backup_todb($sub_info['#']['MANIFEST']['0']['#']);
|
|
|
|
$sco->organization = backup_todb($sub_info['#']['ORGANIZATION']['0']['#']);
|
2004-06-07 13:28:59 +00:00
|
|
|
$sco->parent = backup_todb($sub_info['#']['PARENT']['0']['#']);
|
|
|
|
$sco->identifier = backup_todb($sub_info['#']['IDENTIFIER']['0']['#']);
|
|
|
|
$sco->launch = backup_todb($sub_info['#']['LAUNCH']['0']['#']);
|
2005-05-24 14:32:57 +00:00
|
|
|
if ($restore->backup_version < 2005031300) {
|
|
|
|
$sco->scormtype = backup_todb($sub_info['#']['TYPE']['0']['#']);
|
|
|
|
} else {
|
|
|
|
$sco->scormtype = backup_todb($sub_info['#']['SCORMTYPE']['0']['#']);
|
|
|
|
}
|
2004-06-07 13:28:59 +00:00
|
|
|
$sco->title = backup_todb($sub_info['#']['TITLE']['0']['#']);
|
2005-05-24 14:32:57 +00:00
|
|
|
$sco->prerequisites = backup_todb($sub_info['#']['PREREQUISITES']['0']['#']);
|
|
|
|
$sco->maxtimeallowed = backup_todb($sub_info['#']['MAXTIMEALLOWED']['0']['#']);
|
|
|
|
$sco->timelimitaction = backup_todb($sub_info['#']['TIMELIMITACTION']['0']['#']);
|
2004-07-19 14:53:43 +00:00
|
|
|
$sco->datafromlms = backup_todb($sub_info['#']['DATAFROMLMS']['0']['#']);
|
2005-05-24 14:32:57 +00:00
|
|
|
$sco->masteryscore = backup_todb($sub_info['#']['MASTERYSCORE']['0']['#']);
|
2004-06-07 13:28:59 +00:00
|
|
|
$sco->next = backup_todb($sub_info['#']['NEXT']['0']['#']);
|
|
|
|
$sco->previous = backup_todb($sub_info['#']['PREVIOUS']['0']['#']);
|
|
|
|
|
|
|
|
//The structure is equal to the db, so insert the scorm_scoes
|
|
|
|
$newid = insert_record ("scorm_scoes",$sco);
|
2005-05-24 14:32:57 +00:00
|
|
|
|
|
|
|
if ($newid) {
|
|
|
|
//We have the newid, update backup_ids
|
|
|
|
backup_putid($restore->backup_unique_code,"scorm_scoes", $oldid, $newid);
|
|
|
|
} else {
|
|
|
|
$status = false;
|
|
|
|
}
|
|
|
|
}
|
2005-05-23 06:56:10 +00:00
|
|
|
|
2005-05-24 14:32:57 +00:00
|
|
|
//Now check if want to restore user data and do it.
|
|
|
|
if ($restore->mods['scorm']->userinfo) {
|
|
|
|
//Restore scorm_scoes
|
|
|
|
if ($status) {
|
|
|
|
if ($restore->backup_version < 2005031300) {
|
|
|
|
$status = scorm_scoes_tracks_restore_mods_pre15 ($scorm_id,$info,$restore);
|
|
|
|
} else {
|
2005-04-01 15:53:32 +00:00
|
|
|
$status = scorm_scoes_tracks_restore_mods ($scorm_id,$info,$restore);
|
|
|
|
}
|
|
|
|
}
|
2005-05-24 14:32:57 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
return $status;
|
|
|
|
}
|
|
|
|
|
|
|
|
//This function restores the scorm_scoes_track
|
|
|
|
function scorm_scoes_tracks_restore_mods($scorm_id,$info,$restore) {
|
|
|
|
|
|
|
|
global $CFG;
|
|
|
|
|
|
|
|
$status = true;
|
|
|
|
$scotracks = NULL;
|
|
|
|
|
|
|
|
//Get the sco array
|
|
|
|
if (!empty($info['MOD']['#']['SCO_TRACKS']['0']['#']['SCO_TRACK']))
|
|
|
|
$scotracks = $info['MOD']['#']['SCO_TRACKS']['0']['#']['SCO_TRACK'];
|
|
|
|
|
|
|
|
//Iterate over sco_users
|
|
|
|
for($i = 0; $i < sizeof($scotracks); $i++) {
|
|
|
|
$sub_info = $scotracks[$i];
|
|
|
|
unset($scotrack);
|
|
|
|
|
|
|
|
//Now, build the scorm_scoes_track record structure
|
|
|
|
$scotrack->scormid = $scorm_id;
|
|
|
|
$scotrack->userid = backup_todb($sub_info['#']['USERID']['0']['#']);
|
|
|
|
$scotrack->scoid = backup_todb($sub_info['#']['SCOID']['0']['#']);
|
|
|
|
$scotrack->element = backup_todb($sub_info['#']['ELEMENT']['0']['#']);
|
|
|
|
$scotrack->value = backup_todb($sub_info['#']['VALUE']['0']['#']);
|
|
|
|
|
|
|
|
//We have to recode the userid field
|
|
|
|
$user = backup_getid($restore->backup_unique_code,"user",$scotrack->userid);
|
|
|
|
if (!empty($user)) {
|
|
|
|
$scotrack->userid = $user->new_id;
|
|
|
|
}
|
|
|
|
|
|
|
|
//We have to recode the scoid field
|
|
|
|
$sco = backup_getid($restore->backup_unique_code,"scorm_scoes",$scotrack->scoid);
|
|
|
|
if ($sco != NULL) {
|
|
|
|
$scotrack->scoid = $sco->new_id;
|
|
|
|
}
|
|
|
|
|
|
|
|
//The structure is equal to the db, so insert the scorm_scoes_track
|
|
|
|
$newid = insert_record ("scorm_scoes_track",$scotrack);
|
2004-06-07 13:28:59 +00:00
|
|
|
|
|
|
|
//Do some output
|
|
|
|
if (($i+1) % 50 == 0) {
|
|
|
|
echo ".";
|
|
|
|
if (($i+1) % 1000 == 0) {
|
2004-09-12 14:41:49 +00:00
|
|
|
echo "<br />";
|
2004-06-07 13:28:59 +00:00
|
|
|
}
|
|
|
|
backup_flush(300);
|
|
|
|
}
|
2005-05-23 06:56:10 +00:00
|
|
|
|
2004-06-07 13:28:59 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
return $status;
|
|
|
|
}
|
2005-05-24 14:32:57 +00:00
|
|
|
|
|
|
|
//This function restores the scorm_scoes_track from Moodle 1.4
|
|
|
|
function scorm_scoes_tracks_restore_mods_pre15 ($scorm_id,$info,$restore) {
|
2004-06-07 13:28:59 +00:00
|
|
|
|
|
|
|
global $CFG;
|
|
|
|
|
|
|
|
$status = true;
|
2005-05-24 14:32:57 +00:00
|
|
|
$scousers = NULL;
|
2004-06-07 13:28:59 +00:00
|
|
|
|
|
|
|
//Get the sco array
|
2005-05-24 14:32:57 +00:00
|
|
|
if (!empty($info['MOD']['#']['SCO_USERS']['0']['#']['SCO_USER'])) {
|
|
|
|
$scousers = $info['MOD']['#']['SCO_USERS']['0']['#']['SCO_USER'];
|
|
|
|
}
|
|
|
|
|
|
|
|
$oldelements = array ('CMI_CORE_LESSON_LOCATION',
|
|
|
|
'CMI_CORE_LESSON_STATUS',
|
|
|
|
'CMI_CORE_EXIT',
|
|
|
|
'CMI_CORE_TOTAL_TIME',
|
|
|
|
'CMI_CORE_SCORE_RAW',
|
|
|
|
'CMI_SUSPEND_DATA');
|
|
|
|
$newelements = array ('cmi.core.lesson_location',
|
|
|
|
'cmi.core.lesson_status',
|
|
|
|
'cmi.core.exit',
|
|
|
|
'cmi.core.total_time',
|
|
|
|
'cmi.core.score.raw',
|
|
|
|
'cmi.suspend_data');
|
2004-06-07 13:28:59 +00:00
|
|
|
|
|
|
|
//Iterate over sco_users
|
2005-05-24 14:32:57 +00:00
|
|
|
for ($i = 0; $i < sizeof($scousers); $i++) {
|
|
|
|
$sub_info = $scousers[$i];
|
|
|
|
unset($scotrack);
|
2004-06-07 13:28:59 +00:00
|
|
|
|
|
|
|
//We'll need this later!!
|
|
|
|
$oldid = backup_todb($sub_info['#']['ID']['0']['#']);
|
|
|
|
$oldscoid = backup_todb($sub_info['#']['SCOID']['0']['#']);
|
|
|
|
$olduserid = backup_todb($sub_info['#']['USERID']['0']['#']);
|
|
|
|
|
2005-04-01 15:53:32 +00:00
|
|
|
//Now, build the scorm_scoes_track record structure
|
2005-05-24 14:32:57 +00:00
|
|
|
$scotrack->scormid = $scorm_id;
|
|
|
|
$scotrack->userid = backup_todb($sub_info['#']['USERID']['0']['#']);
|
|
|
|
$scotrack->scoid = backup_todb($sub_info['#']['SCOID']['0']['#']);
|
|
|
|
$pos = 0;
|
|
|
|
foreach ($oldelements as $oldelement) {
|
|
|
|
$elementvalue = backup_todb($sub_info['#'][$oldelement]['0']['#']);
|
|
|
|
if (!empty($elementvalue)) {
|
|
|
|
$scotrack->element = $newelements[$pos];
|
|
|
|
$scotrack->value = backup_todb($sub_info['#'][strtoupper($oldelement)]['0']['#']);
|
|
|
|
|
|
|
|
//We have to recode the userid field
|
|
|
|
$user = backup_getid($restore->backup_unique_code,"user",$scotrack->userid);
|
|
|
|
if (!empty($user)) {
|
|
|
|
$scotrack->userid = $user->new_id;
|
|
|
|
}
|
|
|
|
|
|
|
|
//We have to recode the scoid field
|
|
|
|
$sco = backup_getid($restore->backup_unique_code,"scorm_scoes",$scotrack->scoid);
|
|
|
|
if (!empty($sco)) {
|
|
|
|
$scotrack->scoid = $sco->new_id;
|
|
|
|
}
|
|
|
|
|
|
|
|
//The structure is equal to the db, so insert the scorm_scoes_track
|
|
|
|
$newid = insert_record ("scorm_scoes_track",$scotrack);
|
|
|
|
}
|
|
|
|
$pos++;
|
2004-06-07 13:28:59 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
//Do some output
|
|
|
|
if (($i+1) % 50 == 0) {
|
|
|
|
echo ".";
|
|
|
|
if (($i+1) % 1000 == 0) {
|
2004-09-12 14:41:49 +00:00
|
|
|
echo "<br />";
|
2004-06-07 13:28:59 +00:00
|
|
|
}
|
|
|
|
backup_flush(300);
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
return $status;
|
|
|
|
}
|
2005-05-23 06:56:10 +00:00
|
|
|
|
2004-06-07 13:28:59 +00:00
|
|
|
//This function copies the scorm related info from backup temp dir to course moddata folder,
|
|
|
|
//creating it if needed
|
2005-04-15 14:34:48 +00:00
|
|
|
function scorm_restore_files ($package, $restore) {
|
2004-06-07 13:28:59 +00:00
|
|
|
|
|
|
|
global $CFG;
|
|
|
|
|
|
|
|
$status = true;
|
|
|
|
$todo = false;
|
|
|
|
$moddata_path = "";
|
|
|
|
$scorm_path = "";
|
|
|
|
$temp_path = "";
|
|
|
|
|
|
|
|
//First, we check to "course_id" exists and create is as necessary
|
|
|
|
//in CFG->dataroot
|
|
|
|
$dest_dir = $CFG->dataroot."/".$restore->course_id;
|
|
|
|
$status = check_dir_exists($dest_dir,true);
|
|
|
|
|
|
|
|
//First, locate course's moddata directory
|
|
|
|
$moddata_path = $CFG->dataroot."/".$restore->course_id."/".$CFG->moddata;
|
2005-05-23 06:56:10 +00:00
|
|
|
|
2004-06-07 13:28:59 +00:00
|
|
|
//Check it exists and create it
|
|
|
|
$status = check_dir_exists($moddata_path,true);
|
|
|
|
|
|
|
|
//Now, locate scorm directory
|
|
|
|
if ($status) {
|
|
|
|
$scorm_path = $moddata_path."/scorm";
|
|
|
|
//Check it exists and create it
|
|
|
|
$status = check_dir_exists($scorm_path,true);
|
|
|
|
}
|
|
|
|
|
|
|
|
//Now locate the temp dir we are restoring from
|
|
|
|
if ($status) {
|
|
|
|
$temp_path = $CFG->dataroot."/temp/backup/".$restore->backup_unique_code.
|
2005-06-29 07:49:44 +00:00
|
|
|
"/moddata/scorm/".$package->datadir;
|
2004-06-07 13:28:59 +00:00
|
|
|
//Check it exists
|
|
|
|
if (is_dir($temp_path)) {
|
|
|
|
$todo = true;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
//If todo, we create the neccesary dirs in course moddata/scorm
|
|
|
|
if ($status and $todo) {
|
|
|
|
//Make scorm package directory path
|
2005-04-15 14:34:48 +00:00
|
|
|
$this_scorm_path = $scorm_path."/".$package->id;
|
2004-06-07 13:28:59 +00:00
|
|
|
$status = backup_copy_file($temp_path, $this_scorm_path);
|
|
|
|
}
|
|
|
|
|
|
|
|
return $status;
|
|
|
|
}
|
2005-05-23 06:56:10 +00:00
|
|
|
|
2004-06-07 13:28:59 +00:00
|
|
|
//This function returns a log record with all the necessay transformations
|
|
|
|
//done. It's used by restore_log_module() to restore modules log.
|
|
|
|
function scorm_restore_logs($restore,$log) {
|
2005-05-23 06:56:10 +00:00
|
|
|
|
2004-06-07 13:28:59 +00:00
|
|
|
$status = true;
|
2005-05-23 06:56:10 +00:00
|
|
|
|
2004-06-07 13:28:59 +00:00
|
|
|
return $status;
|
|
|
|
}
|
|
|
|
?>
|