mod/data/export.php

   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  */
  25
  26 require_once('../../config.php');
  27 require_once('lib.php');
  28 require_once('export_form.php');
  29
  30 // database ID
  31 $d = required_param('d', PARAM_INT);
  32 $exportuser = optional_param('exportuser', false, PARAM_BOOL); // Flag for exporting user details
  33 $exporttime = optional_param('exporttime', false, PARAM_BOOL); // Flag for exporting date/time information
  34 $exportapproval = optional_param('exportapproval', false, PARAM_BOOL); // Flag for exporting user details
  35
  36 $PAGE->set_url('/mod/data/export.php', array('d'=>$d));
  37
  38 if (! $data = $DB->get_record('data', array('id'=>$d))) {
  39     print_error('wrongdataid', 'data');
  40 }
  41
  42 if (! $cm = get_coursemodule_from_instance('data', $data->id, $data->course)) {
  43     print_error('invalidcoursemodule');
  44 }
  45
  46 if(! $course = $DB->get_record('course', array('id'=>$cm->course))) {
  47     print_error('invalidcourseid');
  48 }
  49
  50 // fill in missing properties needed for updating of instance
  51 $data->course     = $cm->course;
  52 $data->cmidnumber = $cm->idnumber;
  53 $data->instance   = $cm->instance;
  54
  55 $context = context_module::instance($cm->id);
  56
  57 require_login($course, false, $cm);
  58 require_capability(DATA_CAP_EXPORT, $context);
  59
  60 // get fields for this database
  61 $fieldrecords = $DB->get_records('data_fields', array('dataid'=>$data->id), 'id');
  62
  63 if(empty($fieldrecords)) {
  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();
  73 foreach ($fieldrecords as $fieldrecord) {
  74     $fields[]= data_get_field($fieldrecord, $data);
  75 }
  76
  77
  78 $mform = new mod_data_export_form('export.php?d='.$data->id, $fields, $cm, $data);
  79
  80 if($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
  84     $PAGE->set_title($data->name);
  85     $PAGE->set_heading($course->fullname);
  86     echo $OUTPUT->header();
  87     echo $OUTPUT->heading(format_string($data->name), 2);
  88     echo $OUTPUT->box(format_module_intro('data', $data, $cm->id), 'generalbox', 'intro');
  89
  90     $url = new moodle_url('/mod/data/export.php', array('d' => $d));
  91     groups_print_activity_menu($cm, $url);
  92
  93     // these are for the tab display
  94     $currentgroup = groups_get_activity_group($cm);
  95     $groupmode = groups_get_activity_groupmode($cm);
  96     $currenttab = 'export';
  97     include('tabs.php');
  98     $mform->display();
  99     echo $OUTPUT->footer();
 100     die;
 101 }
 102
 103 $selectedfields = array();
 104 foreach ($formdata as $key => $value) {
 105     //field form elements are field_1 field_2 etc. 0 if not selected. 1 if selected.
 106     if (strpos($key, 'field_')===0 && !empty($value)) {
 107         $selectedfields[] = substr($key, 6);
 108     }
 109 }
 110
 111 $currentgroup = groups_get_activity_group($cm);
 112
 113 $exportdata = data_get_exportdata($data->id, $fields, $selectedfields, $currentgroup, $context,
 114                                   $exportuser, $exporttime, $exportapproval);
 115 $count = count($exportdata);
 116 switch ($formdata['exporttype']) {
 117     case 'csv':
 118         data_export_csv($exportdata, $formdata['delimiter_name'], $data->name, $count);
 119         break;
 120     case 'xls':
 121         data_export_xls($exportdata, $data->name, $count);
 122         break;
 123     case 'ods':
 124         data_export_ods($exportdata, $data->name, $count);
 125         break;
 126 }
 127
 128 die();