/grade/grading/form/guide/classes/grades/grader/gradingpanel/external/fetch.php
PHP | 314 lines | 208 code | 28 blank | 78 comment | 10 complexity | a10675646a5660d745475737306de0db MD5 | raw file
Possible License(s): Apache-2.0, LGPL-2.1, BSD-3-Clause, MIT, GPL-3.0
- <?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/>.
- /**
- * Web services relating to fetching of a marking guide for the grading panel.
- *
- * @package gradingform_guide
- * @copyright 2019 Andrew Nicols <andrew@nicols.co.uk>
- * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
- */
- declare(strict_types = 1);
- namespace gradingform_guide\grades\grader\gradingpanel\external;
- global $CFG;
- use coding_exception;
- use context;
- use core_user;
- use core_grades\component_gradeitem as gradeitem;
- use core_grades\component_gradeitems;
- use external_api;
- use external_format_value;
- use external_function_parameters;
- use external_multiple_structure;
- use external_single_structure;
- use external_value;
- use external_warnings;
- use moodle_exception;
- use stdClass;
- require_once($CFG->dirroot.'/grade/grading/form/guide/lib.php');
- /**
- * Web services relating to fetching of a marking guide for the grading panel.
- *
- * @package gradingform_guide
- * @copyright 2019 Andrew Nicols <andrew@nicols.co.uk>
- * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
- */
- class fetch extends external_api {
- /**
- * Describes the parameters for fetching the grading panel for a simple grade.
- *
- * @return external_function_parameters
- * @since Moodle 3.8
- */
- public static function execute_parameters(): external_function_parameters {
- return new external_function_parameters ([
- 'component' => new external_value(
- PARAM_ALPHANUMEXT,
- 'The name of the component',
- VALUE_REQUIRED
- ),
- 'contextid' => new external_value(
- PARAM_INT,
- 'The ID of the context being graded',
- VALUE_REQUIRED
- ),
- 'itemname' => new external_value(
- PARAM_ALPHANUM,
- 'The grade item itemname being graded',
- VALUE_REQUIRED
- ),
- 'gradeduserid' => new external_value(
- PARAM_INT,
- 'The ID of the user show',
- VALUE_REQUIRED
- ),
- ]);
- }
- /**
- * Fetch the data required to build a grading panel for a simple grade.
- *
- * @param string $component
- * @param int $contextid
- * @param string $itemname
- * @param int $gradeduserid
- * @return array
- * @throws \dml_exception
- * @throws \invalid_parameter_exception
- * @throws \restricted_context_exception
- * @throws coding_exception
- * @throws moodle_exception
- * @since Moodle 3.8
- */
- public static function execute(string $component, int $contextid, string $itemname, int $gradeduserid): array {
- global $CFG, $USER;
- require_once("{$CFG->libdir}/gradelib.php");
- [
- 'component' => $component,
- 'contextid' => $contextid,
- 'itemname' => $itemname,
- 'gradeduserid' => $gradeduserid,
- ] = self::validate_parameters(self::execute_parameters(), [
- 'component' => $component,
- 'contextid' => $contextid,
- 'itemname' => $itemname,
- 'gradeduserid' => $gradeduserid,
- ]);
- // Validate the context.
- $context = context::instance_by_id($contextid);
- self::validate_context($context);
- // Validate that the supplied itemname is a gradable item.
- if (!component_gradeitems::is_valid_itemname($component, $itemname)) {
- throw new coding_exception("The '{$itemname}' item is not valid for the '{$component}' component");
- }
- // Fetch the gradeitem instance.
- $gradeitem = gradeitem::instance($component, $context, $itemname);
- if (MARKING_GUIDE !== $gradeitem->get_advanced_grading_method()) {
- throw new moodle_exception(
- "The {$itemname} item in {$component}/{$contextid} is not configured for advanced grading with a marking guide"
- );
- }
- // Fetch the actual data.
- $gradeduser = core_user::get_user($gradeduserid, '*', MUST_EXIST);
- // One can access its own grades. Others just if they're graders.
- if ($gradeduserid != $USER->id) {
- $gradeitem->require_user_can_grade($gradeduser, $USER);
- }
- return self::get_fetch_data($gradeitem, $gradeduser);
- }
- /**
- * Get the data to be fetched.
- *
- * @param gradeitem $gradeitem
- * @param stdClass $gradeduser
- * @return array
- */
- public static function get_fetch_data(gradeitem $gradeitem, stdClass $gradeduser): array {
- global $USER;
- $hasgrade = $gradeitem->user_has_grade($gradeduser);
- $grade = $gradeitem->get_formatted_grade_for_user($gradeduser, $USER);
- $instance = $gradeitem->get_advanced_grading_instance($USER, $grade);
- if (!$instance) {
- throw new moodle_exception('error:gradingunavailable', 'grading');
- }
- $controller = $instance->get_controller();
- $definition = $controller->get_definition();
- $fillings = $instance->get_guide_filling();
- $context = $controller->get_context();
- $definitionid = (int) $definition->id;
- // Set up some items we need to return on other interfaces.
- $gradegrade = \grade_grade::fetch(['itemid' => $gradeitem->get_grade_item()->id, 'userid' => $gradeduser->id]);
- $gradername = $gradegrade ? fullname(\core_user::get_user($gradegrade->usermodified)) : null;
- $maxgrade = max(array_keys($controller->get_grade_range()));
- $criterion = [];
- if ($definition->guide_criteria) {
- $criterion = array_map(function($criterion) use ($definitionid, $fillings, $context) {
- $result = [
- 'id' => $criterion['id'],
- 'name' => $criterion['shortname'],
- 'maxscore' => $criterion['maxscore'],
- 'description' => self::get_formatted_text(
- $context,
- $definitionid,
- 'description',
- $criterion['description'],
- (int) $criterion['descriptionformat']
- ),
- 'descriptionmarkers' => self::get_formatted_text(
- $context,
- $definitionid,
- 'descriptionmarkers',
- $criterion['descriptionmarkers'],
- (int) $criterion['descriptionmarkersformat']
- ),
- 'score' => null,
- 'remark' => null,
- ];
- if (array_key_exists($criterion['id'], $fillings['criteria'])) {
- $filling = $fillings['criteria'][$criterion['id']];
- $result['score'] = $filling['score'];
- $result['remark'] = self::get_formatted_text(
- $context,
- $definitionid,
- 'remark',
- $filling['remark'],
- (int) $filling['remarkformat']
- );
- }
- return $result;
- }, $definition->guide_criteria);
- }
- $comments = [];
- if ($definition->guide_comments) {
- $comments = array_map(function($comment) use ($definitionid, $context) {
- return [
- 'id' => $comment['id'],
- 'sortorder' => $comment['sortorder'],
- 'description' => self::get_formatted_text(
- $context,
- $definitionid,
- 'description',
- $comment['description'],
- (int) $comment['descriptionformat']
- ),
- ];
- }, $definition->guide_comments);
- }
- return [
- 'templatename' => 'gradingform_guide/grades/grader/gradingpanel',
- 'hasgrade' => $hasgrade,
- 'grade' => [
- 'instanceid' => $instance->get_id(),
- 'criterion' => $criterion,
- 'hascomments' => !empty($comments),
- 'comments' => $comments,
- 'usergrade' => $grade->usergrade,
- 'maxgrade' => $maxgrade,
- 'gradedby' => $gradername,
- 'timecreated' => $grade->timecreated,
- 'timemodified' => $grade->timemodified,
- ],
- 'warnings' => [],
- ];
- }
- /**
- * Describes the data returned from the external function.
- *
- * @return external_single_structure
- * @since Moodle 3.8
- */
- public static function execute_returns(): external_single_structure {
- return new external_single_structure([
- 'templatename' => new external_value(PARAM_SAFEPATH, 'The template to use when rendering this data'),
- 'hasgrade' => new external_value(PARAM_BOOL, 'Does the user have a grade?'),
- 'grade' => new external_single_structure([
- 'instanceid' => new external_value(PARAM_INT, 'The id of the current grading instance'),
- 'criterion' => new external_multiple_structure(
- new external_single_structure([
- 'id' => new external_value(PARAM_INT, 'The id of the criterion'),
- 'name' => new external_value(PARAM_RAW, 'The name of the criterion'),
- 'maxscore' => new external_value(PARAM_FLOAT, 'The maximum score for this criterion'),
- 'description' => new external_value(PARAM_RAW, 'The description of the criterion'),
- 'descriptionmarkers' => new external_value(PARAM_RAW, 'The description of the criterion for markers'),
- 'score' => new external_value(PARAM_FLOAT, 'The current score for user being assessed', VALUE_OPTIONAL),
- 'remark' => new external_value(PARAM_RAW, 'Any remarks for this criterion for the user being assessed', VALUE_OPTIONAL),
- ]),
- 'The criterion by which this item will be graded'
- ),
- 'hascomments' => new external_value(PARAM_BOOL, 'Whether there are any frequently-used comments'),
- 'comments' => new external_multiple_structure(
- new external_single_structure([
- 'id' => new external_value(PARAM_INT, 'Comment id'),
- 'sortorder' => new external_value(PARAM_INT, 'The sortorder of this comment'),
- 'description' => new external_value(PARAM_RAW, 'The comment value'),
- ]),
- 'Frequently used comments'
- ),
- 'usergrade' => new external_value(PARAM_RAW, 'Current user grade'),
- 'maxgrade' => new external_value(PARAM_RAW, 'Max possible grade'),
- 'gradedby' => new external_value(PARAM_RAW, 'The assumed grader of this grading instance'),
- 'timecreated' => new external_value(PARAM_INT, 'The time that the grade was created'),
- 'timemodified' => new external_value(PARAM_INT, 'The time that the grade was last updated'),
- ]),
- 'warnings' => new external_warnings(),
- ]);
- }
- /**
- * Get a formatted version of the remark/description/etc.
- *
- * @param context $context
- * @param int $definitionid
- * @param string $filearea The file area of the field
- * @param string $text The text to be formatted
- * @param int $format The input format of the string
- * @return string
- */
- protected static function get_formatted_text(context $context, int $definitionid, string $filearea, string $text, int $format): string {
- $formatoptions = [
- 'noclean' => false,
- 'trusted' => false,
- 'filter' => true,
- ];
- [$newtext, ] = external_format_text($text, $format, $context, 'grading', $filearea, $definitionid, $formatoptions);
- return $newtext;
- }
- }