Proyectos de Subversion Moodle

<?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&amp;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&amp;id=$id&amp;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&amp;id=$id&amp;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&amp;id=$id&amp;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&amp;action=student&amp;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&amp;id=$id&amp;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();