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;
+ global $download, $quests,$qtally,$table_colcount,$max_choices, $analysis,$qs_in_order,$total_user_count,$match_number, $thismin,$thismax,$myxls,$match_qs,$formatbc,$workbook,$strquestion;
optional_variable($download, "");
//$debug = 1;
+/*
+//These definitions must be in the lang/en/quiz.php file
+$string['qr_indivresp'] = "Responses of Individuals to Each Item";
+$string['qr_name'] = "Name";
+$string['qr_grade'] = "Grade";
+$string['qr_itemanal'] = "Item Response Analysis";
+$string['qr_corrresp'] = "Correct Response";
+$string['qr_noresponse'] = "No Response";
+$string['qr_percentcorrect'] = "Percent Correct";
+$string['qr_listitems'] = "Listing of Items in This Quiz";
+$string['qr_question'] = "Question";
+$string[''] = "";
+*/
+
+ $strindivresp = get_string("qr_indivresp", "quiz");
+ $strname = get_string("qr_name", "quiz");
+ $strgrade = get_string("qr_grade", "quiz");
+ $stritemanal = get_string("qr_itemanal", "quiz");
+ $strcorrresp = get_string("qr_corrresp", "quiz");
+ $strnoresponse = get_string("qr_noresponse", "quiz");
+ $strpercentcorrect = get_string("qr_percentcorrect", "quiz");
+ $strlistitems = get_string("qr_listitems", "quiz");
+ $strquestion = get_string("qr_question", "quiz");
+// $str = get_string("qr_", "quiz");
+
//Get the question ids
$thisquizid = $quiz->id;
$qs_in_order =qr_getqs($thisquizid);
$quests[$qid]["qtype"] = $thiskey;
$quests[$qid]["qtext"] = $question_data[$thiskey]->questiontext;
}
- if($quests[$qid][qtype] == 5){
+ 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);
$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){
+ 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;}
+ 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
+ //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++;
if($quests[$qid]["correct"]){
$quests[$qid]["correct"] .= "," . $thischoice->answer;
} else {
- if($quests[$qid][qtype] == 3) {
+ 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);
-}
+ 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;
+ $userdata[$thisresp->userid][$thisresp->attemptno]['attemptid']=$thisresp->aid;
+ }
+ if($debug and !$download){
+ print("<h3>User Data</h3>");
+ print_object($userdata);
}
-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
+ $data_tally[$reportline][$thisattempt['attemptid']][] = $thisattempt['name'];
+ $data_tally[$reportline][$thisattempt['attemptid']][] =round(($thisattempt['grade']/$quiz->sumgrades)*100,0);
//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) {
+ $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);
$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];
+ $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]++;
+ $pairdata['score'] = 1;
+ $qtally[$qid][$nowpair[0]]['correct']++;
} else {
- $pairdata[score] = 0;
+ $pairdata['score'] = 0;
}
- $pairdata[data] = $phrasepair;
- $pairdata[qtype] = 5;
- $pairdata[qid] = $qid;
- $data_tally[$reportline][$thisattempt[attemptid]][] = $pairdata;
+ $pairdata['data'] = $phrasepair;
+ $pairdata['qtype'] = 5;
+ $pairdata['qid'] = $qid;
+ $data_tally[$reportline][$thisattempt['attemptid']][] = $pairdata;
}
- } elseif ($quests[$qid][qtype]==8) {
+ } elseif ($quests[$qid]['qtype']==8) {
$thisdata = qr_answer_lookup($qid,$thisanswer);
- $data_tally[$reportline][$thisattempt[attemptid]][] = $thisdata;
+ $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']) {$thisdata['data'] = "--";}
if($thisdata) {
- $data_tally[$reportline][$thisattempt[attemptid]][] = $thisdata;
+ $data_tally[$reportline][$thisattempt['attemptid']][] = $thisdata;
}
}
}
}
}
-$total_user_count = $reportline;
+ $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);
-}
+ 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
$pct_correct = qr_make_footers();
-if($debug and !$download){
-print("<h3>Footers</h3>");
-print_object($pct_correct);
-}
-//
+ 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
$current_column = 0;
foreach ($qs_in_order as $qid){
$current_column++;
- switch ($quests[$qid][qtype]) {
+ switch ($quests[$qid]['qtype']) {
case 1:
if(!$sa_tally[$qid]){
$sa_tally[$qid] = qr_make_satally($qid,$current_column);
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];
+ $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 ;
}
}
}
-if($debug and !$download){
-print("<h3>Analysis</h3>");
-print_object($analysis);
-}
+ 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');
-
+ 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);
+ $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) {
+ //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);
- }
+ //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($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++;
+ }
+
+ $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++;
- 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);
}
+ $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){
+ $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++;
- 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);
}
+ $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);
- }
+ }
+ //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;
}
+ $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);
- }
+ //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);
+ $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;
- //Now printout the questions (and M/C answers if $containsMC
-
- $qcount = 0;
- $row = 1;
- foreach ($qs_in_order as $qid){
+ if($quests[$qid]['qtype']==3){
+ $nowchoices = $quests[$qid]['choice'];
+ foreach($nowchoices as $thischoice){
$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);
- }
+ $label = "A-$thischoice[choiceno]";
+ $myxls->write_string($row,2,$label,$formatb);
+ $myxls->write_string($row,3,$thischoice[answer],$formatb);
}
}
-
- $workbook->close();
- exit;
}
-////////---------------------------
+ $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");
+ 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";
+ 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";
- }
- }
+ $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";
+ 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";
+ //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";
+
+ 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 " \n";
+ echo $nowdata . "\t";
}
- exit;
+ echo " \n";
+ }
+ exit;
}
-////////--------------------------- If it falls through both of the $download choices, print on screen
+ ////////--------------------------- 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");
+ print("<tr><th colspan=$totcolcount>$strindivresp</th></tr>");
+ qr_print_headers($data_tally,"$strname","$strgrade");
//now print the lines of answers
foreach ($data_tally as $thisuserno=>$thisuser){
foreach($thisuser as $thisattemptno=>$thisattempt){
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";}
+ //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>");
+ print("<th align='left'>$thisitem </th>");
} elseif ($thisitemkey == 1){
- print("<td> $thisitem </td>");
- } elseif ($thisitemkey[qtype] == 2){
+ print("<td align='right'> $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>");
+ } elseif ($thisitem['qtype'] == 5) {
+ if ($thisitem['score'] == 1) {$thiscolor = "blue";}
+ if(!$thisitem['data'][1]){$thisitem['data'][1]="($strnoresponse)";}
+ 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("<td align=center><font color='$thiscolor'> {$thisitem['data']} </font></td>");
}
}
}
print("</tr>\n");
}
-if($debug and !$download){
-print("<h3>Qtally</h3>");
-print_object($qtally);
-}
+ 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>");
+ print("<tr><th colspan=$totcolcount>$stritemanal</th></tr>");
qr_print_headers($data_tally,"Item"," ");
//display row with correct answers
- print("<tr><th colspan=2 align=right>Correct Response:</th>");
+ print("<tr><th colspan=2 align=right>$strcorrresp:</th>");
foreach ($qs_in_order as $qid){
- if ($quests[$qid][qtype] == 5) {
+ 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("<th align='center'> {$quests[$qid]['correct']} </th>");
}
}
print("</tr>\n");
}
print("</tr>\n");
//Finally display the total percent correct
- print("<tr valign=top><th align=right colspan=2>Percent Correct:</th>");
+ print("<tr valign=top><th align=right colspan=2>$strpercentcorrect:</th>");
for ($i = 0; $i< $table_colcount;$i++){
print ("<th>{$pct_correct[$i]}</th> ");
}
//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");
+ print("<tr><th colspan=3>QUIZ: $quiz->name -- $strlistitems</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];
+ 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("<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>";
+ 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;
+ return true;
}
}
////just functions below here----------------------------------------------
function qr_make_satally($qid,$col){
global $analysis, $qtally,$max_choices;
- $this_sa = $qtally[$qid][response];
+ $this_sa = $qtally[$qid]['response'];
$rowcnt = 0;
if ($this_sa){
foreach($this_sa as $thistext =>$thistally){
$this_num = $qtally[$qid];
$rowcnt = 0;
if ($this_num){
- foreach($this_num[response] as $thisans=>$thistally){
+ foreach($this_num['response'] as $thisans=>$thistally){
if($thisans){
$rowcnt++;
$analysis[$rowcnt][$col] = $thisans . "//" . $thistally;
$itemcntB = 0;
if (gettype($thisitem) == "array"){
foreach ($thisitem as $thisrid=>$thisans){
- if (!$thisans[answer]){continue;}
+ if (!$thisans['answer']){continue;}
$itemcntB++;
- $inverted[$itemcntB][$itemcntA][answer] = $thisans[answer];
- $inverted[$itemcntB][$itemcntA][tally] = $thisans[tally];
+ $inverted[$itemcntB][$itemcntA]['answer'] = $thisans['answer'];
+ $inverted[$itemcntB][$itemcntA]['tally'] = $thisans['tally'];
}
}
}
}
function qr_print_headers($data_tally,$nm,$gd){
- global $qs_in_order,$qtally,$quests,$total_user_count,$match_number;
+ global $qs_in_order,$qtally,$quests,$total_user_count,$match_number,$strquestion;
$qcount = 0;
if($nm == "Item") {
- print("<tr><th colspan=2 align=right>Question:</th>");
+ print("<tr><th colspan=2 align=right>$strquestion:</th>");
} else {
- print("<tr><th>$nm</th><th>$gd</th>");
+ print("<tr><th>$nm</th><th width='5%'>$gd</th>");
}
foreach($qs_in_order as $qid){
$qcount++;
- if($quests[$qid][qtype] == 5) {
+ if($quests[$qid]['qtype'] == 5) {
$colcount = $match_number[$qid];
} else {
$colcount = 1;
//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) {
+ if($quests[$qid]['qtype'] == 5) {
foreach ($qtally[$qid] as $thisitem){
- $this_correct = $thisitem[correct];
+ $this_correct = $thisitem['correct'];
$footers[] = qr_make_pct($this_correct);
}
} else {
- $this_correct = $qtally[$qid][correct];
+ $this_correct = $qtally[$qid]['correct'];
$footers[] = qr_make_pct($this_correct);
}
}
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;
+ $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]++;
+ $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;
+ 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]++;
+ $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]++;
+ $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]++;
+ $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;
+ $qtally[$qid]['correct']++;
+ $returndata['score'] = 1;
}
break;
}
//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]
+//format: $quiz_matches['quiz_match_sub_id'][Q or A]
$allmatch = get_records("quiz_match_sub","question",$nowQ);
// //print_object($allmatch);
$hdrcnt=0;
projects / moodle.git / commitdiff