MDL-6535 new features for the essay qtype. Part I DB tables and editing form.
[moodle.git] / question / type / essay / question.php
CommitLineData
6d03299d
TH
1<?php
2
3// This file is part of Moodle - http://moodle.org/
4//
5// Moodle is free software: you can redistribute it and/or modify
6// it under the terms of the GNU General Public License as published by
7// the Free Software Foundation, either version 3 of the License, or
8// (at your option) any later version.
9//
10// Moodle is distributed in the hope that it will be useful,
11// but WITHOUT ANY WARRANTY; without even the implied warranty of
12// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13// GNU General Public License for more details.
14//
15// You should have received a copy of the GNU General Public License
16// along with Moodle. If not, see <http://www.gnu.org/licenses/>.
17
6d03299d
TH
18/**
19 * Essay question definition class.
20 *
7764183a
TH
21 * @package qtype
22 * @subpackage essay
23 * @copyright 2009 The Open University
24 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
6d03299d
TH
25 */
26
27
a17b297d
TH
28defined('MOODLE_INTERNAL') || die();
29
30
6d03299d
TH
31/**
32 * Represents an essay question.
33 *
7764183a
TH
34 * @copyright 2009 The Open University
35 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
6d03299d
TH
36 */
37class qtype_essay_question extends question_with_responses {
894e8b4e
TH
38 public $responseformat;
39 public $responsefieldlines;
40 public $attachments;
41 public $graderinfo;
42 public $graderinfoformat;
43
6d03299d
TH
44 public function make_behaviour(question_attempt $qa, $preferredbehaviour) {
45 question_engine::load_behaviour_class('manualgraded');
46 return new qbehaviour_manualgraded($qa, $preferredbehaviour);
47 }
48
49 public function get_expected_data() {
50 return array('answer' => PARAM_CLEANHTML);
51 }
52
53 public function summarise_response(array $response) {
54 if (isset($response['answer'])) {
55 $formatoptions = new stdClass();
56 $formatoptions->para = false;
57 return shorten_text(html_to_text(format_text($response['answer'], FORMAT_HTML, $formatoptions), 0, false), 200);
58 } else {
59 return null;
60 }
61 }
62
63 public function get_correct_response() {
64 return null;
65 }
66
67 public function is_complete_response(array $response) {
68 return !empty($response['answer']);
69 }
70
71 public function is_same_response(array $prevresponse, array $newresponse) {
72 return question_utils::arrays_same_at_key_missing_is_blank(
73 $prevresponse, $newresponse, 'answer');
74 }
75}