moodle/mod/quiz/edit.php

<?PHP // $Id$

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

    require_login();

    if (match_referer($destination) && isset($course) && isset($HTTP_POST_VARS)) {    // form submitted from mod.html
        $modform = (object)$HTTP_POST_VARS;

        if (!$modform->name or !$modform->intro) {
            error(get_string("filloutallfields"), $HTTP_REFERER);
        }

        $SESSION->modform = $modform;    // Save the form in the current session
        save_session("SESSION");

    } else {
        if (!isset($SESSION->modform)) {
            error("You have used this page incorrectly!");
        }

        $modform = $SESSION->modform;
    }


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

    require_login($course->id);

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

    if (! $modform->grades) {  // Construct an array to hold all the grades.
        $modform->grades = quiz_get_all_question_grades($modform->questions, $modform->instance);
    }


    // Now, check for commands on this page and modify variables as necessary

    if ($up) { /// Move the given question up a slot
        $questions = explode(",", $modform->questions);
        if ($questions[0] <> $up) {
            foreach ($questions as $key => $question) {
                if ($up == $question) {
                    $swap = $questions[$key-1];
                    $questions[$key-1] = $question;
                    $questions[$key]   = $swap;
                    break;
                }
            }
            $modform->questions = implode(",", $questions);
        }
    }

    if ($down) { /// Move the given question down a slot
        $questions = explode(",", $modform->questions);
        if ($questions[count($questions)-1] <> $down) {
            foreach ($questions as $key => $question) {
                if ($down == $question) {
                    $swap = $questions[$key+1];
                    $questions[$key+1] = $question;
                    $questions[$key]   = $swap;
                    break;
                }
            }
            $modform->questions = implode(",", $questions);
        }
    }

    if ($add) { /// Add a question to the current quiz
        $rawquestions = $HTTP_POST_VARS;
        if ($modform->questions) {
            $questions = explode(",", $modform->questions);
        }
        foreach ($rawquestions as $key => $value) {    // Parse input for question ids
            if (substr($key, 0, 1) == "q") {
                $key = substr($key,1);
                if ($questions) {
                    foreach ($questions as $question) {
                        if ($question == $key) {
                            continue 2;
                        }
                    }
                }
                $questions[] = $key;
                $modform->grades[$key] = 1;   // default score
            }
        }
        if ($questions) {
            $modform->questions = implode(",", $questions);
        } else {
            $modform->questions = "";
        }
    }

    if ($delete) { /// Delete a question from the list 
        $questions = explode(",", $modform->questions);
        foreach ($questions as $key => $question) {
            if ($question == $delete) {
                unset($questions[$key]);
                unset($modform->grades[$question]);
            }
        }
        $modform->questions = implode(",", $questions);
    }

    if ($grade) { /// The grades have been updated, so update our internal list
        $rawgrades = $HTTP_POST_VARS;
        foreach ($rawgrades as $key => $value) {    // Parse input for question -> grades
            if (substr($key, 0, 1) == "q") {
                $key = substr($key,1);
                $modform->grades[$key] = $value;
            }
        }
    }

    if ($cat) { //-----------------------------------------------------------
        if ($catshow) {
            $modform->category = $cat;
        } else if ($catrename) {
            redirect("category.php?rename=$cat");
        } else if ($catdelete) {
            redirect("category.php?delete=$cat");
        } else if ($catnew) {
            redirect("category.php?new=$cat");
        }
    }

    $modform->sumgrades = 0;
    if ($modform->grades) {
        foreach ($modform->grades as $grade) {
            $modform->sumgrades += $grade;
        }
    }

    $SESSION->modform = $modform;
    save_session("SESSION");


    $strediting = get_string("editingquiz", "quiz");
    $strname    = get_string("name");

    print_header("$course->shortname: $strediting", "$course->shortname: $strediting",
                 "<A HREF=\"$CFG->wwwroot/course/view.php?id=$course->id\">$course->shortname</A> -> $strediting");

    // Print basic page layout.

    echo "<TABLE BORDER=0 WIDTH=\"100%\" CELLPADDING=2 CELLSPACING=0>";
    echo "<TR><TD WIDTH=50% VALIGN=TOP>";
        print_simple_box_start("CENTER", "100%", $THEME->body);
        print_heading($modform->name);
        quiz_print_question_list($modform->questions, $modform->grades); 
        ?>
        <CENTER>
        <P>&nbsp;</P>
        <FORM  NAME=theform METHOD=post ACTION=<?=$modform->destination ?>>
        <INPUT TYPE="hidden" NAME=course  VALUE="<? p($modform->course) ?>">
        <INPUT TYPE="submit" VALUE="<? print_string("savequiz", "quiz") ?>">
        </FORM>
        </CENTER>
        <?
        print_simple_box_end();
    echo "</TD><TD VALIGN=top WIDTH=50%>";
        print_simple_box_start("CENTER", "100%", $THEME->body);
        quiz_print_category_form($course, $modform->category);
        print_simple_box_end();
        
        print_spacer(5,1);

        print_simple_box_start("CENTER", "100%", $THEME->body);
        quiz_print_cat_question_list($modform->category);
        print_simple_box_end();
    echo "</TD></TR>";
    echo "</TABLE>";

    print_footer($course);
?>