SWAMPy

✎ CARVE FLESH

EDITING: report.php

<?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)) {
        throw new \moodle_exception("invalidcoursemodule");
    }

if (! $course = $DB->get_record("course", array("id" => $cm->course))) {
        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)) {
        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->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) {
                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++, \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 \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();

CANCEL

Name	Type	Size	Modified	Actions
↩ ..	DIR	—	—
📁 backup/	DIR	—	2026-02-11 01:44
📁 classes/	DIR	—	2026-02-11 01:44
📁 db/	DIR	—	2026-02-11 01:44
📁 lang/	DIR	—	2026-02-11 01:44
📁 pix/	DIR	—	2026-02-11 01:44
📁 tests/	DIR	—	2026-02-11 01:44
📄 index.php	PHP	1.1 KB	2026-02-11 01:44	EDIT
📄 lib.php	PHP	44.9 KB	2026-02-11 01:44	EDIT
📄 locallib.php	PHP	5.7 KB	2026-02-11 01:44	EDIT
📄 mod_form.php	PHP	9.1 KB	2026-02-11 01:44	EDIT
📄 renderer.php	PHP	17.8 KB	2026-02-11 01:44	EDIT
📄 report.php	PHP	12.7 KB	2026-02-11 01:44	EDIT
📄 upgrade.txt	TXT	1.4 KB	2026-02-11 01:44	EDIT
📄 UPGRADING.md	MD	1.2 KB	2026-02-11 01:44	EDIT
📄 version.php	PHP	1.2 KB	2026-02-11 01:44	EDIT
📄 view.php	PHP	9.7 KB	2026-02-11 01:44	EDIT