Merge branch 'wip-MDL-37356-master' of git://github.com/abgreeve/moodle
[moodle.git] / mod / data / import.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 */
25
26require_once('../../config.php');
27require_once('lib.php');
bbdfd8ce
DC
28require_once($CFG->libdir.'/csvlib.class.php');
29require_once('import_form.php');
6111b2b0 30
31$id = optional_param('id', 0, PARAM_INT); // course module id
32$d = optional_param('d', 0, PARAM_INT); // database id
33$rid = optional_param('rid', 0, PARAM_INT); // record id
34$fielddelimiter = optional_param('fielddelimiter', ',', PARAM_CLEANHTML); // characters used as field delimiters for csv file import
35$fieldenclosure = optional_param('fieldenclosure', '', PARAM_CLEANHTML); // characters used as record delimiters for csv file import
36
a6855934 37$url = new moodle_url('/mod/data/import.php');
6111b2b0 38if ($rid !== 0) {
39 $url->param('rid', $rid);
40}
41if ($fielddelimiter !== '') {
42 $url->param('fielddelimiter', $fielddelimiter);
43}
44if ($fieldenclosure !== '') {
45 $url->param('fieldenclosure', $fieldenclosure);
46}
7cbc5919 47
6111b2b0 48if ($id) {
49 $url->param('id', $id);
50 $PAGE->set_url($url);
dd8ab1fb
DM
51 $cm = get_coursemodule_from_id('data', $id, 0, false, MUST_EXIST);
52 $course = $DB->get_record('course', array('id'=>$cm->course), '*', MUST_EXIST);
53 $data = $DB->get_record('data', array('id'=>$cm->instance), '*', MUST_EXIST);
6111b2b0 54
55} else {
56 $url->param('d', $d);
57 $PAGE->set_url($url);
dd8ab1fb
DM
58 $data = $DB->get_record('data', array('id'=>$d), '*', MUST_EXIST);
59 $course = $DB->get_record('course', array('id'=>$data->course), '*', MUST_EXIST);
60 $cm = get_coursemodule_from_instance('data', $data->id, $course->id, false, MUST_EXIST);
6111b2b0 61}
aab98aaf 62
6111b2b0 63require_login($course, false, $cm);
bb5b7224 64
0b3b8c30 65$context = context_module::instance($cm->id);
6111b2b0 66require_capability('mod/data:manageentries', $context);
bbdfd8ce 67$form = new mod_data_import_form(new moodle_url('/mod/data/import.php'));
7cbc5919 68
69/// Print the page header
91bc072a 70$PAGE->navbar->add(get_string('add', 'data'));
6111b2b0 71$PAGE->set_title($data->name);
91bc072a 72$PAGE->set_heading($course->fullname);
dd8ab1fb 73navigation_node::override_active_url(new moodle_url('/mod/data/import.php', array('d' => $data->id)));
6111b2b0 74echo $OUTPUT->header();
dd8ab1fb 75echo $OUTPUT->heading_with_help(get_string('uploadrecords', 'mod_data'), 'uploadrecords', 'mod_data');
7cbc5919 76
cca1547e 77/// Groups needed for Add entry tab
6111b2b0 78$currentgroup = groups_get_activity_group($cm);
79$groupmode = groups_get_activity_groupmode($cm);
cca1547e 80
bbdfd8ce
DC
81if (!$formdata = $form->get_data()) {
82 /// Upload records section. Only for teachers and the admin.
83 echo $OUTPUT->box_start('generalbox boxaligncenter boxwidthwide');
84 require_once('import_form.php');
bbdfd8ce 85 $form = new mod_data_import_form(new moodle_url('/mod/data/import.php'));
6bdfef5d 86 $formdata = new stdClass();
bbdfd8ce
DC
87 $formdata->d = $data->id;
88 $form->set_data($formdata);
89 $form->display();
90 echo $OUTPUT->box_end();
91 echo $OUTPUT->footer();
92 die;
93} else {
6111b2b0 94 // Large files are likely to take their time and memory. Let PHP know
95 // that we'll take longer, and that the process should be recycled soon
96 // to free up memory.
97 @set_time_limit(0);
346c5887 98 raise_memory_limit(MEMORY_EXTRA);
aab98aaf 99
bbdfd8ce
DC
100 $iid = csv_import_reader::get_new_iid('moddata');
101 $cir = new csv_import_reader($iid, 'moddata');
6111b2b0 102
b208ded6
PS
103 $filecontent = $form->get_file_content('recordsfile');
104 $readcount = $cir->load_csv_content($filecontent, $formdata->encoding, $formdata->fielddelimiter);
105 unset($filecontent);
bbdfd8ce 106 if (empty($readcount)) {
6111b2b0 107 print_error('csvfailed','data',"{$CFG->wwwroot}/mod/data/edit.php?d={$data->id}");
108 } else {
bbdfd8ce
DC
109 if (!$fieldnames = $cir->get_columns()) {
110 print_error('cannotreadtmpfile', 'error');
111 }
6111b2b0 112 // check the fieldnames are valid
113 $fields = $DB->get_records('data_fields', array('dataid'=>$data->id), '', 'name, id, type');
114 $errorfield = '';
115 foreach ($fieldnames as $name) {
116 if (!isset($fields[$name])) {
117 $errorfield .= "'$name' ";
f24222e2 118 }
6111b2b0 119 }
120
121 if (!empty($errorfield)) {
122 print_error('fieldnotmatched','data',"{$CFG->wwwroot}/mod/data/edit.php?d={$data->id}",$errorfield);
123 }
f24222e2 124
bbdfd8ce
DC
125 $cir->init();
126 $recordsadded = 0;
127 while ($record = $cir->next()) {
6111b2b0 128 if ($recordid = data_add_record($data, 0)) { // add instance to data_record
129 $fields = $DB->get_records('data_fields', array('dataid'=>$data->id), '', 'name, id, type');
aab98aaf 130
6111b2b0 131 // Insert new data_content fields with NULL contents:
132 foreach ($fields as $field) {
39790bd8 133 $content = new stdClass();
6111b2b0 134 $content->recordid = $recordid;
135 $content->fieldid = $field->id;
136 $DB->insert_record('data_content', $content);
137 }
138 // Fill data_content with the values imported from the CSV file:
139 foreach ($record as $key => $value) {
140 $name = $fieldnames[$key];
141 $field = $fields[$name];
39790bd8 142 $content = new stdClass();
6111b2b0 143 $content->fieldid = $field->id;
144 $content->recordid = $recordid;
145 if ($field->type == 'textarea') {
146 // the only field type where HTML is possible
147 $value = clean_param($value, PARAM_CLEANHTML);
148 } else {
149 // remove potential HTML:
150 $patterns[] = '/</';
151 $replacements[] = '&lt;';
152 $patterns[] = '/>/';
153 $replacements[] = '&gt;';
154 $value = preg_replace($patterns, $replacements, $value);
e1791b72 155 }
6111b2b0 156 // for now, only for "latlong" and "url" fields, but that should better be looked up from
157 // $CFG->dirroot . '/mod/data/field/' . $field->type . '/field.class.php'
158 // once there is stored how many contents the field can have.
cffc08a6
AG
159 if ($field->type == 'latlong') {
160 $values = explode(" ", $value, 2);
161 // The lat, long values might be in a different float format.
162 $content->content = unformat_float($values[0]);
163 $content->content1 = unformat_float($values[1]);
164 } else if ($field->type == 'url') {
6111b2b0 165 $values = explode(" ", $value, 2);
166 $content->content = $values[0];
24054bb2
AG
167 // The url field doesn't always have two values (unforced autolinking).
168 if (count($values) > 1) {
169 $content->content1 = $values[1];
170 }
6111b2b0 171 } else {
172 $content->content = $value;
e1791b72 173 }
6111b2b0 174 $oldcontent = $DB->get_record('data_content', array('fieldid'=>$field->id, 'recordid'=>$recordid));
175 $content->id = $oldcontent->id;
176 $DB->update_record('data_content', $content);
e1791b72 177 }
6111b2b0 178 $recordsadded++;
179 print get_string('added', 'moodle', $recordsadded) . ". " . get_string('entry', 'data') . " (ID $recordid)<br />\n";
f85c75b7 180 }
181 }
bbdfd8ce
DC
182 $cir->close();
183 $cir->cleanup(true);
f85c75b7 184 }
6111b2b0 185}
7cbc5919 186
6111b2b0 187if ($recordsadded > 0) {
bbdfd8ce 188 echo $OUTPUT->notification($recordsadded. ' '. get_string('recordssaved', 'data'), '');
6111b2b0 189} else {
bbdfd8ce 190 echo $OUTPUT->notification(get_string('recordsnotsaved', 'data'), 'notifysuccess');
6111b2b0 191}
7cbc5919 192
bbdfd8ce 193echo $OUTPUT->continue_button('import.php?d='.$data->id);
7cbc5919 194
195/// Finish the page
6111b2b0 196echo $OUTPUT->footer();