mirror of
https://github.com/moodle/moodle.git
synced 2025-08-05 08:56:36 +02:00
New report from Thomas Robb - provides detailed statistics. Needs some work.
This commit is contained in:
moodler
parent
0a8d8da96a
commit
565e970ee2
1 changed files with 859 additions and 0 deletions
859
mod/quiz/report/fullstat/report.php
Executable file
859
mod/quiz/report/fullstat/report.php
Executable file
|
|
@ -0,0 +1,859 @@
|
|||
<?PHP // $Id: report.php,
|
||||
// created from the above 2003/11/20 by Tom Robb tom@robb.net
|
||||
// Version 2.0
|
||||
|
||||
/// This report shows the specific responses made by each student for each question.
|
||||
|
||||
class quiz_report extends quiz_default_report {
|
||||
|
||||
function display($quiz, $cm, $course) { /// This function just displays the report
|
||||
|
||||
global $CFG;
|
||||
global $download, $quests,$qtally,$table_colcount,$max_choices, $analysis,$qs_in_order,$total_user_count,$match_number,$thismin,$thismax,$myxls,$match_qs,$formatbc,$workbook;
|
||||
optional_variable($download, "");
|
||||
//$debug = 1;
|
||||
|
||||
//Get the question ids
|
||||
$thisquizid = $quiz->id;
|
||||
$qs_in_order =qr_getqs($thisquizid);
|
||||
$qcount = 0;
|
||||
$max_choices = 0; //for printing tallies we need to know how many rows to print
|
||||
$table_colcount = 0;
|
||||
foreach ($qs_in_order as $qid){
|
||||
$table_colcount++;
|
||||
//Get the question type and text and append to object
|
||||
$question_data = get_records_select("quiz_questions",$select="id='$qid'","","qtype,questiontext");
|
||||
foreach($question_data as $thiskey => $thisq){
|
||||
$quests[$qid]["qtype"] = $thiskey;
|
||||
$quests[$qid]["qtext"] = $question_data[$thiskey]->questiontext;
|
||||
}
|
||||
if($quests[$qid][qtype] == 5){
|
||||
//for MATCH items we need to know how many items there are
|
||||
$thismatch = get_record("quiz_match","question","$qid");
|
||||
$temparray = explode(",",$thismatch->subquestions);
|
||||
$match_number[$qid] = count($temparray);
|
||||
$match_start[$qid] = $temparray[0];
|
||||
$table_colcount = $table_colcount + $match_number[$qid] - 1;
|
||||
}
|
||||
$choice_data = get_records_select("quiz_answers",$select="question='$qid'","","id as cid,answer,fraction");
|
||||
if($quests[$qid][qtype] == 8){
|
||||
$thismin[$qid] = get_field("quiz_numerical","min","question","$qid");
|
||||
$thismax[$qid] = get_field("quiz_numerical","max","question","$qid");
|
||||
$quests[$qid]["correct"] = $thismin[$qid] ."< $choice_data->answer >" . $thismax[$qid];
|
||||
}
|
||||
if($quests[$qid][qtype] >3) {continue;}
|
||||
//only get choices here if type is SHORTANSWER,TRUEFALSE or MULTICHOICE
|
||||
//Get the choices for each question and add to object[choice] each choicd ID and text
|
||||
$choice_count=0;
|
||||
foreach($choice_data as $thiscid=>$thischoice){
|
||||
$choice_count++;
|
||||
$quests[$qid]["choice"]["$thiscid"]["answer"] = $thischoice->answer;
|
||||
$quests[$qid]["choice"]["$thiscid"]["choiceno"] = $choice_count;
|
||||
//if the fraction = 1, then set this choice number as the correct answer
|
||||
if ($thischoice->fraction == 1){
|
||||
//append answer if more than one
|
||||
if($quests[$qid]["correct"]){
|
||||
$quests[$qid]["correct"] .= "," . $thischoice->answer;
|
||||
} else {
|
||||
if($quests[$qid][qtype] == 3) {
|
||||
$quests[$qid]["correct"] = $choice_count;
|
||||
} else {
|
||||
$quests[$qid]["correct"] = $thischoice->answer;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
if($debug and !$download){
|
||||
print("<h3>Quests</h3>");
|
||||
print_object($quests);
|
||||
}
|
||||
$user_resps = qr_quiz_responses($thisquizid);
|
||||
// //print_object($user_resps);
|
||||
foreach($user_resps as $thiskey => $thisresp){
|
||||
$userdata[$thisresp->userid][$thisresp->attemptno]['response'][$thisresp->question]=$thisresp->answer;
|
||||
$userdata[$thisresp->userid][$thisresp->attemptno]['grade']=$thisresp->sumgrades;
|
||||
$userdata[$thisresp->userid][$thisresp->attemptno]['name']=$thisresp->lastname . ", " . $thisresp->firstname;
|
||||
$userdata[$thisresp->userid][$thisresp->attemptno][attemptid]=$thisresp->aid;
|
||||
}
|
||||
if($debug and !$download){
|
||||
print("<h3>User Data</h3>");
|
||||
print_object($userdata);
|
||||
}
|
||||
//now go through $userdata and create tally by user, attempt, question storing both response and if correct
|
||||
$reportline = 0;
|
||||
foreach($userdata as $thisuser){
|
||||
foreach($thisuser as $thiskey=>$thisattempt){
|
||||
// //print_object($thisattempt);
|
||||
$reportline++;
|
||||
$data_tally[$reportline][$thisattempt[attemptid]][] = $thisattempt[name];
|
||||
$data_tally[$reportline][$thisattempt[attemptid]][] = $thisattempt[grade]; //raw grade needs to be divided by total grades possible
|
||||
//now for each question, record response as it should be printed and whether right, wrong or skipped
|
||||
//SHORTASNSWER the answer as in $userdata; TF or MULTI need response looked by from cid from $quests
|
||||
//MATCH needs elaborate processing
|
||||
//We need to go through the responses in the order Qs presented thus the use of $qs_in_order not just $thisattempt
|
||||
foreach ($qs_in_order as $qid){
|
||||
$thisanswer = $thisattempt[response][$qid];
|
||||
if($quests[$qid][qtype]==5) {
|
||||
//for MATCH processing. Treat each match couplet as an item for $data_tally
|
||||
//builds an array of all questions and answers for match questions
|
||||
$quiz_matches = qr_match_array($qid);
|
||||
$matchsets = explode(",",$thisanswer);
|
||||
//sort needed so that same items line up vertically
|
||||
sort($matchsets);
|
||||
$matchcnt = 0;
|
||||
foreach($matchsets as $thisset){
|
||||
$matchcnt++;
|
||||
$nowpair = explode("-",$thisset);
|
||||
$phrasepair[0] = $quiz_matches[$nowpair[0]][Q];
|
||||
$phrasepair[1] = $quiz_matches[$nowpair[1]][A];
|
||||
//$match_answers keeps the correct answers for use in Response Analysis
|
||||
//This will operate redundantly for each user but better than setting up separate routine to run once(?)
|
||||
$match_answers[$qid][$nowpair[0]] = $phrasepair[1];
|
||||
$match_qs[$qid][$nowpair[0]] = $phrasepair[0];
|
||||
$rid = $nowpair[1];
|
||||
$qtally[$qid][$nowpair[0]][$nowpair[1]][tally]++;
|
||||
$qtally[$qid][$nowpair[0]][$nowpair[1]][answer] = $phrasepair[1];
|
||||
if ($quiz_matches[$nowpair[0]] == $quiz_matches[$nowpair[1]]) {
|
||||
$pairdata[score] = 1;
|
||||
$qtally[$qid][$nowpair[0]][correct]++;
|
||||
} else {
|
||||
$pairdata[score] = 0;
|
||||
}
|
||||
$pairdata[data] = $phrasepair;
|
||||
$pairdata[qtype] = 5;
|
||||
$pairdata[qid] = $qid;
|
||||
$data_tally[$reportline][$thisattempt[attemptid]][] = $pairdata;
|
||||
}
|
||||
} elseif ($quests[$qid][qtype]==8) {
|
||||
$thisdata = qr_answer_lookup($qid,$thisanswer);
|
||||
$data_tally[$reportline][$thisattempt[attemptid]][] = $thisdata;
|
||||
} else {
|
||||
$thisdata = qr_answer_lookup($qid,$thisanswer);
|
||||
//$thisdata returns couplet of display string and right/wrong
|
||||
if(!$thisdata[data]) {$thisdata[data] = "--";}
|
||||
if($thisdata) {
|
||||
$data_tally[$reportline][$thisattempt[attemptid]][] = $thisdata;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
$total_user_count = $reportline;
|
||||
//prepare headers (must do now because $table_colcount calculated here
|
||||
if($debug and !$download){
|
||||
print("<h3>Data Tally</h3>");
|
||||
print_object($data_tally);
|
||||
}
|
||||
//Create here an array with the response analysis data for use with both screen display & Excel
|
||||
// 2 dimensional array has as many cells across as items + title, as many down as $max_choices
|
||||
// plus one row [0] for correct items
|
||||
// Populate array first with "--" in each cell
|
||||
$analysis[] = "--";
|
||||
$analysis0 = array_pad($analysis,$table_colcount+1,"--");
|
||||
for ($i = 1; $i <= $max_choices+1; $i++){
|
||||
$analysis[$i] = $analysis0;
|
||||
}
|
||||
|
||||
$pct_correct = qr_make_footers();
|
||||
|
||||
if($debug and !$download){
|
||||
print("<h3>Footers</h3>");
|
||||
print_object($pct_correct);
|
||||
}
|
||||
//
|
||||
//display a row for each possible multiple choice with $max_choices being highest row
|
||||
for ($i = 1; $i<= $max_choices;$i++){
|
||||
//prepare answer tallies
|
||||
//2 columns already spoken for
|
||||
$current_column = 0;
|
||||
foreach ($qs_in_order as $qid){
|
||||
$current_column++;
|
||||
switch ($quests[$qid][qtype]) {
|
||||
case 1:
|
||||
if(!$sa_tally[$qid]){
|
||||
$sa_tally[$qid] = qr_make_satally($qid,$current_column);
|
||||
}
|
||||
break;
|
||||
case 2:
|
||||
if(!$tf_tally[$qid]){
|
||||
$tf_tally[$qid] = qr_make_tftally($qid,$current_column);
|
||||
}
|
||||
break;
|
||||
case 3:
|
||||
if($qtally[$qid][$i]){
|
||||
$analysis[$i][$current_column] = $qtally[$qid][$i];
|
||||
}
|
||||
break;
|
||||
case 8:
|
||||
if(!$num_tally[$qid]){
|
||||
$num_tally[$qid] = qr_make_numtally($qid,$current_column);
|
||||
}
|
||||
break;
|
||||
case 5:
|
||||
//Make the inverted array if not already made
|
||||
if(! $match_tally[$qid]){
|
||||
$match_tally[$qid] = qr_make_matchtally($qid);
|
||||
}
|
||||
$match_end = $match_start[$qid] + $match_number[$qid] -1;
|
||||
$colcounter = 0;
|
||||
for ($j = $match_start[$qid];$j <= $match_end;$j++){
|
||||
$colcounter++;
|
||||
if($match_tally[$qid][$i][$colcounter]) {
|
||||
$tallytext = $match_tally[$qid][$i][$colcounter][answer];
|
||||
$tallycount = $match_tally[$qid][$i][$colcounter][tally];
|
||||
//Two slashes used to represent location of a break since one slash might appear in data
|
||||
$analysis[$i][$current_column + $colcounter-1] = $tallytext . "//" . $tallycount ;
|
||||
}
|
||||
}
|
||||
$current_column += $match_number[$qid] -1;
|
||||
break;
|
||||
default:
|
||||
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if($debug and !$download){
|
||||
print("<h3>Analysis</h3>");
|
||||
print_object($analysis);
|
||||
}
|
||||
/// If spreadsheet is wanted, produce one
|
||||
if ($download == "xls") {
|
||||
require_once("$CFG->libdir/excel/Worksheet.php");
|
||||
require_once("$CFG->libdir/excel/Workbook.php");
|
||||
|
||||
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('Responses for each student');
|
||||
|
||||
|
||||
/// format types
|
||||
$format =& $workbook->add_format();
|
||||
$format->set_bold(0);
|
||||
$formaty =& $workbook->add_format();
|
||||
$formaty->set_bg_color('yellow');
|
||||
$formatyc =& $workbook->add_format();
|
||||
$formatyc->set_bg_color('yellow'); //bold text on yellow bg
|
||||
$formatyc->set_bold(1);
|
||||
$formatyc->set_align('center');
|
||||
$formatc =& $workbook->add_format();
|
||||
$formatc->set_align('center');
|
||||
$formatb =& $workbook->add_format();
|
||||
$formatb->set_bold(1);
|
||||
$formatbc =& $workbook->add_format();
|
||||
$formatbc->set_bold(1);
|
||||
$formatbc->set_align('center');
|
||||
$formatbrt =& $workbook->add_format();
|
||||
$formatbrt->set_bold(1);
|
||||
$formatbrt->set_align('right');
|
||||
$formatred =& $workbook->add_format();
|
||||
$formatred->set_bold(1);
|
||||
$formatred->set_color('red');
|
||||
$formatred->set_align('center');
|
||||
$formatblue =& $workbook->add_format();
|
||||
$formatblue->set_bold(1);
|
||||
$formatblue->set_color('blue');
|
||||
$formatblue->set_align('center');
|
||||
$myxls->write_string(0,0,$quiz->name);
|
||||
$myxls->set_column(0,0,25);
|
||||
$row=2;
|
||||
$qcount=0;
|
||||
// $myxls->write_string(0,2,$choiceMax,$formatyc);
|
||||
//You might expect the headers to be written at this point, but we are saving it till last
|
||||
$highest_Q_no = 0;
|
||||
$totcolcount = $table_colcount+2;
|
||||
$myxls->write_string(0,2,"Responses of Individuals to Each Item",$formatyc);
|
||||
// qr_xls_headers("Name","Grade");
|
||||
//This should have been a function but there is an 'incurable' error:
|
||||
// "Call to a member function on a non-object" It is repeated below for the 2nd worksheet with
|
||||
// only minor variations
|
||||
$nm = "Name";$Item="Grade";
|
||||
$row = 1;
|
||||
$col = 0;
|
||||
$qcount = 0;
|
||||
$myxls->write_string($row,$col,$nm,$formatbc);
|
||||
if($Item == "Grade") {
|
||||
$col++;
|
||||
$myxls->write_string($row,$col,$Item,$formatbc);
|
||||
}
|
||||
foreach($qs_in_order as $qid){
|
||||
$qcount++;
|
||||
$col++;
|
||||
if($quests[$qid][qtype] == 5) {
|
||||
$i = 0;
|
||||
foreach ($match_qs[$qid] as $nowq){
|
||||
$i++;
|
||||
$qm = "Q-$qcount M-$i";
|
||||
$myxls->write_string($row,$col,$qm,$formatbc);
|
||||
$myxls->write_string(2,$col,$nowq,$formatyc);
|
||||
$col++;
|
||||
}
|
||||
$col--;
|
||||
} else {
|
||||
$myxls->write_string($row,$col,"Q-$qcount",$formatbc);
|
||||
}
|
||||
}
|
||||
|
||||
//now print the lines of answers
|
||||
|
||||
$row = 2;
|
||||
foreach ($data_tally as $thisuserno=>$thisuser){
|
||||
foreach($thisuser as $thisattemptno=>$thisattempt){
|
||||
$row++;
|
||||
foreach($thisattempt as $thisitemkey=>$thisitem) {
|
||||
//$thisitemkeys 1 & 2 are name and total score
|
||||
//There needs to be a 3-way branch, keys0 & 1 just print $thisitem
|
||||
//else if $thisitem[qtype] = 5, then processing for MATCH is needed
|
||||
//else the data to be printed is in $thisitem[data] and
|
||||
//$thisitem[score] == 1 shows that the item was correct
|
||||
if ($thisitem[score] < 1) {$thiscolor = $formatred;} else {$thiscolor = $formatblue;}
|
||||
$col++;
|
||||
if ($thisitemkey == 0){
|
||||
$col = 0;
|
||||
$myxls->write_string($row,$col,$thisitem,$formatb);
|
||||
} elseif ($thisitemkey == 1){
|
||||
$myxls->write_number($row,$col,$thisitem,$formatb);
|
||||
} elseif ($thisitemkey[qtype] == 2){
|
||||
$myxls->write_string($row,$col,$thisitem[data][answer],$thiscolor);
|
||||
} elseif ($thisitem[qtype] == 5) {
|
||||
if ($thisitem[score] == 1) {$thiscolor = $formatblue;} else {$thiscolor = $formatred;}
|
||||
if(!$thisitem[data][1]){$thisitem[data][1]="(No Response)";}
|
||||
// $myxls->write_string(2,$col,$thisitem[data][0],$formatb);
|
||||
$myxls->write_string($row,$col,$thisitem[data][1],$thiscolor);
|
||||
} else {
|
||||
$myxls->write_string($row,$col,$thisitem[data],$thiscolor);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
// }
|
||||
$myxls = &$workbook->add_worksheet('Item Response Analysis');
|
||||
$sheettitle = "Item Response Analysis";
|
||||
$myxls->write_string(0,0,$sheettitle,$formatb);
|
||||
$itemcount = 0;
|
||||
$nm = "Question";
|
||||
$row = 1;
|
||||
$col = 0;
|
||||
$qcount = 0;
|
||||
$myxls->write_string($row,$col,$nm,$formatbc);
|
||||
foreach($qs_in_order as $qid){
|
||||
$qcount++;
|
||||
$col++;
|
||||
if($quests[$qid][qtype] == 5) {
|
||||
$i = 0;
|
||||
foreach ($match_qs[$qid] as $nowq){
|
||||
$i++;
|
||||
$qm = "Q-$qcount M-$i";
|
||||
$myxls->write_string($row,$col,$qm,$formatbc);
|
||||
$myxls->write_string($row+1,$col,$nowq,$formatbc);
|
||||
$col++;
|
||||
}
|
||||
$col--;
|
||||
} else {
|
||||
$myxls->write_string($row,$col,"Q-$qcount",$formatbc);
|
||||
}
|
||||
}
|
||||
|
||||
// Now write tally data
|
||||
$row = $row+2;
|
||||
$myxls->write_string($row,1,"Correct Response:",$formatbc);
|
||||
$col=1;
|
||||
foreach ($qs_in_order as $qid){
|
||||
$col++;
|
||||
if ($quests[$qid][qtype] == 5) {
|
||||
foreach($match_answers[$qid] as $thisans){
|
||||
$myxls->write_string($row,1,$thisans,$formatbc);
|
||||
$col++;
|
||||
}
|
||||
$col--;
|
||||
} else {
|
||||
$myxls->write_string($row,1,$quests[$qid][correct],$formatbc);
|
||||
}
|
||||
}
|
||||
//display a row for each possible multiple choice with $max_choices being highest row,$table_colcount is the width
|
||||
for ($i = 1; $i<= $max_choices;$i++){
|
||||
$label="M/C #$i";
|
||||
$myxls->write_string($row,0,$label,$formatbrt);
|
||||
//display answer tallies
|
||||
for ($j = 1; $j <= $table_colcount; $j++){
|
||||
//substitute "<br>" for a "//"
|
||||
$nowdata = $analysis[$i][$j];
|
||||
if($slashpos = strpos($nowdata,"//")){
|
||||
$text = substr($nowdata,0,$slashpos);
|
||||
$value = substr($nowdata,$slashpos+2);
|
||||
$myxls->write_string($row,$j,$text,$formatc);
|
||||
$myxls->write_string($row+1,$j,$value,$formatbc);
|
||||
} else {
|
||||
$myxls->write_string($row,$j,$nowdata,$formatc);
|
||||
}
|
||||
}
|
||||
$row = $row+2;
|
||||
}
|
||||
|
||||
//Finally output the total percent correct
|
||||
$row++;
|
||||
$myxls->write_string($row,1,"Percent Correct:",$formatbrt);
|
||||
for ($i = 1; $i<= $table_colcount;$i++){
|
||||
$myxls->write_string($row,$i,$pct_correct[$i],$formatbc);
|
||||
}
|
||||
|
||||
//Print the questions with responses on a new worksheet
|
||||
$myxls = &$workbook->add_worksheet('Questions and Responses');
|
||||
$sheettitle = "Questions and Responses";
|
||||
$myxls->write_string(0,0,$sheettitle,$formatb);
|
||||
$itemcount = 0;
|
||||
//Now printout the questions (and M/C answers if $containsMC
|
||||
|
||||
$qcount = 0;
|
||||
$row = 1;
|
||||
foreach ($qs_in_order as $qid){
|
||||
$row++;
|
||||
$qcount++;
|
||||
$label = "Q-$qcount";
|
||||
$myxls->write_string($row,0,$label,$formatb);
|
||||
$myxls->write_string($row,1,$quests[$qid][qtext],$formatb);
|
||||
$itemcount = 0;
|
||||
if($quests[$qid][qtype]==3){
|
||||
$nowchoices = $quests[$qid][choice];
|
||||
foreach($nowchoices as $thischoice){
|
||||
$row++;
|
||||
$label = "A-$thischoice[choiceno]";
|
||||
$myxls->write_string($row,2,$label,$formatb);
|
||||
$myxls->write_string($row,3,$thischoice[answer],$formatb);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
$workbook->close();
|
||||
exit;
|
||||
}
|
||||
|
||||
////////---------------------------
|
||||
/// If a text file is wanted, produce one
|
||||
if ($download == "txt") {
|
||||
/// Print header to force download
|
||||
|
||||
header("Content-Type: application/download\n");
|
||||
header("Content-Disposition: attachment; filename=\"$course->shortname $quiz->name.txt\"");
|
||||
header("Expires: 0");
|
||||
header("Cache-Control: must-revalidate, post-check=0,pre-check=0");
|
||||
header("Pragma: public");
|
||||
|
||||
/// Print names of all the fields
|
||||
|
||||
echo "$quiz->name";
|
||||
echo "\n";
|
||||
|
||||
/// Print all the user data
|
||||
$colcount = count($question_ids);
|
||||
foreach ($data_tally as $thisuserno=>$thisuser){
|
||||
foreach($thisuser as $thisattemptno=>$thisattempt){
|
||||
foreach($thisattempt as $thisitemkey=>$thisitem) {
|
||||
if ($thisitem[score] < 1) {$mark = "";} else {$mark = "*";}
|
||||
//First two items are name & grade
|
||||
if ($thisitemkey < 2){
|
||||
echo $thisitem . "\t";
|
||||
} elseif ($thisitemkey[qtype] == 2){
|
||||
echo $thisitem[data][answer] . "\t";
|
||||
} elseif ($thisitem[qtype] == 5) {
|
||||
if ($thisitem[score] == 1) {$mark = "*";} else {$mark="";}
|
||||
if(!$thisitem[data][1]){$thisitem[data][1]="(No Response)";}
|
||||
echo "{$thisitem[data][0]} -- $mark{$thisitem[data][1]}\t";
|
||||
} else {
|
||||
echo "$mark{$thisitem[data]}\t";
|
||||
}
|
||||
}
|
||||
}
|
||||
echo " \n";
|
||||
}
|
||||
echo " \n";
|
||||
echo "* Asterisk indicates correct response";
|
||||
echo " \n";
|
||||
//Question numbers
|
||||
for ($i = 1;$i <= $colcount;$i++) {
|
||||
echo "Q-$i\t";
|
||||
}
|
||||
echo " \n";
|
||||
//Q numbers
|
||||
foreach($qs_in_order as $qid){
|
||||
$qcount++;
|
||||
if($quests[$qid][qtype] == 5) {
|
||||
$i = 0;
|
||||
foreach ($match_qs[$qid] as $nowq){
|
||||
$i++;
|
||||
echo "Q-$qcount M-$i\t";
|
||||
}
|
||||
} else {
|
||||
echo "Q-$qcount\t";
|
||||
}
|
||||
}
|
||||
echo " \n";
|
||||
//Repeat for q answers
|
||||
foreach($qs_in_order as $qid){
|
||||
$qcount++;
|
||||
if($quests[$qid][qtype] == 5) {
|
||||
foreach ($match_qs[$qid] as $nowq){
|
||||
echo $nowq . "\t";
|
||||
}
|
||||
} else {
|
||||
echo "\t";
|
||||
}
|
||||
}
|
||||
echo " \n";
|
||||
|
||||
for ($i = 1; $i<= $max_choices;$i++){
|
||||
echo "M/C #$i\t";
|
||||
//display answer tallies
|
||||
for ($j = 1; $j <= $table_colcount; $j++){
|
||||
//substitute "<br>" for a "//"
|
||||
$nowdata = $analysis[$i][$j];
|
||||
if (strpos($nowdata,"//")>0) {
|
||||
$nowdata = str_replace("//"," : ",$nowdata);
|
||||
}
|
||||
echo $nowdata . "\t";
|
||||
}
|
||||
echo " \n";
|
||||
}
|
||||
exit;
|
||||
}
|
||||
////////--------------------------- If it falls through both of the $download choices, print on screen
|
||||
//Print user responses
|
||||
print ("<table border=1 align=center width=95% cellpadding=2 cellspacing=0>\n");
|
||||
$totcolcount = $table_colcount+2;
|
||||
print("<tr><th colspan=$totcolcount>Responses of Individuals to Each Item</th></tr>");
|
||||
qr_print_headers($data_tally,"Name","Grade");
|
||||
//now print the lines of answers
|
||||
foreach ($data_tally as $thisuserno=>$thisuser){
|
||||
foreach($thisuser as $thisattemptno=>$thisattempt){
|
||||
print("<tr>");
|
||||
foreach($thisattempt as $thisitemkey=>$thisitem) {
|
||||
//$thisitemkeys 1 & 2 are name and total score
|
||||
//There needs to be a 3-way branch, keys0 & 1 just print $thisitem
|
||||
//else if $thisitem[qtype] = 5, then processing for MATCH is needed
|
||||
//else the data to be printed is in $thisitem[data] and $thisitem[score] == 1 shows that the item was correct
|
||||
if ($thisitem[score] < 1) {$thiscolor = "ff0000";} else {$thiscolor = "000000";}
|
||||
if ($thisitemkey == 0){
|
||||
print("<td class='tdleft'>$thisitem </th>");
|
||||
} elseif ($thisitemkey == 1){
|
||||
print("<td> $thisitem </td>");
|
||||
} elseif ($thisitemkey[qtype] == 2){
|
||||
print("<td> $thisitem[data][answer] </td>");
|
||||
} elseif ($thisitem[qtype] == 5) {
|
||||
if ($thisitem[score] == 1) {$thiscolor = "blue";}
|
||||
if(!$thisitem[data][1]){$thisitem[data][1]="(No Response)";}
|
||||
print("<td align=center><font size=-2>{$thisitem[data][0]}<br><font color='$thiscolor'>{$thisitem[data][1]}</font></font></td>");
|
||||
} else {
|
||||
print("<td align=center><font color='$thiscolor'> {$thisitem[data]} </font></td>");
|
||||
}
|
||||
}
|
||||
}
|
||||
print("</tr>\n");
|
||||
}
|
||||
|
||||
if($debug and !$download){
|
||||
print("<h3>Qtally</h3>");
|
||||
print_object($qtally);
|
||||
}
|
||||
//print tally of how many selected each choice
|
||||
print("<tr><th colspan=$totcolcount>Item Response Analysis </th></tr>");
|
||||
qr_print_headers($data_tally,"Item"," ");
|
||||
//display row with correct answers
|
||||
print("<tr><th colspan=2 align=right>Correct Response:</th>");
|
||||
foreach ($qs_in_order as $qid){
|
||||
if ($quests[$qid][qtype] == 5) {
|
||||
foreach($match_answers[$qid] as $thisans){
|
||||
print("<th align='center'> $thisans </th>");
|
||||
}
|
||||
} else {
|
||||
print("<th align='center'> {$quests[$qid][correct]} </th>");
|
||||
}
|
||||
}
|
||||
print("</tr>\n");
|
||||
|
||||
//display a row for each possible multiple choice with $max_choices being highest row,$table_colcount is the width
|
||||
for ($i = 1; $i<= $max_choices;$i++){
|
||||
print("<tr valign=top><th colspan=2 align=right> M/C #$i</td>");
|
||||
//display answer tallies
|
||||
for ($j = 1; $j <= $table_colcount; $j++){
|
||||
//substitute "<br>" for a "//"
|
||||
$nowdata = $analysis[$i][$j];
|
||||
if (strpos($nowdata,"//")>0) {$nowdata = str_replace("//","<br>",$nowdata);}
|
||||
print("<td align='center'> $nowdata</td>");
|
||||
|
||||
}
|
||||
}
|
||||
print("</tr>\n");
|
||||
//Finally display the total percent correct
|
||||
print("<tr valign=top><th align=right colspan=2>Percent Correct:</th>");
|
||||
for ($i = 0; $i< $table_colcount;$i++){
|
||||
print ("<th>{$pct_correct[$i]}</th> ");
|
||||
}
|
||||
print("</tr>\n");
|
||||
print("</table>\n");
|
||||
|
||||
//Now printout the questions (and M/C answers if $containsMC
|
||||
|
||||
print ("<p><table width=95% border=1 align=center cellpadding=2 cellspacing=0>\n");
|
||||
print("<tr><th colspan=3>QUIZ: $quiz->name -- Listing of Items in This Quiz </th></tr>\n");
|
||||
$qcount = 0;
|
||||
foreach ($qs_in_order as $qid){
|
||||
$qcount++;
|
||||
print("<tr valign=top><th>Q-$qcount</th><td colspan=2>{$quests[$qid][qtext]}</td></tr>\n");
|
||||
if($quests[$qid][qtype]==3){
|
||||
$nowchoices = $quests[$qid][choice];
|
||||
foreach($nowchoices as $thischoice){
|
||||
print("<tr valign=top><td> </td>");
|
||||
print("<td width='5%' align=center><b>A-{$thischoice[choiceno]}</b></td><td>{$thischoice[answer]}</td></tr>\n");
|
||||
}
|
||||
}
|
||||
}
|
||||
print("</table>\n");
|
||||
|
||||
echo "<br />\n";
|
||||
echo "<table border=0 align=center><tr>\n";
|
||||
echo "<td>";
|
||||
unset($options);
|
||||
$options["id"] = "$cm->id";
|
||||
$options["mode"] = "fullstat";
|
||||
$options["noheader"] = "yes";
|
||||
$options["download"] = "xls";
|
||||
print_single_button("report.php", $options, get_string("downloadexcel"));
|
||||
echo "<td>";
|
||||
$options["download"] = "txt";
|
||||
print_single_button("report.php", $options, get_string("downloadtext"));
|
||||
echo "</table>";
|
||||
////////---------------------------
|
||||
return true;
|
||||
}
|
||||
}
|
||||
////just functions below here----------------------------------------------
|
||||
|
||||
function qr_quiz_responses($quiz) {
|
||||
// Given any quiz number, get all responses and place in
|
||||
// $response object
|
||||
global $CFG;
|
||||
|
||||
$resp_recs =get_records_sql("SELECT r.id as rid, r.attempt, r.answer, r.question, a.attempt as attemptno, a.id as aid, a.quiz, a.userid, a.sumgrades, u.id as uid, u.lastname, u.firstname FROM {$CFG->prefix}quiz_responses r, {$CFG->prefix}quiz_attempts a, {$CFG->prefix}user u WHERE a.id = r.attempt AND a.quiz = '$quiz' AND a.userid = u.id ORDER BY u.lastname ASC, u.firstname ASC, r.id ASC");
|
||||
return $resp_recs;
|
||||
}
|
||||
|
||||
function qr_make_satally($qid,$col){
|
||||
global $analysis, $qtally,$max_choices;
|
||||
$this_sa = $qtally[$qid][response];
|
||||
$rowcnt = 0;
|
||||
if ($this_sa){
|
||||
foreach($this_sa as $thistext =>$thistally){
|
||||
$rowcnt++;
|
||||
$analysis[$rowcnt][$col] = $thistext . "//" . $thistally;
|
||||
}
|
||||
}
|
||||
if ($rowcnt > $max_choices) {$max_choices = $rowcnt;}
|
||||
return 1;
|
||||
}
|
||||
|
||||
function qr_make_tftally($qid,$col){
|
||||
global $analysis, $qtally;
|
||||
$this_tf = $qtally[$qid];
|
||||
foreach($this_tf as $thiskey=>$tallycnt){
|
||||
if ($thiskey == "True") {
|
||||
$analysis[1][$col] = "True: " . $tallycnt;
|
||||
} else if ($thiskey == "False") {
|
||||
$analysis[2][$col] = "False: " . $tallycnt;
|
||||
}
|
||||
}
|
||||
return 1;
|
||||
}
|
||||
|
||||
function qr_make_numtally($qid,$col){
|
||||
global $analysis, $qtally;
|
||||
$this_num = $qtally[$qid];
|
||||
$rowcnt = 0;
|
||||
if ($this_num){
|
||||
foreach($this_num[response] as $thisans=>$thistally){
|
||||
if($thisans){
|
||||
$rowcnt++;
|
||||
$analysis[$rowcnt][$col] = $thisans . "//" . $thistally;
|
||||
}
|
||||
}
|
||||
}
|
||||
if ($rowcnt > $max_choices) {$max_choices = $rowcnt;}
|
||||
return 1;
|
||||
}
|
||||
|
||||
function qr_make_matchtally($qid){
|
||||
//The MATCH items need to be inverted so that the 1st of each match can be printed in the first row, then the second, etc.
|
||||
global $qtally;
|
||||
$itemcntA = 0;
|
||||
foreach ($qtally[$qid] as $thiskey=>$thisitem){
|
||||
if($thiskey != "correct"){
|
||||
$itemcntA++;
|
||||
$itemcntB = 0;
|
||||
if (gettype($thisitem) == "array"){
|
||||
foreach ($thisitem as $thisrid=>$thisans){
|
||||
if (!$thisans[answer]){continue;}
|
||||
$itemcntB++;
|
||||
$inverted[$itemcntB][$itemcntA][answer] = $thisans[answer];
|
||||
$inverted[$itemcntB][$itemcntA][tally] = $thisans[tally];
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
return $inverted;
|
||||
}
|
||||
|
||||
function qr_print_headers($data_tally,$nm,$gd){
|
||||
global $qs_in_order,$qtally,$quests,$total_user_count,$match_number;
|
||||
$qcount = 0;
|
||||
if($nm == "Item") {
|
||||
print("<tr><th colspan=2 align=right>Question:</th>");
|
||||
} else {
|
||||
print("<tr><th>$nm</th><th>$gd</th>");
|
||||
}
|
||||
foreach($qs_in_order as $qid){
|
||||
$qcount++;
|
||||
if($quests[$qid][qtype] == 5) {
|
||||
$colcount = $match_number[$qid];
|
||||
} else {
|
||||
$colcount = 1;
|
||||
}
|
||||
print("<th colspan=$colcount>Q-$qcount</th>");
|
||||
}
|
||||
print("</tr>\n");
|
||||
}
|
||||
|
||||
function qr_make_footers(){
|
||||
//Create the percent correct for the footer
|
||||
global $qs_in_order,$qtally,$quests,$total_user_count;
|
||||
foreach($qs_in_order as $qid){
|
||||
if($quests[$qid][qtype] == 5) {
|
||||
foreach ($qtally[$qid] as $thisitem){
|
||||
$this_correct = $thisitem[correct];
|
||||
$footers[] = qr_make_pct($this_correct);
|
||||
}
|
||||
} else {
|
||||
$this_correct = $qtally[$qid][correct];
|
||||
$footers[] = qr_make_pct($this_correct);
|
||||
}
|
||||
}
|
||||
return $footers;
|
||||
}
|
||||
|
||||
function qr_make_pct($this_correct){
|
||||
global $qs_in_order,$qtally,$quests,$total_user_count;
|
||||
if($this_correct>0){
|
||||
$pct_cor =round(($this_correct/$total_user_count)*100,1);
|
||||
} else {
|
||||
$pct_cor = 0;
|
||||
}
|
||||
return $pct_cor ."%";
|
||||
}
|
||||
|
||||
function qr_answer_lookup($qid,$thisanswer){
|
||||
//For each type of question, this needs to determine answer string to report and whether right or wrong
|
||||
global $quests,$qtally,$max_choices,$thismin,$thismax;
|
||||
$thistype = $quests[$qid][qtype];
|
||||
$returndata[data] = "--";
|
||||
$returndata[score] = 0;
|
||||
$returndata[qtype] = $thistype;
|
||||
$returndata[qid] = $qid;
|
||||
$qtally[$qid][qtype] = $thistype;
|
||||
switch ($thistype) {
|
||||
case 1: //SHORTANSWER
|
||||
$returndata[data] = $thisanswer;
|
||||
$qtally[$qid][response][$thisanswer]++;
|
||||
//convert all to lowercase to allow for mismatching cases to be correct
|
||||
if (strpos(strtolower($quests[$qid][correct]),trim(strtolower($thisanswer))) >-1){
|
||||
$qtally[$qid][correct]++;
|
||||
$returndata[score] = 1;
|
||||
}
|
||||
break;
|
||||
case 2: //TRUEFALSE
|
||||
$returndata[data] = $quests[$qid][choice][$thisanswer][answer];
|
||||
$qtally[$qid][$quests[$qid][choice][$thisanswer][answer]]++;
|
||||
if ($quests[$qid][correct]==$quests[$qid][choice][$thisanswer][answer]){
|
||||
$returndata[score] = 1;
|
||||
$qtally[$qid][correct]++;
|
||||
}
|
||||
break;
|
||||
case 3: //MULTICHOICE
|
||||
$returndata[data] = $quests[$qid][choice][$thisanswer][choiceno];
|
||||
if($max_choices < $returndata[data]) {$max_choices = $returndata[data];}
|
||||
$qtally[$qid][$quests[$qid][choice][$thisanswer][choiceno]]++;
|
||||
if (strtolower($quests[$qid][correct])==strtolower($quests[$qid][choice][$thisanswer][choiceno])){
|
||||
$returndata[score] = 1;
|
||||
$qtally[$qid][correct]++;
|
||||
}
|
||||
break;
|
||||
case 8: //NUMERICAL
|
||||
$returndata[data] = $thisanswer;
|
||||
// $returndata[data] = $thismin . "<" . $thisanswer . ">" . $thismax;
|
||||
$qtally[$qid][response][$thisanswer]++;
|
||||
if ($thisanswer >= $thismin[$qid] and $thisanswer <= $thismax[$qid]){
|
||||
$qtally[$qid][correct]++;
|
||||
$returndata[score] = 1;
|
||||
}
|
||||
break;
|
||||
}
|
||||
return $returndata;
|
||||
}
|
||||
|
||||
function qr_getqs($quiz){
|
||||
// Returns a list of question numbers for a specific quiz
|
||||
if (!$questions = get_record("quiz","id",$quiz)) {
|
||||
notify("Could not find any questions for quiz $quiz");
|
||||
return false;
|
||||
}
|
||||
$qlist = array();
|
||||
$qlist = explode(",",$questions->questions);
|
||||
return $qlist;
|
||||
}
|
||||
|
||||
function qr_match_array($nowQ){
|
||||
//builds an array of all questions and answers for match questions in the quiz for use in qr_match_table
|
||||
global $quiz_matches,$quiz_match_hdrs;
|
||||
//make an array of all Q & As for match questions
|
||||
//format: $quiz_matches[quiz_match_sub_id][Q or A]
|
||||
$allmatch = get_records("quiz_match_sub","question",$nowQ);
|
||||
// //print_object($allmatch);
|
||||
$hdrcnt=0;
|
||||
foreach($allmatch as $thismatchitemno =>$thismatchitem){
|
||||
$hdrcnt++;
|
||||
$quiz_matches[$thismatchitemno]["Q"] = $thismatchitem->questiontext;
|
||||
$quiz_matches[$thismatchitemno]["A"] = $thismatchitem->answertext;
|
||||
}
|
||||
//needed so that we know how many column headers to create
|
||||
$quiz_match_hdrs[$nowQ]=$hdrcnt;
|
||||
return $quiz_matches;
|
||||
}
|
||||
|
||||
function qr_match_table($resplist){
|
||||
global $quiz_matches;
|
||||
$tbl = "\n<table border=0 cellspacing=0 cellpadding=2 align=center><tr valign='middle' align='center'>";
|
||||
$resp_array = explode(",",$resplist);
|
||||
$q_cnt=0;
|
||||
foreach ($resp_array as $resp_pair){
|
||||
$q_cnt++;
|
||||
$tbl = $tbl ."<td><font size-1> $q_cnt</font></td>";
|
||||
}
|
||||
$tbl = $tbl . "</tr>\n<tr valign=middle>";
|
||||
foreach ($resp_array as $resp_pair){
|
||||
$resp_QA = explode("-",$resp_pair);
|
||||
if ($resp_QA[0] == $resp_QA[1]){
|
||||
$qa = "<b> <font size=-2>{$quiz_matches[$resp_QA[0]]['Q']}</font> - <font color='blue' size=-2>{$quiz_matches[$resp_QA[1]]['A']}</font></b>";
|
||||
} else{
|
||||
$qa = "<b><font size=-2> {$quiz_matches[$resp_QA[0]]['Q']}</font> - <font color='red' size=-2> {$quiz_matches[$resp_QA[1]]['A']}</font></b>";
|
||||
}
|
||||
// $qa = $resp_QA[0] . "=" . $resp_QA[1] ;
|
||||
$tbl = $tbl . "<td>$qa</td>";
|
||||
}
|
||||
$tbl = $tbl . "</tr>\n</table>\n";
|
||||
return $tbl;
|
||||
}
|
||||
?>
|
||||
Loading…
Add table
Add a link
Reference in a new issue