moodle/mod/workshop/backuplib.php

390 lines
19 KiB
PHP

<?PHP //$Id$
//This php script contains all the stuff to backup/restore
//workshop mods
//This is the "graphical" structure of the workshop mod:
//
// workshop
// (CL,pk->id)
// |
// |
// |
// |------------------------------|-----------------------------------------------------|
// | |
// | |
// | |
// | workshop_submissions
// | (UL,pk->id,fk->workshopid,files)
// | |
// | |---------------------------| |--------------------------------| |
// | | | | | |
// workshop_elements workshop_grades workshop_assessments
// (CL,pk->id,fk->workshopid) (UL,pk->id,fk->assessmentid) (UL,pk->id,fk->submissionid)
// | ( fk->elementno ) |
// | |
// | |
// workshop_rubrics workshop_comments
// (CL,pk->id,fk->elementno) (UL,pk->id,fk->assessmentid)
//
// 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 backup procedure about this mod
function workshop_backup_mods($bf,$preferences) {
global $CFG;
$status = true;
//Iterate over workshop table
$workshops = get_records ("workshop","course",$preferences->backup_course,"id");
if ($workshops) {
foreach ($workshops as $workshop) {
//Start mod
fwrite ($bf,start_tag("MOD",3,true));
//Print workshop data
fwrite ($bf,full_tag("ID",4,false,$workshop->id));
fwrite ($bf,full_tag("MODTYPE",4,false,"workshop"));
fwrite ($bf,full_tag("NAME",4,false,$workshop->name));
fwrite ($bf,full_tag("DESCRIPTION",4,false,$workshop->description));
fwrite ($bf,full_tag("NELEMENTS",4,false,$workshop->nelements));
fwrite ($bf,full_tag("PHASE",4,false,$workshop->phase));
fwrite ($bf,full_tag("FORMAT",4,false,$workshop->format));
fwrite ($bf,full_tag("GRADINGSTRATEGY",4,false,$workshop->gradingstrategy));
fwrite ($bf,full_tag("RESUBMIT",4,false,$workshop->resubmit));
fwrite ($bf,full_tag("AGREEASSESSMENTS",4,false,$workshop->agreeassessments));
fwrite ($bf,full_tag("HIDEGRADES",4,false,$workshop->hidegrades));
fwrite ($bf,full_tag("ANONYMOUS",4,false,$workshop->anonymous));
fwrite ($bf,full_tag("INCLUDESELF",4,false,$workshop->includeself));
fwrite ($bf,full_tag("MAXBYTES",4,false,$workshop->maxbytes));
fwrite ($bf,full_tag("DEADLINE",4,false,$workshop->deadline));
fwrite ($bf,full_tag("GRADE",4,false,$workshop->grade));
fwrite ($bf,full_tag("NTASSESSMENTS",4,false,$workshop->ntassessments));
fwrite ($bf,full_tag("NSASSESSMENTS",4,false,$workshop->nsassessments));
fwrite ($bf,full_tag("OVERALLOCATION",4,false,$workshop->overallocation));
fwrite ($bf,full_tag("TIMEMODIFIED",4,false,$workshop->timemodified));
fwrite ($bf,full_tag("MERGEGRADES",4,false,$workshop->mergegrades));
fwrite ($bf,full_tag("TEACHERWEIGHT",4,false,$workshop->teacherweight));
fwrite ($bf,full_tag("PEERWEIGHT",4,false,$workshop->peerweight));
fwrite ($bf,full_tag("INCLUDETEACHERSGRADE",4,false,$workshop->includeteachersgrade));
fwrite ($bf,full_tag("BIASWEIGHT",4,false,$workshop->biasweight));
fwrite ($bf,full_tag("RELIABILITYWEIGHT",4,false,$workshop->reliabilityweight));
fwrite ($bf,full_tag("GRADINGWEIGHT",4,false,$workshop->gradingweight));
fwrite ($bf,full_tag("SHOWLEAGUETABLE",4,false,$workshop->showleaguetable));
//Now we backup workshop elements
$status = backup_workshop_elements($bf,$preferences,$workshop->id);
//if we've selected to backup users info, then execute backup_workshop_submisions
if ($preferences->mods["workshop"]->userinfo) {
$status = backup_workshop_submissions($bf,$preferences,$workshop->id);
}
//End mod
$status =fwrite ($bf,end_tag("MOD",3,true));
}
}
//if we've selected to backup users info, then backup files too
if ($status) {
if ($preferences->mods["workshop"]->userinfo) {
$status = backup_workshop_files($bf,$preferences);
}
}
return $status;
}
//Backup workshop_elements contents (executed from workshop_backup_mods)
function backup_workshop_elements ($bf,$preferences,$workshop) {
global $CFG;
$status = true;
$workshop_elements = get_records("workshop_elements","workshopid",$workshop,"id");
//If there is workshop_elements
if ($workshop_elements) {
//Write start tag
$status =fwrite ($bf,start_tag("ELEMENTS",4,true));
//Iterate over each element
foreach ($workshop_elements as $wor_ele) {
//Start element
$status =fwrite ($bf,start_tag("ELEMENT",5,true));
//Print element contents
fwrite ($bf,full_tag("ELEMENTNO",6,false,$wor_ele->elementno));
fwrite ($bf,full_tag("DESCRIPTION",6,false,$wor_ele->description));
fwrite ($bf,full_tag("SCALE",6,false,$wor_ele->scale));
fwrite ($bf,full_tag("MAXSCORE",6,false,$wor_ele->maxscore));
fwrite ($bf,full_tag("WEIGHT",6,false,$wor_ele->weight));
//Now we backup workshop rubrics
$status = backup_workshop_rubrics($bf,$preferences,$workshop,$wor_ele->elementno);
//End element
$status =fwrite ($bf,end_tag("ELEMENT",5,true));
}
//Write end tag
$status =fwrite ($bf,end_tag("ELEMENTS",4,true));
}
return $status;
}
//Backup workshop_rubrics contents (executed from backup_workshop_elements)
function backup_workshop_rubrics ($bf,$preferences,$workshop,$elementno) {
global $CFG;
$status = true;
$workshop_rubrics = get_records_sql("SELECT * from {$CFG->prefix}workshop_rubrics r
WHERE r.workshopid = '$workshop' and r.elementno = '$elementno'
ORDER BY r.elementno");
//If there is workshop_rubrics
if ($workshop_rubrics) {
//Write start tag
$status =fwrite ($bf,start_tag("RUBRICS",6,true));
//Iterate over each element
foreach ($workshop_rubrics as $wor_rub) {
//Start rubric
$status =fwrite ($bf,start_tag("RUBRIC",7,true));
//Print rubric contents
fwrite ($bf,full_tag("RUBRICNO",8,false,$wor_rub->rubricno));
fwrite ($bf,full_tag("DESCRIPTION",8,false,$wor_rub->description));
//End rubric
$status =fwrite ($bf,end_tag("RUBRIC",7,true));
}
//Write end tag
$status =fwrite ($bf,end_tag("RUBRICS",6,true));
}
return $status;
}
//Backup workshop_submissions contents (executed from workshop_backup_mods)
function backup_workshop_submissions ($bf,$preferences,$workshop) {
global $CFG;
$status = true;
$workshop_submissions = get_records("workshop_submissions","workshopid",$workshop,"id");
//If there is submissions
if ($workshop_submissions) {
//Write start tag
$status =fwrite ($bf,start_tag("SUBMISSIONS",4,true));
//Iterate over each submission
foreach ($workshop_submissions as $wor_sub) {
//Start submission
$status =fwrite ($bf,start_tag("SUBMISSION",5,true));
//Print submission contents
fwrite ($bf,full_tag("ID",6,false,$wor_sub->id));
fwrite ($bf,full_tag("USERID",6,false,$wor_sub->userid));
fwrite ($bf,full_tag("TITLE",6,false,$wor_sub->title));
fwrite ($bf,full_tag("TIMECREATED",6,false,$wor_sub->timecreated));
fwrite ($bf,full_tag("MAILED",6,false,$wor_sub->mailed));
fwrite ($bf,full_tag("TEACHERGRADE",6,false,$wor_sub->teachergrade));
fwrite ($bf,full_tag("PEERGRADE",6,false,$wor_sub->peergrade));
fwrite ($bf,full_tag("BIASGRADE",6,false,$wor_sub->biasgrade));
fwrite ($bf,full_tag("RELIABILITYGRADE",6,false,$wor_sub->reliabilitygrade));
fwrite ($bf,full_tag("GRADINGGRADE",6,false,$wor_sub->gradinggrade));
fwrite ($bf,full_tag("FINALGRADE",6,false,$wor_sub->finalgrade));
//Now we backup workshop assessments
$status = backup_workshop_assessments($bf,$preferences,$workshop,$wor_sub->id);
//End submission
$status =fwrite ($bf,end_tag("SUBMISSION",5,true));
}
//Write end tag
$status =fwrite ($bf,end_tag("SUBMISSIONS",4,true));
}
return $status;
}
//Backup workshop_assessments contents (executed from backup_workshop_submissions)
function backup_workshop_assessments ($bf,$preferences,$workshop,$submission) {
global $CFG;
$status = true;
//NOTE: I think that the workshopid can go out (submissionid is a good unique fk), but mantain it, as is in db !!
$workshop_assessments = get_records_sql("SELECT * from {$CFG->prefix}workshop_assessments a
WHERE a.workshopid = '$workshop' and a.submissionid = '$submission'
ORDER BY a.id");
//If there is workshop_assessments
if ($workshop_assessments) {
//Write start tag
$status =fwrite ($bf,start_tag("ASSESSMENTS",6,true));
//Iterate over each assessment
foreach ($workshop_assessments as $wor_ass) {
//Start assessment
$status =fwrite ($bf,start_tag("ASSESSMENT",7,true));
//Print assessment contents
fwrite ($bf,full_tag("ID",8,false,$wor_ass->id));
fwrite ($bf,full_tag("USERID",8,false,$wor_ass->userid));
fwrite ($bf,full_tag("TIMECREATED",8,false,$wor_ass->timecreated));
fwrite ($bf,full_tag("TIMEGRADED",8,false,$wor_ass->timegraded));
fwrite ($bf,full_tag("TIMEAGREED",8,false,$wor_ass->timeagreed));
fwrite ($bf,full_tag("GRADE",8,false,$wor_ass->grade));
fwrite ($bf,full_tag("GRADINGGRADE",8,false,$wor_ass->gradinggrade));
fwrite ($bf,full_tag("RESUBMISSION",8,false,$wor_ass->resubmission));
fwrite ($bf,full_tag("MAILED",8,false,$wor_ass->mailed));
fwrite ($bf,full_tag("GENERALCOMMENT",8,false,$wor_ass->generalcomment));
fwrite ($bf,full_tag("TEACHERCOMMENT",8,false,$wor_ass->teachercomment));
//Now we backup workshop comments
$status = backup_workshop_comments($bf,$preferences,$workshop,$wor_ass->id);
//Now we backup workshop grades
$status = backup_workshop_grades($bf,$preferences,$workshop,$wor_ass->id);
//End assessment
$status =fwrite ($bf,end_tag("ASSESSMENT",7,true));
}
//Write end tag
$status =fwrite ($bf,end_tag("ASSESSMENTS",6,true));
}
return $status;
}
//Backup workshop_comments contents (executed from backup_workshop_assessments)
function backup_workshop_comments ($bf,$preferences,$workshop,$assessmentid) {
global $CFG;
$status = true;
//NOTE: I think that the workshopid can go out (assessmentid is a good unique fk), but mantain it, as is in db !!
$workshop_comments = get_records_sql("SELECT * from {$CFG->prefix}workshop_comments c
WHERE c.workshopid = '$workshop' and c.assessmentid = '$assessmentid'
ORDER BY c.id");
//If there is workshop_comments
if ($workshop_comments) {
//Write start tag
$status =fwrite ($bf,start_tag("COMMENTS",8,true));
//Iterate over each comment
foreach ($workshop_comments as $wor_com) {
//Start comment
$status =fwrite ($bf,start_tag("COMMENT",9,true));
//Print comment contents
fwrite ($bf,full_tag("USERID",10,false,$wor_com->userid));
fwrite ($bf,full_tag("TIMECREATED",10,false,$wor_com->timecreated));
fwrite ($bf,full_tag("MAILED",10,false,$wor_com->mailed));
fwrite ($bf,full_tag("COMMENT_TEXT",10,false,$wor_com->comments));
//End comment
$status =fwrite ($bf,end_tag("COMMENT",9,true));
}
//Write end tag
$status =fwrite ($bf,end_tag("COMMENTS",8,true));
}
return $status;
}
//Backup workshop_grades contents (executed from backup_workshop_assessments)
function backup_workshop_grades ($bf,$preferences,$workshop,$assessmentid) {
global $CFG;
$status = true;
//NOTE: I think that the workshopid can go out (assessmentid is a good unique fk), but mantain it, as is in db !!
$workshop_grades = get_records_sql("SELECT * from {$CFG->prefix}workshop_grades g
WHERE g.workshopid = '$workshop' and g.assessmentid = '$assessmentid'
ORDER BY g.elementno");
//If there is workshop_grades
if ($workshop_grades) {
//Write start tag
$status =fwrite ($bf,start_tag("GRADES",8,true));
//Iterate over each grade
foreach ($workshop_grades as $wor_gra) {
//Start grade
$status =fwrite ($bf,start_tag("GRADE",9,true));
//Print grade contents
fwrite ($bf,full_tag("ELEMENTNO",10,false,$wor_gra->elementno));
fwrite ($bf,full_tag("FEEDBACK",10,false,$wor_gra->feedback));
fwrite ($bf,full_tag("GRADE_VALUE",10,false,$wor_gra->grade));
//End comment
$status =fwrite ($bf,end_tag("GRADE",9,true));
}
//Write end tag
$status =fwrite ($bf,end_tag("GRADES",8,true));
}
return $status;
}
//Backup workshop files because we've selected to backup user info
//and files are user info's level
function backup_workshop_files($bf,$preferences) {
global $CFG;
$status = true;
//First we check to moddata exists and create it as necessary
//in temp/backup/$backup_code dir
$status = check_and_create_moddata_dir($preferences->backup_unique_code);
//Now copy the workshop dir
if ($status) {
//Only if it exists !! Thanks to Daniel Miksik.
if (is_dir($CFG->dataroot."/".$preferences->backup_course."/".$CFG->moddata."/workshop")) {
$status = backup_copy_file($CFG->dataroot."/".$preferences->backup_course."/".$CFG->moddata."/workshop",
$CFG->dataroot."/temp/backup/".$preferences->backup_unique_code."/moddata/workshop");
}
}
return $status;
}
//Return an array of info (name,value)
function workshop_check_backup_mods($course,$user_data=false,$backup_unique_code) {
//First the course data
$info[0][0] = get_string("modulenameplural","workshop");
if ($ids = workshop_ids ($course)) {
$info[0][1] = count($ids);
} else {
$info[0][1] = 0;
}
//Now, if requested, the user_data
if ($user_data) {
$info[1][0] = get_string("submissions","workshop");
if ($ids = workshop_submission_ids_by_course ($course)) {
$info[1][1] = count($ids);
} else {
$info[1][1] = 0;
}
}
return $info;
}
// INTERNAL FUNCTIONS. BASED IN THE MOD STRUCTURE
//Returns an array of workshop id
function workshop_ids ($course) {
global $CFG;
return get_records_sql ("SELECT w.id, w.course
FROM {$CFG->prefix}workshop w
WHERE w.course = '$course'");
}
//Returns an array of workshop_submissions id
function workshop_submission_ids_by_course ($course) {
global $CFG;
return get_records_sql ("SELECT s.id , s.workshopid
FROM {$CFG->prefix}workshop_submissions s,
{$CFG->prefix}workshop w
WHERE w.course = '$course' AND
s.workshopid = w.id");
}
?>