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: Dokeos, 181 rue Royale, B-1000 Brussels, Belgium, info@dokeos.com
==============================================================================
*/
// TODO: Is this file deprecated?
/**
==============================================================================
* @package dokeos.tracking
* @todo clean code - structure is unclear and difficult to modify
==============================================================================
*/
/*
==============================================================================
INIT SECTION
==============================================================================
*/
$uInfo = $_REQUEST['uInfo'];
$view = $_REQUEST['view'];
// name of the language file that needs to be included
$language_file = 'tracking';
// including the global Dokeos file
include('../inc/global.inc.php');
// the section (for the tabs)
$this_section = "session_my_space";
// variables
$user_id = api_get_user_id();
$course_id = api_get_course_id();
//YW Hack security to quick fix RolesRights bug
$is_allowed = true;
/*
-----------------------------------------------------------
Libraries
-----------------------------------------------------------
*/
include(api_get_path(LIBRARY_PATH).'statsUtils.lib.inc.php');
include(api_get_path(LIBRARY_PATH).'course.lib.php');
include(api_get_path(SYS_CODE_PATH).'resourcelinker/resourcelinker.inc.php');
require_once(api_get_path(SYS_CODE_PATH).'exercice/hotpotatoes.lib.php');
/*
-----------------------------------------------------------
Header
-----------------------------------------------------------
*/
// charset determination
if (isset($_GET['scormcontopen'])) {
$tbl_lp = Database::get_course_table(TABLE_LP_MAIN);
$contopen = Database::escape_string($_GET['scormcontopen']);
if (is_numeric($contopen)) {
$contopen = intval($contopen);
$sql = "SELECT default_encoding FROM $tbl_lp WHERE id = ".$contopen;
$res = Database::query($sql,__FILE__,__LINE__);
$row = Database::fetch_array($res);
$lp_charset = $row['default_encoding'];
}
//header('Content-Type: text/html; charset='. $row['default_encoding']);
}
/*
$interbreadcrumb[]= array ("url"=>"../group/group.php", "name"=> get_lang('BredCrumpGroups'));
$interbreadcrumb[]= array ("url"=>"../group/group_space.php?gidReq=$_gid", "name"=> get_lang('BredCrumpGroupSpace'));
*/
if(isset($uInfo)) {
$interbreadcrumb[]= array ('url'=>'../user/userInfo.php?uInfo='.Security::remove_XSS($uInfo), "name"=> api_ucfirst(get_lang('Users')));
}
$nameTools = get_lang('ToolName');
$htmlHeadXtra[] = "
";
Display::display_header($nameTools,"Tracking");
/*
-----------------------------------------------------------
Constants and variables
-----------------------------------------------------------
*/
$is_allowedToTrack = $is_courseAdmin;
$is_course_member = CourseManager::is_user_subscribed_in_real_or_linked_course($user_id, $course_id);
// Database Table Definitions
$TABLECOURSUSER = Database::get_main_table(TABLE_MAIN_COURSE_USER);
$TABLEUSER = Database::get_main_table(TABLE_MAIN_USER);
$tbl_session_course_user = Database::get_main_table(TABLE_MAIN_SESSION_COURSE_USER);
$tbl_session = Database::get_main_table(TABLE_MAIN_SESSION);
$TABLETRACK_ACCESS = $_configuration['statistics_database']."`.`track_e_access";
$TABLETRACK_LINKS = $_configuration['statistics_database']."`.`track_e_links";
$TABLETRACK_LOGIN = $_configuration['statistics_database']."`.`track_e_login";
$TABLETRACK_DOWNLOADS = $_configuration['statistics_database']."`.`track_e_downloads";
$TABLETRACK_UPLOADS = $_configuration['statistics_database']."`.`track_e_uploads";
$TABLETRACK_EXERCICES = $_configuration['statistics_database']."`.`track_e_exercices";
$TABLECOURSE_LINKS = Database::get_course_table(TABLE_LINK);
$TABLECOURSE_WORK = Database::get_course_table(TABLE_STUDENT_PUBLICATION);
$TABLECOURSE_GROUPSUSER = Database::get_course_table(TABLE_GROUP_USER);
$TABLECOURSE_EXERCICES = Database::get_course_table(TABLE_QUIZ_TEST);
$TBL_TRACK_HOTPOTATOES = Database::get_statistic_table(TABLE_STATISTIC_TRACK_E_HOTPOTATOES);
if(api_get_setting('use_session_mode') == "true") {
$sql = "SELECT 1
FROM $tbl_session_course_user AS session_course_user
INNER JOIN $tbl_session AS session
ON session_course_user.id_session = session.id
AND ((date_start<=NOW()
AND date_end>=NOW())
OR (date_start='0000-00-00' AND date_end='0000-00-00'))
WHERE id_session='".$_SESSION['id_session']."' AND course_code='$_cid'";
//echo $sql;
$result=Database::query($sql,__FILE__,__LINE__);
if(!Database::num_rows($result)){
$disabled = true;
}
}
$tbl_learnpath_main = Database::get_course_table(TABLE_LP_MAIN);
$tbl_learnpath_item = Database::get_course_table(TABLE_LP_ITEM);
$tbl_learnpath_view = Database::get_course_table(TABLE_LP_VIEW);
$tbl_learnpath_item_view = Database::get_course_table(TABLE_LP_ITEM_VIEW);
$documentPath=api_get_path(SYS_COURSE_PATH).$_course['path'].'/document';
// The variables for the days and the months
$DaysShort = api_get_week_days_short();
$DaysLong = api_get_week_days_long();
$MonthsLong = api_get_months_long();
$MonthsShort = api_get_months_short();
//$is_allowedToTrack = $is_groupTutor; // allowed to track only user of one group
//$is_allowedToTrackEverybodyInCourse = $is_allowed[EDIT_RIGHT]; // allowed to track all students in course
//YW hack security to fix RolesRights bug
$is_allowedToTrack = true; // allowed to track only user of one group
$is_allowedToTrackEverybodyInCourse = $is_allowedToTrack; // allowed to track all students in course
/*
==============================================================================
FUNCTIONS
==============================================================================
*/
/**
* Displays the number of logins every month for a specific user in a specific course.
*/
function display_login_tracking_info($view, $user_id, $course_id)
{
$MonthsLong = $GLOBALS['MonthsLong'];
$track_access_table = Database::get_statistic_table(TABLE_STATISTIC_TRACK_E_ACCESS);
$tempView = $view;
if(substr($view,0,1) == '1') {
$new_view = substr_replace($view,'0',0,1);
echo "
|
- " .
"".get_lang('LoginsAndAccessTools')." [".get_lang('Close')."] [".get_lang('ExportAsCSV')."]
|
";
echo "".get_lang('LoginsDetails')."
";
$sql = "SELECT UNIX_TIMESTAMP(access_date), count(access_date)
FROM $track_access_table
WHERE access_user_id = '".Database::escape_string($user_id)."'
AND access_cours_code = '".Database::escape_string($course_id)."'
GROUP BY YEAR(access_date),MONTH(access_date)
ORDER BY YEAR(access_date),MONTH(access_date) ASC";
echo " |
| ";
//$results = getManyResults2Col($sql);
$results = getManyResults3Col($sql);
echo "";
echo " |
";
} else {
$new_view = substr_replace($view,'1',0,1);
echo "
|
+ ".get_lang('LoginsAndAccessTools')."
|
";
}
}
/**
* Displays the exercise results for a specific user in a specific course.
* @todo remove globals
*/
function display_exercise_tracking_info($view, $user_id, $course_id)
{
global $TABLECOURSE_EXERCICES, $TABLETRACK_EXERCICES;
if(substr($view,1,1) == '1')
{
$new_view = substr_replace($view,'0',1,1);
echo "
|
- ".get_lang('ExercicesResults')." [".get_lang('Close')."] [".get_lang('ExportAsCSV')."]
|
";
echo "".get_lang('ExercicesDetails')."
";
$sql = "SELECT ce.title, te.exe_result , te.exe_weighting, UNIX_TIMESTAMP(te.exe_date)
FROM $TABLECOURSE_EXERCICES AS ce , $TABLETRACK_EXERCICES AS te
WHERE te.exe_cours_id = '".Database::escape_string($course_id)."'
AND te.exe_user_id = '".Database::escape_string($user_id)."'
AND te.exe_exo_id = ce.id
ORDER BY ce.title ASC, te.exe_date ASC";
$hpsql = "SELECT te.exe_name, te.exe_result , te.exe_weighting, UNIX_TIMESTAMP(te.exe_date)
FROM $TBL_TRACK_HOTPOTATOES AS te
WHERE te.exe_user_id = '".Database::escape_string($user_id)."' AND te.exe_cours_id = '".Database::escape_string($course_id)."'
ORDER BY te.exe_cours_id ASC, te.exe_date ASC";
$hpresults = getManyResultsXCol($hpsql, 4);
$NoTestRes = 0;
$NoHPTestRes = 0;
echo " |
\n\n";
$results = getManyResultsXCol($sql, 4);
echo "\n";
echo "
|
".get_lang('ExercicesTitleExerciceColumn')."
|
".get_lang('Date')."
|
".get_lang('ExercicesTitleScoreColumn')."
|
";
if (is_array($results)) {
for($i = 0; $i < sizeof($results); $i++) {
$display_date = format_locale_date(get_lang('dateTimeFormatLong'), $results[$i][3]);
echo "\n";
echo "| ".$results[$i][0]." | \n";
echo "".$display_date." | \n";
echo "".$results[$i][1]." / ".$results[$i][2]." | \n";
echo " \n";
}
} else {
// istvan begin
$NoTestRes = 1;
}
// The Result of Tests
if(is_array($hpresults)) {
for($i = 0; $i < sizeof($hpresults); $i++) {
$title = GetQuizName($hpresults[$i][0],'');
if ($title == '')
$title = basename($hpresults[$i][0]);
$display_date = format_locale_date(get_lang('dateTimeFormatLong'), $hpresults[$i][3]);
?>
|
|
/ |
\n";
echo "".get_lang('NoResult')." | \n";
echo "\n";
}
echo " ";
echo " | \n
\n";
} else {
$new_view = substr_replace($view,'1',1,1);
echo "
|
+ ".get_lang('ExercicesResults')."
|
";
}
}
/**
* Displays the student publications for a specific user in a specific course.
* @todo remove globals
*/
function display_student_publications_tracking_info($view, $user_id, $course_id)
{
global $TABLETRACK_UPLOADS, $TABLECOURSE_WORK, $dateTimeFormatLong, $_course;
if(substr($view,2,1) == '1') {
$new_view = substr_replace($view,'0',2,1);
echo "
|
- ".get_lang('WorkUploads')." [".get_lang('Close')."] [".get_lang('ExportAsCSV')."]
|
";
echo "".get_lang('WorksDetails')."
";
$sql = "SELECT u.upload_date, w.title, w.author,w.url
FROM $TABLETRACK_UPLOADS u , $TABLECOURSE_WORK w
WHERE u.upload_work_id = w.id
AND u.upload_user_id = '".Database::escape_string($user_id)."'
AND u.upload_cours_id = '".Database::escape_string($course_id)."'
ORDER BY u.upload_date DESC";
echo " |
";
$results = getManyResultsXCol($sql,4);
echo "";
echo "
|
".get_lang('WorkTitle')."
|
".get_lang('WorkAuthors')."
|
".get_lang('Date')."
|
";
if (is_array($results)) {
for($j = 0 ; $j < count($results) ; $j++) {
$pathToFile = api_get_path(WEB_COURSE_PATH).$_course['path']."/".$results[$j][3];
$timestamp = strtotime($results[$j][0]);
$beautifulDate = format_locale_date($dateTimeFormatLong,$timestamp);
echo "";
echo "| "
."".$results[$j][1].""
." | ";
echo "".$results[$j][2]." | ";
echo "".$beautifulDate." | ";
echo" ";
}
} else {
echo "";
echo "| ".get_lang('NoResult')." | ";
echo" ";
}
echo " ";
echo " |
";
} else {
$new_view = substr_replace($view,'1',2,1);
echo "
|
+ ".get_lang('WorkUploads')."
|
";
}
}
/**
* Displays the links followed for a specific user in a specific course.
* @todo remove globals
*/
function display_links_tracking_info($view, $user_id, $course_id)
{
global $TABLETRACK_LINKS, $TABLECOURSE_LINKS;
if(substr($view,3,1) == '1') {
$new_view = substr_replace($view,'0',3,1);
echo "
|
- ".get_lang('LinksAccess')." [".get_lang('Close')."] [".get_lang('ExportAsCSV')."]
|
";
echo "".get_lang('LinksDetails')."
";
$sql = "SELECT cl.title, cl.url
FROM $TABLETRACK_LINKS AS sl, $TABLECOURSE_LINKS AS cl
WHERE sl.links_link_id = cl.id
AND sl.links_cours_id = '".Database::escape_string($course_id)."'
AND sl.links_user_id = '".Database::escape_string($user_id)."'
GROUP BY cl.title, cl.url";
echo " |
";
$results = getManyResults2Col($sql);
echo "";
echo "
|
".get_lang('LinksTitleLinkColumn')."
|
";
if (is_array($results)) {
for($j = 0 ; $j < count($results) ; $j++) {
echo "";
echo "| ".$results[$j][0]." | ";
echo" ";
}
} else {
echo "";
echo "| ".get_lang('NoResult')." | ";
echo" ";
}
echo " ";
echo " |
";
} else {
$new_view = substr_replace($view,'1',3,1);
echo "
|
+ ".get_lang('LinksAccess')."
|
";
}
}
/**
* Displays the documents downloaded for a specific user in a specific course.
*/
function display_document_tracking_info($view, $user_id, $course_id)
{
$downloads_table = Database::get_statistic_table(TABLE_STATISTIC_TRACK_E_DOWNLOADS);
if(substr($view,4,1) == '1')
{
$new_view = substr_replace($view,'0',4,1);
echo "
|
- ".get_lang('DocumentsAccess')." [".get_lang('Close')."] [".get_lang('ExportAsCSV')."]
|
";
echo "".get_lang('DocumentsDetails')."
";
$sql = "SELECT down_doc_path
FROM $downloads_table
WHERE down_cours_id = '".Database::escape_string($course_id)."'
AND down_user_id = '".Database::escape_string($user_id)."'
GROUP BY down_doc_path";
echo " |
";
$results = getManyResults1Col($sql);
echo "";
echo "
|
".get_lang('DocumentsTitleDocumentColumn')."
|
";
if (is_array($results)) {
for($j = 0 ; $j < count($results) ; $j++) {
echo "";
echo "| ".$results[$j]." | ";
echo" ";
}
} else {
echo "";
echo "| ".get_lang('NoResult')." | ";
echo" ";
}
echo " ";
echo " |
";
} else {
$new_view = substr_replace($view,'1',4,1);
echo "
|
+ ".get_lang('DocumentsAccess')."
|
";
}
}
/*
==============================================================================
MAIN SECTION
==============================================================================
*/
?>
".get_lang('ListStudents')."";
if( $is_allowedToTrackEverybodyInCourse ) {
// if user can track everybody : list user of course
if(api_get_setting('use_session_mode')) {
$sql = "SELECT count(user_id)
FROM $TABLECOURSUSER
WHERE course_code = '".Database::escape_string($_cid)."'";
} else {
$sql = "SELECT count(id_user)
FROM $tbl_session_course_user
WHERE course_code = '".Database::escape_string($_cid)."'";
}
} else {
// if user can only track one group : list users of this group
$sql = "SELECT count(user)
FROM $TABLECOURSE_GROUPSUSER
WHERE group_id = '".Database::escape_string($_gid)."'";
}
$userGroupNb = getOneResult($sql);
$step = 25; // number of student per page
if ($userGroupNb > $step) {
if(!isset($offset)) {
$offset=0;
}
$next = $offset + $step;
$previous = $offset - $step;
$navLink = "\n";
} else {
$offset = 0;
}
echo $navLink;
if (!settype($offset, 'integer') || !settype($step, 'integer')) die('Offset or step variables are not integers.'); //sanity check of integer vars
if( $is_allowedToTrackEverybodyInCourse ) {
// list of users in this course
$sql = "SELECT u.user_id, u.firstname,u.lastname
FROM $TABLECOURSUSER cu , $TABLEUSER u
WHERE cu.user_id = u.user_id
AND cu.course_code = '".Database::escape_string($_cid)."'
LIMIT $offset,$step";
}
else
{
// list of users of this group
$sql = "SELECT u.user_id, u.firstname,u.lastname
FROM $TABLECOURSE_GROUPSUSER gu , $TABLEUSER u
WHERE gu.user_id = u.user_id
AND gu.group_id = '".Database::escape_string($_gid)."'
LIMIT $offset,$step";
}
$list_users = getManyResults3Col($sql);
echo "\n";
echo $navLink;
} else {
// if uInfo is set
/***************************************************************************
*
* Informations about student uInfo
*
***************************************************************************/
// these checks exists for security reasons, neither a prof nor a tutor can see statistics of a user from
// another course, or group
if( $is_allowedToTrackEverybodyInCourse ) {
// check if user is in this course
$tracking_is_accepted = $is_course_member;
$tracked_user_info = Database::get_user_info_from_id($uInfo);
} else {
// check if user is in the group of this tutor
$sql = "SELECT u.firstname,u.lastname, u.email
FROM $TABLECOURSE_GROUPSUSER gu , $TABLEUSER u
WHERE gu.user_id = u.user_id`
AND gu.group_id = '".Database::escape_string($_gid)."'
AND u.user_id = '".Database::escape_string($uInfo)."'";
$query = Database::query($sql,__FILE__,__LINE__);
$tracked_user_info = @mysql_fetch_assoc($query);
if(is_array($tracked_user_info)) $tracking_is_accepted = true;
}
if ($tracking_is_accepted) {
$tracked_user_info['email'] == '' ? $mail_link = get_lang('NoEmail') : $mail_link = Display::encrypted_mailto_link($tracked_user_info['email']);
echo "";
echo get_lang('informationsAbout').' :';
echo "\n"
."- ".get_lang('FirstName')." : ".$tracked_user_info['firstname']."
\n"
."- ".get_lang('LastName')." : ".$tracked_user_info['lastname']."
\n"
."- ".get_lang('Email')." : ".$mail_link."
\n"
." ";
echo " |
\n";
// show all : number of 1 is equal to or bigger than number of categories
// show none : number of 0 is equal to or bigger than number of categories
echo "
|
[".get_lang('ShowAll')."]
[".get_lang('ShowNone')."]".
//"||[".get_lang('BackToList')."]".
" |
";
if(!isset($view))
{
$view ='0000000';
}
//Logins
display_login_tracking_info($view, $uInfo, $_cid);
//Exercise results
display_exercise_tracking_info($view, $uInfo, $_cid);
//Student publications uploaded
display_student_publications_tracking_info($view, $uInfo, $_cid);
//Links usage
display_links_tracking_info($view, $uInfo, $_cid);
//Documents downloaded
display_document_tracking_info($view, $uInfo, $_cid);
} else {
echo get_lang('ErrorUserNotInGroup');
}
/***************************************************************************
*
* Scorm contents and Learning Path
*
***************************************************************************/
if(substr($view,5,1) == '1') {
$new_view = substr_replace($view,'0',5,1);
echo "
|
- ".get_lang('ScormAccess')." [".get_lang('Close')."] [".get_lang('ExportAsCSV')."]
|
";
$sql = "SELECT id, name FROM $tbl_learnpath_main";
$result=Database::query($sql,__FILE__,__LINE__);
$ar=Database::fetch_array($result);
echo "";
echo "
|
".get_lang('ScormContentColumn')."
|
";
if (is_array($ar)) {
while ($ar['id'] != '') {
$lp_title = stripslashes($ar['name']);
echo "| ";
echo "$lp_title";
echo " | ";
if ($ar['id']==$scormcontopen) { //have to list the students here
$contentId=$ar['id'];
$sql3 = "SELECT iv.status, iv.score, i.title, iv.total_time " .
"FROM $tbl_learnpath_item i " .
"INNER JOIN $tbl_learnpath_item_view iv ON i.id=iv.lp_item_id " .
"INNER JOIN $tbl_learnpath_view v ON iv.lp_view_id=v.id " .
"WHERE (v.user_id=".Database::escape_string($uInfo)." and v.lp_id=$contentId) ORDER BY v.id, i.id";
$result3=Database::query($sql3,__FILE__,__LINE__);
$ar3=Database::fetch_array($result3);
if (is_array($ar3)) {
echo "| |
".get_lang('ScormTitleColumn')."
|
".get_lang('ScormStatusColumn')."
|
".get_lang('ScormScoreColumn')."
|
".get_lang('ScormTimeColumn')."
|
";
while ($ar3['status'] != '') {
require_once('../newscorm/learnpathItem.class.php');
$time = learnpathItem::get_scorm_time('php',$ar3['total_time']);
$title = api_htmlentities($ar3['title'],ENT_QUOTES,$lp_charset);
echo "| | ";
echo "$title | {$ar3['status']} | {$ar3['score']} | $time | ";
echo " ";
$ar3=Database::fetch_array($result3);
}
} else {
echo "";
echo "| ".get_lang('ScormNeverOpened')." | ";
echo" ";
}
}
$ar=Database::fetch_array($result);
}
} else {
$noscorm=true;
}
if ($noscorm) {
echo "";
echo "| ".get_lang('NoResult')." | ";
echo " ";
}
echo "
";
echo " |
";
} else {
$new_view = substr_replace($view,'1',5,1);
echo "
|
+ ".get_lang('ScormAccess')."
|
";
}
}
} else {
// not allowed
if(!$_configuration['tracking_enabled'])
{
echo get_lang('TrackingDisabled');
} else {
api_not_allowed();
}
}
?>