AutorÃa | Ultima modificación | Ver Log |
<?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/>./*** This file is responsible for producing the survey reports** @package mod_survey* @copyright 1999 onwards Martin Dougiamas {@link http://moodle.com}* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later*/require_once("../../config.php");require_once("lib.php");// Check that all the parameters have been provided.$id = required_param('id', PARAM_INT); // Course Module ID.$action = optional_param('action', '', PARAM_ALPHA); // What to look at.$qid = optional_param('qid', 0, PARAM_RAW); // Question IDs comma-separated list.$student = optional_param('student', 0, PARAM_INT); // Student ID.$notes = optional_param('notes', '', PARAM_RAW); // Save teachers notes.$qids = explode(',', $qid);$qids = clean_param_array($qids, PARAM_INT);$qid = implode(',', $qids);if (!$cm = get_coursemodule_from_id('survey', $id)) {throw new moodle_exception('invalidcoursemodule');}if (!$course = $DB->get_record("course", array("id" => $cm->course))) {throw new moodle_exception('coursemisconf');}$url = new moodle_url('/mod/survey/report.php', array('id' => $id));if ($action !== '') {$url->param('action', $action);}if ($qid !== 0) {$url->param('qid', $qid);}if ($student !== 0) {$url->param('student', $student);}if ($notes !== '') {$url->param('notes', $notes);}$PAGE->set_url($url);require_login($course, false, $cm);$context = context_module::instance($cm->id);require_capability('mod/survey:readresponses', $context);if (!$survey = $DB->get_record("survey", array("id" => $cm->instance))) {throw new moodle_exception('invalidsurveyid', 'survey');}if (!$template = $DB->get_record("survey", array("id" => $survey->template))) {throw new moodle_exception('invalidtmptid', 'survey');}$showscales = ($template->name != 'ciqname');$strreport = get_string("report", "survey");$strsurvey = get_string("modulename", "survey");$strsurveys = get_string("modulenameplural", "survey");$strsummary = get_string("summary", "survey");$strscales = get_string("scales", "survey");$strquestion = get_string("question", "survey");$strquestions = get_string("questions", "survey");$strdownload = get_string("download", "survey");$strallscales = get_string("allscales", "survey");$strselectedquestions = get_string("selectedquestions", "survey");$strseemoredetail = get_string("seemoredetail", "survey");$strnotes = get_string("notes", "survey");$PAGE->set_title("$course->shortname: " . format_string($survey->name));$PAGE->set_heading($course->fullname);$PAGE->activityheader->set_attrs(['hidecompletion' => true,'description' => '']);// Activate the secondary nav tab.navigation_node::override_active_url(new moodle_url('/mod/survey/report.php', ['id' => $id, 'action' => 'summary']));$actionbar = new \mod_survey\output\actionbar($id, $action, $url);echo $OUTPUT->header();$renderer = $PAGE->get_renderer('mod_survey');echo $renderer->response_actionbar($actionbar);// Check to see if groups are being used in this survey.$groupmode = groups_get_activity_groupmode($cm);if ($groupmode != NOGROUPS) {$menuaction = $action == "student" ? "students" : $action;// Get the current activity group, confirm user can access.$currentgroup = groups_get_activity_group($cm, true);if ($currentgroup === 0 && $groupmode == SEPARATEGROUPS && !has_capability('moodle/site:accessallgroups', $context)) {throw new moodle_exception('notingroup');}$groupsactivitymenu = groups_print_activity_menu($cm, new moodle_url('/mod/survey/report.php',['id' => $cm->id, 'action' => $menuaction, 'qid' => $qid]), true);} else {$currentgroup = 0;$groupsactivitymenu = null;}$params = array('objectid' => $survey->id,'context' => $context,'courseid' => $course->id,'relateduserid' => $student,'other' => array('action' => $action, 'groupid' => $currentgroup));$event = \mod_survey\event\report_viewed::create($params);$event->trigger();if ($currentgroup) {$users = get_users_by_capability($context, 'mod/survey:participate', '', '', '', '', $currentgroup, null, false);} else if (!empty($cm->groupingid)) {$groups = groups_get_all_groups($courseid, 0, $cm->groupingid);$groups = array_keys($groups);$users = get_users_by_capability($context, 'mod/survey:participate', '', '', '', '', $groups, null, false);} else {$users = get_users_by_capability($context, 'mod/survey:participate', '', '', '', '', '', null, false);$group = false;}$groupingid = $cm->groupingid;// Print the menu across the top.$virtualscales = false;switch ($action) {case "summary":// If survey type is Critical incidents then we don't show summary report.if ($survey->template == SURVEY_CIQ) {throw new moodle_exception('cannotviewreport');}echo $OUTPUT->heading($strsummary, 3);if ($groupsactivitymenu) {echo html_writer::div($groupsactivitymenu, 'mb-2');}if (survey_count_responses($survey->id, $currentgroup, $groupingid)) {echo "<div class='reportsummary'><a href=\"report.php?action=scales&id=$id\">";survey_print_graph("id=$id&group=$currentgroup&type=overall.png");echo "</a></div>";} else {echo $OUTPUT->notification(get_string("nobodyyet", "survey"), 'info', false);}break;case "scales":// If survey type is Critical incidents then we don't show scales report.if ($survey->template == SURVEY_CIQ) {throw new moodle_exception('cannotviewreport');}echo $OUTPUT->heading($strscales, 3);if ($groupsactivitymenu) {echo html_writer::div($groupsactivitymenu, 'mb-2');}if (!$results = survey_get_responses($survey->id, $currentgroup, $groupingid)) {echo $OUTPUT->notification(get_string("nobodyyet", "survey"), 'info', false);} else {$questions = $DB->get_records_list("survey_questions", "id", explode(',', $survey->questions));$questionorder = explode(",", $survey->questions);foreach ($questionorder as $key => $val) {$question = $questions[$val];if ($question->type < 0) { // We have some virtual scales. Just show them.$virtualscales = true;break;}}foreach ($questionorder as $key => $val) {$question = $questions[$val];if ($question->multi) {if (!empty($virtualscales) && $question->type > 0) { // Don't show non-virtual scales if virtual.continue;}echo "<p class=\"centerpara\"><a title=\"$strseemoredetail\" href=\"report.php?action=questions&id=$id&qid=$question->multi\">";survey_print_graph("id=$id&qid=$question->id&group=$currentgroup&type=multiquestion.png");echo "</a></p><br />";}}}break;case "questions":if ($qid) { // Just get one multi-question.$questions = $DB->get_records_select("survey_questions", "id in ($qid)");$questionorder = explode(",", $qid);if ($scale = $DB->get_records("survey_questions", array("multi" => $qid))) {$scale = array_pop($scale);echo $OUTPUT->heading("$scale->text - $strselectedquestions", 3);} else {echo $OUTPUT->heading($strselectedquestions, 3);}} else { // Get all top-level questions.$questions = $DB->get_records_list("survey_questions", "id", explode(',', $survey->questions));$questionorder = explode(",", $survey->questions);echo $OUTPUT->heading($strquestions, 3);}if ($groupsactivitymenu) {echo html_writer::div($groupsactivitymenu, 'mb-2');}if (!$results = survey_get_responses($survey->id, $currentgroup, $groupingid)) {echo $OUTPUT->notification(get_string("nobodyyet", "survey"), 'info', false);} else {foreach ($questionorder as $key => $val) {$question = $questions[$val];if ($question->type < 0) { // We have some virtual scales. DON'T show them.$virtualscales = true;break;}}foreach ($questionorder as $key => $val) {$question = $questions[$val];if ($question->type < 0) { // We have some virtual scales. DON'T show them.continue;}$question->text = get_string($question->text, "survey");if ($question->multi) {echo $OUTPUT->heading($question->text . ':', 4);$subquestions = survey_get_subquestions($question);foreach ($subquestions as $subquestion) {if ($subquestion->type > 0) {echo "<p class=\"centerpara\">";echo "<a title=\"$strseemoredetail\" href=\"report.php?action=question&id=$id&qid=$subquestion->id\">";survey_print_graph("id=$id&qid=$subquestion->id&group=$currentgroup&type=question.png");echo "</a></p>";}}} else if ($question->type > 0) {echo "<p class=\"centerpara\">";echo "<a title=\"$strseemoredetail\" href=\"report.php?action=question&id=$id&qid=$question->id\">";survey_print_graph("id=$id&qid=$question->id&group=$currentgroup&type=question.png");echo "</a></p>";} else {$table = new html_table();$table->head = array($question->text);$table->align = array("left");$contents = '<table cellpadding="15" width="100%">';if ($aaa = survey_get_user_answers($survey->id, $question->id, $currentgroup, "sa.time ASC")) {foreach ($aaa as $a) {$contents .= "<tr>";$contents .= '<td class="fullnamecell">' . fullname($a) . '</td>';$contents .= '<td valign="top">' . s($a->answer1) . '</td>';$contents .= "</tr>";}}$contents .= "</table>";$table->data[] = array($contents);echo html_writer::table($table);echo $OUTPUT->spacer(array('height' => 30)); // Should be done with CSS instead.}}}break;case "question":if (!$question = $DB->get_record("survey_questions", array("id" => $qid))) {throw new \moodle_exception('cannotfindquestion', 'survey');}$question->text = get_string($question->text, "survey");$answers = explode(",", get_string($question->options, "survey"));echo $OUTPUT->heading("$strquestion: $question->text", 3);if ($groupsactivitymenu) {echo html_writer::div($groupsactivitymenu, 'mb-2');}$strname = get_string("name", "survey");$strtime = get_string("time", "survey");$stractual = get_string("actual", "survey");$strpreferred = get_string("preferred", "survey");$strdateformat = get_string("strftimedatetime");$table = new html_table();$table->head = array("", $strname, $strtime, $stractual, $strpreferred);$table->align = array("left", "left", "left", "left", "right");$table->size = array(35, "", "", "", "");if ($aaa = survey_get_user_answers($survey->id, $question->id, $currentgroup)) {foreach ($aaa as $a) {if ($a->answer1) {$answer1 = "$a->answer1 - " . $answers[$a->answer1 - 1];} else {$answer1 = " ";}if ($a->answer2) {$answer2 = "$a->answer2 - " . $answers[$a->answer2 - 1];} else {$answer2 = " ";}$table->data[] = array($OUTPUT->user_picture($a, array('courseid' => $course->id)),"<a href=\"report.php?id=$id&action=student&student=$a->userid\">" . fullname($a) . "</a>",userdate($a->time),s($answer1), s($answer2));}}echo html_writer::table($table);break;case "students":echo $OUTPUT->heading(get_string("analysisof", "survey", get_string('participants')), 3);if ($groupsactivitymenu) {echo html_writer::div($groupsactivitymenu, 'mb-2');}if (!$results = survey_get_responses($survey->id, $currentgroup, $groupingid)) {echo $OUTPUT->notification(get_string("nobodyyet", "survey"), 'info', false);} else {survey_print_all_responses($cm->id, $results, $course->id);}break;case "student":$user = core_user::get_user($student, '*', MUST_EXIST);if ($currentgroup && !array_key_exists($user->id, $users)) {throw new moodle_exception('usernotavailable', 'error');}echo $OUTPUT->heading(get_string("analysisof", "survey", fullname($user)), 3);if ($groupsactivitymenu) {echo html_writer::div($groupsactivitymenu, 'mb-2');}if ($notes != '' and confirm_sesskey()) {if (survey_get_analysis($survey->id, $user->id)) {if (!survey_update_analysis($survey->id, $user->id, $notes)) {echo $OUTPUT->notification(get_string("errorunabletosavenotes", "survey"), "notifyproblem");} else {echo $OUTPUT->notification(get_string("savednotes", "survey"), "notifysuccess");}} else {if (!survey_add_analysis($survey->id, $user->id, $notes)) {echo $OUTPUT->notification(get_string("errorunabletosavenotes", "survey"), "notifyproblem");} else {echo $OUTPUT->notification(get_string("savednotes", "survey"), "notifysuccess");}}}echo "<p class=\"centerpara\">";echo $OUTPUT->user_picture($user, array('courseid' => $course->id));echo "</p>";$questions = $DB->get_records_list("survey_questions", "id", explode(',', $survey->questions));$questionorder = explode(",", $survey->questions);if ($showscales) {// Print overall summary.echo "<p class=\"centerpara\">";survey_print_graph("id=$id&sid=$student&type=student.png");echo "</p>";// Print scales.foreach ($questionorder as $key => $val) {$question = $questions[$val];if ($question->type < 0) { // We have some virtual scales. Just show them.$virtualscales = true;break;}}foreach ($questionorder as $key => $val) {$question = $questions[$val];if ($question->multi) {if ($virtualscales && $question->type > 0) { // Don't show non-virtual scales if virtual.continue;}echo "<p class=\"centerpara\">";echo "<a title=\"$strseemoredetail\" href=\"report.php?action=questions&id=$id&qid=$question->multi\">";survey_print_graph("id=$id&qid=$question->id&sid=$student&type=studentmultiquestion.png");echo "</a></p><br />";}}}// Print non-scale questions.foreach ($questionorder as $key => $val) {$question = $questions[$val];if ($question->type == 0 or $question->type == 1) {if ($answer = survey_get_user_answer($survey->id, $question->id, $user->id)) {$table = new html_table();$table->head = array(get_string($question->text, "survey"));$table->align = array("left");if (!empty($question->options) && $answer->answer1 > 0) {$answers = explode(',', get_string($question->options, 'survey'));if ($answer->answer1 <= count($answers)) {$table->data[] = array(s($answers[$answer->answer1 - 1])); // No html here, just plain text.} else {$table->data[] = array(s($answer->answer1)); // No html here, just plain text.}} else {$table->data[] = array(s($answer->answer1)); // No html here, just plain text.}echo html_writer::table($table);echo $OUTPUT->spacer(array('height' => 30));}}}if ($rs = survey_get_analysis($survey->id, $user->id)) {$notes = $rs->notes;} else {$notes = "";}echo "<hr noshade=\"noshade\" size=\"1\" />";echo "<div class='studentreport'>";echo "<form action=\"report.php\" method=\"post\">";echo "<h3>$strnotes:</h3>";echo "<blockquote>";echo "<textarea class=\"form-control\" name=\"notes\" rows=\"10\" cols=\"60\">";p($notes);echo "</textarea><br />";echo "<input type=\"hidden\" name=\"action\" value=\"student\" />";echo "<input type=\"hidden\" name=\"sesskey\" value=\"" . sesskey() . "\" />";echo "<input type=\"hidden\" name=\"student\" value=\"$student\" />";echo "<input type=\"hidden\" name=\"id\" value=\"$cm->id\" />";echo "<input type=\"submit\" class=\"btn btn-primary\" value=\"" . get_string("savechanges") . "\" />";echo "</blockquote>";echo "</form>";echo "</div>";break;case "download":echo $OUTPUT->heading($strdownload, 3);if ($groupsactivitymenu) {echo html_writer::div($groupsactivitymenu, 'mb-2');}require_capability('mod/survey:download', $context);$numusers = survey_count_responses($survey->id, $currentgroup, $groupingid);if ($numusers > 0) {echo html_writer::tag('p', get_string("downloadinfo", "survey"), array('class' => 'centerpara'));echo $OUTPUT->container_start('reportbuttons');$options = array();$options["id"] = "$cm->id";$options["group"] = $currentgroup;$options["type"] = "ods";echo $OUTPUT->single_button(new moodle_url("download.php", $options), get_string("downloadods"));$options["type"] = "xls";echo $OUTPUT->single_button(new moodle_url("download.php", $options), get_string("downloadexcel"));$options["type"] = "txt";echo $OUTPUT->single_button(new moodle_url("download.php", $options), get_string("downloadtext"));echo $OUTPUT->container_end();} else {echo $OUTPUT->notification(get_string("nobodyyet", "survey"), 'info', false);}break;default:throw new moodle_exception('cannotviewreport');}echo $OUTPUT->footer();