chamilo-lms/main/reports/reports.php

<?php
/* For licensing terms, see /license.txt */

/**
* Reports
* @author Arnaud Ligot <arnaud@cblue.be>
* @copyrights CBLUE SPRL 2011
* @package chamilo.reports
*/

// name of the language file that needs to be included
$language_file = array ('index', 'tracking', 'userInfo', 'admin', 'gradebook'); // FIXME
$cidReset = true;

// including files 
require_once '../inc/global.inc.php';
require_once 'reports.lib.php';

// protect script
api_block_anonymous_users();

// defining constants

// current section
$this_section = SECTION_REPORTS;

// setting the name of the tool
$tool_name=get_lang('Reports');

// loading templates
reports_loadTemplates();

// outputing a link to csv file instead of outputing csv data directly
if ($_REQUEST['format'] == 'csv')  {
	// converting post vars to get uri
	$params = '';
	$kv = array();
	foreach ($_POST as $key => $value)
		if ($key != 'format')
			$kv[] = $key.'='.urlencode($value);
	$query_string = join("&", $kv);
	die('<a href="reports.php?format=downloadcsv&'.$query_string.'">download file</a>');
} else if ($_REQUEST['format'] == 'downloadcsv') {
	header('content-type: application/csv'); // fixme
	$_REQUEST['format'] = 'csv';
}



if (is_array($reports_template[$_REQUEST['type']])) {
	$query = $reports_template[$_REQUEST['type']]['getSQL']();
	if ($_REQUEST['format'] == 'sql')
		die($query);
	$result = Database::query($query);
} else {
	die('<b>'.get_lang('error while building your report').'</b>');
}

if ($_REQUEST['format'] == 'html') {
	echo '<table border="1">'; // FIXME style
	$nfields = mysql_num_fields($result);
	echo '<tr>';
	for ($i=0; $i < $nfields; $i++)
		echo '<th>'.mysql_field_name($result, $i).'</th>';
	echo '</tr>';
	while ($row = Database::fetch_row($result)) {
		echo '<tr>';
		foreach ($row as $col)
			echo '<td>'.$col.'</td>'; 
		echo '</tr>';
	}
	echo '</table>';
} else if ($_REQUEST['format'] == 'csv') {
	$nfields = mysql_num_fields($result);
	for ($i=0; $i < $nfields; $i++)
		echo mysql_field_name($result, $i).',';
	echo "\n";
	while ($row = Database::fetch_row($result)) {
		foreach ($row as $col)
			echo $col.',';  // fixme
		echo "\n";
	}
} else die('format unknown');

?>