<?php
/*
==============================================================================
	Dokeos - elearning and course management software

	Copyright (c) 2004-2006 Dokeos S.A.
	Copyright (c) 2003 Ghent University (UGent)
	Copyright (c) 2001 Universite catholique de Louvain (UCL)
	Author: Frederic Vauthier (frederic.vauthier@dokeos.com)

	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, 44 rue des palais, B-1030 Brussels, Belgium
	Mail: info@dokeos.com
==============================================================================
*/
/**
==============================================================================
*	@author Thomas Depraetere
*	@author Hugues Peeters
*	@author Christophe Gesche
*	@author Sebastien Piraux
*	@author Toon Keppens (Vi-Host.net)
*
*	@package dokeos.tracking
==============================================================================
*/

/*
==============================================================================
		INIT SECTION
==============================================================================
*/
$pathopen = isset($_REQUEST['pathopen']) ? $_REQUEST['pathopen'] : null;
// name of the language file that needs to be included 
$language_file = "tracking";

include('../inc/global.inc.php');
//includes for SCORM and LP
require_once('../newscorm/learnpath.class.php');
require_once('../newscorm/learnpathItem.class.php');
require_once('../newscorm/scorm.class.php');
require_once('../newscorm/scormItem.class.php');

// charset determination
if ($_GET['scormcontopen'])
{
	$tbl_lp = Database::get_course_table('lp');
	$contopen = (int) $_GET['scormcontopen'];
	$sql = "SELECT default_encoding FROM $tbl_lp WHERE id = ".$contopen;
	$res = api_sql_query($sql,__FILE__,__LINE__);
	$row = Database::fetch_array($res);
	$lp_charset = $row['default_encoding'];
	//header('Content-Type: text/html; charset='. $row['default_encoding']);
}

/*
-----------------------------------------------------------
	Constants and variables
-----------------------------------------------------------
*/
// regroup table names for maintenance purpose
$TABLETRACK_ACCESS      = Database::get_statistic_table(TABLE_STATISTIC_TRACK_E_LASTACCESS);
$TABLETRACK_LINKS       = Database::get_statistic_table(TABLE_STATISTIC_TRACK_E_LINKS);
$TABLETRACK_DOWNLOADS   = Database::get_statistic_table(TABLE_STATISTIC_TRACK_E_DOWNLOADS);
$TABLETRACK_ACCESS_2    = Database::get_statistic_table("track_e_access");
$TABLECOURSUSER	        = Database::get_main_table(TABLE_MAIN_COURSE_USER);
$TABLECOURSE	        = Database::get_main_table(TABLE_MAIN_COURSE);
$TABLECOURSE_LINKS      = Database::get_course_table(TABLE_LINK);
$table_user = Database::get_main_table(TABLE_MAIN_USER);

//$table_scormdata = Database::get_scorm_table(TABLE_SCORM_SCO_DATA);
//$table_scormmain = Database::get_scorm_table(TABLE_SCORM_MAIN);
//$tbl_learnpath_main = Database::get_course_table(TABLE_LEARNPATH_MAIN);
//$tbl_learnpath_item = Database::get_course_table(TABLE_LEARNPATH_ITEM);
//$tbl_learnpath_chapter = Database::get_course_table(TABLE_LEARNPATH_CHAPTER);

$tbl_learnpath_main = Database::get_course_table('lp');
$tbl_learnpath_item = Database::get_course_table('lp_item');
$tbl_learnpath_view = Database::get_course_table('lp_view');
$tbl_learnpath_item_view = Database::get_course_table('lp_item_view');

$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;

/*
==============================================================================
		MAIN CODE
==============================================================================
*/

$title[0]=get_lang('StatsOfCourse')." : ".$_course['official_code'];

// check if uid is prof of this group

