<?php  // $Id: report.php,v 1.5.2.15 2006/03/29 08:46:03 gustav_delius Exp $
/// Item analysis displays a table of quiz questions and their performance 

    require_once($CFG->libdir.'/tablelib.php');

/// Item analysis displays a table of quiz questions and their performance 

class quiz_report extends quiz_default_report {

    function display($quiz, $cm, $course) {     /// This function just displays the report
        global $CFG, $SESSION, $db, $QUIZ_QTYPES;
        $strnoquiz = get_string('noquiz','quiz');
        $strnoattempts = get_string('noattempts','quiz');
    /// Only print headers if not asked to download data
        $download = optional_param('download', NULL);
        if (!$download) {
            $this->print_header_and_tabs($cm, $course, $quiz, $reportmode="analysis");
        }
    /// Construct the table for this particular report
        
        if (!$quiz->questions) {
            print_heading($strnoattempts);
            return true;
        }

    /// Check to see if groups are being used in this quiz
        if ($groupmode = groupmode($course, $cm)) {   // Groups are being used
            if (!$download) {
                $currentgroup = setup_and_print_groups($course, $groupmode, "report.php?id=$cm->id&amp;mode=analysis");
            } else {
                if (isset($_GET['group'])) {
                    $changegroup = $_GET['group'];  /// 0 or higher
                } else {
                    $changegroup = -1;              /// This means no group change was specified
                }

                $currentgroup = get_and_set_current_group($course, $groupmode, $changegroup);  
            }
        } else {
            $currentgroup = false;
        }

        // set Table and Analysis stats options
        if(!isset($SESSION->quiz_analysis_table)) {
            $SESSION->quiz_analysis_table = array('attemptselection' => 0, 'lowmarklimit' => 0, 'pagesize' => 10);
        }

        foreach($SESSION->quiz_analysis_table as $option => $value) {
            $urlparam = optional_param($option, NULL);
            if($urlparam === NULL) {
                $$option = $value;
            }
            else {
                $$option = $SESSION->quiz_analysis_table[$option] = $urlparam;
            }
        }
      
        $scorelimit = $quiz->sumgrades * $lowmarklimit/ 100;
        
        // ULPGC ecastro DEBUG this is here to allow for different SQL to select attempts
        switch ($attemptselection) {
        case QUIZ_ALLATTEMPTS : 
            $limit = '';
            $group = '';
            break;
        case QUIZ_HIGHESTATTEMPT :
            $limit = ', max(qa.sumgrades) ';
            $group = ' GROUP BY qa.userid ';
            break;
        case QUIZ_FIRSTATTEMPT :
            $limit = ', min(qa.timemodified) ';
            $group = ' GROUP BY qa.userid ';            
            break;
        case QUIZ_LASTATTEMPT : 
            $limit = ', max(qa.timemodified) ';
            $group = ' GROUP BY qa.userid ';            
            break;
        }

        if ($attemptselection != QUIZ_ALLATTEMPTS) {
            $sql = 'SELECT qa.userid '.$limit.'FROM '.$CFG->prefix.'user u LEFT JOIN '.$CFG->prefix.'quiz_attempts qa ON u.id = qa.userid '. 'WHERE ( qa.quiz = '.$quiz->id.') '.$group;
            $usermax = get_records_sql_menu($sql);
        }

        $sql = 'SELECT  qa.* FROM '.$CFG->prefix.'user u '.
            'INNER JOIN '.$CFG->prefix.'quiz_attempts qa ON u.id = qa.userid ';
            if (!empty($currentgroup)) {
                $sql .= ' INNER JOIN '.$CFG->prefix.'groups_members gm ON u.id = gm.userid AND gm.groupid = '.$currentgroup;
            }
            $sql .= ' WHERE qa.quiz = '.$quiz->id.  // ULPGC ecastro
                ' AND ( qa.sumgrades >= '.$scorelimit.' ) ';
                                                                                   // ^^^^^^ es posible seleccionar aqu� TODOS los quizzes, como quiere Jussi,
                                                                                   // pero habr�a que llevar la cuenta ed cada quiz para restaura las preguntas (quizquestions, states)
        /// Fetch the attempts
        $attempts = get_records_sql($sql);

        if(empty($attempts)) {
            ($strnoattempts);
            $this->print_options_form($quiz, $cm, $attemptselection, $lowmarklimit, $pagesize);
            return true;
        }

    /// Here we rewiew all attempts and record data to construct the table
        $questions = array();
        $statstable = array();
        $questionarray = array(); 
        foreach ($attempts as $attempt) {
            $questionarray[] = quiz_questions_in_quiz($attempt->layout);
        }
        $questionlist = quiz_questions_in_quiz(implode(",", $questionarray));
        $questionarray = array_unique(explode(",",$questionlist));
        $questionlist = implode(",", $questionarray);
        unset($questionarray);
        $accepted_qtypes = array(SHORTANSWER, TRUEFALSE, MULTICHOICE, MATCH, NUMERICAL, CALCULATED);        

        foreach ($attempts as $attempt) {
            switch ($attemptselection) {
            case QUIZ_ALLATTEMPTS : 
                $userscore = 0;      // can be anything, not used
                break;
            case QUIZ_HIGHESTATTEMPT :
                $userscore = $attempt->sumgrades;
                break;
            case QUIZ_FIRSTATTEMPT :
                $userscore = $attempt->timemodified;
                break;
            case QUIZ_LASTATTEMPT : 
                $userscore = $attempt->timemodified;
                break;
            }

            if ($attemptselection == QUIZ_ALLATTEMPTS || $userscore == $usermax[$attempt->userid]) {

            $sql = "SELECT q.*, i.grade AS maxgrade, i.id AS instance".
                   "  FROM {$CFG->prefix}quiz_questions q,".
                   "       {$CFG->prefix}quiz_question_instances i".
                   " WHERE i.quiz = '$quiz->id' AND q.id = i.question".
                   "   AND q.id IN ($questionlist)";

            if (!$quizquestions = get_records_sql($sql)) {
                error('No questions found');
            }
        
            // Load the question type specific information
            if (!quiz_get_question_options($quizquestions)) {
                error('Could not load question options');
            }
            // Restore the question sessions to their most recent states
            // creating new sessions where required
            if (!$states = quiz_restore_question_sessions($quizquestions, $quiz, $attempt)) {
                error('Could not restore question sessions');
            }
            $numbers = explode(',', $questionlist);
            $statsrow = array();
            foreach ($numbers as $i) {              
                if (!isset($quizquestions[$i]) or !isset($states[$i])) {
                    continue;
                }
                $qtype = ($quizquestions[$i]->qtype==4) ? $states[$i]->options->question->qtype : $quizquestions[$i]->qtype;
                if (!in_array ($qtype, $accepted_qtypes)){
                    continue;
                }                
                $q = quiz_get_question_responses($quizquestions[$i], $states[$i]);
                $qid = $q->id;
                if (!isset($questions[$qid])) {
                    $questions[$qid]['id'] = $qid;
                    $questions[$qid]['qname'] = $quizquestions[$i]->name;
                    foreach ($q->responses as $answer => $r) {
                        $r->count = 0;
                        $questions[$qid]['responses'][$answer] = $r->answer;
                        $questions[$qid]['rcounts'][$answer] = 0;
                        $questions[$qid]['credits'][$answer] = $r->credit;
                        $statsrow[$qid] = 0;
                    }                    
                }
                $responses = quiz_get_question_actual_response($quizquestions[$i], $states[$i]);
                foreach ($responses as $resp){
                    if ($resp) {
                        if ($key = array_search($resp, $questions[$qid]['responses'])) {                 
                            $questions[$qid]['rcounts'][$key]++;
                        } else {
                            $test->responses = $QUIZ_QTYPES[$quizquestions[$i]->qtype]->get_correct_responses($quizquestions[$i], $states[$i]);
                            if ($key = $QUIZ_QTYPES[$quizquestions[$i]->qtype]->check_response($quizquestions[$i], $states[$i], $test)) {
                                $questions[$qid]['rcounts'][$key]++;
                            } else {
                                $questions[$qid]['responses'][] = $resp;
                                $questions[$qid]['rcounts'][] = 1;
                                $questions[$qid]['credits'][] = 0;
                            }
                        }
                    }
                }
                $statsrow[$qid] = quiz_get_question_fraction_grade($quizquestions[$i], $states[$i]);
            }
            $attemptscores[$attempt->id] = $attempt->sumgrades;   
            $statstable[$attempt->id] = $statsrow;
            }
        } // Statistics Data table built
        
        unset($attempts);
        unset($quizquestions);
        unset($states);

        // now calculate statistics and set the values in the $questions array
        $top = max($attemptscores);
        $bottom = min($attemptscores);
        $gap = ($top - $bottom)/3;
        $top -=$gap;
        $bottom +=$gap;
        foreach ($questions as $qid=>$q) {
            $questions[$qid] = $this->report_question_stats(&$q, $attemptscores, $statstable, $top, $bottom);
        }
        unset($attemptscores);
        unset($statstable);
        
    /// Now check if asked download of data
        if ($download = optional_param('download', NULL)) {
            $filename = clean_filename("$course->shortname ".format_string($quiz->name,true));
            switch ($download) {
            case "Excel" :
                $this->Export_Excel($questions, $filename);
                break;
            case "OOo": 
                $this->Export_OOo($questions, $filename);
                break;
            case "CSV": 
                $this->Export_CSV($questions, $filename);
                break;
            }
        }
        
    /// Construct the table for this particular report

        $tablecolumns = array('id', 'qname',    'answers', 'credits', 'rcounts', 'rpercent', 'facility', 'sd','discrimination_index', 'discrimination_coeff');
        $tableheaders = array(get_string('qidtitle','quiz_analysis'), get_string('qtexttitle','quiz_analysis'), 
                        get_string('responsestitle','quiz_analysis'), get_string('rfractiontitle','quiz_analysis'), 
                        get_string('rcounttitle','quiz_analysis'), get_string('rpercenttitle','quiz_analysis'), 
                        get_string('facilitytitle','quiz_analysis'), get_string('stddevtitle','quiz_analysis'), 
                        get_string('dicsindextitle','quiz_analysis'), get_string('disccoefftitle','quiz_analysis')); 

        $table = new flexible_table('mod-quiz-report-itemanalysis');

        $table->define_columns($tablecolumns);
        $table->define_headers($tableheaders);
        $table->define_baseurl($CFG->wwwroot.'/mod/quiz/report.php?q='.$quiz->id.'&amp;mode=analysis');

        $table->sortable(true);
        $table->collapsible(true);
        $table->initialbars(false);
        
        $table->column_class('id', 'numcol');
        $table->column_class('credits', 'numcol');
        $table->column_class('rcounts', 'numcol');
        $table->column_class('rpercent', 'numcol');
        $table->column_class('facility', 'numcol');
        $table->column_class('sd', 'numcol'); 
        $table->column_class('discrimination_index', 'numcol');
        $table->column_class('discrimination_coeff', 'numcol');
   
        $table->column_suppress('id');
        $table->column_suppress('qname');
        $table->column_suppress('facility');
        $table->column_suppress('sd');
        $table->column_suppress('discrimination_index');
        $table->column_suppress('discrimination_coeff');

        $table->set_attribute('cellspacing', '0');
        $table->set_attribute('id', 'itemanalysis');
        $table->set_attribute('class', 'generaltable generalbox');
        
        // Start working -- this is necessary as soon as the niceties are over
        $table->setup();

        $tablesort = $table->get_sql_sort();
        $sorts = explode(",",trim($tablesort));  
        if ($tablesort and is_array($sorts)) {
            $sortindex = array();
            $sortorder = array ();
            foreach ($sorts as $sort) {
                $data = explode(" ",trim($sort));
                $sortindex[] = trim($data[0]);
                $s = trim($data[1]);               
                if ($s=="ASC") {
                    $sortorder[] = SORT_ASC;
                } else {
                    $sortorder[] = SORT_DESC;
                }
            }
            if (count($sortindex)>0) {
                $sortindex[] = "id";
                $sortorder[] = SORT_ASC;
                foreach($questions as $qid => $row){
                    $index1[$qid] = $row[$sortindex[0]];
                    $index2[$qid] = $row[$sortindex[1]];
                }
                array_multisort($index1, $sortorder[0], $index2, $sortorder[1], $questions);
            }
        }

        // Now it is time to page the data, simply slice the keys in the array 
        if (!isset($pagesize) || ((int)$pagesize < 1) ){
            $pagesize = 10;
        }
        $table->pagesize($pagesize, count($questions));
        $start = $table->get_page_start();
        $pagequestions = array_slice(array_keys($questions), $start, $pagesize);
        
        foreach($pagequestions as $qnum) {
            $q = $questions[$qnum];
            $qid = $q['id'];
            $question = get_record('quiz_questions', 'id', $qid);         
            $qnumber = " (".link_to_popup_window('/mod/quiz/question.php?id='.$qid,'editquestion', $qid, 450, 550, get_string('edit'), 'none', true ).") ";
            $qname = '<div class="qname">'.format_text($question->name." :  ", $question->questiontextformat, NULL, $quiz->course).'</div>';
            $qicon = quiz_print_question_icon($question, false, true);
            $qreview = quiz_get_question_review($quiz, $question);
            $qtext = format_text($question->questiontext, $question->questiontextformat, NULL, $quiz->course);          
            $qquestion = $qname."\n".$qtext."\n";
            
            $format_options->para = false;
            $format_options->newlines = false;
            unset($responses);
            foreach ($q['responses'] as $aid=>$resp){
                unset($response);
                if ($q['credits'][$aid] <= 0) {
                    $qclass = 'uncorrect';
                } elseif ($q['credits'][$aid] == 1) {
                    $qclass = 'correct';
                } else {
                    $qclass = 'partialcorrect';
                }
                $response->credit = '<span class="'.$qclass.'">('.format_float($q['credits'][$aid],2).') </span>';                
                $response->text = '<span class="'.$qclass.'">'.format_text("$resp", FORMAT_MOODLE, $format_options, $quiz->course).' </span>';
                $count = $q['rcounts'][$aid].'/'.$q['count'];
                $response->rcount = $count;  // format_text("$count", FORMAT_MOODLE, $format_options, $quiz->course);
                $response->rpercent =  '('.format_float($q['rcounts'][$aid]/$q['count']*100,0).'%)';
                $responses[] = $response;
            }
            
            $facility = format_float($q['facility']*100,0)." %";
            $qsd = format_float($q['qsd'],3);
            $di = format_float($q['disc_index'],2);
            $dc = format_float($q['disc_coeff'],2);
            
            $response = array_shift($responses);
            $table->add_data(array($qnumber."\n<br />".$qicon."\n ".$qreview, $qquestion, $response->text, $response->credit, $response->rcount, $response->rpercent, $facility, $qsd, $di, $dc));
            foreach($responses as $response) {
                $table->add_data(array('', '', $response->text, $response->credit, $response->rcount, $response->rpercent, '', '', '', ''));
            }
        }
        
        echo '<div id="titlecontainer" class="quiz-report-title">';
        echo get_string("analysistitle", "quiz_analysis");
        helpbutton("itemanalysis", get_string("reportanalysis","quiz_analysis"), "quiz");
        echo '</div>';

        echo '<div id="tablecontainer">';
        $table->print_html();
        echo '</div>';

        $this->print_options_form($quiz, $cm, $attemptselection, $lowmarklimit, $pagesize);
        return true;
    }


