/mod/choice/report.php
PHP | 303 lines | 229 code | 46 blank | 28 comment | 33 complexity | bb4a9d76d93fd7706345c22d7a546f88 MD5 | raw file
Possible License(s): Apache-2.0, LGPL-2.1, BSD-3-Clause, MIT, GPL-3.0
- <?php
- require_once("../../config.php");
- require_once("lib.php");
- $id = required_param('id', PARAM_INT); //moduleid
- $download = optional_param('download', '', PARAM_ALPHA);
- $action = optional_param('action', '', PARAM_ALPHANUMEXT);
- $attemptids = optional_param_array('attemptid', array(), PARAM_INT); // Get array of responses to delete or modify.
- $userids = optional_param_array('userid', array(), PARAM_INT); // Get array of users whose choices need to be modified.
- $url = new moodle_url('/mod/choice/report.php', array('id'=>$id));
- if ($download !== '') {
- $url->param('download', $download);
- }
- if ($action !== '') {
- $url->param('action', $action);
- }
- $PAGE->set_url($url);
- if (! $cm = get_coursemodule_from_id('choice', $id)) {
- print_error("invalidcoursemodule");
- }
- if (! $course = $DB->get_record("course", array("id" => $cm->course))) {
- print_error("coursemisconf");
- }
- require_login($course, false, $cm);
- $context = context_module::instance($cm->id);
- require_capability('mod/choice:readresponses', $context);
- if (!$choice = choice_get_choice($cm->instance)) {
- print_error('invalidcoursemodule');
- }
- $strchoice = get_string("modulename", "choice");
- $strchoices = get_string("modulenameplural", "choice");
- $strresponses = get_string("responses", "choice");
- $eventdata = array();
- $eventdata['objectid'] = $choice->id;
- $eventdata['context'] = $context;
- $eventdata['courseid'] = $course->id;
- $eventdata['other']['content'] = 'choicereportcontentviewed';
- $event = \mod_choice\event\report_viewed::create($eventdata);
- $event->trigger();
- if (data_submitted() && has_capability('mod/choice:deleteresponses', $context) && confirm_sesskey()) {
- if ($action === 'delete') {
- // Delete responses of other users.
- choice_delete_responses($attemptids, $choice, $cm, $course);
- redirect("report.php?id=$cm->id");
- }
- if (preg_match('/^choose_(\d+)$/', $action, $actionmatch)) {
- // Modify responses of other users.
- $newoptionid = (int)$actionmatch[1];
- choice_modify_responses($userids, $attemptids, $newoptionid, $choice, $cm, $course);
- redirect("report.php?id=$cm->id");
- }
- }
- $groupmode = groups_get_activity_groupmode($cm);
- if (!$download) {
- $PAGE->set_title(format_string($choice->name).": $strresponses");
- $PAGE->set_heading($course->fullname);
- $PAGE->activityheader->set_attrs([
- 'hidecompletion' => true,
- 'description' => ''
- ]);
- echo $OUTPUT->header();
- echo $OUTPUT->heading($strresponses);
- /// Check to see if groups are being used in this choice
- if ($groupmode) {
- groups_get_activity_group($cm, true);
- $groupsactivitymenu = groups_print_activity_menu($cm, $CFG->wwwroot . '/mod/choice/report.php?id=' . $id,
- true);
- echo html_writer::div($groupsactivitymenu, 'mb-2');
- }
- } else {
- // Trigger the report downloaded event.
- $eventdata = array();
- $eventdata['context'] = $context;
- $eventdata['courseid'] = $course->id;
- $eventdata['other']['content'] = 'choicereportcontentviewed';
- $eventdata['other']['format'] = $download;
- $eventdata['other']['choiceid'] = $choice->id;
- $event = \mod_choice\event\report_downloaded::create($eventdata);
- $event->trigger();
- }
- // Check if we want to include responses from inactive users.
- $onlyactive = $choice->includeinactive ? false : true;
- $users = choice_get_response_data($choice, $cm, $groupmode, $onlyactive);
- // TODO Does not support custom user profile fields (MDL-70456).
- $extrafields = \core_user\fields::get_identity_fields($context, false);
- if ($download == "ods" && has_capability('mod/choice:downloadresponses', $context)) {
- require_once("$CFG->libdir/odslib.class.php");
- /// Calculate file name
- $shortname = format_string($course->shortname, true, array('context' => $context));
- $choicename = format_string($choice->name, true, array('context' => $context));
- $filename = clean_filename("$shortname " . strip_tags($choicename)) . '.ods';
- /// Creating a workbook
- $workbook = new MoodleODSWorkbook("-");
- /// Send HTTP headers
- $workbook->send($filename);
- /// Creating the first worksheet
- $myxls = $workbook->add_worksheet($strresponses);
- /// Print names of all the fields
- $i = 0;
- $myxls->write_string(0, $i++, get_string("lastname"));
- $myxls->write_string(0, $i++, get_string("firstname"));
- // Add headers for extra user fields.
- foreach ($extrafields as $field) {
- $myxls->write_string(0, $i++, \core_user\fields::get_display_name($field));
- }
- $myxls->write_string(0, $i++, get_string("group"));
- $myxls->write_string(0, $i++, get_string("choice", "choice"));
- // Generate the data for the body of the spreadsheet.
- $row = 1;
- if ($users) {
- foreach ($users as $option => $userid) {
- $option_text = choice_get_option_text($choice, $option);
- foreach ($userid as $user) {
- $i = 0;
- $myxls->write_string($row, $i++, $user->lastname);
- $myxls->write_string($row, $i++, $user->firstname);
- foreach ($extrafields as $field) {
- $myxls->write_string($row, $i++, $user->$field);
- }
- $ug2 = '';
- if ($usergrps = groups_get_all_groups($course->id, $user->id)) {
- foreach ($usergrps as $ug) {
- $ug2 = $ug2 . $ug->name;
- }
- }
- $myxls->write_string($row, $i++, $ug2);
- if (isset($option_text)) {
- $myxls->write_string($row, $i++, format_string($option_text, true));
- }
- $row++;
- }
- }
- }
- /// Close the workbook
- $workbook->close();
- exit;
- }
- //print spreadsheet if one is asked for:
- if ($download == "xls" && has_capability('mod/choice:downloadresponses', $context)) {
- require_once("$CFG->libdir/excellib.class.php");
- /// Calculate file name
- $shortname = format_string($course->shortname, true, array('context' => $context));
- $choicename = format_string($choice->name, true, array('context' => $context));
- $filename = clean_filename("$shortname " . strip_tags($choicename)) . '.xls';
- /// Creating a workbook
- $workbook = new MoodleExcelWorkbook("-");
- /// Send HTTP headers
- $workbook->send($filename);
- /// Creating the first worksheet
- $myxls = $workbook->add_worksheet($strresponses);
- /// Print names of all the fields
- $i = 0;
- $myxls->write_string(0, $i++, get_string("lastname"));
- $myxls->write_string(0, $i++, get_string("firstname"));
- // Add headers for extra user fields.
- foreach ($extrafields as $field) {
- $myxls->write_string(0, $i++, \core_user\fields::get_display_name($field));
- }
- $myxls->write_string(0, $i++, get_string("group"));
- $myxls->write_string(0, $i++, get_string("choice", "choice"));
- // Generate the data for the body of the spreadsheet.
- $row = 1;
- if ($users) {
- foreach ($users as $option => $userid) {
- $i = 0;
- $option_text = choice_get_option_text($choice, $option);
- foreach($userid as $user) {
- $i = 0;
- $myxls->write_string($row, $i++, $user->lastname);
- $myxls->write_string($row, $i++, $user->firstname);
- foreach ($extrafields as $field) {
- $myxls->write_string($row, $i++, $user->$field);
- }
- $ug2 = '';
- if ($usergrps = groups_get_all_groups($course->id, $user->id)) {
- foreach ($usergrps as $ug) {
- $ug2 = $ug2 . $ug->name;
- }
- }
- $myxls->write_string($row, $i++, $ug2);
- if (isset($option_text)) {
- $myxls->write_string($row, $i++, format_string($option_text, true));
- }
- $row++;
- }
- }
- }
- /// Close the workbook
- $workbook->close();
- exit;
- }
- // print text file
- if ($download == "txt" && has_capability('mod/choice:downloadresponses', $context)) {
- $shortname = format_string($course->shortname, true, array('context' => $context));
- $choicename = format_string($choice->name, true, array('context' => $context));
- $filename = clean_filename("$shortname " . strip_tags($choicename)) . '.txt';
- header("Content-Type: application/download\n");
- header("Content-Disposition: attachment; filename=\"$filename\"");
- header("Expires: 0");
- header("Cache-Control: must-revalidate,post-check=0,pre-check=0");
- header("Pragma: public");
- /// Print names of all the fields
- echo get_string("lastname") . "\t" . get_string("firstname") . "\t";
- // Add headers for extra user fields.
- foreach ($extrafields as $field) {
- echo \core_user\fields::get_display_name($field) . "\t";
- }
- echo get_string("group"). "\t";
- echo get_string("choice","choice"). "\n";
- /// generate the data for the body of the spreadsheet
- $i=0;
- if ($users) {
- foreach ($users as $option => $userid) {
- $option_text = choice_get_option_text($choice, $option);
- foreach($userid as $user) {
- echo $user->lastname . "\t";
- echo $user->firstname . "\t";
- foreach ($extrafields as $field) {
- echo $user->$field . "\t";
- }
- $ug2 = '';
- if ($usergrps = groups_get_all_groups($course->id, $user->id)) {
- foreach ($usergrps as $ug) {
- $ug2 = $ug2. $ug->name;
- }
- }
- echo $ug2. "\t";
- if (isset($option_text)) {
- echo format_string($option_text,true);
- }
- echo "\n";
- }
- }
- }
- exit;
- }
- $results = prepare_choice_show_results($choice, $course, $cm, $users);
- $renderer = $PAGE->get_renderer('mod_choice');
- echo $renderer->display_result($results, true);
- //now give links for downloading spreadsheets.
- if (!empty($users) && has_capability('mod/choice:downloadresponses',$context)) {
- $downloadoptions = array();
- $options = array();
- $options["id"] = "$cm->id";
- $options["download"] = "ods";
- $button = $OUTPUT->single_button(new moodle_url("report.php", $options), get_string("downloadods"));
- $downloadoptions[] = html_writer::tag('li', $button, array('class' => 'reportoption list-inline-item'));
- $options["download"] = "xls";
- $button = $OUTPUT->single_button(new moodle_url("report.php", $options), get_string("downloadexcel"));
- $downloadoptions[] = html_writer::tag('li', $button, array('class' => 'reportoption list-inline-item'));
- $options["download"] = "txt";
- $button = $OUTPUT->single_button(new moodle_url("report.php", $options), get_string("downloadtext"));
- $downloadoptions[] = html_writer::tag('li', $button, array('class' => 'reportoption list-inline-item'));
- $downloadlist = html_writer::tag('ul', implode('', $downloadoptions), array('class' => 'list-inline inline'));
- $downloadlist .= html_writer::tag('div', '', array('class' => 'clearfloat'));
- echo html_writer::tag('div',$downloadlist, array('class' => 'downloadreport mt-1'));
- }
- echo $OUTPUT->footer();