Search moodle.org's
Developer Documentation

See Release Notes

  • Bug fixes for general core bugs in 3.10.x will end 8 November 2021 (12 months).
  • Bug fixes for security issues in 3.10.x will end 9 May 2022 (18 months).
  • PHP version: minimum PHP 7.2.0 Note: minimum PHP version has increased since Moodle 3.8. PHP 7.3.x and 7.4.x are supported too.
<?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");
> throw new \moodle_exception("invalidcoursemodule");
} if (! $course = $DB->get_record("course", array("id" => $cm->course))) {
< print_error("coursemisconf");
> throw new \moodle_exception("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');
> throw new \moodle_exception('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->navbar->add($strresponses);
$PAGE->set_title(format_string($choice->name).": $strresponses"); $PAGE->set_heading($course->fullname);
> $PAGE->activityheader->set_attrs([ echo $OUTPUT->header(); > 'hidecompletion' => true, echo $OUTPUT->heading(format_string($choice->name), 2, null); > 'description' => '' /// Check to see if groups are being used in this choice > ]);
< echo $OUTPUT->heading(format_string($choice->name), 2, null);
> echo $OUTPUT->heading($strresponses); >
< $groupmode = groups_get_activity_groupmode($cm);
groups_get_activity_group($cm, true);
< groups_print_activity_menu($cm, $CFG->wwwroot . '/mod/choice/report.php?id='.$id);
> $groupsactivitymenu = groups_print_activity_menu($cm, $CFG->wwwroot . '/mod/choice/report.php?id=' . $id, > true); > echo html_writer::div($groupsactivitymenu, 'mb-2');
} } else {
< $groupmode = groups_get_activity_groupmode($cm); <
// 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);
< $extrafields = get_extra_user_fields($context);
> // 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++, get_user_field_name($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) {
> if (!($choice->showunanswered == 0 && $option == 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 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++, get_user_field_name($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;
> if (!($choice->showunanswered == 0 && $option == 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 get_user_field_name($field) . "\t";
> 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) {
> if (!($choice->showunanswered == 0 && $option == 0)) {
$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();