You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
404 lines
16 KiB
404 lines
16 KiB
<?php
|
|
|
|
/* For licensing terms, see /license.txt */
|
|
|
|
/**
|
|
* @author Thomas Depraetere
|
|
* @author Hugues Peeters
|
|
* @author Christophe Gesche
|
|
* @author Sebastien Piraux
|
|
* @author Toon Keppens (Vi-Host.net)
|
|
*
|
|
* @package chamilo.tracking
|
|
*/
|
|
|
|
// TODO: Is this file deprecated?
|
|
|
|
$pathopen = isset($_REQUEST['pathopen']) ? $_REQUEST['pathopen'] : null;
|
|
require_once '../inc/global.inc.php';
|
|
|
|
/* Constants and variables */
|
|
|
|
// regroup table names for maintenance purpose
|
|
$TABLETRACK_ACCESS = Database::get_main_table(TABLE_STATISTIC_TRACK_E_LASTACCESS);
|
|
$TABLETRACK_LINKS = Database::get_main_table(TABLE_STATISTIC_TRACK_E_LINKS);
|
|
$TABLETRACK_DOWNLOADS = Database::get_main_table(TABLE_STATISTIC_TRACK_E_DOWNLOADS);
|
|
$TABLETRACK_ACCESS_2 = Database::get_main_table("track_e_access");
|
|
$TABLECOURSUSER = Database::get_main_table(TABLE_MAIN_COURSE_USER);
|
|
$TABLECOURSE = Database::get_main_table(TABLE_MAIN_COURSE);
|
|
$table_user = Database::get_main_table(TABLE_MAIN_USER);
|
|
|
|
$TABLECOURSE_LINKS = Database::get_course_table(TABLE_LINK);
|
|
$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);
|
|
|
|
$course_id = api_get_course_int_id();
|
|
|
|
$view = $_REQUEST['view'];
|
|
|
|
if ($view == "0000001")
|
|
$nameTools = get_lang('SynthesisView');
|
|
if ($view == "1000000")
|
|
$nameTools = get_lang('CourseStats');
|
|
if ($view == "0100000")
|
|
$nameTools = get_lang('CourseAccess');
|
|
if ($view == "0010000")
|
|
$nameTools = get_lang('ToolsAccess');
|
|
if ($view == "0001000")
|
|
$nameTools = get_lang('LinksAccess');
|
|
if ($view == "0000100")
|
|
$nameTools = get_lang('DocumentsAccess');
|
|
if ($view == "00000010")
|
|
$nameTools = get_lang('ScormAccess');
|
|
|
|
$interbreadcrumb[] = array("url" => api_get_self() . "?view=0000000", "name" => get_lang('ToolName'));
|
|
|
|
include(api_get_path(LIBRARY_PATH) . "statsUtils.lib.inc.php");
|
|
include("../resourcelinker/resourcelinker.inc.php");
|
|
|
|
$is_allowedToTrack = $is_courseAdmin || $is_platformAdmin || api_is_drh();
|
|
|
|
/* MAIN CODE */
|
|
|
|
$title[0] = get_lang('StatsOfCourse') . " : " . $_course['official_code'];
|
|
|
|
|
|
$courseInfo = api_get_course_info($_course['official_code']);
|
|
$courseId = $courseInfo['real_id'];
|
|
|
|
// check if uid is prof of this group
|
|
|
|
if ($is_allowedToTrack) {
|
|
// show all : view must be equal to the sum of all view values (1024+512+...+64)
|
|
// show none : less than the tiniest value
|
|
/* echo "<div>
|
|
[<a href='".api_get_self()."?view=1111111'>".get_lang('ShowAll')."</a>]
|
|
[<a href='".api_get_self()."?view=0000000'>".get_lang('ShowNone')."</a>]
|
|
</div><br>
|
|
"; */
|
|
|
|
if (!isset($view))
|
|
$view = "0000000";
|
|
|
|
|
|
/* Reporting */
|
|
|
|
$tempView = $view;
|
|
if ($view[6] == '1') {
|
|
|
|
$tempView[6] = '0';
|
|
|
|
// BEGIN users in this course
|
|
$sql = "SELECT $TABLECOURSUSER.user_i, $table_user.lastname, $table_user.firstname
|
|
FROM $TABLECOURSUSER, $table_user
|
|
WHERE
|
|
$TABLECOURSUSER.c_id = '" . api_get_course_int_id() . "' AND
|
|
$TABLECOURSUSER.user_id = $table_user.user_id AND
|
|
$TABLECOURSUSER.relation_type<>" . COURSE_RELATION_TYPE_RRHH . "
|
|
ORDER BY $table_user.lastname";
|
|
$results = StatsUtils::getManyResults3Col($sql);
|
|
|
|
//BUGFIX: get visual code instead of real course code. Scormpaths use the visual code... (should be fixed in future versions)
|
|
$sql = "SELECT visual_code FROM $TABLECOURSE WHERE code = '" . api_get_course_id() . "'";
|
|
$_course['visual_code'] = StatsUtils::getOneResult($sql);
|
|
|
|
if (is_array($results)) {
|
|
$line = '';
|
|
$title_line = get_lang('Name') . ";" . get_lang('FirstAccess') . ";" . get_lang('LastAccess') . ";" . get_lang('Visited') . "\n";
|
|
|
|
for ($j = 0; $j < count($results); $j++) {
|
|
// BEGIN % visited
|
|
// sum of all items (= multiple learningpaths + SCORM imported paths)
|
|
$sql = "SELECT COUNT(DISTINCT(iv.lp_item_id)) FROM $tbl_learnpath_item_view iv " .
|
|
"INNER JOIN $tbl_learnpath_view v
|
|
ON iv.lp_view_id = v.id " .
|
|
"WHERE
|
|
v.c_id = $course_id AND
|
|
iv.c_id = $course_id AND
|
|
v.user_id = " . $results[$j][0];
|
|
$total_lpath_items = StatsUtils::getOneResult($sql);
|
|
|
|
// sum of all completed items (= multiple learningpaths + SCORM imported paths)
|
|
$sql = "SELECT COUNT(DISTINCT(iv.lp_item_id)) " .
|
|
"FROM $tbl_learnpath_item_view iv " .
|
|
"INNER JOIN $tbl_learnpath_view v ON iv.lp_view_id = v.id " .
|
|
"WHERE
|
|
v.c_id = $course_id AND
|
|
iv.c_id = $course_id AND
|
|
v.user_id = " . $results[$j][0] . " " .
|
|
"AND (status = 'completed' OR status='passed')";
|
|
$total_lpath_items_completed = StatsUtils::getOneResult($sql);
|
|
|
|
// calculation & bgcolor setting
|
|
$lpath_pct_completed = empty($total_lpath_items) ? "-" : round(($total_lpath_items_completed / $total_lpath_items) * 100);
|
|
|
|
// END % visited
|
|
// BEGIN first/last access
|
|
// first access
|
|
$sql = "SELECT access_date FROM $TABLETRACK_ACCESS_2
|
|
WHERE access_user_id = '" . $results[$j][0] . "' AND c_id = '" . $courseId . "' AND access_tool = 'learnpath' AND access_session_id = '" . api_get_session_id() . "'
|
|
ORDER BY access_id ASC LIMIT 1";
|
|
$first_access = StatsUtils::getOneResult($sql);
|
|
$first_access = empty($first_access) ? "-" : date('d.m.y', strtotime($first_access));
|
|
|
|
// last access
|
|
$sql = "SELECT access_date FROM $TABLETRACK_ACCESS WHERE access_user_id = '" . $results[$j][0] . "' AND c_id = '" . $courseId . "' AND access_tool = 'learnpath'";
|
|
$last_access = StatsUtils::getOneResult($sql);
|
|
$last_access = empty($last_access) ? "-" : date('d.m.y', strtotime($last_access));
|
|
// END first/last access
|
|
// BEGIN presentation of data
|
|
$line .= $results[$j][1] . " " . $results[$j][2] . ";" . $first_access . ";" . $last_access . ";" . $lpath_pct_completed . "\n";
|
|
|
|
// END presentation of data
|
|
}
|
|
} else {
|
|
$line = get_lang('NoResult') . "\n";
|
|
}
|
|
}
|
|
|
|
/* Main */
|
|
$tempView = $view;
|
|
if ($view[0] == '1') {
|
|
$title[1] = $nameTools;
|
|
$tempView[0] = '0';
|
|
|
|
$sql = "SELECT count(*)
|
|
FROM $TABLECOURSUSER
|
|
WHERE c_id = '" . api_get_course_int_id() . "' AND relation_type<>" . COURSE_RELATION_TYPE_RRHH . "";
|
|
$count = StatsUtils::getOneResult($sql);
|
|
$title_line = get_lang('CountUsers') . " ; " . $count . "\n";
|
|
}
|
|
|
|
/* Access to this course */
|
|
$tempView = $view;
|
|
if ($view[1] == '1') {
|
|
$tempView[1] = '0';
|
|
$title[1] = get_lang('ConnectionsToThisCourse');
|
|
$title_line = '';
|
|
$line = '';
|
|
|
|
//Total
|
|
$sql = "SELECT count(*)
|
|
FROM $TABLETRACK_ACCESS
|
|
WHERE c_id = $courseId
|
|
AND access_tool IS NULL";
|
|
$count = StatsUtils::getOneResult($sql);
|
|
|
|
$line .= get_lang('CountToolAccess') . " ; " . $count . "\n";
|
|
|
|
// last 31 days
|
|
$sql = "SELECT count(*)
|
|
FROM $TABLETRACK_ACCESS
|
|
WHERE c_id = $courseId
|
|
AND (access_date > DATE_ADD(CURDATE(), INTERVAL -31 DAY))
|
|
AND access_tool IS NULL";
|
|
$count = StatsUtils::getOneResult($sql);
|
|
|
|
$line .= get_lang('Last31days') . " ; " . $count . "\n";
|
|
|
|
// last 7 days
|
|
$sql = "SELECT count(*)
|
|
FROM $TABLETRACK_ACCESS
|
|
WHERE c_id = $courseId
|
|
AND (access_date > DATE_ADD(CURDATE(), INTERVAL -7 DAY))
|
|
AND access_tool IS NULL";
|
|
$count = StatsUtils::getOneResult($sql);
|
|
|
|
$line .= get_lang('Last7days') . " ; " . $count . "\n";
|
|
|
|
// today
|
|
$sql = "SELECT count(*)
|
|
FROM $TABLETRACK_ACCESS
|
|
WHERE c_id = $courseId
|
|
AND ( access_date > CURDATE() )
|
|
AND access_tool IS NULL";
|
|
$count = StatsUtils::getOneResult($sql);
|
|
$line .= get_lang('ThisDay') . " ; " . $count . "\n";
|
|
}
|
|
|
|
/* Tools */
|
|
$tempView = $view;
|
|
if ($view[2] == '1') {
|
|
$tempView[2] = '0';
|
|
$title[1] = $nameTools;
|
|
$line = '';
|
|
$title_line = get_lang('ToolTitleToolnameColumn') . ";" . get_lang('ToolTitleUsersColumn') . ";" . get_lang('ToolTitleCountColumn') . "\n";
|
|
|
|
$sql = "SELECT access_tool, COUNT(DISTINCT access_user_id),count( access_tool )
|
|
FROM $TABLETRACK_ACCESS
|
|
WHERE access_tool IS NOT NULL
|
|
AND c_id = $courseId
|
|
GROUP BY access_tool";
|
|
|
|
$results = StatsUtils::getManyResults3Col($sql);
|
|
|
|
if (is_array($results)) {
|
|
for ($j = 0; $j < count($results); $j++) {
|
|
$line .= $results[$j][0] . "/" . get_lang($results[$j][0]) . ";" . $results[$j][1] . ";" . $results[$j][2] . "\n";
|
|
}
|
|
} else {
|
|
$line = get_lang('NoResult') . "\n";
|
|
}
|
|
}
|
|
|
|
/* Links */
|
|
$tempView = $view;
|
|
if ($view[3] == '1') {
|
|
|
|
$tempView[3] = '0';
|
|
|
|
$sql = "SELECT cl.title, cl.url,count(DISTINCT sl.links_user_id), count(cl.title)
|
|
FROM $TABLETRACK_LINKS AS sl, $TABLECOURSE_LINKS AS cl
|
|
WHERE
|
|
cl.c_id = $courseId AND
|
|
sl.links_link_id = cl.id AND
|
|
sl.c_id = $courseId
|
|
GROUP BY cl.title, cl.url";
|
|
|
|
$results = StatsUtils::getManyResultsXCol($sql, 4);
|
|
|
|
$title[1] = $nameTools;
|
|
$line = '';
|
|
$title_line = get_lang('LinksTitleLinkColumn') . ";" . get_lang('LinksTitleUsersColumn') . ";" . get_lang('LinksTitleCountColumn') . "\n";
|
|
|
|
if (is_array($results)) {
|
|
for ($j = 0; $j < count($results); $j++) {
|
|
$line .= $results[$j][1] . "'>" . $results[$j][0] . ";" . $results[$j][2] . ";" . $results[$j][3] . "\n";
|
|
}
|
|
} else {
|
|
$line = get_lang('NoResult') . "\n";
|
|
}
|
|
}
|
|
|
|
/* Documents */
|
|
$tempView = $view;
|
|
if ($view[4] == '1') {
|
|
|
|
$tempView[4] = '0';
|
|
|
|
$sql = "SELECT down_doc_path, COUNT(DISTINCT down_user_id), COUNT(down_doc_path)
|
|
FROM $TABLETRACK_DOWNLOADS
|
|
WHERE c_id = $courseId
|
|
GROUP BY down_doc_path";
|
|
|
|
$results = StatsUtils::getManyResults3Col($sql);
|
|
|
|
$title[1] = $nameTools;
|
|
$line = '';
|
|
$title_line = get_lang('DocumentsTitleDocumentColumn') . ";" . get_lang('DocumentsTitleUsersColumn') . ";" . get_lang('DocumentsTitleCountColumn') . "\n";
|
|
if (is_array($results)) {
|
|
for ($j = 0; $j < count($results); $j++) {
|
|
$line .= $results[$j][0] . ";" . $results[$j][1] . ";" . $results[$j][2] . "\n";
|
|
}
|
|
} else {
|
|
$line = get_lang('NoResult') . "\n";
|
|
}
|
|
}
|
|
|
|
|
|
/* Scorm contents and Learning Path */
|
|
$tempView = $view;
|
|
if ($view[5] == '1') {
|
|
$tempView[5] = '0';
|
|
$sql = "SELECT id, name FROM $tbl_learnpath_main WHERE c_id = $course_id ";
|
|
$result = Database::query($sql);
|
|
|
|
$ar = Database::fetch_array($result);
|
|
|
|
$title[1] = $nameTools;
|
|
$line = '';
|
|
$title_line = get_lang('ScormContentColumn');
|
|
|
|
$scormcontopen = $_REQUEST["scormcontopen"];
|
|
$scormstudentopen = $_REQUEST["scormstudentopen"];
|
|
|
|
if (is_array($ar)) {
|
|
|
|
while ($ar['id'] != '') {
|
|
$lp_title = stripslashes($ar['name']);
|
|
//echo "<a href='".api_get_self()."?view=".$view."&scormcontopen=".$ar['id']."' class='specialLink'>$lp_title</a>";
|
|
if ($ar['id'] == $scormcontopen) { //have to list the students here
|
|
$contentId = $ar['id'];
|
|
$sql2 = "SELECT u.user_id, u.lastname, u.firstname " .
|
|
"FROM $tbl_learnpath_view sd " .
|
|
"INNER JOIN $table_user u " .
|
|
"ON u.user_id = sd.user_id " .
|
|
"WHERE sd.c_id = $course_id AND sd.lp_id=$contentId group by u.user_id";
|
|
//error_log($sql2,0);
|
|
$result2 = Database::query($sql2);
|
|
|
|
if (Database::num_rows($result2) > 0) {
|
|
|
|
|
|
$ar2 = Database::fetch_array($result2);
|
|
while ($ar2 != '') {
|
|
|
|
if (isset($_REQUEST["scormstudentopen"]) && $ar2['user_id'] == $scormstudentopen) {
|
|
$line .= $ar['id'] . " " . $ar2['user_id'] . " " . api_get_person_name($ar2['firstname'], $ar2['lastname']);
|
|
} else {
|
|
$line .= $ar['id'] . " " . $ar2['user_id'] . " " . api_get_person_name($ar2['firstname'], $ar2['lastname']);
|
|
}
|
|
|
|
if ($ar2['user_id'] == $scormstudentopen) { //have to list the student's results
|
|
$studentId = $ar2['user_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 i.c_id = $course_id AND
|
|
iv.c_id = $course_id AND
|
|
v.c_id = $course_id AND
|
|
v.user_id=$studentId and v.lp_id=$contentId ORDER BY v.id, i.id";
|
|
$result3 = Database::query($sql3);
|
|
$ar3 = Database::fetch_array($result3);
|
|
$title_line .= get_lang('ScormTitleColumn') . ";" . get_lang('ScormStatusColumn') . ";" . get_lang('ScormScoreColumn') . ";" . get_lang('ScormTimeColumn');
|
|
while ($ar3['status'] != '') {
|
|
require_once '../newscorm/learnpathItem.class.php';
|
|
$time = learnpathItem::getScormTimeFromParameter('php', $ar3['total_time']);
|
|
$line .= $title . ";" . $ar3['status'] . ";" . $ar3['score'] . ";" . $time;
|
|
$ar3 = Database::fetch_array($result3);
|
|
}
|
|
}
|
|
$line .= "\n";
|
|
$ar2 = Database::fetch_array($result2);
|
|
}
|
|
$title_line .= "\n";
|
|
}
|
|
}
|
|
|
|
$ar = Database::fetch_array($result);
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Export to a CSV file
|
|
* Force the browser to save the file instead of opening it.
|
|
*/
|
|
$len = strlen($title_line . $line);
|
|
header('Content-type: application/octet-stream');
|
|
//header('Content-Type: application/force-download');
|
|
header('Content-length: ' . $len);
|
|
$filename = api_html_entity_decode(str_replace(":", "", str_replace(" ", "_", $title[0] . '_' . $title[1] . '.csv')));
|
|
$filename = api_replace_dangerous_char($filename);
|
|
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 api_html_entity_decode($title_line, ENT_COMPAT);
|
|
echo api_html_entity_decode($line, ENT_COMPAT);
|
|
exit;
|
|
} else {
|
|
api_not_allowed();
|
|
}
|
|
|