Proyectos de Subversion Moodle

Rev

| Ultima modificación | Ver Log |

Rev Autor Línea Nro. Línea
1 efrain 1
<?php
2
// This file is part of Moodle - http://moodle.org/
3
//
4
// Moodle is free software: you can redistribute it and/or modify
5
// it under the terms of the GNU General Public License as published by
6
// the Free Software Foundation, either version 3 of the License, or
7
// (at your option) any later version.
8
//
9
// Moodle is distributed in the hope that it will be useful,
10
// but WITHOUT ANY WARRANTY; without even the implied warranty of
11
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12
// GNU General Public License for more details.
13
//
14
// You should have received a copy of the GNU General Public License
15
// along with Moodle.  If not, see <http://www.gnu.org/licenses/>.
16
 
17
/**
18
 * Configurable Reports
19
 * A Moodle block for creating customizable reports
20
 * @package blocks
21
 * @author: Juan leyva <http://www.twitter.com/jleyvadelgado>
22
 * @date: 2009
23
 */
24
 
25
function export_report($report) {
26
    global $DB, $CFG;
27
    require_once($CFG->libdir . '/csvlib.class.php');
28
 
29
    $table = $report->table;
30
    $matrix = array();
31
    $filename = 'report';
32
 
33
    if (!empty($table->head)) {
34
        $countcols = count($table->head);
35
        $keys = array_keys($table->head);
36
        $lastkey = end($keys);
37
        foreach ($table->head as $key => $heading) {
38
            $matrix[0][$key] = str_replace("\n", ' ', htmlspecialchars_decode(strip_tags(nl2br($heading))));
39
        }
40
    }
41
 
42
    if (!empty($table->data)) {
43
        foreach ($table->data as $rkey => $row) {
44
            foreach ($row as $key => $item) {
45
                $matrix[$rkey + 1][$key] = str_replace("\n", ' ', htmlspecialchars_decode(strip_tags(nl2br($item))));
46
            }
47
        }
48
    }
49
 
50
    $csvexport = new csv_export_writer();
51
    $csvexport->set_filename($filename);
52
 
53
    foreach ($matrix as $ri => $col) {
54
        $csvexport->add_data($col);
55
    }
56
    $csvexport->download_file();
57
    exit;
58
}