2 // This file is part of Moodle - http://moodle.org/
4 // Moodle is free software: you can redistribute it and/or modify
5 // it under the terms of the GNU General Public License as published by
6 // the Free Software Foundation, either version 3 of the License, or
7 // (at your option) any later version.
9 // Moodle is distributed in the hope that it will be useful,
10 // but WITHOUT ANY WARRANTY; without even the implied warranty of
11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 // GNU General Public License for more details.
14 // You should have received a copy of the GNU General Public License
15 // along with Moodle. If not, see <http://www.gnu.org/licenses/>.
19 * Drop down form element to select the grade
21 * Contains HTML class for a drop down element to select the grade for an activity,
22 * used in mod update form
25 * @copyright 2006 Jamie Pratt <me@jamiep.org>
26 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
30 require_once "$CFG->libdir/form/select.php";
31 require_once("HTML/QuickForm/element.php");
32 require_once($CFG->dirroot
.'/lib/form/group.php');
33 require_once($CFG->dirroot
.'/lib/grade/grade_scale.php');
36 * Drop down form element to select the grade
38 * HTML class for a drop down element to select the grade for an activity,
39 * used in mod update form
43 * @copyright 2006 Jamie Pratt <me@jamiep.org>
44 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
46 class MoodleQuickForm_modgrade
extends MoodleQuickForm_group
{
48 /** @var boolean $isupdate Is this an add or an update ? */
49 public $isupdate = false;
51 /** @var float $currentgrade The current grademax for the grade_item */
52 public $currentgrade = false;
54 /** @var boolean $hasgrades Has this grade_item got any real grades (with values) */
55 public $hasgrades = false;
57 /** @var boolean $canrescale Does this activity support rescaling grades? */
58 public $canrescale = false;
60 /** @var int $currentscaleid The current scale id */
61 public $currentscaleid = null;
63 /** @var string $currentgradetype The current gradetype - can either be 'none', 'scale', or 'point' */
64 public $currentgradetype = 'none';
66 /** @var boolean $useratings Set to true if the activity is using ratings, false otherwise */
67 public $useratings = false;
69 /** @var MoodleQuickForm_select $gradetypeformelement */
70 private $gradetypeformelement;
72 /** @var MoodleQuickForm_select $scaleformelement */
73 private $scaleformelement;
75 /** @var MoodleQuickForm_text $maxgradeformelement */
76 private $maxgradeformelement;
81 * @param string $elementname Element's name
82 * @param mixed $elementlabel Label(s) for an element
83 * @param array $options Options to control the element's display. Required - must contain the following options:
84 * 'isupdate' - is this a new module or are we editing an existing one?
85 * 'currentgrade' - the current grademax in the database for this gradeitem
86 * 'hasgrades' - whether or not the grade_item has existing grade_grades
87 * 'canrescale' - whether or not the activity supports rescaling grades
88 * @param mixed $attributes Either a typical HTML attribute string or an associative array
90 public function __construct($elementname = null, $elementlabel = null, $options = array(), $attributes = null) {
91 // TODO MDL-52313 Replace with the call to parent::__construct().
92 HTML_QuickForm_element
::__construct($elementname, $elementlabel, $attributes);
93 $this->_persistantFreeze
= true;
94 $this->_appendName
= true;
95 $this->_type
= 'modgrade';
96 $this->isupdate
= !empty($options['isupdate']);
97 if (isset($options['currentgrade'])) {
98 $this->currentgrade
= $options['currentgrade'];
100 if (isset($options['currentgradetype'])) {
101 $gradetype = $options['currentgradetype'];
102 switch ($gradetype) {
103 case GRADE_TYPE_NONE
:
104 $this->currentgradetype
= 'none';
106 case GRADE_TYPE_SCALE
:
107 $this->currentgradetype
= 'scale';
109 case GRADE_TYPE_VALUE
:
110 $this->currentgradetype
= 'point';
114 if (isset($options['currentscaleid'])) {
115 $this->currentscaleid
= $options['currentscaleid'];
117 $this->hasgrades
= !empty($options['hasgrades']);
118 $this->canrescale
= !empty($options['canrescale']);
119 $this->useratings
= !empty($options['useratings']);
123 * Old syntax of class constructor. Deprecated in PHP7.
125 * @deprecated since Moodle 3.1
127 public function MoodleQuickForm_modgrade($elementname = null, $elementlabel = null, $options = array(), $attributes = null) {
128 debugging('Use of class name as constructor is deprecated', DEBUG_DEVELOPER
);
129 self
::__construct($elementname, $elementlabel, $options, $attributes);
133 * Create elements for this group.
135 public function _createElements() {
136 global $COURSE, $CFG, $OUTPUT;
137 $attributes = $this->getAttributes();
138 if (is_null($attributes)) {
139 $attributes = array();
142 $this->_elements
= array();
144 // Create main elements
145 // We have to create the scale and point elements first, as we need their IDs.
147 // Grade scale select box.
148 $scales = get_scales_menu($COURSE->id
);
149 $langscale = get_string('modgradetypescale', 'grades');
150 $this->scaleformelement
= $this->createFormElement('select', 'modgrade_scale', $langscale,
151 $scales, $attributes);
152 $this->scaleformelement
->setHiddenLabel(true);
153 $scaleformelementid = $this->generate_modgrade_subelement_id('modgrade_scale');
154 $this->scaleformelement
->updateAttributes(array('id' => $scaleformelementid));
156 // Maximum grade textbox.
157 $langmaxgrade = get_string('modgrademaxgrade', 'grades');
158 $this->maxgradeformelement
= $this->createFormElement('text', 'modgrade_point', $langmaxgrade, array());
159 $this->maxgradeformelement
->setHiddenLabel(true);
160 $maxgradeformelementid = $this->generate_modgrade_subelement_id('modgrade_point');
161 $this->maxgradeformelement
->updateAttributes(array('id' => $maxgradeformelementid));
163 // Grade type select box.
165 'none' => get_string('modgradetypenone', 'grades'),
166 'scale' => get_string('modgradetypescale', 'grades'),
167 'point' => get_string('modgradetypepoint', 'grades'),
169 $langtype = get_string('modgradetype', 'grades');
170 $this->gradetypeformelement
= $this->createFormElement('select', 'modgrade_type', $langtype, $gradetype,
172 $this->gradetypeformelement
->setHiddenLabel(true);
173 $gradetypeformelementid = $this->generate_modgrade_subelement_id('modgrade_type');
174 $this->gradetypeformelement
->updateAttributes(array('id' => $gradetypeformelementid));
176 if ($this->isupdate
&& $this->hasgrades
) {
177 $this->gradetypeformelement
->updateAttributes(array('disabled' => 'disabled'));
178 $this->scaleformelement
->updateAttributes(array('disabled' => 'disabled'));
180 // Check box for options for processing existing grades.
181 if ($this->canrescale
) {
182 $langrescalegrades = get_string('modgraderescalegrades', 'grades');
184 $choices[''] = get_string('choose');
185 $choices['no'] = get_string('no');
186 $choices['yes'] = get_string('yes');
187 $rescalegradesselect = $this->createFormElement('select',
188 'modgrade_rescalegrades',
191 $rescalegradesselect->setHiddenLabel(true);
192 $rescalegradesselectid = $this->generate_modgrade_subelement_id('modgrade_rescalegrades');
193 $rescalegradesselect->updateAttributes(array('id' => $rescalegradesselectid));
198 if ($this->isupdate
&& $this->hasgrades
) {
199 // Set a message so the user knows why they can not alter the grade type or scale.
200 if ($this->currentgradetype
== 'scale') {
201 $gradesexistmsg = get_string('modgradecantchangegradetyporscalemsg', 'grades');
203 $gradesexistmsg = get_string('modgradecantchangegradetypemsg', 'grades');
206 $gradesexisthtml = '<div class=\'alert\'>' . $gradesexistmsg . '</div>';
207 $this->_elements
[] = $this->createFormElement('static', 'gradesexistmsg', '', $gradesexisthtml);
210 // Grade type select box.
211 $label = html_writer
::tag('label', $this->gradetypeformelement
->getLabel(),
212 array('for' => $this->gradetypeformelement
->getAttribute('id')));
213 $this->_elements
[] = $this->createFormElement('static', 'gradetypelabel', '', ' '.$label);
214 $this->_elements
[] = $this->gradetypeformelement
;
215 $this->_elements
[] = $this->createFormElement('static', 'gradetypespacer', '', '<br />');
217 // Only show the grade scale select box when applicable.
218 if (!$this->isupdate ||
!$this->hasgrades ||
$this->currentgradetype
== 'scale') {
219 $label = html_writer
::tag('label', $this->scaleformelement
->getLabel(),
220 array('for' => $this->scaleformelement
->getAttribute('id')));
221 $this->_elements
[] = $this->createFormElement('static', 'scalelabel', '', $label);
222 $this->_elements
[] = $this->scaleformelement
;
223 $this->_elements
[] = $this->createFormElement('static', 'scalespacer', '', '<br />');
226 if ($this->isupdate
&& $this->hasgrades
&& $this->canrescale
&& $this->currentgradetype
== 'point') {
227 // We need to know how to apply any changes to maxgrade - ie to either update, or don't touch exising grades.
228 $label = html_writer
::tag('label', $rescalegradesselect->getLabel(),
229 array('for' => $rescalegradesselect->getAttribute('id')));
230 $labelhelp = new help_icon('modgraderescalegrades', 'grades');
231 $this->_elements
[] = $this->createFormElement('static', 'scalelabel', '', $label . $OUTPUT->render($labelhelp));
232 $this->_elements
[] = $rescalegradesselect;
233 $this->_elements
[] = $this->createFormElement('static', 'scalespacer', '', '<br />');
236 // Only show the max points form element when applicable.
237 if (!$this->isupdate ||
!$this->hasgrades ||
$this->currentgradetype
== 'point') {
238 $label = html_writer
::tag('label', $this->maxgradeformelement
->getLabel(),
239 array('for' => $this->maxgradeformelement
->getAttribute('id')));
240 $this->_elements
[] = $this->createFormElement('static', 'pointlabel', '', $label);
241 $this->_elements
[] = $this->maxgradeformelement
;
242 $this->_elements
[] = $this->createFormElement('static', 'pointspacer', '', '<br />');
247 * Calculate the output value for the element as a whole.
249 * @param array $submitvalues The incoming values from the form.
250 * @param bool $notused Not used.
251 * @return array Return value for the element, formatted like field name => value.
253 public function exportValue(&$submitvalues, $notused = false) {
256 // Get the values from all the child elements.
258 foreach ($this->_elements
as $element) {
259 $thisexport = $element->exportValue($submitvalues[$this->getName()], true);
260 if (!is_null($thisexport)) {
261 $vals +
= $thisexport;
265 $type = (isset($vals['modgrade_type'])) ?
$vals['modgrade_type'] : 'none';
266 $point = (isset($vals['modgrade_point'])) ?
$vals['modgrade_point'] : null;
267 $scale = (isset($vals['modgrade_scale'])) ?
$vals['modgrade_scale'] : null;
268 $rescalegrades = (isset($vals['modgrade_rescalegrades'])) ?
$vals['modgrade_rescalegrades'] : null;
270 $return = $this->process_value($type, $scale, $point, $rescalegrades);
271 return array($this->getName() => $return, $this->getName() . '_rescalegrades' => $rescalegrades);
275 * Process the value for the group based on the selected grade type, and the input for the scale and point elements.
277 * @param string $type The value of the grade type select box. Can be 'none', 'scale', or 'point'
278 * @param string|int $scale The value of the scale select box.
279 * @param string|int $point The value of the point grade textbox.
280 * @param string $rescalegrades The value of the rescalegrades select.
281 * @return int The resulting value
283 protected function process_value($type='none', $scale=null, $point=null, $rescalegrades=null) {
286 if ($this->isupdate
&& $this->hasgrades
&& $this->canrescale
&& $this->currentgradetype
== 'point' && empty($rescalegrades)) {
287 // If the maxgrade field is disabled with javascript, no value is sent with the form and mform assumes the default.
288 // If the user was forced to choose a rescale option - and they haven't - prevent any changes to the max grade.
289 return (string)unformat_float($this->currentgrade
);
293 if ($this->validate_point($point) === true) {
299 if ($this->validate_scale($scale)) {
300 $val = (int)(-$scale);
308 * Determines whether a given value is a valid scale selection.
310 * @param string|int $val The value to test.
311 * @return bool Valid or invalid
313 protected function validate_scale($val) {
315 $scales = get_scales_menu($COURSE->id
);
316 return (!empty($val) && isset($scales[(int)$val])) ?
true : false;
320 * Determines whether a given value is a valid point selection.
322 * @param string|int $val The value to test.
323 * @return bool Valid or invalid
325 protected function validate_point($val) {
329 $maxgrade = (int)get_config('core', 'gradepointmax');
330 $isintlike = ((string)(int)$val === $val) ?
true : false;
331 return ($isintlike === true && $val > 0 && $val <= $maxgrade) ?
true : false;
335 * Called by HTML_QuickForm whenever form event is made on this element.
337 * @param string $event Name of event
338 * @param mixed $arg event arguments
339 * @param moodleform $caller calling object
342 public function onQuickFormEvent($event, $arg, &$caller) {
343 $this->setMoodleForm($caller);
345 case 'createElement':
346 // The first argument is the name.
349 // Set disable actions.
350 $caller->disabledIf($name.'[modgrade_scale]', $name.'[modgrade_type]', 'neq', 'scale');
351 $caller->disabledIf($name.'[modgrade_point]', $name.'[modgrade_type]', 'neq', 'point');
352 $caller->disabledIf($name.'[modgrade_rescalegrades]', $name.'[modgrade_type]', 'neq', 'point');
354 // Set validation rules for the sub-elements belonging to this element.
355 // A handy note: the parent scope of a closure is the function in which the closure was declared.
356 // Because of this using $this is safe despite the closures being called statically.
357 // A nasty magic hack!
358 $checkgradetypechange = function($val) {
359 // Nothing is affected by changes to the grade type if there are no grades yet.
360 if (!$this->hasgrades
) {
363 // Check if we are changing the grade type when grades are present.
364 if (isset($val['modgrade_type']) && $val['modgrade_type'] !== $this->currentgradetype
) {
369 $checkscalechange = function($val) {
370 // Nothing is affected by changes to the scale if there are no grades yet.
371 if (!$this->hasgrades
) {
374 // Check if we are changing the scale type when grades are present.
375 // If modgrade_type is empty then use currentgradetype.
376 $gradetype = isset($val['modgrade_type']) ?
$val['modgrade_type'] : $this->currentgradetype
;
377 if ($gradetype === 'scale') {
378 if (isset($val['modgrade_scale']) && ($val['modgrade_scale'] !== $this->currentscaleid
)) {
384 $checkmaxgradechange = function($val) {
385 // Nothing is affected by changes to the max grade if there are no grades yet.
386 if (!$this->hasgrades
) {
389 // If we are not using ratings we can change the max grade.
390 if (!$this->useratings
) {
393 // Check if we are changing the max grade if we are using ratings and there is a grade.
394 // If modgrade_type is empty then use currentgradetype.
395 $gradetype = isset($val['modgrade_type']) ?
$val['modgrade_type'] : $this->currentgradetype
;
396 if ($gradetype === 'point') {
397 if (isset($val['modgrade_point']) &&
398 grade_floats_different($this->currentgrade
, $val['modgrade_point'])) {
404 $checkmaxgrade = function($val) {
405 // Closure to validate a max points value. See the note above about scope if this confuses you.
406 // If modgrade_type is empty then use currentgradetype.
407 $gradetype = isset($val['modgrade_type']) ?
$val['modgrade_type'] : $this->currentgradetype
;
408 if ($gradetype === 'point') {
409 if (isset($val['modgrade_point'])) {
410 return $this->validate_point($val['modgrade_point']);
415 $checkvalidscale = function($val) {
416 // Closure to validate a scale value. See the note above about scope if this confuses you.
417 // If modgrade_type is empty then use currentgradetype.
418 $gradetype = isset($val['modgrade_type']) ?
$val['modgrade_type'] : $this->currentgradetype
;
419 if ($gradetype === 'scale') {
420 if (isset($val['modgrade_scale'])) {
421 return $this->validate_scale($val['modgrade_scale']);
427 $checkrescale = function($val) {
428 // Nothing is affected by changes to grademax if there are no grades yet.
429 if (!$this->isupdate ||
!$this->hasgrades ||
!$this->canrescale
) {
432 // Closure to validate a scale value. See the note above about scope if this confuses you.
433 // If modgrade_type is empty then use currentgradetype.
434 $gradetype = isset($val['modgrade_type']) ?
$val['modgrade_type'] : $this->currentgradetype
;
435 if ($gradetype === 'point' && isset($val['modgrade_point'])) {
436 // Work out if the value was actually changed in the form.
437 if (grade_floats_different($this->currentgrade
, $val['modgrade_point'])) {
438 if (empty($val['modgrade_rescalegrades'])) {
439 // This was an "edit", the grademax was changed and the process existing setting was not set.
447 $cantchangegradetype = get_string('modgradecantchangegradetype', 'grades');
448 $cantchangemaxgrade = get_string('modgradecantchangeratingmaxgrade', 'grades');
449 $maxgradeexceeded = get_string('modgradeerrorbadpoint', 'grades', get_config('core', 'gradepointmax'));
450 $invalidscale = get_string('modgradeerrorbadscale', 'grades');
451 $cantchangescale = get_string('modgradecantchangescale', 'grades');
452 $mustchooserescale = get_string('mustchooserescaleyesorno', 'grades');
453 // When creating the rules the sixth arg is $force, we set it to true because otherwise the form
454 // will attempt to validate the existence of the element, we don't want this because the element
455 // is being created right now and doesn't actually exist as a registered element yet.
456 $caller->addRule($name, $cantchangegradetype, 'callback', $checkgradetypechange, 'server', false, true);
457 $caller->addRule($name, $cantchangemaxgrade, 'callback', $checkmaxgradechange, 'server', false, true);
458 $caller->addRule($name, $maxgradeexceeded, 'callback', $checkmaxgrade, 'server', false, true);
459 $caller->addRule($name, $invalidscale, 'callback', $checkvalidscale, 'server', false, true);
460 $caller->addRule($name, $cantchangescale, 'callback', $checkscalechange, 'server', false, true);
461 $caller->addRule($name, $mustchooserescale, 'callback', $checkrescale, 'server', false, true);
466 // As this is a group element with no value of its own we are only interested in situations where the
467 // default value or a constant value are being provided to the actual element.
468 // In this case we expect an int that is going to translate to a scale if negative, or to max points
471 // Set the maximum points field to disabled if the rescale option has not been chosen and there are grades.
472 $caller->disabledIf($this->getName() . '[modgrade_point]', $this->getName() .
473 '[modgrade_rescalegrades]', 'eq', '');
475 // A constant value should be given as an int.
476 // The default value should be an int and be either $CFG->gradepointdefault or whatever was set in set_data().
477 $value = $this->_findValue($caller->_constantValues
);
478 if (null === $value) {
479 if ($caller->isSubmitted() && $this->_findValue($caller->_submitValues
) !== null) {
480 // Submitted values are array, one value for each individual element in this group.
481 // When there is submitted data let parent::onQuickFormEvent() process it.
484 $value = $this->_findValue($caller->_defaultValues
);
487 if (!is_null($value) && !is_scalar($value)) {
488 // Something unexpected (likely an array of subelement values) has been given - this will be dealt
489 // with somewhere else - where exactly... likely the subelements.
490 debugging('An invalid value (type '.gettype($value).') has arrived at '.__METHOD__
, DEBUG_DEVELOPER
);
494 // Set element state for existing data.
495 // This is really a pretty hacky thing to do, when data is being set the group element is called
496 // with the data first and the subelements called afterwards.
497 // This means that the subelements data (inc const and default values) can be overridden by form code.
498 // So - when we call this code really we can't be sure that will be the end value for the element.
499 if (!empty($this->_elements
)) {
500 if (!empty($value)) {
502 $this->gradetypeformelement
->setValue('scale');
503 $this->scaleformelement
->setValue(($value * -1));
504 } else if ($value > 0) {
505 $this->gradetypeformelement
->setValue('point');
506 $maxvalue = !empty($this->currentgrade
) ?
(string)unformat_float($this->currentgrade
) : $value;
507 $this->maxgradeformelement
->setValue($maxvalue);
510 $this->gradetypeformelement
->setValue('none');
511 $this->maxgradeformelement
->setValue('');
517 // Always let the parent do its thing!
518 return parent
::onQuickFormEvent($event, $arg, $caller);
522 * Generates the id attribute for the subelement of the modgrade group.
524 * Uses algorithm similar to what {@link HTML_QuickForm_element::_generateId()}
525 * does but takes the name of the wrapping modgrade group into account.
527 * @param string $subname the name of the HTML_QuickForm_element in this modgrade group
530 protected function generate_modgrade_subelement_id($subname) {
531 $gid = str_replace(array('[', ']'), array('_', ''), $this->getName());
532 return clean_param('id_'.$gid.'_'.$subname, PARAM_ALPHANUMEXT
);