Proyectos de Subversion Moodle

<?php

// This file is part of Moodle - http://moodle.org/

//

// Moodle is free software: you can redistribute it and/or modify

// it under the terms of the GNU General Public License as published by

// the Free Software Foundation, either version 3 of the License, or

// (at your option) any later version.

//

// Moodle is distributed in the hope that it will be useful,

// but WITHOUT ANY WARRANTY; without even the implied warranty of

// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

// GNU General Public License for more details.

//

// You should have received a copy of the GNU General Public License

// along with Moodle.  If not, see <http://www.gnu.org/licenses/>.

/**

 * List of grade letters.

 *

 * @package   core_grades

 * @copyright 2008 Nicolas Connault

 * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later

 */

require_once '../../../config.php';

require_once $CFG->dirroot.'/grade/lib.php';

require_once $CFG->libdir.'/gradelib.php';

$contextid = optional_param('id', SYSCONTEXTID, PARAM_INT);

$action   = optional_param('action', '', PARAM_ALPHA);

$edit     = optional_param('edit', false, PARAM_BOOL); //are we editing?

$url = new moodle_url('/grade/edit/letter/index.php', array('id' => $contextid));

list($context, $course, $cm) = get_context_info_array($contextid);

$contextid = null;//now we have a context object throw away the $contextid from the params

//if viewing

if (!$edit) {

    if (!has_capability('moodle/grade:manage', $context) and !has_capability('moodle/grade:manageletters', $context)) {

        throw new \moodle_exception('nopermissiontoviewletergrade');

    }

} else {//else we're editing

    require_capability('moodle/grade:manageletters', $context);

    navigation_node::override_active_url($url);

    $url->param('edit', 1);

    $PAGE->navbar->add(get_string('editgradeletters', 'grades'), $url);

}

$PAGE->set_url($url);

$returnurl = null;

$editparam = null;

if ($context->contextlevel == CONTEXT_SYSTEM or $context->contextlevel == CONTEXT_COURSECAT) {

    require_once $CFG->libdir.'/adminlib.php';

    admin_externalpage_setup('letters');

    $admin = true;

    $returnurl = "$CFG->wwwroot/grade/edit/letter/index.php";

    $editparam = '?edit=1';

    $PAGE->set_primary_active_tab('siteadminnode');

} else if ($context->contextlevel == CONTEXT_COURSE) {

    $PAGE->set_pagelayout('standard');//calling this here to make blocks display

    require_login($context->instanceid, false, $cm);

    $admin = false;

    $returnurl = $CFG->wwwroot.'/grade/edit/letter/index.php?id='.$context->id;

    $editparam = '&edit=1';

    $gpr = new grade_plugin_return(array('type'=>'edit', 'plugin'=>'letter', 'courseid'=>$course->id));

} else {

    throw new \moodle_exception('invalidcourselevel');

}

$strgrades = get_string('grades');

$pagename  = get_string('letters', 'grades');

$letters = grade_get_letters($context);

$override = $DB->record_exists('grade_letters', array('contextid' => $context->id));

//if were viewing the letters

