moodle/moodle
3
0
Fork 0
mirror of https://github.com/moodle/moodle.git synced 2025-08-05 08:56:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Excel reports now use the new libraray ... code by Russell Jungwirth - thanks!

Browse source
This commit is contained in:
moodler 2003-09-30 13:18:09 +00:00
parent 5e0f9e613a
commit 768f85c43d
1 changed files with 27 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

46
mod/quiz/report/simplestat/report.php
View file

@ -71,54 +71,60 @@ class quiz_report extends quiz_default_report {
} }
} }
/// If spreadsheet is wanted, produce one /// If spreadsheet is wanted, produce one
if ($download == "xls") { if ($download == "xls") {
include("$CFG->libdir/psxlsgen.php"); require_once("$CFG->libdir/excel/Worksheet.php");
$myxls = new PhpSimpleXlsGen(); require_once("$CFG->libdir/excel/Workbook.php");
$myxls->totalcol = $count+1; header("Content-type: application/vnd.ms-excel");
header("Content-Disposition: attachment; filename=$course->shortname ".$quiz->name.".xls" );
header("Expires: 0");
header("Cache-Control: must-revalidate, post-check=0,pre-check=0");
header("Pragma: public");
$workbook = new Workbook("-");
// Creating the first worksheet
$myxls = &$workbook->add_worksheet('Simple Quiz Statistics');
/// Print names of all the fields /// Print names of all the fields
$myxls->ChangePos(0,0); $myxls->write_string(0,0,$quiz->name);
$myxls->InsertText($quiz->name); $myxls->set_column(0,0,25);
$myxls->set_column(1,$count,9);
for ($i=1; $i<=$count; $i++) { for ($i=1; $i<=$count; $i++) {
$myxls->InsertText($i); $myxls->write_string(0,$i,$i);
} }
/// Print all the user data /// Print all the user data
$row=1; $row=1;
foreach ($data as $userid => $datum) { foreach ($data as $userid => $datum) {
$myxls->ChangePos($row,0); $myxls->write_string($row,0,"$datum->firstname $datum->lastname");
$myxls->InsertText("$datum->firstname $datum->lastname");
for ($i=1; $i<=$count; $i++) { for ($i=1; $i<=$count; $i++) {
if (isset($datum->grades[$i])) { if (isset($datum->grades[$i])) {
$myxls->InsertNumber($datum->grades[$i]); $myxls->write_number($row,$i,$datum->grades[$i]);
} else {
$myxls->InsertText("");
} }
} }
$row++; $row++;
} }
/// Print all the averages /// Print all the averages
$myxls->ChangePos($row,0);
$myxls->InsertText("");
for ($i=1; $i<=$count; $i++) { for ($i=1; $i<=$count; $i++) {
$myxls->InsertNumber($average[$i]); $myxls->write_number($row,$i,$average[$i]);
} }
$formatot =& $workbook->add_format();
// format number 10 is percent, two digit
$formatot->set_num_format(10);
/// Print all the averages as percentages /// Print all the averages as percentages
$row++; $row++;
$myxls->ChangePos($row,0); $myxls->write_string($row,0,"%");
$myxls->InsertText("%");
for ($i=1; $i<=$count; $i++) { for ($i=1; $i<=$count; $i++) {
$percent = format_float($average[$i] * 100); // $percent = format_float($average[$i] * 100);
$myxls->InsertText("$percent%"); // $myxls->write_text($row,$i,"$percent%");
$myxls->write_number($row,$i,$average[$i],$formatot);
} }
$myxls->SendFileName("$course->shortname $quiz->name"); $workbook->close();
exit; exit;
} }