<?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



> $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)) {

<         print_error('invalidcoursemodule');



>     throw new moodle_exception('invalidcoursemodule');


    }

    if (! $course = $DB->get_record("course", array("id"=>$cm->course))) {

<         print_error('coursemisconf');



>     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))) {

<         print_error('invalidsurveyid', 'survey');



>     throw new moodle_exception('invalidsurveyid', 'survey');


    }

    if (! $template = $DB->get_record("survey", array("id"=>$survey->template))) {

<         print_error('invalidtmptid', 'survey');



>     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");

<     $strallquestions = get_string("allquestions", "survey");


    $strselectedquestions = get_string("selectedquestions", "survey");
    $strseemoredetail = get_string("seemoredetail", "survey");
    $strnotes = get_string("notes", "survey");


<     switch ($action) {
<         case 'download':
<             $PAGE->navbar->add(get_string('downloadresults', 'survey'));
<             break;
<         case 'summary':
<         case 'scales':
<         case 'questions':
<             $PAGE->navbar->add($strreport);
<             $PAGE->navbar->add(${'str'.$action});
<             break;
<         case 'students':
<             $PAGE->navbar->add($strreport);
<             $PAGE->navbar->add(get_string('participants'));
<             break;
<         case '':
<             $PAGE->navbar->add($strreport);
<             $PAGE->navbar->add($strsummary);
<             break;
<         default:
<             $PAGE->navbar->add($strreport);
<             break;
<     }
< 


    $PAGE->set_title("$course->shortname: ".format_string($survey->name));
    $PAGE->set_heading($course->fullname);

> $PAGE->activityheader->set_attrs([
    echo $OUTPUT->header();
>         'hidecompletion' => true,
    echo $OUTPUT->heading(format_string($survey->name));
>         'description' => ''

> ]);
/// Check to see if groups are being used in this survey
> 
    if ($groupmode = groups_get_activity_groupmode($cm)) {   // Groups are being used
> // Activate the secondary nav tab.
        $menuaction = $action == "student" ? "students" : $action;
> navigation_node::override_active_url(new moodle_url('/mod/survey/report.php', ['id' => $id, 'action' => 'summary']));
        $currentgroup = groups_get_activity_group($cm, true);
> 
        groups_print_activity_menu($cm, $CFG->wwwroot . "/mod/survey/report.php?id=$cm->id&amp;action=$menuaction&amp;qid=$qid");
> $actionbar = new \mod_survey\output\actionbar($id, $action, $url);



<     echo $OUTPUT->heading(format_string($survey->name));



> $renderer = $PAGE->get_renderer('mod_survey');
> echo $renderer->response_actionbar($actionbar);



< /// Check to see if groups are being used in this survey
<     if ($groupmode = groups_get_activity_groupmode($cm)) {   // Groups are being used



> // Check to see if groups are being used in this survey.
> $groupmode = groups_get_activity_groupmode($cm);
> if ($groupmode != NOGROUPS) {




> 
    $params = array(
>     // Get the current activity group, confirm user can access.



<         groups_print_activity_menu($cm, $CFG->wwwroot . "/mod/survey/report.php?id=$cm->id&amp;action=$menuaction&amp;qid=$qid");



>     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);


        'context' => $context,

>     $groupsactivitymenu = null;


        '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;


<     echo $OUTPUT->box_start("generalbox boxaligncenter");
<     if ($showscales) {
<         echo "<a href=\"report.php?action=summary&amp;id=$id\">$strsummary</a>";
<         echo "&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"report.php?action=scales&amp;id=$id\">$strscales</a>";
<         echo "&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"report.php?action=questions&amp;id=$id\">$strquestions</a>";
<         echo "&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"report.php?action=students&amp;id=$id\">".get_string('participants')."</a>";
<         if (has_capability('mod/survey:download', $context)) {
<             echo "&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"report.php?action=download&amp;id=$id\">$strdownload</a>";
<         }
<         if (empty($action)) {
<             $action = "summary";
<         }
<     } else {
<         echo "<a href=\"report.php?action=questions&amp;id=$id\">$strquestions</a>";
<         echo "&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"report.php?action=students&amp;id=$id\">".get_string('participants')."</a>";
<         if (has_capability('mod/survey:download', $context)) {
<             echo "&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"report.php?action=download&amp;id=$id\">$strdownload</a>";
<         }
<         if (empty($action)) {
<             $action = "questions";
<         }
<     }
<     echo $OUTPUT->box_end();
< 
<     echo $OUTPUT->spacer(array('height'=>30, 'width'=>30, 'br'=>true)); // should be done with CSS instead
< 
< 
< /// Print the menu across the top



> // 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.
        echo $OUTPUT->heading($strsummary, 3);
>         if ($survey->template == SURVEY_CIQ) {

>             throw new moodle_exception('cannotviewreport');
        if (survey_count_responses($survey->id, $currentgroup, $groupingid)) {
>         }


            echo "<div class='reportsummary'><a href=\"report.php?action=scales&amp;id=$id\">";

>         if ($groupsactivitymenu) {
            survey_print_graph("id=$id&amp;group=$currentgroup&amp;type=overall.png");
>             echo html_writer::div($groupsactivitymenu, 'mb-2');
            echo "</a></div>";
>         }
        } else {
> 



<             echo $OUTPUT->notification(get_string("nobodyyet","survey"));



>             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.
        echo $OUTPUT->heading($strscales, 3);
>         if ($survey->template == SURVEY_CIQ) {

>             throw new moodle_exception('cannotviewreport');
        if (! $results = survey_get_responses($survey->id, $currentgroup, $groupingid) ) {
>         }


            echo $OUTPUT->notification(get_string("nobodyyet","survey"));

>         if ($groupsactivitymenu) {

>             echo html_writer::div($groupsactivitymenu, 'mb-2');
        } else {
>         }

> 



<             echo $OUTPUT->notification(get_string("nobodyyet","survey"));



>             echo $OUTPUT->notification(get_string("nobodyyet", "survey"), 'info', false);


            $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



>                     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&amp;qid=$question->id&amp;group=$currentgroup&amp;type=multiquestion.png");
                    echo "</a></p><br />";
                }
            }
        }

        break;

      case "questions":


<         if ($qid) {     // just get one multi-question



>         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



>         } else {        // Get all top-level questions.


            $questions = $DB->get_records_list("survey_questions", "id", explode(',',$survey->questions));
            $questionorder = explode(",", $survey->questions);


<             echo $OUTPUT->heading($strallquestions, 3);



>             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"));



>             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&amp;qid=$subquestion->id&amp;group=$currentgroup&amp;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&amp;qid=$question->id&amp;group=$currentgroup&amp;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



>                     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))) {

<             print_error('cannotfindquestion', 'survey');



>             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 =  "&nbsp;";
                }
                if ($a->answer2) {
                    $answer2 = "$a->answer2 - ".$answers[$a->answer2 - 1];
                } else {
                    $answer2 = "&nbsp;";
                }
                $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) {
         if (! $results = survey_get_responses($survey->id, $currentgroup, $groupingid) ) {
>             echo html_writer::div($groupsactivitymenu, 'mb-2');
             echo $OUTPUT->notification(get_string("nobodyyet","survey"));
>         }
         } else {
> 



<              echo $OUTPUT->notification(get_string("nobodyyet","survey"));



>             echo $OUTPUT->notification(get_string("nobodyyet", "survey"), 'info', false);


         }

        break;

      case "student":

<          if (!$user = $DB->get_record("user", array("id"=>$student))) {
<              print_error('invaliduserid');



>         $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) {
         if ($notes != '' and confirm_sesskey()) {
>             echo html_writer::div($groupsactivitymenu, 'mb-2');
             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



>             // Print overall summary.


            echo "<p class=\"centerpara\">";
             survey_print_graph("id=$id&amp;sid=$student&amp;type=student.png");
             echo "</p>";


<              // Print scales



>             // 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



>                     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&amp;qid=$question->id&amp;sid=$student&amp;type=studentmultiquestion.png");
                     echo "</a></p><br />";
                 }
             }
         }


<          // Print non-scale questions



>         // 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) {
        require_capability('mod/survey:download', $context);
>             echo html_writer::div($groupsactivitymenu, 'mb-2');

>         }
        $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 html_writer::tag('p', get_string("nobodyyet", "survey"), array('class' => 'centerpara'));



>             echo $OUTPUT->notification(get_string("nobodyyet", "survey"), 'info', false);


        }

        break;


>     default:
    }
>         throw new moodle_exception('cannotviewreport');
    echo $OUTPUT->footer();
> 



<