    function print_options_form($quiz, $cm, $attempts, $lowlimit=0, $pagesize=10) {
        global $CFG, $USER;
        echo '<div class="controls">';
        echo '<form id="options" name="options" action="report.php" method="post">';
        echo '<p class="quiz-report-options">'.get_string('analysisoptions', 'quiz').': </p>';
        echo '<input type="hidden" name="id" value="'.$cm->id.'" />';
        echo '<input type="hidden" name="q" value="'.$quiz->id.'" />';
        echo '<input type="hidden" name="mode" value="analysis" />';
        echo '<table id="analysis-options" align="center">';
        echo '<tr align="left"><td><label for="attemptselection">'.get_string('attemptselection', 'quiz_analysis').'</label></td><td>';
        $options = array ( QUIZ_ALLATTEMPTS     => get_string("attemptsall", 'quiz_analysis'),
                           QUIZ_HIGHESTATTEMPT => get_string("attemptshighest", 'quiz_analysis'),
                           QUIZ_FIRSTATTEMPT => get_string("attemptsfirst", 'quiz_analysis'),
                           QUIZ_LASTATTEMPT  => get_string("attemptslast", 'quiz_analysis'));
        choose_from_menu($options, "attemptselection", "$attempts", "");
        echo '</td></tr>';
        echo '<tr align="left">';
        echo '<td><label for="lowmarklimit">'.get_string('lowmarkslimit', 'quiz_analysis').'</label></td>';
        echo '<td><input type="text" id="lowmarklimit" name="lowmarklimit" size="1" value="'.$lowlimit.'" /> % </td>';
        echo '</tr>';
        echo '<tr align="left">';
        echo '<td><label for="pagesize">'.get_string('pagesize', 'quiz_analysis').'</label></td>';
        echo '<td><input type="text" id="pagesize" name="pagesize" size="1" value="'.$pagesize.'" /></td>';
        echo '</tr>';
        echo '<tr><td colspan="2" align="center">';
        echo '<input type="submit" value="'.get_string('go').'" />';
        helpbutton("analysisoptions", get_string("analysisoptions",'quiz_analysis'), 'quiz');
        echo '</td></tr></table>';
        echo '</form>';
        echo '</div>';    
        echo "\n";
 
        echo '<table align="center"><tr>';
        unset($options);
        $options["id"] = "$cm->id";
        $options["q"] = "$quiz->id";
        $options["mode"] = "analysis";
        $options['sesskey'] = $USER->sesskey;
        $options["noheader"] = "yes";
        echo '<td>';        
        $options["download"] = "Excel";
        print_single_button("report.php", $options, get_string("downloadexcel"));
        echo "</td>\n";   
        
        if (file_exists("$CFG->libdir/phpdocwriter/lib/include.php")) {
            echo '<td>';     
            $options["download"] = "OOo";
            print_single_button("report.php", $options, get_string("downloadooo", "quiz_analysis"));
            echo "</td>\n";
        }
        echo '<td>';
        $options["download"] = "CSV";
        print_single_button('report.php', $options, get_string("downloadtext"));
        echo "</td>\n";
        echo "<td>";
        helpbutton("analysisdownload", get_string("analysisdownload","quiz"), "quiz");
        echo "</td>\n";
        echo '</tr></table>';
}

