moodle/course/mod.php

<?PHP // $Id$

//  Moves, adds, updates or deletes modules in a course

    require("../config.php");

    if (isset($course) && isset($HTTP_POST_VARS)) {    // add or update form submitted
        $mod = (object)$HTTP_POST_VARS;

        require_login($mod->course);

        if (!isteacher($mod->course)) {
            error("You can't modify this course!");
        }

        $modcode = "../mod/$mod->modulename/mod.php";
        if (file_exists($modcode)) {
            include($modcode);
        } else {
            error("This module is missing important code! (mod.php)");
        }

        switch ($mod->mode) {
            case "update":
                if (! update_instance($mod)) {
                    error("Could not update the $mod->modulename");
                }
                add_to_log("Updated $mod->modulename $mod->instance", $mod->course);
                break;

            case "add":
                if (! $mod->instance = add_instance($mod)) {
                    error("Could not add a new instance of $mod->modulename");
                }
                // course_modules and course_weeks each contain a reference 
                // to each other, so we have to update one of them twice.

                if (! $mod->course_module = add_course_module($mod) ) {
                    error("Could not add a new course module");
                }
                if (! $weekid = add_mod_to_week($mod) ) {
                    error("Could not add the new course module to that week");
                }
                if (! set_field("course_modules", "week", $weekid, "id", $mod->course_module)) {
                    error("Could not update the course module with the correct week");
                }   
                add_to_log("Added $mod->modulename $mod->instance", $mod->course);
                break;
            case "delete":
                if (! delete_instance($mod->instance)) {
                    error("Could not delete the $mod->modulename");
                }
                if (! delete_course_module($mod->coursemodule)) {
                    error("Could not delete the $mod->modulename");
                }
                if (! delete_mod_from_week($mod->coursemodule, "$mod->week")) {
                    error("Could not delete the $mod->modulename from that week");
                }
                add_to_log("Deleted $mod->modulename $mod->instance", $mod->course);
                break;
            default:
                error("No mode defined");

        }

        redirect("view.php?id=$mod->course");
        exit;
    }


    if (isset($move)) {  

        require_variable($id);   

        move_module($id, $move);

        redirect($HTTP_REFERER);
        exit;

    } else if (isset($delete)) {   // value = course module

        if (! $cm = get_record("course_modules", "id", $delete)) {
            error("This course module doesn't exist");
        }

        if (! $course = get_record("course", "id", $cm->course)) {
            error("This course doesn't exist");
        }

        if (! $module = get_record("modules", "id", $cm->module)) {
            error("This module doesn't exist");
        }

        require_login($course->id);

        if (!isteacher($course->id)) {
            error("You can't modify this course!");
        }

        $form->coursemodule = $cm->id;
        $form->week         = $cm->week;
        $form->course       = $cm->course;
        $form->instance     = $cm->instance;
        $form->modulename   = $module->name;

        include("mod_delete.html");

        exit;


    } else if (isset($update)) {   // value = course module

        if (! $cm = get_record("course_modules", "id", $update)) {
            error("This course module doesn't exist");
        }

        if (! $course = get_record("course", "id", $cm->course)) {
            error("This course doesn't exist");
        }

        if (! $module = get_record("modules", "id", $cm->module)) {
            error("This module doesn't exist");
        }

        if (! $form = get_record($module->name, "id", $cm->instance)) {
            error("The required instance of this module doesn't exist");
        }
        
        if (! $cw = get_record("course_weeks", "id", $cm->week)) {
            error("This course week doesn't exist");
        }

        $form->week       = $cm->week;     // The week ID
        $form->course     = $course->id;
        $form->module     = $module->id;
        $form->modulename = $module->name;
        $form->instance   = $cm->instance;
        $form->mode       = "update";

        $pageheading = "Updating a $module->fullname in Week $cw->week";

        
    } else if (isset($add)) {

        if (!$add) {
            redirect($HTTP_REFERER);
            die;
        }

        require_variable($id);
        require_variable($week);

        if (! $course = get_record("course", "id", $id)) {
            error("This course doesn't exist");
        }

        if (! $module = get_record("modules", "name", $add)) {
            error("This module type doesn't exist");
        }

        $form->week       = $week;         // The week number itself
        $form->course     = $course->id;
        $form->module     = $module->id;
        $form->modulename = $module->name;
        $form->instance   = $cm->instance;
        $form->mode       = "add";

        if ($form->week) {
            $pageheading = "Adding a new $module->fullname to Week $form->week";
        } else {
            $pageheading = "Adding a new $module->fullname";
        }

    } else {
        error("No action was specfied");
    }

    require_login($course->id);

    if (!isteacher($course->id)) {
        error("You can't modify this course!");
    }

    if ($course->category) {
        print_header("$course->shortname: Editing a $module->fullname", 
                     "$course->shortname: Editing a $module->fullname",
                     "<A HREF=\"$CFG->wwwroot/course/view.php?id=$course->id\">$course->shortname</A> -> 
                      Editing a $module->fullname", "form.name");
    } else {
        print_header("$course->shortname: Editing a $module->fullname", 
                     "$course->shortname: Editing a $module->fullname",
                     "Editing a $module->fullname", "form.name");
    }

    $modform = "../mod/$module->name/mod.html";

    if (file_exists($modform)) {

        print_heading($pageheading);
        print_simple_box_start("center", "", "$THEME->cellheading");
        include($modform);
        print_simple_box_end();

    } else {
        notice("This module cannot be added to this course yet!", "$CFG->wwwroot/course/view.php?id=$course->id");
    }

    print_footer($course);

    exit;


/// FUNCTIONS //////////////////////////////////////////////////////////////////////

function add_course_module($mod) {
    GLOBAL $db;

    $timenow = time();

    if (!$rs = $db->Execute("INSERT into course_modules 
                                SET course   = '$mod->course', 
                                    module   = '$mod->module',
                                    instance = '$mod->instance',
                                    week     = '$mod->week',
                                    added    = '$timenow' ")) {
        return 0;
    }
    
    // Get it out again - this is the most compatible way to determine the ID
    if ($rs = $db->Execute("SELECT id FROM course_modules 
                            WHERE module = $mod->module AND added = $timenow")) {
        return $rs->fields[0];
    } else {
        return 0;
    }

}

function add_mod_to_week($mod) {
// Returns the course_weeks ID where the mod is inserted
    GLOBAL $db;

    if ($cw = get_record_sql("SELECT * FROM course_weeks 
                              WHERE course = '$mod->course' AND week = '$mod->week'") ) {

        if ($cw->sequence) {
            $newsequence = "$cw->sequence,$mod->course_module";
        } else {
            $newsequence = "$mod->course_module";
        }
        if (!$rs = $db->Execute("UPDATE course_weeks SET sequence = '$newsequence' WHERE id = '$cw->id'")) {
            return 0;
        } else {
            return $cw->id;     // Return course_weeks ID that was used.
        }
       
    } else {  // Insert a new record
        if (!$rs = $db->Execute("INSERT into course_weeks 
                                 SET course   = '$mod->course', 
                                     week     = '$mod->week',
                                     summary  = '',
                                     sequence = '$mod->course_module' ")) {
            return 0;
        }
        // Get it out again - this is the most compatible way to determine the ID
        if ($rs = $db->Execute("SELECT id FROM course_weeks 
                                WHERE course = '$mod->course' AND week = '$mod->week'")) {
            return $rs->fields[0];
        } else {
            return 0;
        }
    }
}

function delete_course_module($mod) {
    return set_field("course_modules", "deleted", 1, "id", $mod);
}

function delete_mod_from_week($mod, $week) {
    GLOBAL $db;

    if ($cw = get_record("course_weeks", "id", "$week") ) {

        $modarray = explode(",", $cw->sequence);

        if ($key = array_keys ($modarray, $mod)) {
            array_splice($modarray, $key[0], 1);
            $newsequence = implode(",", $modarray);
            return set_field("course_weeks", "sequence", $newsequence, "id", $cw->id);
        } else {
            return false;
        }
       
    } else {  
        return false;
    }
}


function move_module($id, $move) {
    GLOBAL $db;

    if (!$move) {
        return true;
    }

    if (! $cm = get_record("course_modules", "id", $id)) {
        error("This course module doesn't exist");
    }
    
    if (! $thisweek = get_record("course_weeks", "id", $cm->week)) {
        error("This course week doesn't exist");
    }

    $mods = explode(",", $thisweek->sequence);

    $len = count($mods);
    $pos = array_keys($mods, $cm->id);
    $thepos = $pos[0];

    if ($len == 0 || count($pos) == 0 ) {
        error("Very strange. Could not find the required module in this week.");
    }

    if ($len == 1) {
        $first = true;
        $last = true;
    } else {
        $first = ($thepos == 0);
        $last  = ($thepos == $len - 1);
    }

    if ($move < 0) {    // Moving the module up

        if ($first) {
            if ($thisweek->week == 1) {  // First week, do nothing
                return true;
            } else {               // Push onto end of previous week
                $prevweeknumber = $thisweek->week - 1;
                if (! $prevweek = get_record_sql("SELECT * FROM course_weeks 
                                                  WHERE course='$thisweek->course'
                                                  AND week='$prevweeknumber' ")) {
                    error("Previous week ($prevweek->id) doesn't exist");
                }

                if ($prevweek->sequence) {
                    $newsequence = "$prevweek->sequence,$cm->id";
                } else {
                    $newsequence = "$cm->id";
                }

                if (! set_field("course_weeks", "sequence", $newsequence, "id", $prevweek->id)) {
                    error("Previous week could not be updated");
                }

                if (! set_field("course_modules", "week", $prevweek->id, "id", $cm->id)) {
                    error("Module could not be updated");
                }

                array_splice($mods, 0, 1);
                $newsequence = implode(",", $mods);
                if (! set_field("course_weeks", "sequence", $newsequence, "id", $thisweek->id)) {
                    error("Module could not be updated");
                }

                return true;

            }
        } else {        // move up within this week
            $swap = $mods[$thepos-1];
            $mods[$thepos-1] = $mods[$thepos];
            $mods[$thepos] = $swap;
            
            $newsequence = implode(",", $mods);
            if (! set_field("course_weeks", "sequence", $newsequence, "id", $thisweek->id)) {
                error("This week could not be updated");
            }
            return true;
        }

    } else {            // Moving the module down

        if ($last) {
            $nextweeknumber = $thisweek->week + 1;
            if ($nextweek = get_record_sql("SELECT * FROM course_weeks 
                                            WHERE course='$thisweek->course'
                                            AND week='$nextweeknumber' ")) {

                if ($nextweek->sequence) {
                    $newsequence = "$cm->id,$nextweek->sequence";
                } else {
                    $newsequence = "$cm->id";
                }

                if (! set_field("course_weeks", "sequence", $newsequence, "id", $nextweek->id)) {
                    error("Next week could not be updated");
                }

                if (! set_field("course_modules", "week", $nextweek->id, "id", $cm->id)) {
                    error("Module could not be updated");
                }

                array_splice($mods, $thepos, 1);
                $newsequence = implode(",", $mods);
                if (! set_field("course_weeks", "sequence", $newsequence, "id", $thisweek->id)) {
                    error("This week could not be updated");
                }
                return true;

            } else {        // There is no next week, so just return
                return true;

            }
        } else {      // move down within this week
            $swap = $mods[$thepos+1];
            $mods[$thepos+1] = $mods[$thepos];
            $mods[$thepos] = $swap;
            
            $newsequence = implode(",", $mods);
            if (! set_field("course_weeks", "sequence", $newsequence, "id", $thisweek->id)) {
                error("This week could not be updated");
            }
            return true;
        }
    }
}

?>