mirror of
https://github.com/moodle/moodle.git
synced 2025-02-15 21:36:58 +01:00
38e179a4ed
This check-in removes about 400 lines of code. I hope I have not screwed anything up. I would be grateful if people could review this change, and keep an eye on the navigation bar in modules. Any navigation bar bugs you find in the near future, feel free to file them in the tracker and assign them to me. Thanks. If not to many problems are found, I think I would like to backport this to 1.9 stable, but I am not sure that is a good idea. Opinions to the General Developer Forum please. I am about to start a thread there.
284 lines
11 KiB
PHP
284 lines
11 KiB
PHP
<?php // $Id$
|
|
|
|
require_once("../../config.php");
|
|
require_once("lib.php");
|
|
|
|
$id = required_param('id', PARAM_INT); //moduleid
|
|
$format = optional_param('format', CHOICE_PUBLISH_NAMES, PARAM_INT);
|
|
$download = optional_param('download', '', PARAM_ALPHA);
|
|
$action = optional_param('action', '', PARAM_ALPHA);
|
|
|
|
if (! $cm = get_coursemodule_from_id('choice', $id)) {
|
|
error("Course Module ID was incorrect");
|
|
}
|
|
|
|
if (! $course = get_record("course", "id", $cm->course)) {
|
|
error("Course module is misconfigured");
|
|
}
|
|
|
|
require_login($course->id, false, $cm);
|
|
|
|
$context = get_context_instance(CONTEXT_MODULE, $cm->id);
|
|
|
|
require_capability('mod/choice:readresponses', $context);
|
|
|
|
if (!$choice = choice_get_choice($cm->instance)) {
|
|
error("Course module is incorrect");
|
|
}
|
|
|
|
$strchoice = get_string("modulename", "choice");
|
|
$strchoices = get_string("modulenameplural", "choice");
|
|
$strresponses = get_string("responses", "choice");
|
|
|
|
add_to_log($course->id, "choice", "report", "report.php?id=$cm->id", "$choice->id",$cm->id);
|
|
|
|
if ($action == 'delete' && has_capability('mod/choice:deleteresponses',$context)) {
|
|
$attemptids = isset($_POST['attemptid']) ? $_POST['attemptid'] : array(); //get array of repsonses to delete.
|
|
choice_delete_responses($attemptids); //delete responses.
|
|
redirect("report.php?id=$cm->id");
|
|
}
|
|
|
|
if (!$download) {
|
|
|
|
$navigation = build_navigation($strresponses, $cm);
|
|
print_header_simple(format_string($choice->name).": $strresponses", "", $navigation, "", '', true,
|
|
update_module_button($cm->id, $course->id, $strchoice), navmenu($course, $cm));
|
|
/// Check to see if groups are being used in this choice
|
|
$groupmode = groups_get_activity_groupmode($cm);
|
|
groups_get_activity_group($cm, true);
|
|
groups_print_activity_menu($cm, 'report.php?id='.$id);
|
|
} else {
|
|
$groupmode = groups_get_activity_groupmode($cm);
|
|
groups_get_activity_group($cm, true);
|
|
}
|
|
|
|
$users = get_users_by_capability($context, 'mod/choice:choose', 'u.id, u.picture, u.firstname, u.lastname, u.idnumber', 'u.firstname ASC');
|
|
|
|
if (!empty($CFG->enablegroupings) && !empty($cm->groupingid) && !empty($users)) {
|
|
$groupingusers = groups_get_grouping_members($cm->groupingid, 'u.id', 'u.id');
|
|
foreach($users as $key => $user) {
|
|
if (!isset($groupingusers[$user->id])) {
|
|
unset($users[$key]);
|
|
}
|
|
}
|
|
}
|
|
|
|
if (!$users) {
|
|
print_heading(get_string("nousersyet"));
|
|
}
|
|
|
|
if ($allresponses = get_records("choice_answers", "choiceid", $choice->id)) {
|
|
foreach ($allresponses as $aa) {
|
|
$answers[$aa->userid] = $aa;
|
|
}
|
|
} else {
|
|
$answers = array () ;
|
|
}
|
|
|
|
$timenow = time();
|
|
|
|
foreach ($choice->option as $optionid => $text) {
|
|
$useranswer[$optionid] = array();
|
|
}
|
|
foreach ($users as $user) {
|
|
if (!empty($user->id) and !empty($answers[$user->id])) {
|
|
$answer = $answers[$user->id];
|
|
$useranswer[(int)$answer->optionid][] = $user;
|
|
} else {
|
|
$useranswer[0][] = $user;
|
|
}
|
|
}
|
|
foreach ($choice->option as $optionid => $text) {
|
|
if (!$choice->option[$optionid]) {
|
|
unset($useranswer[$optionid]); // Throw away any data that doesn't apply
|
|
}
|
|
}
|
|
ksort($useranswer);
|
|
|
|
|
|
if ($download == "ods" && has_capability('mod/choice:downloadresponses', $context)) {
|
|
require_once("$CFG->libdir/odslib.class.php");
|
|
|
|
/// Calculate file name
|
|
$filename = clean_filename("$course->shortname ".strip_tags(format_string($choice->name,true))).'.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
|
|
$myxls->write_string(0,0,get_string("lastname"));
|
|
$myxls->write_string(0,1,get_string("firstname"));
|
|
$myxls->write_string(0,2,get_string("idnumber"));
|
|
$myxls->write_string(0,3,get_string("group"));
|
|
$myxls->write_string(0,4,get_string("choice","choice"));
|
|
|
|
|
|
/// generate the data for the body of the spreadsheet
|
|
$i=0;
|
|
$row=1;
|
|
if ($users) {
|
|
foreach ($users as $user) {
|
|
// this needs fixing
|
|
|
|
if (!($optionid==0 && has_capability('mod/choice:readresponses', $context, $user->id))) {
|
|
|
|
if (!empty($answers[$user->id]) && !($answers[$user->id]->optionid==0 && has_capability('mod/choice:readresponses', $context, $user->id) && $choice->showunanswered==0)) { // make sure admins and hidden teachers are not shown in not answered yet column, and not answered only shown if set in config page.
|
|
|
|
$myxls->write_string($row,0,$user->lastname);
|
|
$myxls->write_string($row,1,$user->firstname);
|
|
$studentid=(!empty($user->idnumber) ? $user->idnumber : " ");
|
|
$myxls->write_string($row,2,$studentid);
|
|
$ug2 = '';
|
|
if ($usergrps = groups_get_all_groups($course->id, $user->id)) {
|
|
foreach ($usergrps as $ug) {
|
|
$ug2 = $ug2. $ug->name;
|
|
}
|
|
}
|
|
$myxls->write_string($row,3,$ug2);
|
|
|
|
$useroption = choice_get_option_text($choice, $answers[$user->id]->optionid);
|
|
if (isset($useroption)) {
|
|
$myxls->write_string($row,4,format_string($useroption,true));
|
|
}
|
|
$row++;
|
|
}
|
|
$pos=4;
|
|
}
|
|
}
|
|
|
|
/// 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
|
|
$filename = clean_filename("$course->shortname ".strip_tags(format_string($choice->name,true))).'.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
|
|
$myxls->write_string(0,0,get_string("lastname"));
|
|
$myxls->write_string(0,1,get_string("firstname"));
|
|
$myxls->write_string(0,2,get_string("idnumber"));
|
|
$myxls->write_string(0,3,get_string("group"));
|
|
$myxls->write_string(0,4,get_string("choice","choice"));
|
|
|
|
|
|
/// generate the data for the body of the spreadsheet
|
|
$i=0;
|
|
$row=1;
|
|
if ($users) {
|
|
foreach ($users as $user) {
|
|
// this needs fixing
|
|
|
|
if (!($optionid==0 && has_capability('mod/choice:readresponses', $context, $user->id))) {
|
|
|
|
if (!empty($answers[$user->id]) && !($answers[$user->id]->optionid==0 && has_capability('mod/choice:readresponses', $context, $user->id) && $choice->showunanswered==0)) { // make sure admins and hidden teachers are not shown in not answered yet column, and not answered only shown if set in config page.
|
|
|
|
$myxls->write_string($row,0,$user->lastname);
|
|
$myxls->write_string($row,1,$user->firstname);
|
|
$studentid=(!empty($user->idnumber) ? $user->idnumber : " ");
|
|
$myxls->write_string($row,2,$studentid);
|
|
$ug2 = '';
|
|
if ($usergrps = groups_get_all_groups($course->id, $user->id)) {
|
|
foreach ($usergrps as $ug) {
|
|
$ug2 = $ug2. $ug->name;
|
|
}
|
|
}
|
|
$myxls->write_string($row,3,$ug2);
|
|
|
|
$useroption = choice_get_option_text($choice, $answers[$user->id]->optionid);
|
|
if (isset($useroption)) {
|
|
$myxls->write_string($row,4,format_string($useroption,true));
|
|
}
|
|
$row++;
|
|
}
|
|
$pos=4;
|
|
}
|
|
}
|
|
|
|
/// Close the workbook
|
|
$workbook->close();
|
|
|
|
exit;
|
|
}
|
|
}
|
|
// print text file
|
|
if ($download == "txt" && has_capability('mod/choice:downloadresponses', $context)) {
|
|
$filename = clean_filename("$course->shortname ".strip_tags(format_string($choice->name,true))).'.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("firstname")."\t".get_string("lastname") . "\t". get_string("idnumber") . "\t";
|
|
echo get_string("group"). "\t";
|
|
echo get_string("choice","choice"). "\n";
|
|
|
|
/// generate the data for the body of the spreadsheet
|
|
$i=0;
|
|
$row=1;
|
|
if ($users) foreach ($users as $user) {
|
|
if (!empty($answers[$user->id]) && !($answers[$user->id]->optionid==0 && has_capability('mod/choice:readresponses', $context, $user->id) && $choice->showunanswered==0)) { // make sure admins and hidden teachers are not shown in not answered yet column, and not answered only shown if set in config page.
|
|
|
|
echo $user->lastname;
|
|
echo "\t".$user->firstname;
|
|
$studentid = " ";
|
|
if (!empty($user->idnumber)) {
|
|
$studentid = $user->idnumber;
|
|
}
|
|
echo "\t". $studentid."\t";
|
|
$ug2 = '';
|
|
if ($usergrps = groups_get_all_groups($course->id, $user->id)) {
|
|
foreach ($usergrps as $ug) {
|
|
$ug2 = $ug2. $ug->name;
|
|
}
|
|
}
|
|
echo $ug2. "\t";
|
|
echo format_string(choice_get_option_text($choice, $answers[$user->id]->optionid),true). "\n";
|
|
}
|
|
$row++;
|
|
}
|
|
exit;
|
|
}
|
|
|
|
choice_show_results($choice, $course, $cm, $format); //show table with students responses.
|
|
|
|
//now give links for downloading spreadsheets.
|
|
echo "<br />\n";
|
|
echo "<table class=\"downloadreport\"><tr>\n";
|
|
echo "<td>";
|
|
$options = array();
|
|
$options["id"] = "$cm->id";
|
|
$options["download"] = "ods";
|
|
print_single_button("report.php", $options, get_string("downloadods"));
|
|
echo "</td><td>";
|
|
$options["download"] = "xls";
|
|
print_single_button("report.php", $options, get_string("downloadexcel"));
|
|
echo "</td><td>";
|
|
$options["download"] = "txt";
|
|
print_single_button("report.php", $options, get_string("downloadtext"));
|
|
|
|
echo "</td></tr></table>";
|
|
print_footer($course);
|
|
|
|
?>
|