weekly release 2.3dev
[moodle.git] / mod / data / export.php
CommitLineData
6111b2b0 1<?php
2
3// This file is part of Moodle - http://moodle.org/
4//
5// Moodle is free software: you can redistribute it and/or modify
6// it under the terms of the GNU General Public License as published by
7// the Free Software Foundation, either version 3 of the License, or
8// (at your option) any later version.
9//
10// Moodle is distributed in the hope that it will be useful,
11// but WITHOUT ANY WARRANTY; without even the implied warranty of
12// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13// GNU General Public License for more details.
14//
15// You should have received a copy of the GNU General Public License
16// along with Moodle. If not, see <http://www.gnu.org/licenses/>.
17
18/**
19 * This file is part of the Database module for Moodle
20 *
21 * @copyright 2005 Martin Dougiamas http://dougiamas.com
22 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
23 * @package mod-data
24 */
2096fcf9 25
26require_once('../../config.php');
27require_once('lib.php');
2096fcf9 28require_once('export_form.php');
29
2096fcf9 30// database ID
6111b2b0 31$d = required_param('d', PARAM_INT);
32
a6855934 33$PAGE->set_url('/mod/data/export.php', array('d'=>$d));
2096fcf9 34
a656d951 35if (! $data = $DB->get_record('data', array('id'=>$d))) {
2096fcf9 36 print_error('wrongdataid', 'data');
37}
38
39if (! $cm = get_coursemodule_from_instance('data', $data->id, $data->course)) {
40 print_error('invalidcoursemodule');
41}
42
a656d951 43if(! $course = $DB->get_record('course', array('id'=>$cm->course))) {
2096fcf9 44 print_error('invalidcourseid', '', '', $cm->course);
45}
46
47// fill in missing properties needed for updating of instance
48$data->course = $cm->course;
49$data->cmidnumber = $cm->idnumber;
50$data->instance = $cm->instance;
51
52if (! $context = get_context_instance(CONTEXT_MODULE, $cm->id)) {
53 print_error('invalidcontext', '');
54}
55
56require_login($course->id, false, $cm);
86be7720 57require_capability(DATA_CAP_EXPORT, $context);
2096fcf9 58
59// get fields for this database
a656d951 60$fieldrecords = $DB->get_records('data_fields', array('dataid'=>$data->id), 'id');
2096fcf9 61
62if(empty($fieldrecords)) {
63 $context = get_context_instance(CONTEXT_MODULE, $cm->id);
64 if (has_capability('mod/data:managetemplates', $context)) {
65 redirect($CFG->wwwroot.'/mod/data/field.php?d='.$data->id);
66 } else {
67 print_error('nofieldindatabase', 'data');
68 }
69}
70
71// populate objets for this databases fields
72$fields = array();
73foreach ($fieldrecords as $fieldrecord) {
74 $fields[]= data_get_field($fieldrecord, $data);
75}
76
29b64a22 77
adbf3cd0 78$mform = new mod_data_export_form('export.php?d='.$data->id, $fields, $cm);
2096fcf9 79
80if($mform->is_cancelled()) {
81 redirect('view.php?d='.$data->id);
82} elseif (!$formdata = (array) $mform->get_data()) {
83 // build header to match the rest of the UI
b0ff558c 84 $PAGE->set_title($data->name);
91bc072a 85 $PAGE->set_heading($course->fullname);
b0ff558c 86 echo $OUTPUT->header();
b2dc6880 87 echo $OUTPUT->heading(format_string($data->name));
2096fcf9 88
89 // these are for the tab display
90 $currentgroup = groups_get_activity_group($cm);
91 $groupmode = groups_get_activity_groupmode($cm);
92 $currenttab = 'export';
93 include('tabs.php');
2096fcf9 94 $mform->display();
7b30ba8b 95 echo $OUTPUT->footer();
2096fcf9 96 die;
97}
98
ecd06483 99$selectedfields = array();
100foreach ($formdata as $key => $value) {
b133c4bb
AD
101 //field form elements are field_1 field_2 etc. 0 if not selected. 1 if selected.
102 if (strpos($key, 'field_')===0 && !empty($value)) {
ecd06483 103 $selectedfields[] = substr($key, 6);
2096fcf9 104 }
2096fcf9 105}
b133c4bb 106
ecd06483 107$exportdata = data_get_exportdata($data->id, $fields, $selectedfields);
108$count = count($exportdata);
2096fcf9 109switch ($formdata['exporttype']) {
110 case 'csv':
ecd06483 111 data_export_csv($exportdata, $formdata['delimiter_name'], $data->name, $count);
2096fcf9 112 break;
113 case 'xls':
ecd06483 114 data_export_xls($exportdata, $data->name, $count);
2096fcf9 115 break;
116 case 'ods':
ecd06483 117 data_export_ods($exportdata, $data->name, $count);
2096fcf9 118 break;
119}
120
20988152 121die();