Search moodle.org's
Developer Documentation

See Release Notes

  • Bug fixes for general core bugs in 3.11.x will end 14 Nov 2022 (12 months plus 6 months extension).
  • Bug fixes for security issues in 3.11.x will end 13 Nov 2023 (18 months plus 12 months extension).
  • PHP version: minimum PHP 7.3.0 Note: minimum PHP version has increased since Moodle 3.10. PHP 7.4.x is supported too.

Differences Between: [Versions 311 and 400] [Versions 311 and 401] [Versions 311 and 402] [Versions 311 and 403]

   1  <?php
   2  // This file is part of Moodle - http://moodle.org/
   3  //
   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.
   8  //
   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.
  13  //
  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/>.
  16  
  17  
  18  /**
  19   * Numerical question renderer class.
  20   *
  21   * @package qtype_numerical
  22   * @copyright 2009 The Open University
  23   * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
  24   */
  25  
  26  
  27  /**
  28   * Generates the output for short answer questions.
  29   *
  30   * @copyright 2009 The Open University
  31   * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
  32   */
  33  class qtype_numerical_renderer extends qtype_renderer {
  34      public function formulation_and_controls(question_attempt $qa,
  35              question_display_options $options) {
  36  
  37          $question = $qa->get_question();
  38          $currentanswer = $qa->get_last_qt_var('answer');
  39          if ($question->has_separate_unit_field()) {
  40              $selectedunit = $qa->get_last_qt_var('unit');
  41          } else {
  42              $selectedunit = null;
  43          }
  44  
  45          $inputname = $qa->get_qt_field_name('answer');
  46          $inputattributes = array(
  47              'type' => 'text',
  48              'name' => $inputname,
  49              'value' => $currentanswer,
  50              'id' => $inputname,
  51              'size' => 30,
  52              'class' => 'form-control d-inline',
  53          );
  54  
  55          if ($options->readonly) {
  56              $inputattributes['readonly'] = 'readonly';
  57          }
  58  
  59          $feedbackimg = '';
  60          if ($options->correctness) {
  61              list($value, $unit, $multiplier) = $question->ap->apply_units(
  62                      $currentanswer, $selectedunit);
  63              $answer = $question->get_matching_answer($value, $multiplier);
  64              if ($answer) {
  65                  $fraction = $question->apply_unit_penalty($answer->fraction, $answer->unitisright);
  66              } else {
  67                  $fraction = 0;
  68              }
  69              $inputattributes['class'] .= ' ' . $this->feedback_class($fraction);
  70              $feedbackimg = $this->feedback_image($fraction);
  71          }
  72  
  73          $questiontext = $question->format_questiontext($qa);
  74          $placeholder = false;
  75          if (preg_match('/_____+/', $questiontext, $matches)) {
  76              $placeholder = $matches[0];
  77              $inputattributes['size'] = round(strlen($placeholder) * 1.1);
  78          }
  79  
  80          $input = html_writer::empty_tag('input', $inputattributes) . $feedbackimg;
  81  
  82          if ($question->has_separate_unit_field()) {
  83              if ($question->unitdisplay == qtype_numerical::UNITRADIO) {
  84                  $choices = array();
  85                  $i = 1;
  86                  foreach ($question->ap->get_unit_options() as $unit) {
  87                      $id = $qa->get_qt_field_name('unit') . '_' . $i++;
  88                      $radioattrs = array('type' => 'radio', 'id' => $id, 'value' => $unit,
  89                              'name' => $qa->get_qt_field_name('unit'));
  90                      if ($unit == $selectedunit) {
  91                          $radioattrs['checked'] = 'checked';
  92                      }
  93                      $choices[] = html_writer::tag('label',
  94                              html_writer::empty_tag('input', $radioattrs) . $unit,
  95                              array('for' => $id, 'class' => 'unitchoice'));
  96                  }
  97  
  98                  $unitchoice = html_writer::tag('span', implode(' ', $choices),
  99                          array('class' => 'unitchoices'));
 100  
 101              } else if ($question->unitdisplay == qtype_numerical::UNITSELECT) {
 102                  $unitchoice = html_writer::label(get_string('selectunit', 'qtype_numerical'),
 103                          'menu' . $qa->get_qt_field_name('unit'), false, array('class' => 'accesshide'));
 104                  $unitchoice .= html_writer::select($question->ap->get_unit_options(),
 105                          $qa->get_qt_field_name('unit'), $selectedunit, array(''=>'choosedots'),
 106                          array('disabled' => $options->readonly));
 107              }
 108  
 109              if ($question->ap->are_units_before()) {
 110                  $input = $unitchoice . ' ' . $input;
 111              } else {
 112                  $input = $input . ' ' . $unitchoice;
 113              }
 114          }
 115  
 116          if ($placeholder) {
 117              $inputinplace = html_writer::tag('label', get_string('answer'),
 118                      array('for' => $inputattributes['id'], 'class' => 'accesshide'));
 119              $inputinplace .= $input;
 120              $questiontext = substr_replace($questiontext, $inputinplace,
 121                      strpos($questiontext, $placeholder), strlen($placeholder));
 122          }
 123  
 124          $result = html_writer::tag('div', $questiontext, array('class' => 'qtext'));
 125  
 126          if (!$placeholder) {
 127              $result .= html_writer::start_tag('div', array('class' => 'ablock form-inline'));
 128              $result .= html_writer::tag('label', get_string('answercolon', 'qtype_numerical'), array('for' => $inputattributes['id']));
 129              $result .= html_writer::tag('span', $input, array('class' => 'answer'));
 130              $result .= html_writer::end_tag('div');
 131          }
 132  
 133          if ($qa->get_state() == question_state::$invalid) {
 134              $result .= html_writer::nonempty_tag('div',
 135                      $question->get_validation_error(array('answer' => $currentanswer, 'unit' => $selectedunit)),
 136                      array('class' => 'validationerror'));
 137          }
 138  
 139          return $result;
 140      }
 141  
 142      public function specific_feedback(question_attempt $qa) {
 143          $question = $qa->get_question();
 144  
 145          if ($question->has_separate_unit_field()) {
 146              $selectedunit = $qa->get_last_qt_var('unit');
 147          } else {
 148              $selectedunit = null;
 149          }
 150          list($value, $unit, $multiplier) = $question->ap->apply_units(
 151                  $qa->get_last_qt_var('answer'), $selectedunit);
 152          $answer = $question->get_matching_answer($value, $multiplier);
 153  
 154          if ($answer && $answer->feedback) {
 155              $feedback = $question->format_text($answer->feedback, $answer->feedbackformat,
 156                      $qa, 'question', 'answerfeedback', $answer->id);
 157          } else {
 158              $feedback = '';
 159          }
 160  
 161          if ($question->unitgradingtype && !$question->ap->is_known_unit($unit)) {
 162              $feedback .= html_writer::tag('p', get_string('unitincorrect', 'qtype_numerical'));
 163          }
 164  
 165          return $feedback;
 166      }
 167  
 168      public function correct_response(question_attempt $qa) {
 169          $question = $qa->get_question();
 170          $answer = $question->get_correct_answer();
 171          if (!$answer) {
 172              return '';
 173          }
 174  
 175          $response = str_replace('.', $question->ap->get_point(), $answer->answer);
 176          if ($question->unitdisplay != qtype_numerical::UNITNONE) {
 177              $response = $question->ap->add_unit($response);
 178          }
 179  
 180          return get_string('correctansweris', 'qtype_shortanswer', $response);
 181      }
 182  }