    function report_question_stats(&$q, &$attemptscores, &$questionscores, $top, $bottom) {
        $qstats = array();
        $qid = $q['id'];
        $top_scores = $top_count = 0;
        $bottom_scores = $bottom_count = 0;
        foreach ($questionscores as $aid => $qrow){
            if (isset($qrow[$qid])){
                $qstats[] =  array($attemptscores[$aid],$qrow[$qid]);
                if ($attemptscores[$aid]>=$top){
                    $top_scores +=$qrow[$qid];
                    $top_count++;
                }
                if ($attemptscores[$aid]<=$bottom){
                    $bottom_scores +=$qrow[$qid];
                    $bottom_count++;
                }               
            }
        }
        $n = count($qstats);
        $sumx = stats_sumx($qstats, array(0,0));
        $sumg = $sumx[0];
        $sumq = $sumx[1];
        $sumx2 = stats_sumx2($qstats, array(0,0));
        $sumg2 = $sumx2[0];
        $sumq2 = $sumx2[1];
        $sumxy = stats_sumxy($qstats, array(0,0));
        $sumgq = $sumxy[0];
        
        $q['count'] = $n;
        $q['facility'] = $sumq/$n;
        if ($n<2) {
            $q['qsd'] = sqrt(($sumq2 - $sumq*$sumq/$n)/($n));
            $gsd = sqrt(($sumg2 - $sumg*$sumg/$n)/($n));
        } else {
            $q['qsd'] = sqrt(($sumq2 - $sumq*$sumq/$n)/($n-1));
            $gsd = sqrt(($sumg2 - $sumg*$sumg/$n)/($n-1));
        }
        $q['disc_index'] = ($top_scores - $bottom_scores)/max($top_count, $bottom_count, 1);
        $div = $n*$gsd*$q['qsd'];
        if ($div!=0) {
            $q['disc_coeff'] = ($sumgq - $sumg*$sumq/$n)/$div;
        } else {
            $q['disc_coeff'] = -999;
        }
        return $q;
    }