if($is_allowedToTrack && $_configuration['tracking_enabled'])
{
    // 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_id`, $table_user.`lastname`, $table_user.`firstname`
                    FROM $TABLECOURSUSER, $table_user
                    WHERE $TABLECOURSUSER.course_code = '".$_cid."' AND $TABLECOURSUSER.`user_id` = $table_user.`user_id`
                    ORDER BY $table_user.`lastname`";
        $results = 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 = '".$_cid."'";
        $_course['visual_code'] = 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.user_id = ".$results[$j][0];
            	$total_lpath_items = 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.user_id = ".$results[$j][0]." " .
            				"AND (status = 'completed' OR status='passed')";
            	$total_lpath_items_completed = 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 `access_cours_code` = '".$_course['official_code']."' AND `access_tool` = 'learnpath' ORDER BY access_id ASC LIMIT 1";
            	$first_access = 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 `access_cours_code` = '".$_course['official_code']."' AND `access_tool` = 'learnpath'";
            	$last_access = 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 course_code = '".$_cid."'";
        $count = 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 access_cours_code = '".$_cid."'
                        AND access_tool IS NULL";
        $count = getOneResult($sql);
        
        $line .= get_lang('CountToolAccess')." ; ".$count."\n";
         
        // last 31 days
        $sql = "SELECT count(*)
                    FROM $TABLETRACK_ACCESS
                    WHERE `access_cours_code` = '$_cid'
                        AND (access_date > DATE_ADD(CURDATE(), INTERVAL -31 DAY))
                        AND access_tool IS NULL";
        $count = getOneResult($sql);
        
        $line .= get_lang('Last31days')." ; ".$count."\n";
        
        // last 7 days
        $sql = "SELECT count(*)
                    FROM $TABLETRACK_ACCESS
                    WHERE `access_cours_code` = '$_cid'
                        AND (access_date > DATE_ADD(CURDATE(), INTERVAL -7 DAY))
                        AND access_tool IS NULL";
        $count = getOneResult($sql);
        
        $line .= get_lang('Last7days')." ; ".$count."\n";
        
        // today
        $sql = "SELECT count(*)
                    FROM $TABLETRACK_ACCESS
                    WHERE `access_cours_code` = '$_cid'
                        AND ( access_date > CURDATE() )
                        AND access_tool IS NULL";
        $count = 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 `access_cours_code` = '$_cid'
                GROUP BY `access_tool`";
                
        $results = 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 `sl`.`links_link_id` = `cl`.`id`
                        AND `sl`.`links_cours_id` = '$_cid'
                    GROUP BY `cl`.`title`, `cl`.`url`";
                    
		$results = 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 `down_cours_id` = '$_cid'
                    GROUP BY `down_doc_path`";
        
        $results = 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 dokeosCourse='$_cid'"; we are using a table inside the course now, so no need for course id
		$result=api_sql_query($sql,__FILE__,__LINE__);
		
	    $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.lp_id=$contentId group by u.user_id";
		            //error_log($sql2,0);
					$result2=api_sql_query($sql2,__FILE__,__LINE__);
					
					if(mysql_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']." ".$ar2['lastname']." ".$ar2['firstname'];
							
							}
							
							else{
								
							$line .= $ar['id']." ".$ar2['user_id']." ".$ar2['lastname']." ".$ar2['firstname'];								
									
							}

							
							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 (v.user_id=$studentId and v.lp_id=$contentId) ORDER BY v.id, i.id";
								$result3=api_sql_query($sql3,__FILE__,__LINE__);
							    $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::get_scorm_time('php',$ar3['total_time']);
									$title = api_htmlentities($ar3['title'],ENT_QUOTES,$lp_charset);
									$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 = html_entity_decode(str_replace(":","",str_replace(" ","_", $title[0].'_'.$title[1].'.csv')));	
	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, $charset);
	echo api_html_entity_decode($line, ENT_COMPAT, $charset);
	exit;
  

    
}
// not allowed
else
{
    if(!$_configuration['tracking_enabled'])
    {
        echo get_lang('TrackingDisabled');
    }
    else
    {
        api_not_allowed();
    }
}
?>
