MDL-50015 mod_imscp: New WS mod_imscp_view_imscp
[moodle.git] / mod / survey / save.php
CommitLineData
a5cb6242 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
18/**
19 * This file is responsible for saving the results of a users survey and displaying
20 * the final message.
21 *
da9bddbe 22 * @package mod_survey
a5cb6242 23 * @copyright 1999 onwards Martin Dougiamas {@link http://moodle.com}
24 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
25 */
f9903ed0 26
f950af3c 27 require_once('../../config.php');
28 require_once('lib.php');
f9903ed0 29
30
31// Make sure this is a legitimate posting
32
c2dcbfe3 33 if (!$formdata = data_submitted() or !confirm_sesskey()) {
83b10e57 34 print_error('cannotcallscript');
f9903ed0 35 }
36
2d5b322c 37 $id = required_param('id', PARAM_INT); // Course Module ID
38
f9d5371b 39 if (! $cm = get_coursemodule_from_id('survey', $id)) {
83b10e57 40 print_error('invalidcoursemodule');
f9903ed0 41 }
42
deb3a60d 43 if (! $course = $DB->get_record("course", array("id"=>$cm->course))) {
83b10e57 44 print_error('coursemisconf');
f9903ed0 45 }
46
a6855934 47 $PAGE->set_url('/mod/survey/save.php', array('id'=>$id));
cdbea7ee 48 require_login($course, false, $cm);
e5dd8e3b 49
1c969116 50 $context = context_module::instance($cm->id);
0468976c 51 require_capability('mod/survey:participate', $context);
e5dd8e3b 52
deb3a60d 53 if (! $survey = $DB->get_record("survey", array("id"=>$cm->instance))) {
83b10e57 54 print_error('invalidsurveyid', 'survey');
f9903ed0 55 }
56
9e176aa2
RT
57 $params = array(
58 'context' => $context,
59 'courseid' => $course->id,
60 'other' => array('surveyid' => $survey->id)
61 );
62 $event = \mod_survey\event\response_submitted::create($params);
63 $event->trigger();
f9903ed0 64
9fa45d37 65 $strsurveysaved = get_string('surveysaved', 'survey');
66
207e24b8 67 $PAGE->set_title($strsurveysaved);
5617e8c9 68 $PAGE->set_heading($course->fullname);
207e24b8 69 echo $OUTPUT->header();
5def24cf 70 echo $OUTPUT->heading($survey->name);
dc0e9265 71
f9903ed0 72 if (survey_already_done($survey->id, $USER->id)) {
dcee0b94 73 notice(get_string("alreadysubmitted", "survey"), get_local_referer(false));
f9903ed0 74 exit;
75 }
76
77
78// Sort through the data and arrange it
ec81373f 79// This is necessary because some of the questions
f9903ed0 80// may have two answers, eg Question 1 -> 1 and P1
81
ec81373f 82 $answers = array();
f9903ed0 83
0a9d1b3b
PS
84 foreach ($formdata as $key => $val) {
85 if ($key <> "userid" && $key <> "id") {
ec81373f 86 if ( substr($key,0,1) == "q") {
8f414ab8 87 $key = clean_param(substr($key,1), PARAM_ALPHANUM); // keep everything but the 'q', number or Pnumber
f9903ed0 88 }
89 if ( substr($key,0,1) == "P") {
8f414ab8 90 $realkey = (int) substr($key,1);
f9903ed0 91 $answers[$realkey][1] = $val;
92 } else {
93 $answers[$key][0] = $val;
94 }
95 }
96 }
ec81373f 97
f9903ed0 98
99// Now store the data.
100
101 $timenow = time();
102 foreach ($answers as $key => $val) {
6438c34f 103 if ($key != 'sesskey') {
39790bd8 104 $newdata = new stdClass();
6438c34f
RW
105 $newdata->time = $timenow;
106 $newdata->userid = $USER->id;
107 $newdata->survey = $survey->id;
108 $newdata->question = $key;
109 if (!empty($val[0])) {
110 $newdata->answer1 = $val[0];
111 } else {
112 $newdata->answer1 = "";
113 }
114 if (!empty($val[1])) {
115 $newdata->answer2 = $val[1];
116 } else {
117 $newdata->answer2 = "";
118 }
e323955d 119
6438c34f 120 $DB->insert_record("survey_answers", $newdata);
5cc1aff3 121 }
f9903ed0 122 }
123
124// Print the page and finish up.
125
98899fc0 126 notice(get_string("thanksforanswers","survey", $USER->firstname), "$CFG->wwwroot/course/view.php?id=$course->id");
ec81373f 127
f9903ed0 128 exit;
ec81373f 129
f9903ed0 130
e5dd8e3b 131