    function Export_Excel(&$questions, $filename) {
        global $CFG;
        require_once("$CFG->libdir/excel/Worksheet.php");
        require_once("$CFG->libdir/excel/Workbook.php");
        
        $filename .= ".xls";
        header("Content-Type: application/vnd.ms-excel");   
        header("Content-Disposition: attachment; filename=\"$filename\"");
        header("Expires: 0");
        header("Cache-Control: must-revalidate,post-check=0,pre-check=0");
        header("Pragma: public");
        header("Content-Transfer-Encoding: binary");

        $workbook = new Workbook("-");
        // Creating the first worksheet
        $sheettitle = get_string('reportanalysis','quiz_analysis');
        $myxls =& $workbook->add_worksheet($sheettitle);
        /// format types
        $format =& $workbook->add_format();
        $format->set_bold(0);
        $formatbc =& $workbook->add_format();
        $formatbc->set_bold(1);
        $formatb =& $workbook->add_format();
        $formatb->set_bold(1);
        $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');
        $formatbc->set_align('center');
        $formatbpct =& $workbook->add_format();
        $formatbpct->set_bold(1);
        $formatbpct->set_num_format('0.0%');
        $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');
        // Here starts workshhet headers
        $myxls->write_string(0,0,$sheettitle,$formatb);

        $headers = array(get_string('qidtitle','quiz_analysis'), get_string('qtypetitle','quiz_analysis'), 
                        get_string('qnametitle','quiz_analysis'), get_string('qtexttitle','quiz_analysis'), 
                        get_string('responsestitle','quiz_analysis'), get_string('rfractiontitle','quiz_analysis'), 
                        get_string('rcounttitle','quiz_analysis'), get_string('rpercenttitle','quiz_analysis'), 
                        get_string('qcounttitle','quiz_analysis'), 
                        get_string('facilitytitle','quiz_analysis'), get_string('stddevtitle','quiz_analysis'), 
                        get_string('dicsindextitle','quiz_analysis'), get_string('disccoefftitle','quiz_analysis')); 

        $col = 0;
        foreach ($headers as $item) {
            $myxls->write(2,$col,$item,$formatbc);
            $col++;
        }
        
        $row = 3;
        foreach($questions as $q) {       
            $rows = $this->print_row_stats_data(&$q);
            foreach($rows as $rowdata){
                $col = 0;
                foreach($rowdata as $item){
                    $myxls->write($row,$col,$item,$format);
                    $col++;
                }
                $row++;
            }
        }
        $workbook->close();
        exit;
    }


