123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376 |
- <?php
- /*
- ==============================================================================
- Dokeos - elearning and course management software
- Copyright (c) 2004-2008 Dokeos SPRL
- For a full list of contributors, see "credits.txt".
- The full license can be read in "license.txt".
- This program is free software; you can redistribute it and/or
- modify it under the terms of the GNU General Public License
- as published by the Free Software Foundation; either version 2
- of the License, or (at your option) any later version.
- See the GNU General Public License for more details.
- Contact address: Dokeos, rue du Corbeau, 108, B-1030 Brussels, Belgium
- Mail: info@dokeos.com
- ==============================================================================
- */
- /**
- * ExerciseResult class: This class allows to instantiate an object of type ExerciseResult
- * which allows you to export exercises results in multiple presentation forms
- * @package dokeos.exercise
- * @author Yannick Warnier
- * @version $Id: $
- */
- if(!class_exists('ExerciseResult')):
- class ExerciseResult
- {
- private $exercises_list = array(); //stores the list of exercises
- private $results = array(); //stores the results
- /**
- * constructor of the class
- */
- public function ExerciseResult($get_questions=false,$get_answers=false)
- {
- //nothing to do
- /*
- $this->exercise_list = array();
- $this->readExercisesList();
- if($get_questions)
- {
- foreach($this->exercises_list as $exe)
- {
- $this->exercises_list['questions'] = $this->getExerciseQuestionList($exe['id']);
- }
- }
- */
- }
- /**
- * Reads exercises information (minimal) from the data base
- * @param boolean Whether to get only visible exercises (true) or all of them (false). Defaults to false.
- * @return array A list of exercises available
- */
- private function _readExercisesList($only_visible = false)
- {
- $return = array();
- $TBL_EXERCISES = Database::get_course_table(TABLE_QUIZ_TEST);
- $sql="SELECT id,title,type,random,active FROM $TBL_EXERCISES";
- if($only_visible)
- {
- $sql.= ' WHERE active=1';
- }
- $sql .= ' ORDER BY title';
- $result=api_sql_query($sql,__FILE__,__LINE__);
- // if the exercise has been found
- while($row=Database::fetch_array($result,'ASSOC'))
- {
- $return[] = $row;
- }
- // exercise not found
- return $return;
- }
- /**
- * Gets the questions related to one exercise
- * @param integer Exercise ID
- */
- private function _readExerciseQuestionsList($e_id)
- {
- $return = array();
- $TBL_EXERCISE_QUESTION = Database::get_course_table(TABLE_QUIZ_TEST_QUESTION);
- $TBL_QUESTIONS = Database::get_course_table(TABLE_QUIZ_QUESTION);
- $sql="SELECT q.id, q.question, q.ponderation, eq.question_order, q.type, q.picture " .
- " FROM $TBL_EXERCISE_QUESTION eq, $TBL_QUESTIONS q " .
- " WHERE eq.question_id=q.id AND eq.exercice_id='".Database::escape_string($e_id)."' " .
- " ORDER BY eq.question_order";
- $result=api_sql_query($sql,__FILE__,__LINE__);
- // fills the array with the question ID for this exercise
- // the key of the array is the question position
- while($row=Database::fetch_array($result,'ASSOC'))
- {
- $return[] = $row;
- }
- return true;
- }
- /**
- * Gets the results of all students (or just one student if access is limited)
- * @param string The document path (for HotPotatoes retrieval)
- * @param integer User ID. Optional. If no user ID is provided, we take all the results. Defauts to null
- */
- function _getExercisesReporting($document_path,$user_id=null)
- {
- $return = array();
- $TBL_EXERCISES = Database::get_course_table(TABLE_QUIZ_TEST);
- $TBL_EXERCISE_QUESTION = Database::get_course_table(TABLE_QUIZ_TEST_QUESTION);
- $TBL_QUESTIONS = Database::get_course_table(TABLE_QUIZ_QUESTION);
- $TBL_USER = Database::get_main_table(TABLE_MAIN_USER);
- $TBL_DOCUMENT = Database::get_course_table(TABLE_DOCUMENT);
- $TBL_ITEM_PROPERTY = Database::get_course_table(TABLE_ITEM_PROPERTY);
- $TBL_TRACK_EXERCISES = Database::get_statistic_table(TABLE_STATISTIC_TRACK_E_EXERCICES);
- $TBL_TRACK_HOTPOTATOES = Database::get_statistic_table(TABLE_STATISTIC_TRACK_E_HOTPOTATOES);
- $TBL_TRACK_ATTEMPT = Database::get_statistic_table(TABLE_STATISTIC_TRACK_E_ATTEMPT);
- $cid = api_get_course_id();
- if(empty($user_id))
- {
- //get all results (ourself and the others) as an admin should see them
- //AND exe_user_id <> $_user['user_id'] clause has been removed
- $sql="SELECT ".(api_is_western_name_order() ? "CONCAT(firstname,' ',lastname)" : "CONCAT(lastname,' ',firstname)").", ce.title, te.exe_result ,
- te.exe_weighting, UNIX_TIMESTAMP(te.exe_date),te.exe_id, user.email, user.user_id
- FROM $TBL_EXERCISES ce , $TBL_TRACK_EXERCISES te, $TBL_USER user
- WHERE te.exe_exo_id = ce.id AND user_id=te.exe_user_id AND te.exe_cours_id='$cid'
- ORDER BY te.exe_cours_id ASC, ce.title ASC, te.exe_date ASC";
- $hpsql="SELECT ".(api_is_western_name_order() ? "CONCAT(tu.firstname,' ',tu.lastname)" : "CONCAT(tu.lastname,' ',tu.firstname)").", tth.exe_name,
- tth.exe_result , tth.exe_weighting, UNIX_TIMESTAMP(tth.exe_date), tu.email, tu.user_id
- FROM $TBL_TRACK_HOTPOTATOES tth, $TBL_USER tu
- WHERE tu.user_id=tth.exe_user_id AND tth.exe_cours_id = '".$cid."'
- ORDER BY tth.exe_cours_id ASC, tth.exe_date ASC";
- }
- else
- { // get only this user's results
- $sql="SELECT '',ce.title, te.exe_result , te.exe_weighting, " .
- "UNIX_TIMESTAMP(te.exe_date),te.exe_id
- FROM $TBL_EXERCISES ce , $TBL_TRACK_EXERCISES te
- WHERE te.exe_exo_id = ce.id AND te.exe_user_id='".Database::escape_string($user_id)."' AND te.exe_cours_id='".Database::escape_string($cid)."'
- ORDER BY te.exe_cours_id ASC, ce.title ASC, te.exe_date ASC";
- $hpsql="SELECT '',exe_name, exe_result , exe_weighting, UNIX_TIMESTAMP(exe_date)
- FROM $TBL_TRACK_HOTPOTATOES
- WHERE exe_user_id = '".Database::escape_string($user_id)."' AND exe_cours_id = '".Database::escape_string($cid)."'
- ORDER BY exe_cours_id ASC, exe_date ASC";
- }
- $results=getManyResultsXCol($sql,8);
- $hpresults=getManyResultsXCol($hpsql,7);
- $NoTestRes = 0;
- $NoHPTestRes = 0;
- $j=0;
- //Print the results of tests
- if(is_array($results))
- {
- for($i = 0; $i < sizeof($results); $i++)
- {
- $return[$i] = array();
- $id = $results[$i][5];
- $mailid = $results[$i][6];
- $user = $results[$i][0];
- $test = $results[$i][1];
- $dt = strftime(get_lang('dateTimeFormatLong'),$results[$i][4]);
- $res = $results[$i][2];
- if(empty($user_id))
- {
- $user = $results[$i][0];
- $return[$i]['user'] = $user;
- $return[$i]['user_id'] = $results[$i][7];
- }
- $return[$i]['title'] = $test;
- $return[$i]['time'] = format_locale_date(get_lang('dateTimeFormatLong'),$results[$i][4]);
- $return[$i]['result'] = $res;
- $return[$i]['max'] = $results[$i][3];
- $j=$i;
- }
- }
- $j++;
- // Print the Result of Hotpotatoes Tests
- if(is_array($hpresults))
- {
- for($i = 0; $i < sizeof($hpresults); $i++)
- {
- $return[$j+$i] = array();
- $title = GetQuizName($hpresults[$i][1],$document_path);
- if ($title =='')
- {
- $title = basename($hpresults[$i][1]);
- }
- if(empty($user_id))
- {
- $return[$j+$i]['user'] = $hpresults[$i][0];
- $return[$j+$i]['user_id'] = $results[$i][6];
- }
- $return[$j+$i]['title'] = $title;
- $return[$j+$i]['time'] = strftime(get_lang('dateTimeFormatLong'),$hpresults[$i][4]);
- $return[$j+$i]['result'] = $hpresults[$i][2];
- $return[$j+$i]['max'] = $hpresults[$i][3];
- }
- }
- $this->results = $return;
- return true;
- }
- /**
- * Exports the complete report as a CSV file
- * @param string Document path inside the document tool
- * @param integer Optional user ID
- * @param boolean Whether to include user fields or not
- * @return boolean False on error
- */
- public function exportCompleteReportCSV($document_path='',$user_id=null, $export_user_fields)
- {
- global $charset;
- $this->_getExercisesReporting($document_path,$user_id);
- $filename = 'exercise_results_'.date('YmdGis').'.csv';
- if(!empty($user_id))
- {
- $filename = 'exercise_results_user_'.$user_id.'_'.date('YmdGis').'.csv';
- }
- $data = '';
- //build the results
- //titles
- if(!empty($this->results[0]['user']))
- {
- $data .= get_lang('User').';';
- }
- if($export_user_fields)
- {
- //show user fields section with a big th colspan that spans over all fields
- $extra_user_fields = UserManager::get_extra_fields(0,0,5,'ASC',false);
- $num = count($extra_user_fields);
- foreach($extra_user_fields as $field)
- {
- $data .= '"'.str_replace("\r\n",' ',api_html_entity_decode(strip_tags($field[3]), ENT_QUOTES, $charset)).'";';
- }
- $display_extra_user_fields = true;
- }
- $data .= get_lang('Title').';';
- $data .= get_lang('Date').';';
- $data .= get_lang('Results').';';
- $data .= get_lang('Weighting').';';
- $data .= "\n";
- //results
- foreach($this->results as $row)
- {
- if(!empty($row['user']))
- {
- $data .= str_replace("\r\n",' ',api_html_entity_decode(strip_tags($row['user']), ENT_QUOTES, $charset)).';';
- }
- if($export_user_fields)
- {
- //show user fields data, if any, for this user
- $user_fields_values = UserManager::get_extra_user_data(intval($row['user_id']),false,false);
- foreach($user_fields_values as $value)
- {
- $data .= '"'.str_replace('"','""',api_html_entity_decode(strip_tags($value), ENT_QUOTES, $charset)).'";';
- }
- }
- $data .= str_replace("\r\n",' ',api_html_entity_decode(strip_tags($row['title']), ENT_QUOTES, $charset)).';';
- $data .= str_replace("\r\n",' ',$row['time']).';';
- $data .= str_replace("\r\n",' ',$row['result']).';';
- $data .= str_replace("\r\n",' ',$row['max']).';';
- $data .= "\n";
- }
- //output the results
- $len = strlen($data);
- header('Content-type: application/octet-stream');
- header('Content-Type: application/force-download');
- header('Content-length: '.$len);
- if (preg_match("/MSIE 5.5/", $_SERVER['HTTP_USER_AGENT']))
- {
- header('Content-Disposition: filename= '.$filename);
- }
- else
- {
- header('Content-Disposition: attachment; filename= '.$filename);
- }
- if (strpos($_SERVER['HTTP_USER_AGENT'], 'MSIE'))
- {
- header('Pragma: ');
- header('Cache-Control: ');
- header('Cache-Control: public'); // IE cannot download from sessions without a cache
- }
- header('Content-Description: '.$filename);
- header('Content-transfer-encoding: binary');
- echo $data;
- return true;
- }
- /**
- * Exports the complete report as an XLS file
- * @return boolean False on error
- */
- public function exportCompleteReportXLS($document_path='',$user_id=null, $export_user_fields)
- {
- global $charset;
- $this->_getExercisesReporting($document_path,$user_id);
- $filename = 'exercise_results_'.date('YmdGis').'.xls';
- if(!empty($user_id))
- {
- $filename = 'exercise_results_user_'.$user_id.'_'.date('YmdGis').'.xls';
- } //build the results
- require_once(api_get_path(LIBRARY_PATH).'pear/Spreadsheet_Excel_Writer/Writer.php');
- $workbook = new Spreadsheet_Excel_Writer();
- $workbook->send($filename);
- $worksheet =& $workbook->addWorksheet('Report '.date('YmdGis'));
- $line = 0;
- $column = 0; //skip the first column (row titles)
- if(!empty($this->results[0]['user']))
- {
- $worksheet->write($line,$column,get_lang('User'));
- $column++;
- }
- if($export_user_fields)
- {
- //show user fields section with a big th colspan that spans over all fields
- $extra_user_fields = UserManager::get_extra_fields(0,0,5,'ASC',false);
- //show the fields names for user fields
- foreach($extra_user_fields as $field)
- {
- $worksheet->write($line,$column,api_html_entity_decode(strip_tags($field[3]), ENT_QUOTES, $charset));
- $column++;
- }
- }
- $worksheet->write($line,$column,get_lang('Title'));
- $column++;
- $worksheet->write($line,$column,get_lang('Date'));
- $column++;
- $worksheet->write($line,$column,get_lang('Results'));
- $column++;
- $worksheet->write($line,$column,get_lang('Weighting'));
- $line++;
- foreach($this->results as $row)
- {
- $column = 0;
- if(!empty($row['user']))
- {
- $worksheet->write($line,$column,api_html_entity_decode(strip_tags($row['user']), ENT_QUOTES, $charset));
- $column++;
- }
- //show user fields data, if any, for this user
- $user_fields_values = UserManager::get_extra_user_data(intval($row['user_id']),false,false);
- foreach($user_fields_values as $value)
- {
- $worksheet->write($line,$column,api_html_entity_decode(strip_tags($value), ENT_QUOTES, $charset));
- $column++;
- }
- $worksheet->write($line,$column,api_html_entity_decode(strip_tags($row['title']), ENT_QUOTES, $charset));
- $column++;
- $worksheet->write($line,$column,$row['time']);
- $column++;
- $worksheet->write($line,$column,$row['result']);
- $column++;
- $worksheet->write($line,$column,$row['max']);
- $line++;
- }
- //output the results
- $workbook->close();
- return true;
- }
- }
- endif;
- ?>
|