if (!$edit) {

    $heading = get_string('gradeletters', 'grades');

    $actionbar = new \core_grades\output\grade_letters_action_bar($context);

    if ($admin) {

        echo $OUTPUT->header();

        $renderer = $PAGE->get_renderer('core_grades');

        echo $renderer->render_action_bar($actionbar);

        echo $OUTPUT->heading($heading);

    } else {

        print_grade_page_head($course->id, 'letter', 'view', false, false, false,

            true, null, null, null, $actionbar);

    }

    $data = array();

    $max = 100;

    foreach($letters as $boundary=>$letter) {

        $line = array();

        $line[] = format_float($max,2).' %';

        $line[] = format_float($boundary,2).' %';

        $line[] = format_string($letter);

        $data[] = $line;

        $max = $boundary - 0.01;

    }

    if (!empty($override)) {

        echo $OUTPUT->notification(get_string('gradeletteroverridden', 'grades'), 'notifymessage');

    }

    $table = new html_table();

    $table->id = 'grade-letters-view';

    $table->head  = array(get_string('max', 'grades'), get_string('min', 'grades'), get_string('letter', 'grades'));

    $table->size  = array('30%', '30%', '40%');

    $table->align = array('left', 'left', 'left');

    $table->width = '30%';

    $table->data  = $data;

    $table->tablealign  = 'center';

    echo html_writer::table($table);

} else { //else we're editing

    require_once('edit_form.php');

    $data = new stdClass();

    $data->id = $context->id;

    $i = 0;

    foreach ($letters as $boundary=>$letter) {

        $data->gradeletter[$i] = $letter;

        $data->gradeboundary[$i] = $boundary;

        $i++;

    }

    $data->override = $override;

    // Count number of letters, used to build the repeated elements of the form.

    $lettercount = count($letters);

    $mform = new edit_letter_form($returnurl.$editparam, ['lettercount' => $lettercount, 'admin' => $admin]);

    $mform->set_data($data);

    if ($mform->is_cancelled()) {

        redirect($returnurl);

    } else if ($data = $mform->get_data()) {

        // Make sure we are updating the cache.

        $cache = cache::make('core', 'grade_letters');

        if (!$admin and empty($data->override)) {

            $records = $DB->get_records('grade_letters', array('contextid' => $context->id));

            foreach ($records as $record) {

                $DB->delete_records('grade_letters', array('id' => $record->id));

                // Trigger the letter grade deleted event.

                $event = \core\event\grade_letter_deleted::create(array(

                    'objectid' => $record->id,

                    'context' => $context,

                ));

                $event->trigger();

            }

            // Make sure we clear the cache for this context.

            $cache->delete($context->id);

            redirect($returnurl);

        }

        $letters = array();

        for ($i = 0; $i < $data->gradeentrycount; $i++) {

            $letter = $data->gradeletter[$i];

            if ($letter === '') {

                continue;

            }

            $boundary = floatval($data->gradeboundary[$i]);

            if ($boundary < 0 || $boundary > 100) {

                continue;    // Skip if out of range.

            }

            // The keys need to be strings so floats are not truncated.

            $letters[number_format($boundary, 5)] = $letter;

        }

        $pool = array();

        if ($records = $DB->get_records('grade_letters', array('contextid' => $context->id), 'lowerboundary ASC')) {

            foreach ($records as $r) {

                // Will re-use the lowerboundary to avoid duplicate during the update process.

                $pool[number_format($r->lowerboundary, 5)] = $r;

            }

        }

        foreach ($letters as $boundary => $letter) {

            $record = new stdClass();

            $record->letter        = $letter;

            $record->lowerboundary = $boundary;

            $record->contextid     = $context->id;

            if (isset($pool[$boundary])) {

                // Re-use the existing boundary to avoid key constraint.

                if ($letter != $pool[$boundary]->letter) {

                    // The letter has been assigned to another boundary, we update it.

                    $record->id = $pool[$boundary]->id;

                    $DB->update_record('grade_letters', $record);

                    // Trigger the letter grade updated event.

                    $event = \core\event\grade_letter_updated::create(array(

                        'objectid' => $record->id,

                        'context' => $context,

                    ));

                    $event->trigger();

                }

                unset($pool[$boundary]);    // Remove the letter from the pool.

            } else if ($candidate = array_pop($pool)) {

                // The boundary is new, we update a random record from the pool.

                $record->id = $candidate->id;

                $DB->update_record('grade_letters', $record);

                // Trigger the letter grade updated event.

                $event = \core\event\grade_letter_updated::create(array(

                    'objectid' => $record->id,

                    'context' => $context,

                ));

                $event->trigger();

            } else {

                // No records were found, this must be a new letter.

                $newid = $DB->insert_record('grade_letters', $record);

                // Trigger the letter grade added event.

                $event = \core\event\grade_letter_created::create(array(

                    'objectid' => $newid,

                    'context' => $context,

                ));

                $event->trigger();

            }

        }

        // Cache the changed letters.

        if (!empty($letters)) {

            // For some reason, the cache saves it in the order in which they were entered

            // but we really want to order them in descending order so we sort it here.

            krsort($letters);

            $cache->set($context->id, $letters);

        }

        // Delete the unused records.

        foreach($pool as $leftover) {

            $DB->delete_records('grade_letters', array('id' => $leftover->id));

            // Trigger the letter grade deleted event.

            $event = \core\event\grade_letter_deleted::create(array(

                'objectid' => $leftover->id,

                'context' => $context,

            ));

            $event->trigger();

        }

        redirect($returnurl);

    }

    print_grade_page_head($COURSE->id, 'letter', 'edit', get_string('editgradeletters', 'grades'),

        false, false, false);

    $mform->display();

}

echo $OUTPUT->footer();