    function Export_OOo(&$questions, $filename) {
        global $CFG;
        require_once("$CFG->libdir/phpdocwriter/lib/include.php");
        import('phpdocwriter.pdw_document');
        header("Content-Type: application/download\n");   
        header("Content-Disposition: attachment; filename=\"$filename.sxw\"");
        header("Expires: 0");
        header("Cache-Control: must-revalidate,post-check=0,pre-check=0");
        header("Pragma: public");
        header("Content-Transfer-Encoding: binary");

        $sxw = new pdw_document;
        $sxw->SetFileName($filename);
        $sxw->SetAuthor('Moodle');
        $sxw->SetTitle(get_string('reportanalysis','quiz_analysis'));
        $sxw->SetDescription(get_string('reportanalysis','quiz_analysis').' - '.$filename);
        $sxw->SetLanguage('es','ES');
        $sxw->SetStdFont("Times New Roman",12);
        $sxw->AddPageDef(array('name'=>'Standard', 'margins'=>'1,1,1,1', 'w'=>'29.7', 'h'=>'21'));
        $sxw->Write(get_string('analysistitle','quiz_analysis'));
        $sxw->Ln(3);

        $headers = array(get_string('qidtitle','quiz_analysis'), get_string('qtypetitle','quiz_analysis'), 
                        get_string('qnametitle','quiz_analysis'), get_string('qtexttitle','quiz_analysis'), 
                        get_string('responsestitle','quiz_analysis'), get_string('rfractiontitle','quiz_analysis'), 
                        get_string('rcounttitle','quiz_analysis'), get_string('rpercenttitle','quiz_analysis'), 
                        get_string('qcounttitle','quiz_analysis'), 
                        get_string('facilitytitle','quiz_analysis'), get_string('stddevtitle','quiz_analysis'), 
                        get_string('dicsindextitle','quiz_analysis'), get_string('disccoefftitle','quiz_analysis')); 

        foreach($headers as $key=>$header){
            $headers[$key] = eregi_replace ("<br?>", " ",$header);
        }

        unset($data);
        foreach($questions as $q) {       
            $rows = $this->print_row_stats_data(&$q);
            foreach($rows as $row){
                $data[] = $row;
            }
        }
        $sxw->Table($headers,$data);
        $sxw->Output();
        exit;
    }

    function Export_CSV(&$questions, $filename) {

        $headers = array(get_string('qidtitle','quiz_analysis'), get_string('qtypetitle','quiz_analysis'), 
                        get_string('qnametitle','quiz_analysis'), get_string('qtexttitle','quiz_analysis'), 
                        get_string('responsestitle','quiz_analysis'), get_string('rfractiontitle','quiz_analysis'), 
                        get_string('rcounttitle','quiz_analysis'), get_string('rpercenttitle','quiz_analysis'), 
                        get_string('qcounttitle','quiz_analysis'), 
                        get_string('facilitytitle','quiz_analysis'), get_string('stddevtitle','quiz_analysis'), 
                        get_string('dicsindextitle','quiz_analysis'), get_string('disccoefftitle','quiz_analysis')); 

        $text = implode("\t", $headers)." \n";
        
        $filename .= ".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");

        echo $text;

        foreach($questions as $q) {       
            $rows = $this->print_row_stats_data(&$q);
            foreach($rows as $row){
                $text = implode("\t", $row);
                echo $text." \n";
            }
        }
        exit;
    }

    function print_row_stats_data(&$q) {
        $qid = $q['id'];
        $question = get_record('quiz_questions', 'id', $qid);

        $options->para = false;
        $options->newlines = false;

        $qtype = $question->qtype;

        $qname = format_text($question->name, FORMAT_MOODLE, $options);
        $qtext = format_text($question->questiontext, FORMAT_MOODLE, $options);          
                
        unset($responses);
        foreach ($q['responses'] as $aid=>$resp){
            unset($response);
            if ($q['credits'][$aid] <= 0) {
                $qclass = 'uncorrect';
            } elseif ($q['credits'][$aid] == 1) {
                $qclass = 'correct';
            } else {
                $qclass = 'partialcorrect';
            }
            $response->credit = " (".format_float($q['credits'][$aid],2).") ";                
            $response->text = format_text("$resp", FORMAT_MOODLE, $options);
            $count = $q['rcounts'][$aid].'/'.$q['count'];
            $response->rcount = $count;  
            $response->rpercent =  '('.format_float($q['rcounts'][$aid]/$q['count']*100,0).'%)';
            $responses[] = $response;
        }
        $count = format_float($q['count'],0);
        $facility = format_float($q['facility']*100,0);
        $qsd = format_float($q['qsd'],4);
        $di = format_float($q['disc_index'],3);
        $dc = format_float($q['disc_coeff'],3);
        
        unset($result);
        $response = array_shift($responses);        
        $result[] = array($qid, $qtype, $qname, $qtext, $response->text, $response->credit, $response->rcount, $response->rpercent, $count, $facility, $qsd, $di, $dc);   
        foreach($responses as $response){
            $result[] = array('', '', '', '', $response->text, $response->credit, $response->rcount, $response->rpercent, '', '', '', '', ''); 
        }
        return $result;
    }
}    

define('QUIZ_ALLATTEMPTS', 0);
define('QUIZ_HIGHESTATTEMPT', 1);
define('QUIZ_FIRSTATTEMPT', 2);
define('QUIZ_LASTATTEMPT', 3);

function stats_sumx($data, $initsum){
    $accum = $initsum;
    foreach ($data as $v) {
        $accum[0] += $v[0];
        $accum[1] += $v[1];
    }
    return $accum;
}       

function stats_sumx2($data, $initsum){
    $accum = $initsum;
    foreach ($data as $v) {
        $accum[0] += $v[0]*$v[0];
        $accum[1] += $v[1]*$v[1];
    }
    return $accum;
}    

function stats_sumxy($data, $initsum){
    $accum = $initsum;
    foreach ($data as $v) {
        $accum[0] += $v[0]*$v[1];
        $accum[1] += $v[1]*$v[0];
    }
    return $accum;
}

?>