MDL-50173 ratings: Use proper checks to ensure ratings are viewable.
[moodle.git] / mod / data / lib.php
CommitLineData
4636bf83 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/>.
3d4b223a 17
4636bf83 18/**
002a2a44 19 * @package mod_data
4636bf83 20 * @copyright 1999 onwards Martin Dougiamas {@link http://moodle.com}
21 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
22 */
23
b8b554ac 24// Some constants
0997e51a 25define ('DATA_MAX_ENTRIES', 50);
26define ('DATA_PERPAGE_SINGLE', 1);
b572ce19 27
714bec74 28define ('DATA_FIRSTNAME', -1);
29define ('DATA_LASTNAME', -2);
bb5740f4 30define ('DATA_APPROVED', -3);
3239b010 31define ('DATA_TIMEADDED', 0);
32define ('DATA_TIMEMODIFIED', -4);
714bec74 33
a7e35395 34define ('DATA_CAP_EXPORT', 'mod/data:viewalluserpresets');
8aff1574
SH
35
36define('DATA_PRESET_COMPONENT', 'mod_data');
37define('DATA_PRESET_FILEAREA', 'site_presets');
38define('DATA_PRESET_CONTEXT', SYSCONTEXTID);
39
a7e35395 40// Users having assigned the default role "Non-editing teacher" can export database records
41// Using the mod/data capability "viewalluserpresets" existing in Moodle 1.9.x.
8429163d 42// In Moodle >= 2, new roles may be introduced and used instead.
a7e35395 43
4636bf83 44/**
002a2a44 45 * @package mod_data
4636bf83 46 * @copyright 1999 onwards Martin Dougiamas {@link http://moodle.com}
47 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
48 */
668fc89a 49class data_field_base { // Base class for Database Field Types (see field/*/field.class.php)
3d4b223a 50
4636bf83 51 /** @var string Subclasses must override the type with their name */
52 var $type = 'unknown';
53 /** @var object The database object that this field belongs to */
54 var $data = NULL;
55 /** @var object The field object itself, if we know it */
56c1ca88 56 var $field = NULL;
4636bf83 57 /** @var int Width of the icon for this fieldtype */
58 var $iconwidth = 16;
59 /** @var int Width of the icon for this fieldtype */
60 var $iconheight = 16;
61 /** @var object course module or cmifno */
62 var $cm;
63 /** @var object activity context */
64 var $context;
65
66 /**
67 * Constructor function
68 *
69 * @global object
70 * @uses CONTEXT_MODULE
71 * @param int $field
72 * @param int $data
73 * @param int $cm
74 */
8429163d 75 function __construct($field=0, $data=0, $cm=0) { // Field or data or both, each can be id or object
9c00b5d7 76 global $DB;
0997e51a 77
78 if (empty($field) && empty($data)) {
29c1bb15 79 print_error('missingfield', 'data');
0997e51a 80 }
b572ce19 81
0997e51a 82 if (!empty($field)) {
83 if (is_object($field)) {
84 $this->field = $field; // Programmer knows what they are doing, we hope
9c00b5d7 85 } else if (!$this->field = $DB->get_record('data_fields', array('id'=>$field))) {
29c1bb15 86 print_error('invalidfieldid', 'data');
0997e51a 87 }
88 if (empty($data)) {
9c00b5d7 89 if (!$this->data = $DB->get_record('data', array('id'=>$this->field->dataid))) {
29c1bb15 90 print_error('invalidid', 'data');
0997e51a 91 }
92 }
93 }
b572ce19 94
0997e51a 95 if (empty($this->data)) { // We need to define this properly
96 if (!empty($data)) {
97 if (is_object($data)) {
98 $this->data = $data; // Programmer knows what they are doing, we hope
9c00b5d7 99 } else if (!$this->data = $DB->get_record('data', array('id'=>$data))) {
29c1bb15 100 print_error('invalidid', 'data');
0997e51a 101 }
102 } else { // No way to define it!
29c1bb15 103 print_error('missingdata', 'data');
0997e51a 104 }
105 }
b572ce19 106
8429163d 107 if ($cm) {
108 $this->cm = $cm;
109 } else {
110 $this->cm = get_coursemodule_from_instance('data', $this->data->id);
111 }
112
0997e51a 113 if (empty($this->field)) { // We need to define some default values
114 $this->define_default_field();
115 }
8429163d 116
0b3b8c30 117 $this->context = context_module::instance($this->cm->id);
3d4b223a 118 }
0997e51a 119
6403e679 120
4636bf83 121 /**
122 * This field just sets up a default field object
123 *
124 * @return bool
125 */
0997e51a 126 function define_default_field() {
4102b449 127 global $OUTPUT;
0997e51a 128 if (empty($this->data->id)) {
4102b449 129 echo $OUTPUT->notification('Programmer error: dataid not defined in field class');
0997e51a 130 }
39790bd8 131 $this->field = new stdClass();
0997e51a 132 $this->field->id = 0;
133 $this->field->dataid = $this->data->id;
134 $this->field->type = $this->type;
135 $this->field->param1 = '';
136 $this->field->param2 = '';
137 $this->field->param3 = '';
138 $this->field->name = '';
139 $this->field->description = '';
b89cca19 140 $this->field->required = false;
b572ce19 141
0997e51a 142 return true;
3d4b223a 143 }
0997e51a 144
4636bf83 145 /**
146 * Set up the field object according to data in an object. Now is the time to clean it!
147 *
148 * @return bool
149 */
0997e51a 150 function define_field($data) {
151 $this->field->type = $this->type;
152 $this->field->dataid = $this->data->id;
153
154 $this->field->name = trim($data->name);
155 $this->field->description = trim($data->description);
1c3b2058 156 $this->field->required = !empty($data->required) ? 1 : 0;
0997e51a 157
158 if (isset($data->param1)) {
159 $this->field->param1 = trim($data->param1);
160 }
161 if (isset($data->param2)) {
8921fdb7 162 $this->field->param2 = trim($data->param2);
0997e51a 163 }
164 if (isset($data->param3)) {
165 $this->field->param3 = trim($data->param3);
166 }
167 if (isset($data->param4)) {
168 $this->field->param4 = trim($data->param4);
169 }
170 if (isset($data->param5)) {
171 $this->field->param5 = trim($data->param5);
172 }
173
174 return true;
3d4b223a 175 }
6403e679 176
4636bf83 177 /**
178 * Insert a new field in the database
179 * We assume the field object is already defined as $this->field
180 *
181 * @global object
182 * @return bool
183 */
0997e51a 184 function insert_field() {
4102b449 185 global $DB, $OUTPUT;
9c00b5d7 186
0997e51a 187 if (empty($this->field)) {
4102b449 188 echo $OUTPUT->notification('Programmer error: Field has not been defined yet! See define_field()');
0997e51a 189 return false;
190 }
191
a8f3a651 192 $this->field->id = $DB->insert_record('data_fields',$this->field);
e0d7ed6d
MN
193
194 // Trigger an event for creating this field.
195 $event = \mod_data\event\field_created::create(array(
196 'objectid' => $this->field->id,
197 'context' => $this->context,
198 'other' => array(
199 'fieldname' => $this->field->name,
200 'dataid' => $this->data->id
201 )
202 ));
203 $event->trigger();
204
0997e51a 205 return true;
3d4b223a 206 }
207
0997e51a 208
4636bf83 209 /**
210 * Update a field in the database
211 *
212 * @global object
213 * @return bool
214 */
0997e51a 215 function update_field() {
9c00b5d7 216 global $DB;
217
9d749339 218 $DB->update_record('data_fields', $this->field);
d1ec5557
MN
219
220 // Trigger an event for updating this field.
221 $event = \mod_data\event\field_updated::create(array(
222 'objectid' => $this->field->id,
223 'context' => $this->context,
224 'other' => array(
225 'fieldname' => $this->field->name,
226 'dataid' => $this->data->id
227 )
228 ));
229 $event->trigger();
230
0997e51a 231 return true;
232 }
3d4b223a 233
4636bf83 234 /**
235 * Delete a field completely
236 *
237 * @global object
238 * @return bool
239 */
0997e51a 240 function delete_field() {
9c00b5d7 241 global $DB;
242
0997e51a 243 if (!empty($this->field->id)) {
e37c413e
MN
244 // Get the field before we delete it.
245 $field = $DB->get_record('data_fields', array('id' => $this->field->id));
246
0997e51a 247 $this->delete_content();
8429163d 248 $DB->delete_records('data_fields', array('id'=>$this->field->id));
e37c413e
MN
249
250 // Trigger an event for deleting this field.
251 $event = \mod_data\event\field_deleted::create(array(
252 'objectid' => $this->field->id,
253 'context' => $this->context,
254 'other' => array(
255 'fieldname' => $this->field->name,
256 'dataid' => $this->data->id
257 )
258 ));
259 $event->add_record_snapshot('data_fields', $field);
260 $event->trigger();
3d4b223a 261 }
e37c413e 262
0997e51a 263 return true;
264 }
265
4636bf83 266 /**
267 * Print the relevant form element in the ADD template for this field
268 *
269 * @global object
270 * @param int $recordid
271 * @return string
272 */
1c3b2058
JO
273 function display_add_field($recordid=0, $formdata=null) {
274 global $DB, $OUTPUT;
9c00b5d7 275
b89cca19
DW
276 if ($formdata) {
277 $fieldname = 'field_' . $this->field->id;
278 $content = $formdata->$fieldname;
1c3b2058 279 } else if ($recordid) {
9c00b5d7 280 $content = $DB->get_field('data_content', 'content', array('fieldid'=>$this->field->id, 'recordid'=>$recordid));
0997e51a 281 } else {
3d4b223a 282 $content = '';
283 }
6403e679 284
344e15e6 285 // beware get_field returns false for new, empty records MDL-18567
286 if ($content===false) {
287 $content='';
288 }
289
1c3b2058
JO
290 $str = '<div title="' . s($this->field->description) . '">';
291 $str .= '<label for="field_'.$this->field->id.'"><span class="accesshide">'.$this->field->name.'</span>';
b89cca19 292 if ($this->field->required) {
c07c5e7b 293 $image = html_writer::img($OUTPUT->pix_url('req'), get_string('requiredelement', 'form'),
1c3b2058 294 array('class' => 'req', 'title' => get_string('requiredelement', 'form')));
c07c5e7b 295 $str .= html_writer::div($image, 'inline-req');
b89cca19 296 }
c07c5e7b
JO
297 $str .= '</label><input class="basefieldinput mod-data-input" type="text" name="field_'.$this->field->id.'"';
298 $str .= ' id="field_' . $this->field->id . '" value="'.s($content).'" />';
bbe39b6c 299 $str .= '</div>';
0997e51a 300
3d4b223a 301 return $str;
302 }
303
4636bf83 304 /**
305 * Print the relevant form element to define the attributes for this field
306 * viewable by teachers only.
307 *
308 * @global object
309 * @global object
310 * @return void Output is echo'd
311 */
0997e51a 312 function display_edit_field() {
b2dc6880 313 global $CFG, $DB, $OUTPUT;
0997e51a 314
315 if (empty($this->field)) { // No field has been defined yet, try and make one
316 $this->define_default_field();
3d4b223a 317 }
4102b449 318 echo $OUTPUT->box_start('generalbox boxaligncenter boxwidthwide');
0997e51a 319
b7dc2256 320 echo '<form id="editfield" action="'.$CFG->wwwroot.'/mod/data/field.php" method="post">'."\n";
0997e51a 321 echo '<input type="hidden" name="d" value="'.$this->data->id.'" />'."\n";
322 if (empty($this->field->id)) {
323 echo '<input type="hidden" name="mode" value="add" />'."\n";
324 $savebutton = get_string('add');
325 } else {
326 echo '<input type="hidden" name="fid" value="'.$this->field->id.'" />'."\n";
327 echo '<input type="hidden" name="mode" value="update" />'."\n";
328 $savebutton = get_string('savechanges');
329 }
330 echo '<input type="hidden" name="type" value="'.$this->type.'" />'."\n";
331 echo '<input name="sesskey" value="'.sesskey().'" type="hidden" />'."\n";
6403e679 332
66e2b9f8 333 echo $OUTPUT->heading($this->name(), 3);
0997e51a 334
3d4b223a 335 require_once($CFG->dirroot.'/mod/data/field/'.$this->type.'/mod.html');
0997e51a 336
85db96c5 337 echo '<div class="mdl-align">';
0997e51a 338 echo '<input type="submit" value="'.$savebutton.'" />'."\n";
ec865e2d 339 echo '<input type="submit" name="cancel" value="'.get_string('cancel').'" />'."\n";
e357c206 340 echo '</div>';
0997e51a 341
342 echo '</form>';
343
4102b449 344 echo $OUTPUT->box_end();
3d4b223a 345 }
6403e679 346
4636bf83 347 /**
348 * Display the content of the field in browse mode
349 *
350 * @global object
351 * @param int $recordid
352 * @param object $template
353 * @return bool|string
354 */
0997e51a 355 function display_browse_field($recordid, $template) {
9c00b5d7 356 global $DB;
357
358 if ($content = $DB->get_record('data_content', array('fieldid'=>$this->field->id, 'recordid'=>$recordid))) {
6403e679 359 if (isset($content->content)) {
39790bd8 360 $options = new stdClass();
c8505cac 361 if ($this->field->param1 == '1') { // We are autolinking this field, so disable linking within us
362 //$content->content = '<span class="nolink">'.$content->content.'</span>';
363 //$content->content1 = FORMAT_HTML;
364 $options->filter=false;
365 }
1f697b99 366 $options->para = false;
367 $str = format_text($content->content, $content->content1, $options);
3d4b223a 368 } else {
369 $str = '';
370 }
371 return $str;
372 }
373 return false;
374 }
6403e679 375
4636bf83 376 /**
377 * Update the content of one data field in the data_content table
378 * @global object
379 * @param int $recordid
380 * @param mixed $value
381 * @param string $name
382 * @return bool
383 */
0997e51a 384 function update_content($recordid, $value, $name=''){
9c00b5d7 385 global $DB;
386
39790bd8 387 $content = new stdClass();
0997e51a 388 $content->fieldid = $this->field->id;
c87fbb27 389 $content->recordid = $recordid;
390 $content->content = clean_param($value, PARAM_NOTAGS);
0997e51a 391
9c00b5d7 392 if ($oldcontent = $DB->get_record('data_content', array('fieldid'=>$this->field->id, 'recordid'=>$recordid))) {
3d4b223a 393 $content->id = $oldcontent->id;
9c00b5d7 394 return $DB->update_record('data_content', $content);
0997e51a 395 } else {
9c00b5d7 396 return $DB->insert_record('data_content', $content);
3d4b223a 397 }
0997e51a 398 }
6403e679 399
4636bf83 400 /**
401 * Delete all content associated with the field
402 *
403 * @global object
404 * @param int $recordid
405 * @return bool
406 */
0997e51a 407 function delete_content($recordid=0) {
9c00b5d7 408 global $DB;
0997e51a 409
0997e51a 410 if ($recordid) {
8429163d 411 $conditions = array('fieldid'=>$this->field->id, 'recordid'=>$recordid);
0997e51a 412 } else {
8429163d 413 $conditions = array('fieldid'=>$this->field->id);
3d4b223a 414 }
0997e51a 415
6b1b1d03
EL
416 $rs = $DB->get_recordset('data_content', $conditions);
417 if ($rs->valid()) {
8429163d 418 $fs = get_file_storage();
419 foreach ($rs as $content) {
64f93798 420 $fs->delete_area_files($this->context->id, 'mod_data', 'content', $content->id);
8429163d 421 }
0997e51a 422 }
6b1b1d03 423 $rs->close();
0997e51a 424
8429163d 425 return $DB->delete_records('data_content', $conditions);
0997e51a 426 }
6403e679 427
4636bf83 428 /**
429 * Check if a field from an add form is empty
430 *
431 * @param mixed $value
432 * @param mixed $name
433 * @return bool
434 */
f9eab7b0 435 function notemptyfield($value, $name) {
3d4b223a 436 return !empty($value);
437 }
6403e679 438
4636bf83 439 /**
440 * Just in case a field needs to print something before the whole form
441 */
0997e51a 442 function print_before_form() {
3d4b223a 443 }
0997e51a 444
4636bf83 445 /**
446 * Just in case a field needs to print something after the whole form
447 */
5f5bcda8 448 function print_after_form() {
5f5bcda8 449 }
6403e679 450
451
4636bf83 452 /**
453 * Returns the sortable field for the content. By default, it's just content
454 * but for some plugins, it could be content 1 - content4
455 *
456 * @return string
457 */
cf3e199b 458 function get_sort_field() {
459 return 'content';
460 }
0997e51a 461
4636bf83 462 /**
463 * Returns the SQL needed to refer to the column. Some fields may need to CAST() etc.
464 *
465 * @param string $fieldname
466 * @return string $fieldname
467 */
64452eb4 468 function get_sort_sql($fieldname) {
469 return $fieldname;
470 }
471
4636bf83 472 /**
473 * Returns the name/type of the field
474 *
475 * @return string
476 */
b8b554ac 477 function name() {
0997e51a 478 return get_string('name'.$this->type, 'data');
479 }
6403e679 480
4636bf83 481 /**
482 * Prints the respective type icon
483 *
484 * @global object
485 * @return string
486 */
0997e51a 487 function image() {
5ef44400 488 global $OUTPUT;
0997e51a 489
a7d4cb67
DC
490 $params = array('d'=>$this->data->id, 'fid'=>$this->field->id, 'mode'=>'display', 'sesskey'=>sesskey());
491 $link = new moodle_url('/mod/data/field.php', $params);
492 $str = '<a href="'.$link->out().'">';
493 $str .= '<img src="'.$OUTPUT->pix_url('field/'.$this->type, 'data') . '" ';
051aad68 494 $str .= 'height="'.$this->iconheight.'" width="'.$this->iconwidth.'" alt="'.$this->type.'" title="'.$this->type.'" /></a>';
0997e51a 495 return $str;
496 }
497
4636bf83 498 /**
499 * Per default, it is assumed that fields support text exporting.
500 * Override this (return false) on fields not supporting text exporting.
501 *
502 * @return bool true
503 */
b8b554ac 504 function text_export_supported() {
505 return true;
506 }
6403e679 507
4636bf83 508 /**
509 * Per default, return the record's text value only from the "content" field.
510 * Override this in fields class if necesarry.
511 *
512 * @param string $record
513 * @return string
514 */
b8b554ac 515 function export_text_value($record) {
516 if ($this->text_export_supported()) {
517 return $record->content;
518 }
519 }
0997e51a 520
4636bf83 521 /**
522 * @param string $relativepath
523 * @return bool false
524 */
8429163d 525 function file_ok($relativepath) {
526 return false;
527 }
b8b554ac 528}
3d4b223a 529
530
4636bf83 531/**
532 * Given a template and a dataid, generate a default case template
533 *
534 * @global object
535 * @param object $data
536 * @param string template [addtemplate, singletemplate, listtempalte, rsstemplate]
537 * @param int $recordid
538 * @param bool $form
539 * @param bool $update
540 * @return bool|string
541 */
a44e7081 542function data_generate_default_template(&$data, $template, $recordid=0, $form=false, $update=true) {
9c00b5d7 543 global $DB;
d118d06a 544
edaa546a 545 if (!$data && !$template) {
3d4b223a 546 return false;
547 }
5cd07964 548 if ($template == 'csstemplate' or $template == 'jstemplate' ) {
f24eb261 549 return '';
550 }
6403e679 551
b8b554ac 552 // get all the fields for that database
9c00b5d7 553 if ($fields = $DB->get_records('data_fields', array('dataid'=>$data->id), 'id')) {
6403e679 554
b41fc49c 555 $table = new html_table();
0bec64c6 556 $table->attributes['class'] = 'mod-data-default-template ##approvalstatus##';
b41fc49c
NK
557 $table->colclasses = array('template-field', 'template-token');
558 $table->data = array();
f41cadeb 559 foreach ($fields as $field) {
b8b554ac 560 if ($form) { // Print forms instead of data
d118d06a 561 $fieldobj = data_get_field($field, $data);
b89cca19 562 $token = $fieldobj->display_add_field($recordid, null);
b8b554ac 563 } else { // Just print the tag
b41fc49c 564 $token = '[['.$field->name.']]';
d118d06a 565 }
b41fc49c
NK
566 $table->data[] = array(
567 $field->name.': ',
568 $token
569 );
3d4b223a 570 }
bb828644 571 if ($template == 'listtemplate') {
d0372ed6 572 $cell = new html_table_cell('##edit## ##more## ##delete## ##approve## ##disapprove## ##export##');
b41fc49c
NK
573 $cell->colspan = 2;
574 $cell->attributes['class'] = 'controls';
575 $table->data[] = new html_table_row(array($cell));
bb828644 576 } else if ($template == 'singletemplate') {
d0372ed6 577 $cell = new html_table_cell('##edit## ##delete## ##approve## ##disapprove## ##export##');
b41fc49c
NK
578 $cell->colspan = 2;
579 $cell->attributes['class'] = 'controls';
580 $table->data[] = new html_table_row(array($cell));
714bec74 581 } else if ($template == 'asearchtemplate') {
2b04c41c 582 $row = new html_table_row(array(get_string('authorfirstname', 'data').': ', '##firstname##'));
b41fc49c
NK
583 $row->attributes['class'] = 'searchcontrols';
584 $table->data[] = $row;
2b04c41c 585 $row = new html_table_row(array(get_string('authorlastname', 'data').': ', '##lastname##'));
b41fc49c
NK
586 $row->attributes['class'] = 'searchcontrols';
587 $table->data[] = $row;
3d4b223a 588 }
589
cf9ecfda
AG
590 $str = '';
591 if ($template == 'listtemplate'){
592 $str .= '##delcheck##';
593 $str .= html_writer::empty_tag('br');
594 }
595
596 $str .= html_writer::start_tag('div', array('class' => 'defaulttemplate'));
b41fc49c
NK
597 $str .= html_writer::table($table);
598 $str .= html_writer::end_tag('div');
d118d06a 599 if ($template == 'listtemplate'){
b41fc49c 600 $str .= html_writer::empty_tag('hr');
3d4b223a 601 }
f9eab7b0 602
d118d06a 603 if ($update) {
39790bd8 604 $newdata = new stdClass();
d118d06a 605 $newdata->id = $data->id;
f41cadeb 606 $newdata->{$template} = $str;
9d749339 607 $DB->update_record('data', $newdata);
608 $data->{$template} = $str;
3d4b223a 609 }
d118d06a 610
611 return $str;
3d4b223a 612 }
613}
614
615
4636bf83 616/**
56c1ca88 617 * Search for a field name and replaces it with another one in all the
618 * form templates. Set $newfieldname as '' if you want to delete the
4636bf83 619 * field from the form.
620 *
621 * @global object
622 * @param object $data
623 * @param string $searchfieldname
624 * @param string $newfieldname
625 * @return bool
626 */
0997e51a 627function data_replace_field_in_templates($data, $searchfieldname, $newfieldname) {
9c00b5d7 628 global $DB;
629
f9eab7b0 630 if (!empty($newfieldname)) {
631 $prestring = '[[';
632 $poststring = ']]';
9706fa56 633 $idpart = '#id';
735a7952 634
635 } else {
f9eab7b0 636 $prestring = '';
637 $poststring = '';
9706fa56 638 $idpart = '';
f9eab7b0 639 }
6403e679 640
39790bd8 641 $newdata = new stdClass();
735a7952 642 $newdata->id = $data->id;
9c00b5d7 643 $newdata->singletemplate = str_ireplace('[['.$searchfieldname.']]',
644 $prestring.$newfieldname.$poststring, $data->singletemplate);
6403e679 645
9c00b5d7 646 $newdata->listtemplate = str_ireplace('[['.$searchfieldname.']]',
647 $prestring.$newfieldname.$poststring, $data->listtemplate);
6403e679 648
9c00b5d7 649 $newdata->addtemplate = str_ireplace('[['.$searchfieldname.']]',
650 $prestring.$newfieldname.$poststring, $data->addtemplate);
6403e679 651
9c00b5d7 652 $newdata->addtemplate = str_ireplace('[['.$searchfieldname.'#id]]',
653 $prestring.$newfieldname.$idpart.$poststring, $data->addtemplate);
9706fa56 654
9c00b5d7 655 $newdata->rsstemplate = str_ireplace('[['.$searchfieldname.']]',
656 $prestring.$newfieldname.$poststring, $data->rsstemplate);
6403e679 657
9c00b5d7 658 return $DB->update_record('data', $newdata);
f9eab7b0 659}
660
661
4636bf83 662/**
663 * Appends a new field at the end of the form template.
664 *
665 * @global object
666 * @param object $data
667 * @param string $newfieldname
668 */
0997e51a 669function data_append_new_field_to_templates($data, $newfieldname) {
9c00b5d7 670 global $DB;
0997e51a 671
39790bd8 672 $newdata = new stdClass();
0997e51a 673 $newdata->id = $data->id;
ed69c723 674 $change = false;
0997e51a 675
f9eab7b0 676 if (!empty($data->singletemplate)) {
9c00b5d7 677 $newdata->singletemplate = $data->singletemplate.' [[' . $newfieldname .']]';
ed69c723 678 $change = true;
0997e51a 679 }
680 if (!empty($data->addtemplate)) {
9c00b5d7 681 $newdata->addtemplate = $data->addtemplate.' [[' . $newfieldname . ']]';
ed69c723 682 $change = true;
f9eab7b0 683 }
684 if (!empty($data->rsstemplate)) {
9c00b5d7 685 $newdata->rsstemplate = $data->singletemplate.' [[' . $newfieldname . ']]';
ed69c723 686 $change = true;
687 }
688 if ($change) {
9c00b5d7 689 $DB->update_record('data', $newdata);
f9eab7b0 690 }
f9eab7b0 691}
692
693
4636bf83 694/**
695 * given a field name
696 * this function creates an instance of the particular subfield class
697 *
698 * @global object
699 * @param string $name
700 * @param object $data
701 * @return object|bool
702 */
0997e51a 703function data_get_field_from_name($name, $data){
9c00b5d7 704 global $DB;
705
1e123f47 706 $field = $DB->get_record('data_fields', array('name'=>$name, 'dataid'=>$data->id));
0997e51a 707
708 if ($field) {
709 return data_get_field($field, $data);
710 } else {
711 return false;
712 }
713}
714
4636bf83 715/**
716 * given a field id
717 * this function creates an instance of the particular subfield class
718 *
719 * @global object
720 * @param int $fieldid
721 * @param object $data
722 * @return bool|object
723 */
0997e51a 724function data_get_field_from_id($fieldid, $data){
9c00b5d7 725 global $DB;
726
1e123f47 727 $field = $DB->get_record('data_fields', array('id'=>$fieldid, 'dataid'=>$data->id));
3d4b223a 728
0997e51a 729 if ($field) {
730 return data_get_field($field, $data);
5782be6b 731 } else {
d6f0e247 732 return false;
3d4b223a 733 }
3d4b223a 734}
735
4636bf83 736/**
737 * given a field id
738 * this function creates an instance of the particular subfield class
739 *
740 * @global object
741 * @param string $type
742 * @param object $data
743 * @return object
744 */
0997e51a 745function data_get_field_new($type, $data) {
746 global $CFG;
b572ce19 747
0997e51a 748 require_once($CFG->dirroot.'/mod/data/field/'.$type.'/field.class.php');
749 $newfield = 'data_field_'.$type;
750 $newfield = new $newfield(0, $data);
751 return $newfield;
752}
753
4636bf83 754/**
755 * returns a subclass field object given a record of the field, used to
756 * invoke plugin methods
757 * input: $param $field - record from db
758 *
759 * @global object
760 * @param object $field
761 * @param object $data
762 * @param object $cm
763 * @return object
764 */
8429163d 765function data_get_field($field, $data, $cm=null) {
0997e51a 766 global $CFG;
b572ce19 767
0997e51a 768 if ($field) {
3d4b223a 769 require_once('field/'.$field->type.'/field.class.php');
770 $newfield = 'data_field_'.$field->type;
8429163d 771 $newfield = new $newfield($field, $data, $cm);
3d4b223a 772 return $newfield;
773 }
774}
775
776
8429163d 777/**
778 * Given record object (or id), returns true if the record belongs to the current user
4636bf83 779 *
780 * @global object
781 * @global object
782 * @param mixed $record record object or id
8429163d 783 * @return bool
784 */
785function data_isowner($record) {
9c00b5d7 786 global $USER, $DB;
3d4b223a 787
4f0c2d00 788 if (!isloggedin()) { // perf shortcut
3d4b223a 789 return false;
790 }
791
8429163d 792 if (!is_object($record)) {
793 if (!$record = $DB->get_record('data_records', array('id'=>$record))) {
794 return false;
795 }
3d4b223a 796 }
797
8429163d 798 return ($record->userid == $USER->id);
3d4b223a 799}
800
4636bf83 801/**
802 * has a user reached the max number of entries?
803 *
804 * @param object $data
805 * @return bool
806 */
b572ce19 807function data_atmaxentries($data){
808 if (!$data->maxentries){
3d4b223a 809 return false;
b572ce19 810
3d4b223a 811 } else {
812 return (data_numentries($data) >= $data->maxentries);
813 }
814}
815
4636bf83 816/**
817 * returns the number of entries already made by this user
56c1ca88 818 *
4636bf83 819 * @global object
820 * @global object
56c1ca88 821 * @param object $data
4636bf83 822 * @return int
823 */
3d4b223a 824function data_numentries($data){
8429163d 825 global $USER, $DB;
9c00b5d7 826 $sql = 'SELECT COUNT(*) FROM {data_records} WHERE dataid=? AND userid=?';
827 return $DB->count_records_sql($sql, array($data->id, $USER->id));
3d4b223a 828}
829
4636bf83 830/**
56c1ca88 831 * function that takes in a dataid and adds a record
4636bf83 832 * this is used everytime an add template is submitted
833 *
834 * @global object
835 * @global object
836 * @param object $data
837 * @param int $groupid
838 * @return bool
839 */
0997e51a 840function data_add_record($data, $groupid=0){
9c00b5d7 841 global $USER, $DB;
6403e679 842
c088d603 843 $cm = get_coursemodule_from_instance('data', $data->id);
0b3b8c30 844 $context = context_module::instance($cm->id);
b572ce19 845
39790bd8 846 $record = new stdClass();
3d4b223a 847 $record->userid = $USER->id;
0997e51a 848 $record->dataid = $data->id;
3d4b223a 849 $record->groupid = $groupid;
0997e51a 850 $record->timecreated = $record->timemodified = time();
0468976c 851 if (has_capability('mod/data:approve', $context)) {
6e0119dd 852 $record->approved = 1;
853 } else {
854 $record->approved = 0;
855 }
76ca452c
MN
856 $record->id = $DB->insert_record('data_records', $record);
857
858 // Trigger an event for creating this record.
859 $event = \mod_data\event\record_created::create(array(
860 'objectid' => $record->id,
861 'context' => $context,
862 'other' => array(
863 'dataid' => $data->id
864 )
865 ));
866 $event->trigger();
867
868 return $record->id;
3d4b223a 869}
870
4636bf83 871/**
872 * check the multple existence any tag in a template
873 *
874 * check to see if there are 2 or more of the same tag being used.
875 *
876 * @global object
877 * @param int $dataid,
56c1ca88 878 * @param string $template
4636bf83 879 * @return bool
880 */
9c00b5d7 881function data_tags_check($dataid, $template) {
4102b449 882 global $DB, $OUTPUT;
9c00b5d7 883
b8b554ac 884 // first get all the possible tags
9c00b5d7 885 $fields = $DB->get_records('data_fields', array('dataid'=>$dataid));
b8b554ac 886 // then we generate strings to replace
887 $tagsok = true; // let's be optimistic
b572ce19 888 foreach ($fields as $field){
546a58bc 889 $pattern="/\[\[" . preg_quote($field->name, '/') . "\]\]/i";
b572ce19 890 if (preg_match_all($pattern, $template, $dummy)>1){
3d4b223a 891 $tagsok = false;
4102b449 892 echo $OUTPUT->notification('[['.$field->name.']] - '.get_string('multipletags','data'));
3d4b223a 893 }
894 }
b8b554ac 895 // else return true
3d4b223a 896 return $tagsok;
897}
898
4636bf83 899/**
900 * Adds an instance of a data
901 *
6b04fdc0
PS
902 * @param stdClass $data
903 * @param mod_data_mod_form $mform
904 * @return int intance id
4636bf83 905 */
6b04fdc0 906function data_add_instance($data, $mform = null) {
8429163d 907 global $DB;
3d4b223a 908
57244db3 909 if (empty($data->assessed)) {
910 $data->assessed = 0;
d6af3cfa 911 }
912
3d4b223a 913 $data->timemodified = time();
914
a8f3a651 915 $data->id = $DB->insert_record('data', $data);
3d4b223a 916
612607bd 917 data_grade_item_update($data);
b572ce19 918
3d4b223a 919 return $data->id;
920}
921
4636bf83 922/**
923 * updates an instance of a data
924 *
925 * @global object
926 * @param object $data
927 * @return bool
928 */
3d4b223a 929function data_update_instance($data) {
4102b449 930 global $DB, $OUTPUT;
6403e679 931
04366d79 932 $data->timemodified = time();
b572ce19 933 $data->id = $data->instance;
6403e679 934
57244db3 935 if (empty($data->assessed)) {
936 $data->assessed = 0;
17e5f3fc 937 }
b572ce19 938
d251b259
AD
939 if (empty($data->ratingtime) or empty($data->assessed)) {
940 $data->assesstimestart = 0;
941 $data->assesstimefinish = 0;
942 }
943
05ac14ca 944 if (empty($data->notification)) {
945 $data->notification = 0;
946 }
947
0bcf8b6f 948 $DB->update_record('data', $data);
04366d79 949
04366d79 950 data_grade_item_update($data);
b572ce19 951
04366d79 952 return true;
b572ce19 953
3d4b223a 954}
955
4636bf83 956/**
957 * deletes an instance of a data
958 *
959 * @global object
960 * @param int $id
961 * @return bool
962 */
b8b554ac 963function data_delete_instance($id) { // takes the dataid
650a0c0a 964 global $DB, $CFG;
3d4b223a 965
8429163d 966 if (!$data = $DB->get_record('data', array('id'=>$id))) {
3d4b223a 967 return false;
968 }
969
8429163d 970 $cm = get_coursemodule_from_instance('data', $data->id);
0b3b8c30 971 $context = context_module::instance($cm->id);
b572ce19 972
8429163d 973/// Delete all the associated information
6403e679 974
8429163d 975 // files
976 $fs = get_file_storage();
64f93798 977 $fs->delete_area_files($context->id, 'mod_data');
3d4b223a 978
8429163d 979 // get all the records in this data
980 $sql = "SELECT r.id
981 FROM {data_records} r
982 WHERE r.dataid = ?";
6403e679 983
8429163d 984 $DB->delete_records_select('data_content', "recordid IN ($sql)", array($id));
3d4b223a 985
986 // delete all the records and fields
c18269c7 987 $DB->delete_records('data_records', array('dataid'=>$id));
988 $DB->delete_records('data_fields', array('dataid'=>$id));
3d4b223a 989
990 // Delete the instance itself
c18269c7 991 $result = $DB->delete_records('data', array('id'=>$id));
04366d79 992
8429163d 993 // cleanup gradebook
b82cacea 994 data_grade_item_delete($data);
b572ce19 995
04366d79 996 return $result;
3d4b223a 997}
998
4636bf83 999/**
1000 * returns a summary of data activity of this user
1001 *
1002 * @global object
1003 * @param object $course
1004 * @param object $user
1005 * @param object $mod
1006 * @param object $data
1007 * @return object|null
1008 */
3d4b223a 1009function data_user_outline($course, $user, $mod, $data) {
1a96363a
NC
1010 global $DB, $CFG;
1011 require_once("$CFG->libdir/gradelib.php");
1012
1013 $grades = grade_get_grades($course->id, 'mod', 'data', $data->id, $user->id);
1014 if (empty($grades->items[0]->grades)) {
1015 $grade = false;
1016 } else {
1017 $grade = reset($grades->items[0]->grades);
1018 }
1019
9c00b5d7 1020
1021 if ($countrecords = $DB->count_records('data_records', array('dataid'=>$data->id, 'userid'=>$user->id))) {
39790bd8 1022 $result = new stdClass();
63701c78 1023 $result->info = get_string('numrecords', 'data', $countrecords);
9c00b5d7 1024 $lastrecord = $DB->get_record_sql('SELECT id,timemodified FROM {data_records}
1025 WHERE dataid = ? AND userid = ?
1026 ORDER BY timemodified DESC', array($data->id, $user->id), true);
3d4b223a 1027 $result->time = $lastrecord->timemodified;
1a96363a
NC
1028 if ($grade) {
1029 $result->info .= ', ' . get_string('grade') . ': ' . $grade->str_long_grade;
1030 }
1031 return $result;
1032 } else if ($grade) {
39790bd8 1033 $result = new stdClass();
1a96363a 1034 $result->info = get_string('grade') . ': ' . $grade->str_long_grade;
4433f871
AD
1035
1036 //datesubmitted == time created. dategraded == time modified or time overridden
1037 //if grade was last modified by the user themselves use date graded. Otherwise use date submitted
94a74f54 1038 //TODO: move this copied & pasted code somewhere in the grades API. See MDL-26704
4433f871
AD
1039 if ($grade->usermodified == $user->id || empty($grade->datesubmitted)) {
1040 $result->time = $grade->dategraded;
1041 } else {
1042 $result->time = $grade->datesubmitted;
1043 }
1044
3d4b223a 1045 return $result;
1046 }
1047 return NULL;
3d4b223a 1048}
1049
4636bf83 1050/**
1051 * Prints all the records uploaded by this user
1052 *
1053 * @global object
1054 * @param object $course
1055 * @param object $user
1056 * @param object $mod
1057 * @param object $data
1058 */
3d4b223a 1059function data_user_complete($course, $user, $mod, $data) {
1a96363a
NC
1060 global $DB, $CFG, $OUTPUT;
1061 require_once("$CFG->libdir/gradelib.php");
1062
1063 $grades = grade_get_grades($course->id, 'mod', 'data', $data->id, $user->id);
1064 if (!empty($grades->items[0]->grades)) {
1065 $grade = reset($grades->items[0]->grades);
1066 echo $OUTPUT->container(get_string('grade').': '.$grade->str_long_grade);
1067 if ($grade->str_feedback) {
1068 echo $OUTPUT->container(get_string('feedback').': '.$grade->str_feedback);
1069 }
1070 }
9c00b5d7 1071
1072 if ($records = $DB->get_records('data_records', array('dataid'=>$data->id,'userid'=>$user->id), 'timemodified DESC')) {
3d45b8e5 1073 data_print_template('singletemplate', $records, $data);
3d4b223a 1074 }
1075}
1076
04366d79 1077/**
1078 * Return grade for given user or all users.
1079 *
4636bf83 1080 * @global object
1081 * @param object $data
04366d79 1082 * @param int $userid optional user id, 0 means all users
1083 * @return array array of grades, false if none
1084 */
612607bd 1085function data_get_user_grades($data, $userid=0) {
d251b259
AD
1086 global $CFG;
1087
1088 require_once($CFG->dirroot.'/rating/lib.php');
04366d79 1089
2b04c41c
SH
1090 $ratingoptions = new stdClass;
1091 $ratingoptions->component = 'mod_data';
1092 $ratingoptions->ratingarea = 'entry';
d251b259
AD
1093 $ratingoptions->modulename = 'data';
1094 $ratingoptions->moduleid = $data->id;
04366d79 1095
d251b259
AD
1096 $ratingoptions->userid = $userid;
1097 $ratingoptions->aggregationmethod = $data->assessed;
1098 $ratingoptions->scaleid = $data->scale;
1099 $ratingoptions->itemtable = 'data_records';
1100 $ratingoptions->itemtableusercolumn = 'userid';
04366d79 1101
2b04c41c 1102 $rm = new rating_manager();
d251b259 1103 return $rm->get_user_grades($ratingoptions);
04366d79 1104}
1105
1106/**
775f811a 1107 * Update activity grades
04366d79 1108 *
a153c9f2 1109 * @category grade
775f811a 1110 * @param object $data
1111 * @param int $userid specific user only, 0 means all
4636bf83 1112 * @param bool $nullifnone
04366d79 1113 */
775f811a 1114function data_update_grades($data, $userid=0, $nullifnone=true) {
9c00b5d7 1115 global $CFG, $DB;
1116 require_once($CFG->libdir.'/gradelib.php');
04366d79 1117
775f811a 1118 if (!$data->assessed) {
1119 data_grade_item_update($data);
b572ce19 1120
775f811a 1121 } else if ($grades = data_get_user_grades($data, $userid)) {
1122 data_grade_item_update($data, $grades);
b572ce19 1123
775f811a 1124 } else if ($userid and $nullifnone) {
39790bd8 1125 $grade = new stdClass();
775f811a 1126 $grade->userid = $userid;
1127 $grade->rawgrade = NULL;
1128 data_grade_item_update($data, $grade);
b572ce19 1129
04366d79 1130 } else {
775f811a 1131 data_grade_item_update($data);
1132 }
1133}
1134
04366d79 1135/**
612607bd 1136 * Update/create grade item for given data
04366d79 1137 *
a153c9f2
AD
1138 * @category grade
1139 * @param stdClass $data A database instance with extra cmidnumber property
1140 * @param mixed $grades Optional array/object of grade(s); 'reset' means reset grades in gradebook
04366d79 1141 * @return object grade_item
1142 */
0b5a80a1 1143function data_grade_item_update($data, $grades=NULL) {
612607bd 1144 global $CFG;
9c00b5d7 1145 require_once($CFG->libdir.'/gradelib.php');
04366d79 1146
13534ef7 1147 $params = array('itemname'=>$data->name, 'idnumber'=>$data->cmidnumber);
b572ce19 1148
04366d79 1149 if (!$data->assessed or $data->scale == 0) {
612607bd 1150 $params['gradetype'] = GRADE_TYPE_NONE;
b572ce19 1151
04366d79 1152 } else if ($data->scale > 0) {
1153 $params['gradetype'] = GRADE_TYPE_VALUE;
1154 $params['grademax'] = $data->scale;
1155 $params['grademin'] = 0;
b572ce19 1156
04366d79 1157 } else if ($data->scale < 0) {
1158 $params['gradetype'] = GRADE_TYPE_SCALE;
1159 $params['scaleid'] = -$data->scale;
1160 }
b572ce19 1161
0b5a80a1 1162 if ($grades === 'reset') {
1163 $params['reset'] = true;
1164 $grades = NULL;
1165 }
1166
1167 return grade_update('mod/data', $data->course, 'mod', 'data', $data->id, 0, $grades, $params);
04366d79 1168}
1169
1170/**
1171 * Delete grade item for given data
1172 *
a153c9f2 1173 * @category grade
04366d79 1174 * @param object $data object
1175 * @return object grade_item
1176 */
1177function data_grade_item_delete($data) {
612607bd 1178 global $CFG;
1179 require_once($CFG->libdir.'/gradelib.php');
b572ce19 1180
b67ec72f 1181 return grade_update('mod/data', $data->course, 'mod', 'data', $data->id, 0, NULL, array('deleted'=>1));
04366d79 1182}
1183
b8b554ac 1184// junk functions
4636bf83 1185/**
56c1ca88 1186 * takes a list of records, the current data, a search string,
4636bf83 1187 * and mode to display prints the translated template
1188 *
1189 * @global object
1190 * @global object
1191 * @param string $template
56c1ca88 1192 * @param array $records
4636bf83 1193 * @param object $data
56c1ca88 1194 * @param string $search
4636bf83 1195 * @param int $page
1196 * @param bool $return
f09040d7 1197 * @param object $jumpurl a moodle_url by which to jump back to the record list (can be null)
4636bf83 1198 * @return mixed
1199 */
f09040d7 1200function data_print_template($template, $records, $data, $search='', $page=0, $return=false, moodle_url $jumpurl=null) {
f2a1963c 1201 global $CFG, $DB, $OUTPUT;
cf9ecfda 1202
c088d603 1203 $cm = get_coursemodule_from_instance('data', $data->id);
0b3b8c30 1204 $context = context_module::instance($cm->id);
b572ce19 1205
3d45b8e5 1206 static $fields = NULL;
1207 static $isteacher;
63701c78 1208 static $dataid = NULL;
b572ce19 1209
63701c78 1210 if (empty($dataid)) {
1211 $dataid = $data->id;
1212 } else if ($dataid != $data->id) {
1213 $fields = NULL;
1214 }
b572ce19 1215
3d45b8e5 1216 if (empty($fields)) {
9c00b5d7 1217 $fieldrecords = $DB->get_records('data_fields', array('dataid'=>$data->id));
3d45b8e5 1218 foreach ($fieldrecords as $fieldrecord) {
1219 $fields[]= data_get_field($fieldrecord, $data);
1220 }
81e956b9 1221 $isteacher = has_capability('mod/data:managetemplates', $context);
3d45b8e5 1222 }
b572ce19 1223
64452eb4 1224 if (empty($records)) {
1225 return;
1226 }
b572ce19 1227
f09040d7
HB
1228 if (!$jumpurl) {
1229 $jumpurl = new moodle_url('/mod/data/view.php', array('d' => $data->id));
1230 }
1231 $jumpurl = new moodle_url($jumpurl, array('page' => $page, 'sesskey' => sesskey()));
1232
e8027a40
ARN
1233 // Check whether this activity is read-only at present
1234 $readonly = data_in_readonly_period($data);
1235
668fc89a 1236 foreach ($records as $record) { // Might be just one for the single template
b572ce19 1237
b8b554ac 1238 // Replacing tags
3d4b223a 1239 $patterns = array();
1240 $replacement = array();
b572ce19 1241
b8b554ac 1242 // Then we generate strings to replace for normal tags
3d45b8e5 1243 foreach ($fields as $field) {
f2584d0e 1244 $patterns[]='[['.$field->field->name.']]';
d118d06a 1245 $replacement[] = highlight($search, $field->display_browse_field($record->id, $template));
3d4b223a 1246 }
b572ce19 1247
cf9ecfda
AG
1248 $canmanageentries = has_capability('mod/data:manageentries', $context);
1249
b8b554ac 1250 // Replacing special tags (##Edit##, ##Delete##, ##More##)
e357c206 1251 $patterns[]='##edit##';
1252 $patterns[]='##delete##';
cf9ecfda 1253 if ($canmanageentries || (!$readonly && data_isowner($record->id))) {
64452eb4 1254 $replacement[] = '<a href="'.$CFG->wwwroot.'/mod/data/edit.php?d='
b5d0cafc 1255 .$data->id.'&amp;rid='.$record->id.'&amp;sesskey='.sesskey().'"><img src="'.$OUTPUT->pix_url('t/edit') . '" class="iconsmall" alt="'.get_string('edit').'" title="'.get_string('edit').'" /></a>';
3d4b223a 1256 $replacement[] = '<a href="'.$CFG->wwwroot.'/mod/data/view.php?d='
b5d0cafc 1257 .$data->id.'&amp;delete='.$record->id.'&amp;sesskey='.sesskey().'"><img src="'.$OUTPUT->pix_url('t/delete') . '" class="iconsmall" alt="'.get_string('delete').'" title="'.get_string('delete').'" /></a>';
046dd7dc 1258 } else {
3d4b223a 1259 $replacement[] = '';
eeeb4f2a 1260 $replacement[] = '';
3d4b223a 1261 }
d53e5129 1262
1263 $moreurl = $CFG->wwwroot . '/mod/data/view.php?d=' . $data->id . '&amp;rid=' . $record->id;
32d799c6 1264 if ($search) {
1265 $moreurl .= '&amp;filter=1';
1266 }
e357c206 1267 $patterns[]='##more##';
ae41a70b
FM
1268 $replacement[] = '<a href="'.$moreurl.'"><img src="'.$OUTPUT->pix_url('t/preview').
1269 '" class="iconsmall" alt="'.get_string('more', 'data').'" title="'.get_string('more', 'data').
1270 '" /></a>';
d53e5129 1271
e357c206 1272 $patterns[]='##moreurl##';
d53e5129 1273 $replacement[] = $moreurl;
473dd288 1274
cf9ecfda
AG
1275 $patterns[]='##delcheck##';
1276 if ($canmanageentries) {
1277 $replacement[] = html_writer::checkbox('delcheck[]', $record->id, false, '', array('class' => 'recordcheckbox'));
1278 } else {
1279 $replacement[] = '';
1280 }
1281
e357c206 1282 $patterns[]='##user##';
64452eb4 1283 $replacement[] = '<a href="'.$CFG->wwwroot.'/user/view.php?id='.$record->userid.
1284 '&amp;course='.$data->course.'">'.fullname($record).'</a>';
8185aeb6 1285
560237b4 1286 $patterns[] = '##userpicture##';
c910cf30
AG
1287 $ruser = user_picture::unalias($record, null, 'userid');
1288 $replacement[] = $OUTPUT->user_picture($ruser, array('courseid' => $data->course));
560237b4 1289
8185aeb6 1290 $patterns[]='##export##';
1291
6708a1f5 1292 if (!empty($CFG->enableportfolios) && ($template == 'singletemplate' || $template == 'listtemplate')
8185aeb6 1293 && ((has_capability('mod/data:exportentry', $context)
1294 || (data_isowner($record->id) && has_capability('mod/data:exportownentry', $context))))) {
24ba58ee 1295 require_once($CFG->libdir . '/portfoliolib.php');
0d06b6fd 1296 $button = new portfolio_add_button();
37743241 1297 $button->set_callback_options('data_portfolio_caller', array('id' => $cm->id, 'recordid' => $record->id), 'mod_data');
6be1dcae 1298 list($formats, $files) = data_portfolio_caller::formats($fields, $record);
276378e6 1299 $button->set_formats($formats);
0d06b6fd 1300 $replacement[] = $button->to_html(PORTFOLIO_ADD_ICON_LINK);
8185aeb6 1301 } else {
1302 $replacement[] = '';
1303 }
8429163d 1304
c95034f2 1305 $patterns[] = '##timeadded##';
8429163d 1306 $replacement[] = userdate($record->timecreated);
c95034f2 1307
1308 $patterns[] = '##timemodified##';
35e129c1 1309 $replacement [] = userdate($record->timemodified);
473dd288 1310
e357c206 1311 $patterns[]='##approve##';
851d3b7a 1312 if (has_capability('mod/data:approve', $context) && ($data->approval) && (!$record->approved)) {
f09040d7 1313 $approveurl = new moodle_url($jumpurl, array('approve' => $record->id));
d0372ed6 1314 $approveicon = new pix_icon('t/approve', get_string('approve', 'data'), '', array('class' => 'iconsmall'));
851d3b7a
FM
1315 $replacement[] = html_writer::tag('span', $OUTPUT->action_icon($approveurl, $approveicon),
1316 array('class' => 'approve'));
473dd288 1317 } else {
6e0119dd 1318 $replacement[] = '';
1319 }
6403e679 1320
d0372ed6
HB
1321 $patterns[]='##disapprove##';
1322 if (has_capability('mod/data:approve', $context) && ($data->approval) && ($record->approved)) {
f09040d7 1323 $disapproveurl = new moodle_url($jumpurl, array('disapprove' => $record->id));
d0372ed6
HB
1324 $disapproveicon = new pix_icon('t/block', get_string('disapprove', 'data'), '', array('class' => 'iconsmall'));
1325 $replacement[] = html_writer::tag('span', $OUTPUT->action_icon($disapproveurl, $disapproveicon),
1326 array('class' => 'disapprove'));
1327 } else {
1328 $replacement[] = '';
1329 }
1330
0bec64c6
HB
1331 $patterns[] = '##approvalstatus##';
1332 if (!$data->approval) {
1333 $replacement[] = '';
1334 } else if ($record->approved) {
1335 $replacement[] = 'approved';
1336 } else {
1337 $replacement[] = 'notapproved';
1338 }
1339
e357c206 1340 $patterns[]='##comments##';
4d3d87f0 1341 if (($template == 'listtemplate') && ($data->comments)) {
e998effa
DC
1342
1343 if (!empty($CFG->usecomments)) {
36051c9e 1344 require_once($CFG->dirroot . '/comment/lib.php');
866354a9 1345 list($context, $course, $cm) = get_context_info_array($context->id);
6bdfef5d 1346 $cmt = new stdClass();
e998effa 1347 $cmt->context = $context;
866354a9
DC
1348 $cmt->course = $course;
1349 $cmt->cm = $cm;
1350 $cmt->area = 'database_entry';
e998effa
DC
1351 $cmt->itemid = $record->id;
1352 $cmt->showcount = true;
d846488e 1353 $cmt->component = 'mod_data';
e998effa 1354 $comment = new comment($cmt);
36051c9e 1355 $replacement[] = $comment->output(true);
e998effa 1356 }
4d3d87f0 1357 } else {
1358 $replacement[] = '';
1359 }
6e0119dd 1360
b8b554ac 1361 // actual replacement of the tags
f2584d0e 1362 $newtext = str_ireplace($patterns, $replacement, $data->{$template});
5023c3ab 1363
b8b554ac 1364 // no more html formatting and filtering - see MDL-6635
aa3b20e9 1365 if ($return) {
1366 return $newtext;
1367 } else {
1368 echo $newtext;
b572ce19 1369
aa3b20e9 1370 // hack alert - return is always false in singletemplate anyway ;-)
1371 /**********************************
1372 * Printing Ratings Form *
1373 *********************************/
1374 if ($template == 'singletemplate') { //prints ratings options
1375 data_print_ratings($data, $record);
1376 }
b572ce19 1377
aa3b20e9 1378 /**********************************
d251b259 1379 * Printing Comments Form *
aa3b20e9 1380 *********************************/
d251b259 1381 if (($template == 'singletemplate') && ($data->comments)) {
e998effa 1382 if (!empty($CFG->usecomments)) {
36051c9e 1383 require_once($CFG->dirroot . '/comment/lib.php');
866354a9 1384 list($context, $course, $cm) = get_context_info_array($context->id);
6bdfef5d 1385 $cmt = new stdClass();
e998effa 1386 $cmt->context = $context;
866354a9
DC
1387 $cmt->course = $course;
1388 $cmt->cm = $cm;
1389 $cmt->area = 'database_entry';
e998effa
DC
1390 $cmt->itemid = $record->id;
1391 $cmt->showcount = true;
d846488e 1392 $cmt->component = 'mod_data';
e998effa 1393 $comment = new comment($cmt);
36051c9e 1394 $comment->output(false);
e998effa 1395 }
aa3b20e9 1396 }
4d3d87f0 1397 }
3d4b223a 1398 }
1399}
1400
d251b259
AD
1401/**
1402 * Return rating related permissions
2b04c41c
SH
1403 *
1404 * @param string $contextid the context id
1405 * @param string $component the component to get rating permissions for
1406 * @param string $ratingarea the rating area to get permissions for
d251b259
AD
1407 * @return array an associative array of the user's rating permissions
1408 */
2b04c41c 1409function data_rating_permissions($contextid, $component, $ratingarea) {
d197ea43 1410 $context = context::instance_by_id($contextid, MUST_EXIST);
2b04c41c 1411 if ($component != 'mod_data' || $ratingarea != 'entry') {
d251b259 1412 return null;
d251b259 1413 }
2b04c41c
SH
1414 return array(
1415 'view' => has_capability('mod/data:viewrating',$context),
1416 'viewany' => has_capability('mod/data:viewanyrating',$context),
1417 'viewall' => has_capability('mod/data:viewallratings',$context),
1418 'rate' => has_capability('mod/data:rate',$context)
1419 );
d251b259
AD
1420}
1421
aeafd436 1422/**
2c2ff8d5
AD
1423 * Validates a submitted rating
1424 * @param array $params submitted data
1425 * context => object the context in which the rated items exists [required]
1426 * itemid => int the ID of the object being rated
1427 * scaleid => int the scale from which the user can select a rating. Used for bounds checking. [required]
1428 * rating => int the submitted rating
1429 * rateduserid => int the id of the user whose items have been rated. NOT the user who submitted the ratings. 0 to update all. [required]
1430 * aggregation => int the aggregation method to apply when calculating grades ie RATING_AGGREGATE_AVERAGE [required]
778361c3 1431 * @return boolean true if the rating is valid. Will throw rating_exception if not
aeafd436 1432 */
778361c3 1433function data_rating_validate($params) {
2c2ff8d5
AD
1434 global $DB, $USER;
1435
2b04c41c
SH
1436 // Check the component is mod_data
1437 if ($params['component'] != 'mod_data') {
1438 throw new rating_exception('invalidcomponent');
2c2ff8d5
AD
1439 }
1440
2b04c41c
SH
1441 // Check the ratingarea is entry (the only rating area in data module)
1442 if ($params['ratingarea'] != 'entry') {
1443 throw new rating_exception('invalidratingarea');
1444 }
1445
1446 // Check the rateduserid is not the current user .. you can't rate your own entries
1447 if ($params['rateduserid'] == $USER->id) {
1448 throw new rating_exception('nopermissiontorate');
1449 }
1450
1451 $datasql = "SELECT d.id as dataid, d.scale, d.course, r.userid as userid, d.approval, r.approved, r.timecreated, d.assesstimestart, d.assesstimefinish, r.groupid
2c2ff8d5
AD
1452 FROM {data_records} r
1453 JOIN {data} d ON r.dataid = d.id
1454 WHERE r.id = :itemid";
1455 $dataparams = array('itemid'=>$params['itemid']);
1456 if (!$info = $DB->get_record_sql($datasql, $dataparams)) {
778361c3
AD
1457 //item doesn't exist
1458 throw new rating_exception('invaliditemid');
2c2ff8d5
AD
1459 }
1460
6ac149dc
AD
1461 if ($info->scale != $params['scaleid']) {
1462 //the scale being submitted doesnt match the one in the database
1463 throw new rating_exception('invalidscaleid');
1464 }
1465
6ac149dc 1466 //check that the submitted rating is valid for the scale
5693d56c
EL
1467
1468 // lower limit
1469 if ($params['rating'] < 0 && $params['rating'] != RATING_UNSET_RATING) {
6ac149dc 1470 throw new rating_exception('invalidnum');
5693d56c
EL
1471 }
1472
1473 // upper limit
1474 if ($info->scale < 0) {
6ac149dc 1475 //its a custom scale
2b04c41c 1476 $scalerecord = $DB->get_record('scale', array('id' => -$info->scale));
6ac149dc
AD
1477 if ($scalerecord) {
1478 $scalearray = explode(',', $scalerecord->scale);
1479 if ($params['rating'] > count($scalearray)) {
1480 throw new rating_exception('invalidnum');
1481 }
1482 } else {
1483 throw new rating_exception('invalidscaleid');
1484 }
1485 } else if ($params['rating'] > $info->scale) {
1486 //if its numeric and submitted rating is above maximum
1487 throw new rating_exception('invalidnum');
1488 }
1489
2c2ff8d5
AD
1490 if ($info->approval && !$info->approved) {
1491 //database requires approval but this item isnt approved
778361c3 1492 throw new rating_exception('nopermissiontorate');
2c2ff8d5
AD
1493 }
1494
2b04c41c 1495 // check the item we're rating was created in the assessable time window
2c2ff8d5
AD
1496 if (!empty($info->assesstimestart) && !empty($info->assesstimefinish)) {
1497 if ($info->timecreated < $info->assesstimestart || $info->timecreated > $info->assesstimefinish) {
778361c3 1498 throw new rating_exception('notavailable');
2c2ff8d5
AD
1499 }
1500 }
1501
74df2951 1502 $course = $DB->get_record('course', array('id'=>$info->course), '*', MUST_EXIST);
2b04c41c 1503 $cm = get_coursemodule_from_instance('data', $info->dataid, $course->id, false, MUST_EXIST);
0b3b8c30 1504 $context = context_module::instance($cm->id);
2c2ff8d5 1505
2b04c41c
SH
1506 // if the supplied context doesnt match the item's context
1507 if ($context->id != $params['context']->id) {
778361c3 1508 throw new rating_exception('invalidcontext');
2c2ff8d5
AD
1509 }
1510
1511 // Make sure groups allow this user to see the item they're rating
2b04c41c 1512 $groupid = $info->groupid;
2c2ff8d5
AD
1513 if ($groupid > 0 and $groupmode = groups_get_activity_groupmode($cm, $course)) { // Groups are being used
1514 if (!groups_group_exists($groupid)) { // Can't find group
778361c3 1515 throw new rating_exception('cannotfindgroup');//something is wrong
2c2ff8d5
AD
1516 }
1517
1518 if (!groups_is_member($groupid) and !has_capability('moodle/site:accessallgroups', $context)) {
1519 // do not allow rating of posts from other groups when in SEPARATEGROUPS or VISIBLEGROUPS
778361c3 1520 throw new rating_exception('notmemberofgroup');
2c2ff8d5
AD
1521 }
1522 }
1523
1524 return true;
aeafd436
AD
1525}
1526
731c2712
AA
1527/**
1528 * Can the current user see ratings for a given itemid?
1529 *
1530 * @param array $params submitted data
1531 * contextid => int contextid [required]
1532 * component => The component for this module - should always be mod_data [required]
1533 * ratingarea => object the context in which the rated items exists [required]
1534 * itemid => int the ID of the object being rated [required]
1535 * scaleid => int scale id [optional]
1536 * @return bool
1537 * @throws coding_exception
1538 * @throws rating_exception
1539 */
1540function mod_data_rating_can_see_item_ratings($params) {
1541 global $DB;
1542
1543 // Check the component is mod_data.
1544 if (!isset($params['component']) || $params['component'] != 'mod_data') {
1545 throw new rating_exception('invalidcomponent');
1546 }
1547
1548 // Check the ratingarea is entry (the only rating area in data).
1549 if (!isset($params['ratingarea']) || $params['ratingarea'] != 'entry') {
1550 throw new rating_exception('invalidratingarea');
1551 }
1552
1553 if (!isset($params['itemid'])) {
1554 throw new rating_exception('invaliditemid');
1555 }
1556
1557 $datasql = "SELECT d.id as dataid, d.course, r.groupid
1558 FROM {data_records} r
1559 JOIN {data} d ON r.dataid = d.id
1560 WHERE r.id = :itemid";
1561 $dataparams = array('itemid' => $params['itemid']);
1562 if (!$info = $DB->get_record_sql($datasql, $dataparams)) {
1563 // Item doesn't exist.
1564 throw new rating_exception('invaliditemid');
1565 }
1566
1567 $course = $DB->get_record('course', array('id' => $info->course), '*', MUST_EXIST);
1568 $cm = get_coursemodule_from_instance('data', $info->dataid, $course->id, false, MUST_EXIST);
1569
1570 // Make sure groups allow this user to see the item they're rating.
1571 return groups_group_visible($info->groupid, $course, $cm);
1572}
1573
a593aeee 1574
4636bf83 1575/**
56c1ca88 1576 * function that takes in the current data, number of items per page,
1577 * a search string and prints a preference box in view.php
1578 *
1579 * This preference box prints a searchable advanced search template if
1580 * a) A template is defined
1581 * b) The advanced search checkbox is checked.
4636bf83 1582 *
1583 * @global object
1584 * @global object
56c1ca88 1585 * @param object $data
1586 * @param int $perpage
4636bf83 1587 * @param string $search
1588 * @param string $sort
1589 * @param string $order
1590 * @param array $search_array
1591 * @param int $advanced
1592 * @param string $mode
1593 * @return void
1594 */
7900ecb0 1595function data_print_preference_form($data, $perpage, $search, $sort='', $order='ASC', $search_array = '', $advanced = 0, $mode= ''){
601104f2 1596 global $CFG, $DB, $PAGE, $OUTPUT;
8429163d 1597
7900ecb0 1598 $cm = get_coursemodule_from_instance('data', $data->id);
0b3b8c30 1599 $context = context_module::instance($cm->id);
7900ecb0 1600 echo '<br /><div class="datapreferences">';
b7dc2256 1601 echo '<form id="options" action="view.php" method="get">';
7900ecb0 1602 echo '<div>';
473dd288 1603 echo '<input type="hidden" name="d" value="'.$data->id.'" />';
7900ecb0 1604 if ($mode =='asearch') {
1605 $advanced = 1;
1606 echo '<input type="hidden" name="mode" value="list" />';
1607 }
a032a460 1608 echo '<label for="pref_perpage">'.get_string('pagesize','data').'</label> ';
76a2fd82 1609 $pagesizes = array(2=>2,3=>3,4=>4,5=>5,6=>6,7=>7,8=>8,9=>9,10=>10,15=>15,
6e0119dd 1610 20=>20,30=>30,40=>40,50=>50,100=>100,200=>200,300=>300,400=>400,500=>500,1000=>1000);
d776d59e 1611 echo html_writer::select($pagesizes, 'perpage', $perpage, false, array('id'=>'pref_perpage'));
0d284a8b 1612
7900ecb0 1613 if ($advanced) {
0d284a8b
DM
1614 $regsearchclass = 'search_none';
1615 $advancedsearchclass = 'search_inline';
1616 } else {
1617 $regsearchclass = 'search_inline';
1618 $advancedsearchclass = 'search_none';
7900ecb0 1619 }
0d284a8b
DM
1620 echo '<div id="reg_search" class="' . $regsearchclass . '" >&nbsp;&nbsp;&nbsp;';
1621 echo '<label for="pref_search">'.get_string('search').'</label> <input type="text" size="16" name="search" id= "pref_search" value="'.s($search).'" /></div>';
a032a460 1622 echo '&nbsp;&nbsp;&nbsp;<label for="pref_sortby">'.get_string('sortby').'</label> ';
b8b554ac 1623 // foreach field, print the option
3239b010 1624 echo '<select name="sort" id="pref_sortby">';
9c00b5d7 1625 if ($fields = $DB->get_records('data_fields', array('dataid'=>$data->id), 'name')) {
3239b010 1626 echo '<optgroup label="'.get_string('fields', 'data').'">';
1627 foreach ($fields as $field) {
1628 if ($field->id == $sort) {
1629 echo '<option value="'.$field->id.'" selected="selected">'.$field->name.'</option>';
1630 } else {
1631 echo '<option value="'.$field->id.'">'.$field->name.'</option>';
1632 }
1633 }
1634 echo '</optgroup>';
714bec74 1635 }
3239b010 1636 $options = array();
1637 $options[DATA_TIMEADDED] = get_string('timeadded', 'data');
1638 $options[DATA_TIMEMODIFIED] = get_string('timemodified', 'data');
1639 $options[DATA_FIRSTNAME] = get_string('authorfirstname', 'data');
1640 $options[DATA_LASTNAME] = get_string('authorlastname', 'data');
bb5740f4 1641 if ($data->approval and has_capability('mod/data:approve', $context)) {
1642 $options[DATA_APPROVED] = get_string('approved', 'data');
1643 }
3239b010 1644 echo '<optgroup label="'.get_string('other', 'data').'">';
714bec74 1645 foreach ($options as $key => $name) {
1646 if ($key == $sort) {
1647 echo '<option value="'.$key.'" selected="selected">'.$name.'</option>';
cf3e199b 1648 } else {
714bec74 1649 echo '<option value="'.$key.'">'.$name.'</option>';
cf3e199b 1650 }
1651 }
3239b010 1652 echo '</optgroup>';
cf3e199b 1653 echo '</select>';
a032a460 1654 echo '<label for="pref_order" class="accesshide">'.get_string('order').'</label>';
1655 echo '<select id="pref_order" name="order">';
c8505cac 1656 if ($order == 'ASC') {
af25f45e 1657 echo '<option value="ASC" selected="selected">'.get_string('ascending','data').'</option>';
cf3e199b 1658 } else {
1659 echo '<option value="ASC">'.get_string('ascending','data').'</option>';
1660 }
c8505cac 1661 if ($order == 'DESC') {
af25f45e 1662 echo '<option value="DESC" selected="selected">'.get_string('descending','data').'</option>';
cf3e199b 1663 } else {
1664 echo '<option value="DESC">'.get_string('descending','data').'</option>';
1665 }
af25f45e 1666 echo '</select>';
86638489 1667
7900ecb0 1668 if ($advanced) {
1669 $checked = ' checked="checked" ';
1670 }
1671 else {
1672 $checked = '';
1673 }
9dec75db 1674 $PAGE->requires->js('/mod/data/data.js');
de8ff581 1675 echo '&nbsp;<input type="hidden" name="advanced" value="0" />';
d53e5129 1676 echo '&nbsp;<input type="hidden" name="filter" value="1" />';
714bec74 1677 echo '&nbsp;<input type="checkbox" id="advancedcheckbox" name="advanced" value="1" '.$checked.' onchange="showHideAdvSearch(this.checked);" /><label for="advancedcheckbox">'.get_string('advancedsearch', 'data').'</label>';
7900ecb0 1678 echo '&nbsp;<input type="submit" value="'.get_string('savesettings','data').'" />';
8429163d 1679
7900ecb0 1680 echo '<br />';
0d284a8b 1681 echo '<div class="' . $advancedsearchclass . '" id="data_adv_form">';
7900ecb0 1682 echo '<table class="boxaligncenter">';
8429163d 1683
7900ecb0 1684 // print ASC or DESC
1685 echo '<tr><td colspan="2">&nbsp;</td></tr>';
1686 $i = 0;
1687
1688 // Determine if we are printing all fields for advanced search, or the template for advanced search
1689 // If a template is not defined, use the deafault template and display all fields.
1690 if(empty($data->asearchtemplate)) {
1691 data_generate_default_template($data, 'asearchtemplate');
1692 }
1693
1694 static $fields = NULL;
1695 static $isteacher;
1696 static $dataid = NULL;
b572ce19 1697
7900ecb0 1698 if (empty($dataid)) {
1699 $dataid = $data->id;
1700 } else if ($dataid != $data->id) {
1701 $fields = NULL;
1702 }
1703
1704 if (empty($fields)) {
9c00b5d7 1705 $fieldrecords = $DB->get_records('data_fields', array('dataid'=>$data->id));
7900ecb0 1706 foreach ($fieldrecords as $fieldrecord) {
1707 $fields[]= data_get_field($fieldrecord, $data);
1708 }
b572ce19 1709
7900ecb0 1710 $isteacher = has_capability('mod/data:managetemplates', $context);
1711 }
1712
b8b554ac 1713 // Replacing tags
7900ecb0 1714 $patterns = array();
1715 $replacement = array();
1716
b8b554ac 1717 // Then we generate strings to replace for normal tags
7900ecb0 1718 foreach ($fields as $field) {
98f67312 1719 $fieldname = $field->field->name;
1720 $fieldname = preg_quote($fieldname, '/');
1721 $patterns[] = "/\[\[$fieldname\]\]/i";
714bec74 1722 $searchfield = data_get_field_from_id($field->field->id, $data);
7900ecb0 1723 if (!empty($search_array[$field->field->id]->data)) {
1724 $replacement[] = $searchfield->display_search_field($search_array[$field->field->id]->data);
1725 } else {
1726 $replacement[] = $searchfield->display_search_field();
1727 }
1728 }
714bec74 1729 $fn = !empty($search_array[DATA_FIRSTNAME]->data) ? $search_array[DATA_FIRSTNAME]->data : '';
1730 $ln = !empty($search_array[DATA_LASTNAME]->data) ? $search_array[DATA_LASTNAME]->data : '';
1731 $patterns[] = '/##firstname##/';
3a5543d4 1732 $replacement[] = '<label class="accesshide" for="u_fn">'.get_string('authorfirstname', 'data').'</label><input type="text" size="16" id="u_fn" name="u_fn" value="'.$fn.'" />';
714bec74 1733 $patterns[] = '/##lastname##/';
1b2bd976 1734 $replacement[] = '<label class="accesshide" for="u_ln">'.get_string('authorlastname', 'data').'</label><input type="text" size="16" id="u_ln" name="u_ln" value="'.$ln.'" />';
714bec74 1735
668fc89a 1736 // actual replacement of the tags
7900ecb0 1737 $newtext = preg_replace($patterns, $replacement, $data->asearchtemplate);
b572ce19 1738
39790bd8 1739 $options = new stdClass();
7900ecb0 1740 $options->para=false;
1741 $options->noclean=true;
1742 echo '<tr><td>';
1743 echo format_text($newtext, FORMAT_HTML, $options);
1744 echo '</td></tr>';
b572ce19 1745
0d284a8b 1746 echo '<tr><td colspan="4"><br/><input type="submit" value="'.get_string('savesettings','data').'" /><input type="submit" name="resetadv" value="'.get_string('resetsettings','data').'" /></td></tr>';
7900ecb0 1747 echo '</table>';
c8505cac 1748 echo '</div>';
7900ecb0 1749 echo '</div>';
1750 echo '</form>';
b8b554ac 1751 echo '</div>';
3d4b223a 1752}
5f5bcda8 1753
4636bf83 1754/**
1755 * @global object
1756 * @global object
1757 * @param object $data
1758 * @param object $record
1759 * @return void Output echo'd
1760 */
4d3d87f0 1761function data_print_ratings($data, $record) {
56c1ca88 1762 global $OUTPUT;
2b04c41c 1763 if (!empty($record->rating)){
d251b259 1764 echo $OUTPUT->render($record->rating);
4d3d87f0 1765 }
4d3d87f0 1766}
1767
4636bf83 1768/**
b2b4ec30
RT
1769 * List the actions that correspond to a view of this module.
1770 * This is used by the participation report.
1771 *
1772 * Note: This is not used by new logging system. Event with
1773 * crud = 'r' and edulevel = LEVEL_PARTICIPATING will
1774 * be considered as view action.
4636bf83 1775 *
1776 * @return array
1777 */
4c03f920 1778function data_get_view_actions() {
1779 return array('view');
1780}
1781
4636bf83 1782/**
b2b4ec30
RT
1783 * List the actions that correspond to a post of this module.
1784 * This is used by the participation report.
1785 *
1786 * Note: This is not used by new logging system. Event with
1787 * crud = ('c' || 'u' || 'd') and edulevel = LEVEL_PARTICIPATING
1788 * will be considered as post action.
1789 *
4636bf83 1790 * @return array
1791 */
4c03f920 1792function data_get_post_actions() {
1793 return array('add','update','record delete');
1794}
1795
4636bf83 1796/**
4636bf83 1797 * @param string $name
1798 * @param int $dataid
1799 * @param int $fieldid
1800 * @return bool
1801 */
e9da9f5b
PS
1802function data_fieldname_exists($name, $dataid, $fieldid = 0) {
1803 global $DB;
0997e51a 1804
e9da9f5b
PS
1805 if (!is_numeric($name)) {
1806 $like = $DB->sql_like('df.name', ':name', false);
fdeb3e1f 1807 } else {
e9da9f5b 1808 $like = "df.name = :name";
fdeb3e1f 1809 }
e9da9f5b 1810 $params = array('name'=>$name);
6403e679 1811 if ($fieldid) {
e9da9f5b
PS
1812 $params['dataid'] = $dataid;
1813 $params['fieldid1'] = $fieldid;
1814 $params['fieldid2'] = $fieldid;
9c00b5d7 1815 return $DB->record_exists_sql("SELECT * FROM {data_fields} df
e9da9f5b
PS
1816 WHERE $like AND df.dataid = :dataid
1817 AND ((df.id < :fieldid1) OR (df.id > :fieldid2))", $params);
0997e51a 1818 } else {
e9da9f5b 1819 $params['dataid'] = $dataid;
9c00b5d7 1820 return $DB->record_exists_sql("SELECT * FROM {data_fields} df
e9da9f5b 1821 WHERE $like AND df.dataid = :dataid", $params);
0997e51a 1822 }
1823}
1824
4636bf83 1825/**
1826 * @param array $fieldinput
1827 */
0997e51a 1828function data_convert_arrays_to_strings(&$fieldinput) {
1829 foreach ($fieldinput as $key => $val) {
1830 if (is_array($val)) {
1831 $str = '';
1832 foreach ($val as $inner) {
1833 $str .= $inner . ',';
1834 }
1835 $str = substr($str, 0, -1);
b572ce19 1836
0997e51a 1837 $fieldinput->$key = $str;
1838 }
1839 }
1840}
1841
901dd2fb 1842
7f258664 1843/**
1844 * Converts a database (module instance) to use the Roles System
4636bf83 1845 *
1846 * @global object
1847 * @global object
1848 * @uses CONTEXT_MODULE
1849 * @uses CAP_PREVENT
1850 * @uses CAP_ALLOW
1851 * @param object $data a data object with the same attributes as a record
1852 * from the data database table
1853 * @param int $datamodid the id of the data module, from the modules table
4f0c2d00
PS
1854 * @param array $teacherroles array of roles that have archetype teacher
1855 * @param array $studentroles array of roles that have archetype student
1856 * @param array $guestroles array of roles that have archetype guest
4636bf83 1857 * @param int $cmid the course_module id for this data instance
1858 * @return boolean data module was converted or not
7f258664 1859 */
1860function data_convert_to_roles($data, $teacherroles=array(), $studentroles=array(), $cmid=NULL) {
4102b449 1861 global $CFG, $DB, $OUTPUT;
6403e679 1862
7f258664 1863 if (!isset($data->participants) && !isset($data->assesspublic)
1864 && !isset($data->groupmode)) {
1865 // We assume that this database has already been converted to use the
1866 // Roles System. above fields get dropped the data module has been
1867 // upgraded to use Roles.
1868 return false;
1869 }
b572ce19 1870
7f258664 1871 if (empty($cmid)) {
1872 // We were not given the course_module id. Try to find it.
741c4d0b 1873 if (!$cm = get_coursemodule_from_instance('data', $data->id)) {
4102b449 1874 echo $OUTPUT->notification('Could not get the course module for the data');
7f258664 1875 return false;
1876 } else {
1877 $cmid = $cm->id;
1878 }
1879 }
0b3b8c30 1880 $context = context_module::instance($cmid);
6403e679 1881
b572ce19 1882
7f258664 1883 // $data->participants:
1884 // 1 - Only teachers can add entries
1885 // 3 - Teachers and students can add entries
1886 switch ($data->participants) {
1887 case 1:
1888 foreach ($studentroles as $studentrole) {
1889 assign_capability('mod/data:writeentry', CAP_PREVENT, $studentrole->id, $context->id);
1890 }
1891 foreach ($teacherroles as $teacherrole) {
1892 assign_capability('mod/data:writeentry', CAP_ALLOW, $teacherrole->id, $context->id);
1893 }
1894 break;
1895 case 3:
1896 foreach ($studentroles as $studentrole) {
1897 assign_capability('mod/data:writeentry', CAP_ALLOW, $studentrole->id, $context->id);
1898 }
1899 foreach ($teacherroles as $teacherrole) {
1900 assign_capability('mod/data:writeentry', CAP_ALLOW, $teacherrole->id, $context->id);
1901 }
1902 break;
1903 }
6403e679 1904
7f258664 1905 // $data->assessed:
1906 // 2 - Only teachers can rate posts
1907 // 1 - Everyone can rate posts
1908 // 0 - No one can rate posts
1909 switch ($data->assessed) {
1910 case 0:
1911 foreach ($studentroles as $studentrole) {
1912 assign_capability('mod/data:rate', CAP_PREVENT, $studentrole->id, $context->id);
1913 }
1914 foreach ($teacherroles as $teacherrole) {
1915 assign_capability('mod/data:rate', CAP_PREVENT, $teacherrole->id, $context->id);
1916 }
1917 break;
1918 case 1:
1919 foreach ($studentroles as $studentrole) {
1920 assign_capability('mod/data:rate', CAP_ALLOW, $studentrole->id, $context->id);
1921 }
1922 foreach ($teacherroles as $teacherrole) {
1923 assign_capability('mod/data:rate', CAP_ALLOW, $teacherrole->id, $context->id);
1924 }
1925 break;
1926 case 2:
1927 foreach ($studentroles as $studentrole) {
1928 assign_capability('mod/data:rate', CAP_PREVENT, $studentrole->id, $context->id);
1929 }
1930 foreach ($teacherroles as $teacherrole) {
1931 assign_capability('mod/data:rate', CAP_ALLOW, $teacherrole->id, $context->id);
1932 }
1933 break;
1934 }
6403e679 1935
7f258664 1936 // $data->assesspublic:
1937 // 0 - Students can only see their own ratings
1938 // 1 - Students can see everyone's ratings
1939 switch ($data->assesspublic) {
1940 case 0:
1941 foreach ($studentroles as $studentrole) {
1942 assign_capability('mod/data:viewrating', CAP_PREVENT, $studentrole->id, $context->id);
1943 }
1944 foreach ($teacherroles as $teacherrole) {
1945 assign_capability('mod/data:viewrating', CAP_ALLOW, $teacherrole->id, $context->id);
1946 }
1947 break;
1948 case 1:
1949 foreach ($studentroles as $studentrole) {
1950 assign_capability('mod/data:viewrating', CAP_ALLOW, $studentrole->id, $context->id);
1951 }
1952 foreach ($teacherroles as $teacherrole) {
1953 assign_capability('mod/data:viewrating', CAP_ALLOW, $teacherrole->id, $context->id);
1954 }
1955 break;
1956 }
1957
1958 if (empty($cm)) {
9c00b5d7 1959 $cm = $DB->get_record('course_modules', array('id'=>$cmid));
7f258664 1960 }
6403e679 1961
7f258664 1962 switch ($cm->groupmode) {
055f2185 1963 case NOGROUPS:
7f258664 1964 break;
055f2185 1965 case SEPARATEGROUPS:
7f258664 1966 foreach ($studentroles as $studentrole) {
1967 assign_capability('moodle/site:accessallgroups', CAP_PREVENT, $studentrole->id, $context->id);
1968 }
1969 foreach ($teacherroles as $teacherrole) {
1970 assign_capability('moodle/site:accessallgroups', CAP_ALLOW, $teacherrole->id, $context->id);
1971 }
1972 break;
055f2185 1973 case VISIBLEGROUPS:
7f258664 1974 foreach ($studentroles as $studentrole) {
1975 assign_capability('moodle/site:accessallgroups', CAP_ALLOW, $studentrole->id, $context->id);
1976 }
1977 foreach ($teacherroles as $teacherrole) {
1978 assign_capability('moodle/site:accessallgroups', CAP_ALLOW, $teacherrole->id, $context->id);
1979 }
1980 break;
1981 }
1982 return true;
1983}
1984
4636bf83 1985/**
8303eb84 1986 * Returns the best name to show for a preset
4636bf83 1987 *
1988 * @param string $shortname
1989 * @param string $path
1990 * @return string
8303eb84 1991 */
1992function data_preset_name($shortname, $path) {
1993
668fc89a 1994 // We are looking inside the preset itself as a first choice, but also in normal data directory
30d76014 1995 $string = get_string('modulename', 'datapreset_'.$shortname);
8303eb84 1996
1997 if (substr($string, 0, 1) == '[') {
1998 return $shortname;
1999 } else {
2000 return $string;
2001 }
2002}
2003
4636bf83 2004/**
8aff1574 2005 * Returns an array of all the available presets.
4636bf83 2006 *
4636bf83 2007 * @return array
8303eb84 2008 */
2009function data_get_available_presets($context) {
2010 global $CFG, $USER;
b572ce19 2011
8303eb84 2012 $presets = array();
b572ce19 2013
8aff1574 2014 // First load the ratings sub plugins that exist within the modules preset dir
bd3b3bba 2015 if ($dirs = core_component::get_plugin_list('datapreset')) {
a9cda870 2016 foreach ($dirs as $dir=>$fulldir) {
8303eb84 2017 if (is_directory_a_preset($fulldir)) {
39790bd8 2018 $preset = new stdClass();
8303eb84 2019 $preset->path = $fulldir;
2020 $preset->userid = 0;
2021 $preset->shortname = $dir;
2022 $preset->name = data_preset_name($dir, $fulldir);
2023 if (file_exists($fulldir.'/screenshot.jpg')) {
2024 $preset->screenshot = $CFG->wwwroot.'/mod/data/preset/'.$dir.'/screenshot.jpg';
2025 } else if (file_exists($fulldir.'/screenshot.png')) {
2026 $preset->screenshot = $CFG->wwwroot.'/mod/data/preset/'.$dir.'/screenshot.png';
2027 } else if (file_exists($fulldir.'/screenshot.gif')) {
2028 $preset->screenshot = $CFG->wwwroot.'/mod/data/preset/'.$dir.'/screenshot.gif';
2029 }
2030 $presets[] = $preset;
2031 }
2032 }
2033 }
8aff1574
SH
2034 // Now add to that the site presets that people have saved
2035 $presets = data_get_available_site_presets($context, $presets);
2036 return $presets;
2037}
8303eb84 2038
8aff1574
SH
2039/**
2040 * Gets an array of all of the presets that users have saved to the site.
2041 *
2042 * @param stdClass $context The context that we are looking from.
2043 * @param array $presets
2044 * @return array An array of presets
2045 */
2046function data_get_available_site_presets($context, array $presets=array()) {
810860d2
PS
2047 global $USER;
2048
8aff1574
SH
2049 $fs = get_file_storage();
2050 $files = $fs->get_area_files(DATA_PRESET_CONTEXT, DATA_PRESET_COMPONENT, DATA_PRESET_FILEAREA);
2051 $canviewall = has_capability('mod/data:viewalluserpresets', $context);
2052 if (empty($files)) {
2053 return $presets;
2054 }
2055 foreach ($files as $file) {
2056 if (($file->is_directory() && $file->get_filepath()=='/') || !$file->is_directory() || (!$canviewall && $file->get_userid() != $USER->id)) {
2057 continue;
2058 }
2059 $preset = new stdClass;
2060 $preset->path = $file->get_filepath();
2061 $preset->name = trim($preset->path, '/');
2062 $preset->shortname = $preset->name;
2063 $preset->userid = $file->get_userid();
2064 $preset->id = $file->get_id();
2065 $preset->storedfile = $file;
2066 $presets[] = $preset;
2067 }
2068 return $presets;
2069}
2070
2071/**
2072 * Deletes a saved preset.
2073 *
2074 * @param string $name
2075 * @return bool
2076 */
2077function data_delete_site_preset($name) {
2078 $fs = get_file_storage();
2079
2080 $files = $fs->get_directory_files(DATA_PRESET_CONTEXT, DATA_PRESET_COMPONENT, DATA_PRESET_FILEAREA, 0, '/'.$name.'/');
2081 if (!empty($files)) {
2082 foreach ($files as $file) {
2083 $file->delete();
8303eb84 2084 }
2085 }
b572ce19 2086
8aff1574
SH
2087 $dir = $fs->get_file(DATA_PRESET_CONTEXT, DATA_PRESET_COMPONENT, DATA_PRESET_FILEAREA, 0, '/'.$name.'/', '.');
2088 if (!empty($dir)) {
2089 $dir->delete();
2090 }
2091 return true;
8303eb84 2092}
2093
4636bf83 2094/**
8aff1574
SH
2095 * Prints the heads for a page
2096 *
2097 * @param stdClass $course
2098 * @param stdClass $cm
2099 * @param stdClass $data
4636bf83 2100 * @param string $currenttab
2101 */
8303eb84 2102function data_print_header($course, $cm, $data, $currenttab='') {
b572ce19 2103
b0ff558c 2104 global $CFG, $displaynoticegood, $displaynoticebad, $OUTPUT, $PAGE;
b572ce19 2105
b0ff558c 2106 $PAGE->set_title($data->name);
b0ff558c 2107 echo $OUTPUT->header();
66e2b9f8
AD
2108 echo $OUTPUT->heading(format_string($data->name), 2);
2109 echo $OUTPUT->box(format_module_intro('data', $data, $cm->id), 'generalbox', 'intro');
8303eb84 2110
66e2b9f8 2111 // Groups needed for Add entry tab
055f2185 2112 $currentgroup = groups_get_activity_group($cm);
5d59cbe9 2113 $groupmode = groups_get_activity_groupmode($cm);
b572ce19 2114
668fc89a 2115 // Print the tabs
b572ce19 2116
8303eb84 2117 if ($currenttab) {
138e480e 2118 include('tabs.php');
8303eb84 2119 }
b572ce19 2120
b8b554ac 2121 // Print any notices
b572ce19 2122
8303eb84 2123 if (!empty($displaynoticegood)) {
4102b449 2124 echo $OUTPUT->notification($displaynoticegood, 'notifysuccess'); // good (usually green)
8303eb84 2125 } else if (!empty($displaynoticebad)) {
4102b449 2126 echo $OUTPUT->notification($displaynoticebad); // bad (usuually red)
8303eb84 2127 }
2128}
7f258664 2129
4636bf83 2130/**
0393a8b7
PS
2131 * Can user add more entries?
2132 *
4636bf83 2133 * @param object $data
2134 * @param mixed $currentgroup
2135 * @param int $groupmode
0393a8b7 2136 * @param stdClass $context
4636bf83 2137 * @return bool
2138 */
e4e96115 2139function data_user_can_add_entry($data, $currentgroup, $groupmode, $context = null) {
cca1547e 2140 global $USER;
b572ce19 2141
e4e96115 2142 if (empty($context)) {
0393a8b7 2143 $cm = get_coursemodule_from_instance('data', $data->id, 0, false, MUST_EXIST);
0b3b8c30 2144 $context = context_module::instance($cm->id);
e4e96115
RW
2145 }
2146
0393a8b7
PS
2147 if (has_capability('mod/data:manageentries', $context)) {
2148 // no entry limits apply if user can manage
e4e96115 2149
0393a8b7 2150 } else if (!has_capability('mod/data:writeentry', $context)) {
e4e96115 2151 return false;
b572ce19 2152
0393a8b7 2153 } else if (data_atmaxentries($data)) {
cca1547e 2154 return false;
e8027a40
ARN
2155 } else if (data_in_readonly_period($data)) {
2156 // Check whether we're in a read-only period
2742ffe7
AD
2157 return false;
2158 }
2159
04366d79 2160 if (!$groupmode or has_capability('moodle/site:accessallgroups', $context)) {
2161 return true;
2162 }
2163
cca1547e 2164 if ($currentgroup) {
2c386f82 2165 return groups_is_member($currentgroup);
cca1547e 2166 } else {
2167 //else it might be group 0 in visible mode
2168 if ($groupmode == VISIBLEGROUPS){
cca1547e 2169 return true;
04366d79 2170 } else {
2171 return false;
cca1547e 2172 }
2173 }
2174}
2175
e8027a40
ARN
2176/**
2177 * Check whether the specified database activity is currently in a read-only period
2178 *
2179 * @param object $data
2180 * @return bool returns true if the time fields in $data indicate a read-only period; false otherwise
2181 */
2182function data_in_readonly_period($data) {
2183 $now = time();
2184 if (!$data->timeviewfrom && !$data->timeviewto) {
2185 return false;
2186 } else if (($data->timeviewfrom && $now < $data->timeviewfrom) || ($data->timeviewto && $now > $data->timeviewto)) {
2187 return false;
2188 }
2189 return true;
2190}
50194545 2191
4636bf83 2192/**
2193 * @return bool
2194 */
50194545 2195function is_directory_a_preset($directory) {
2196 $directory = rtrim($directory, '/\\') . '/';
2dc6be3f 2197 $status = file_exists($directory.'singletemplate.html') &&
2198 file_exists($directory.'listtemplate.html') &&
2199 file_exists($directory.'listtemplateheader.html') &&
2200 file_exists($directory.'listtemplatefooter.html') &&
2201 file_exists($directory.'addtemplate.html') &&
2202 file_exists($directory.'rsstemplate.html') &&
2203 file_exists($directory.'rsstitletemplate.html') &&
2204 file_exists($directory.'csstemplate.css') &&
2205 file_exists($directory.'jstemplate.js') &&
2206 file_exists($directory.'preset.xml');
b572ce19 2207
2dc6be3f 2208 return $status;
50194545 2209}
2210
4636bf83 2211/**
cba87c36 2212 * Abstract class used for data preset importers
4636bf83 2213 */
cba87c36 2214abstract class data_preset_importer {
b572ce19 2215
cba87c36
SH
2216 protected $course;
2217 protected $cm;
2218 protected $module;
2219 protected $directory;
50194545 2220
4636bf83 2221 /**
cba87c36
SH
2222 * Constructor
2223 *
2224 * @param stdClass $course
2225 * @param stdClass $cm
2226 * @param stdClass $module
2227 * @param string $directory
4636bf83 2228 */
cba87c36 2229 public function __construct($course, $cm, $module, $directory) {
50194545 2230 $this->course = $course;
2231 $this->cm = $cm;
cba87c36
SH
2232 $this->module = $module;
2233 $this->directory = $directory;
2234 }
2235
2236 /**
2237 * Returns the name of the directory the preset is located in
2238 * @return string
2239 */
2240 public function get_directory() {
2241 return basename($this->directory);
50194545 2242 }
263819c8
AD
2243
2244 /**
2245 * Retreive the contents of a file. That file may either be in a conventional directory of the Moodle file storage
2246 * @param file_storage $filestorage. should be null if using a conventional directory
2247 * @param stored_file $fileobj the directory to look in. null if using a conventional directory
2248 * @param string $dir the directory to look in. null if using the Moodle file storage
2249 * @param string $filename the name of the file we want
c600a85c 2250 * @return string the contents of the file or null if the file doesn't exist.
263819c8
AD
2251 */
2252 public function data_preset_get_file_contents(&$filestorage, &$fileobj, $dir, $filename) {
2253 if(empty($filestorage) || empty($fileobj)) {
2254 if (substr($dir, -1)!='/') {
2255 $dir .= '/';
2256 }
c600a85c
AG
2257 if (file_exists($dir.$filename)) {
2258 return file_get_contents($dir.$filename);
2259 } else {
2260 return null;
2261 }
263819c8 2262 } else {
c600a85c
AG
2263 if ($filestorage->file_exists(DATA_PRESET_CONTEXT, DATA_PRESET_COMPONENT, DATA_PRESET_FILEAREA, 0, $fileobj->get_filepath(), $filename)) {
2264 $file = $filestorage->get_file(DATA_PRESET_CONTEXT, DATA_PRESET_COMPONENT, DATA_PRESET_FILEAREA, 0, $fileobj->get_filepath(), $filename);
2265 return $file->get_content();
2266 } else {
2267 return null;
2268 }
263819c8
AD
2269 }
2270
2271 }
4636bf83 2272 /**
cba87c36
SH
2273 * Gets the preset settings
2274 * @global moodle_database $DB
2275 * @return stdClass
4636bf83 2276 */
cba87c36
SH
2277 public function get_preset_settings() {
2278 global $DB;
50194545 2279
263819c8 2280 $fs = $fileobj = null;
cba87c36 2281 if (!is_directory_a_preset($this->directory)) {
263819c8 2282 //maybe the user requested a preset stored in the Moodle file storage
375053ed 2283
263819c8
AD
2284 $fs = get_file_storage();
2285 $files = $fs->get_area_files(DATA_PRESET_CONTEXT, DATA_PRESET_COMPONENT, DATA_PRESET_FILEAREA);
2286
720f37fd 2287 //preset name to find will be the final element of the directory
c600a85c
AG
2288 $explodeddirectory = explode('/', $this->directory);
2289 $presettofind = end($explodeddirectory);
720f37fd
AD
2290
2291 //now go through the available files available and see if we can find it
263819c8
AD
2292 foreach ($files as $file) {
2293 if (($file->is_directory() && $file->get_filepath()=='/') || !$file->is_directory()) {
2294 continue;
2295 }
2296 $presetname = trim($file->get_filepath(), '/');
720f37fd 2297 if ($presetname==$presettofind) {
263819c8
AD
2298 $this->directory = $presetname;
2299 $fileobj = $file;
2300 }
2301 }
2302
2303 if (empty($fileobj)) {
2304 print_error('invalidpreset', 'data', '', $this->directory);
2305 }
50194545 2306 }
2307
cba87c36
SH
2308 $allowed_settings = array(
2309 'intro',
2310 'comments',
2311 'requiredentries',
2312 'requiredentriestoview',
2313 'maxentries',
2314 'rssarticles',
2315 'approval',
2316 'defaultsortdir',
2317 'defaultsort');
2318
2319 $result = new stdClass;
2320 $result->settings = new stdClass;
2321 $result->importfields = array();
2322 $result->currentfields = $DB->get_records('data_fields', array('dataid'=>$this->module->id));
2323 if (!$result->currentfields) {
2324 $result->currentfields = array();
2325 }
2326
2327
50194545 2328 /* Grab XML */
263819c8 2329 $presetxml = $this->data_preset_get_file_contents($fs, $fileobj, $this->directory,'preset.xml');
143c1eb9 2330 $parsedxml = xmlize($presetxml, 0);
50194545 2331
2332 /* First, do settings. Put in user friendly array. */
2333 $settingsarray = $parsedxml['preset']['#']['settings'][0]['#'];
cba87c36 2334 $result->settings = new StdClass();
50194545 2335 foreach ($settingsarray as $setting => $value) {
cba87c36 2336 if (!is_array($value) || !in_array($setting, $allowed_settings)) {
eaa30818 2337 // unsupported setting
2338 continue;
2339 }
cba87c36 2340 $result->settings->$setting = $value[0]['#'];
50194545 2341 }
2342
2343 /* Now work out fields to user friendly array */
2344 $fieldsarray = $parsedxml['preset']['#']['field'];
50194545 2345 foreach ($fieldsarray as $field) {
02007b01 2346 if (!is_array($field)) {
2347 continue;
2348 }
50194545 2349 $f = new StdClass();
2350 foreach ($field['#'] as $param => $value) {
02007b01 2351 if (!is_array($value)) {
2352 continue;
2353 }
9c00b5d7 2354 $f->$param = $value[0]['#'];
50194545 2355 }
cba87c36 2356 $f->dataid = $this->module->id;
50194545 2357 $f->type = clean_param($f->type, PARAM_ALPHA);
cba87c36 2358 $result->importfields[] = $f;
50194545 2359 }
50194545 2360 /* Now add the HTML templates to the settings array so we can update d */
263819c8
AD
2361 $result->settings->singletemplate = $this->data_preset_get_file_contents($fs, $fileobj,$this->directory,"singletemplate.html");
2362 $result->settings->listtemplate = $this->data_preset_get_file_contents($fs, $fileobj,$this->directory,"listtemplate.html");
2363 $result->settings->listtemplateheader = $this->data_preset_get_file_contents($fs, $fileobj,$this->directory,"listtemplateheader.html");
2364 $result->settings->listtemplatefooter = $this->data_preset_get_file_contents($fs, $fileobj,$this->directory,"listtemplatefooter.html");
2365 $result->settings->addtemplate = $this->data_preset_get_file_contents($fs, $fileobj,$this->directory,"addtemplate.html");
2366 $result->settings->rsstemplate = $this->data_preset_get_file_contents($fs, $fileobj,$this->directory,"rsstemplate.html");
2367 $result->settings->rsstitletemplate = $this->data_preset_get_file_contents($fs, $fileobj,$this->directory,"rsstitletemplate.html");
2368 $result->settings->csstemplate = $this->data_preset_get_file_contents($fs, $fileobj,$this->directory,"csstemplate.css");
2369 $result->settings->jstemplate = $this->data_preset_get_file_contents($fs, $fileobj,$this->directory,"jstemplate.js");
c600a85c 2370 $result->settings->asearchtemplate = $this->data_preset_get_file_contents($fs, $fileobj,$this->directory,"asearchtemplate.html");
50194545 2371
cba87c36 2372 $result->settings->instance = $this->module->id;
cba87c36 2373 return $result;
50194545 2374 }
2375
4636bf83 2376 /**
cba87c36 2377 * Import the preset into the given database module
4636bf83 2378 * @return bool
2379 */
cba87c36 2380 function import($overwritesettings) {
fe9d5f7e 2381 global $DB, $CFG;
50194545 2382
cba87c36
SH
2383 $params = $this->get_preset_settings();
2384 $settings = $params->settings;
2385 $newfields = $params->importfields;
2386 $currentfields = $params->currentfields;
50194545 2387 $preservedfields = array();
b572ce19 2388
50194545 2389 /* Maps fields and makes new ones */
2390 if (!empty($newfields)) {
2391 /* We require an injective mapping, and need to know what to protect */
2392 foreach ($newfields as $nid => $newfield) {
2393 $cid = optional_param("field_$nid", -1, PARAM_INT);
cba87c36
SH
2394 if ($cid == -1) {
2395 continue;
2396 }
29c1bb15 2397 if (array_key_exists($cid, $preservedfields)){
2398 print_error('notinjectivemap', 'data');
8429163d 2399 }
50194545 2400 else $preservedfields[$cid] = true;
2401 }
b572ce19 2402
50194545 2403 foreach ($newfields as $nid => $newfield) {
2404 $cid = optional_param("field_$nid", -1, PARAM_INT);
b572ce19 2405
50194545 2406 /* A mapping. Just need to change field params. Data kept. */
2407 if ($cid != -1 and isset($currentfields[$cid])) {
cba87c36 2408 $fieldobject = data_get_field_from_id($currentfields[$cid]->id, $this->module);
50194545 2409 foreach ($newfield as $param => $value) {
2410 if ($param != "id") {
2411 $fieldobject->field->$param = $value;
2412 }
2413 }
2414 unset($fieldobject->field->similarfield);
2415 $fieldobject->update_field();
2416 unset($fieldobject);
cba87c36
SH
2417 } else {
2418 /* Make a new field */
50194545 2419 include_once("field/$newfield->type/field.class.php");
b572ce19 2420
50194545 2421 if (!isset($newfield->description)) {
2422 $newfield->description = '';
2423 }
2424 $classname = 'data_field_'.$newfield->type;
cba87c36 2425 $fieldclass = new $classname($newfield, $this->module);
50194545 2426 $fieldclass->insert_field();
2427 unset($fieldclass);
2428 }
2429 }
2430 }
2431
2432 /* Get rid of all old unused data */
2433 if (!empty($preservedfields)) {
2434 foreach ($currentfields as $cid => $currentfield) {
2435 if (!array_key_exists($cid, $preservedfields)) {
2436 /* Data not used anymore so wipe! */
2437 print "Deleting field $currentfield->name<br />";
b572ce19 2438
50194545 2439 $id = $currentfield->id;
2440 //Why delete existing data records and related comments/ratings??
9c00b5d7 2441 $DB->delete_records('data_content', array('fieldid'=>$id));
2442 $DB->delete_records('data_fields', array('id'=>$id));
50194545 2443 }
2444 }
2445 }
2446
cba87c36 2447 // handle special settings here
eaa30818 2448 if (!empty($settings->defaultsort)) {
2449 if (is_numeric($settings->defaultsort)) {
668fc89a 2450 // old broken value
eaa30818 2451 $settings->defaultsort = 0;
2452 } else {
cba87c36 2453 $settings->defaultsort = (int)$DB->get_field('data_fields', 'id', array('dataid'=>$this->module->id, 'name'=>$settings->defaultsort));
eaa30818 2454 }
2455 } else {
2456 $settings->defaultsort = 0;
2457 }
2458
2459 // do we want to overwrite all current database settings?
8528bf26 2460 if ($overwritesettings) {
eaa30818 2461 // all supported settings
8528bf26 2462 $overwrite = array_keys((array)$settings);
2463 } else {
eaa30818 2464 // only templates and sorting
8528bf26 2465 $overwrite = array('singletemplate', 'listtemplate', 'listtemplateheader', 'listtemplatefooter',
2466 'addtemplate', 'rsstemplate', 'rsstitletemplate', 'csstemplate', 'jstemplate',
eaa30818 2467 'asearchtemplate', 'defaultsortdir', 'defaultsort');
8528bf26 2468 }
2469
eaa30818 2470 // now overwrite current data settings
cba87c36 2471 foreach ($this->module as $prop=>$unused) {
8528bf26 2472 if (in_array($prop, $overwrite)) {
cba87c36 2473 $this->module->$prop = $settings->$prop;
13534ef7
ML
2474 }
2475 }
db0f2a44 2476
cba87c36 2477 data_update_instance($this->module);
50194545 2478
cba87c36
SH
2479 return $this->cleanup();
2480 }
b572ce19 2481
cba87c36
SH
2482 /**
2483 * Any clean up routines should go here
2484 * @return bool
2485 */
2486 public function cleanup() {
50194545 2487 return true;
2488 }
2489}
2490
cba87c36
SH
2491/**
2492 * Data preset importer for uploaded presets
2493 */
2494class data_preset_upload_importer extends data_preset_importer {
2495 public function __construct($course, $cm, $module, $filepath) {
2496 global $USER;
2497 if (is_file($filepath)) {
2498 $fp = get_file_packer();
2499 if ($fp->extract_to_pathname($filepath, $filepath.'_extracted')) {
2500 fulldelete($filepath);
2501 }
2502 $filepath .= '_extracted';
2503 }
2504 parent::__construct($course, $cm, $module, $filepath);
2505 }
2506 public function cleanup() {
2507 return fulldelete($this->directory);
2508 }
2509}
2510
2511/**
2512 * Data preset importer for existing presets
2513 */
2514class data_preset_existing_importer extends data_preset_importer {
2515 protected $userid;
2516 public function __construct($course, $cm, $module, $fullname) {
2517 global $USER;
2518 list($userid, $shortname) = explode('/', $fullname, 2);
0b3b8c30 2519 $context = context_module::instance($cm->id);
cba87c36
SH
2520 if ($userid && ($userid != $USER->id) && !has_capability('mod/data:manageuserpresets', $context) && !has_capability('mod/data:viewalluserpresets', $context)) {
2521 throw new coding_exception('Invalid preset provided');
2522 }
2523
2524 $this->userid = $userid;
2525 $filepath = data_preset_path($course, $userid, $shortname);
2526 parent::__construct($course, $cm, $module, $filepath);
2527 }
2528 public function get_userid() {
2529 return $this->userid;
2530 }
2531}
2532
4636bf83 2533/**
2534 * @global object
2535 * @global object
2536 * @param object $course
2537 * @param int $userid
2538 * @param string $shortname
2539 * @return string
2540 */
50194545 2541function data_preset_path($course, $userid, $shortname) {
2542 global $USER, $CFG;
b572ce19 2543
0b3b8c30 2544 $context = context_course::instance($course->id);
b572ce19 2545
50194545 2546 $userid = (int)$userid;
b572ce19 2547
263819c8 2548 $path = null;
50194545 2549 if ($userid > 0 && ($userid == $USER->id || has_capability('mod/data:viewalluserpresets', $context))) {
263819c8 2550 $path = $CFG->dataroot.'/data/preset/'.$userid.'/'.$shortname;
50194545 2551 } else if ($userid == 0) {
263819c8 2552 $path = $CFG->dirroot.'/mod/data/preset/'.$shortname;
50194545 2553 } else if ($userid < 0) {
7aa06e6d 2554 $path = $CFG->tempdir.'/data/'.-$userid.'/'.$shortname;
50194545 2555 }
b572ce19 2556
263819c8 2557 return $path;
50194545 2558}
0b5a80a1 2559
2560/**
2561 * Implementation of the function for printing the form elements that control
2562 * whether the course reset functionality affects the data.
4636bf83 2563 *
0b5a80a1 2564 * @param $mform form passed by reference
2565 */
2566function data_reset_course_form_definition(&$mform) {
2567 $mform->addElement('header', 'dataheader', get_string('modulenameplural', 'data'));
2568 $mform->addElement('checkbox', 'reset_data', get_string('deleteallentries','data'));
2569
2570 $mform->addElement('checkbox', 'reset_data_notenrolled', get_string('deletenotenrolled', 'data'));
2571 $mform->disabledIf('reset_data_notenrolled', 'reset_data', 'checked');
2572
2573 $mform->addElement('checkbox', 'reset_data_ratings', get_string('deleteallratings'));
2574 $mform->disabledIf('reset_data_ratings', 'reset_data', 'checked');
2575
2576 $mform->addElement('checkbox', 'reset_data_comments', get_string('deleteallcomments'));
2577 $mform->disabledIf('reset_data_comments', 'reset_data', 'checked');
2578}
2579
2580/**
2581 * Course reset form defaults.
4636bf83 2582 * @return array
0b5a80a1 2583 */
2584function data_reset_course_form_defaults($course) {
2585 return array('reset_data'=>0, 'reset_data_ratings'=>1, 'reset_data_comments'=>1, 'reset_data_notenrolled'=>0);
2586}
2587
2588/**
2589 * Removes all grades from gradebook
4636bf83 2590 *
2591 * @global object
2592 * @global object
0b5a80a1 2593 * @param int $courseid
4636bf83 2594 * @param string $type optional type
0b5a80a1 2595 */
2596function data_reset_gradebook($courseid, $type='') {
9c00b5d7 2597 global $CFG, $DB;
0b5a80a1 2598
2599 $sql = "SELECT d.*, cm.idnumber as cmidnumber, d.course as courseid
9c00b5d7 2600 FROM {data} d, {course_modules} cm, {modules} m
2601 WHERE m.name='data' AND m.id=cm.module AND cm.instance=d.id AND d.course=?";
0b5a80a1 2602
9c00b5d7 2603 if ($datas = $DB->get_records_sql($sql, array($courseid))) {
0b5a80a1 2604 foreach ($datas as $data) {
2605 data_grade_item_update($data, 'reset');
2606 }
2607 }
2608}
2609
2610/**
72d2982e 2611 * Actual implementation of the reset course functionality, delete all the
0b5a80a1 2612 * data responses for course $data->courseid.
4636bf83 2613 *
2614 * @global object
2615 * @global object
2616 * @param object $data the data submitted from the reset course.
0b5a80a1 2617 * @return array status array
2618 */
2619function data_reset_userdata($data) {
9c00b5d7 2620 global $CFG, $DB;
0b5a80a1 2621 require_once($CFG->libdir.'/filelib.php');
d251b259 2622 require_once($CFG->dirroot.'/rating/lib.php');
b572ce19 2623
0b5a80a1 2624 $componentstr = get_string('modulenameplural', 'data');
2625 $status = array();
b572ce19 2626
0b5a80a1 2627 $allrecordssql = "SELECT r.id
9c00b5d7 2628 FROM {data_records} r
2629 INNER JOIN {data} d ON r.dataid = d.id
2630 WHERE d.course = ?";
0b5a80a1 2631
2632 $alldatassql = "SELECT d.id
9c00b5d7 2633 FROM {data} d
2634 WHERE d.course=?";
0b5a80a1 2635
d251b259 2636 $rm = new rating_manager();
2b04c41c
SH
2637 $ratingdeloptions = new stdClass;
2638 $ratingdeloptions->component = 'mod_data';
2639 $ratingdeloptions->ratingarea = 'entry';
d251b259 2640
4e457296
MN
2641 // Set the file storage - may need it to remove files later.
2642 $fs = get_file_storage();
2643
0b5a80a1 2644 // delete entries if requested
2645 if (!empty($data->reset_data)) {
e998effa 2646 $DB->delete_records_select('comments', "itemid IN ($allrecordssql) AND commentarea='database_entry'", array($data->courseid));
9c00b5d7 2647 $DB->delete_records_select('data_content', "recordid IN ($allrecordssql)", array($data->courseid));
2648 $DB->delete_records_select('data_records', "dataid IN ($alldatassql)", array($data->courseid));
0b5a80a1 2649
9c00b5d7 2650 if ($datas = $DB->get_records_sql($alldatassql, array($data->courseid))) {
0b5a80a1 2651 foreach ($datas as $dataid=>$unused) {
d251b259
AD
2652 if (!$cm = get_coursemodule_from_instance('data', $dataid)) {
2653 continue;
2654 }
0b3b8c30 2655 $datacontext = context_module::instance($cm->id);
d251b259 2656
4e457296
MN
2657 // Delete any files that may exist.
2658 $fs->delete_area_files($datacontext->id, 'mod_data', 'content');
2659
d251b259
AD
2660 $ratingdeloptions->contextid = $datacontext->id;
2661 $rm->delete_ratings($ratingdeloptions);
0b5a80a1 2662 }
2663 }
b572ce19 2664
0b5a80a1 2665 if (empty($data->reset_gradebook_grades)) {
2666 // remove all grades from gradebook
2667 data_reset_gradebook($data->courseid);
2668 }
2669 $status[] = array('component'=>$componentstr, 'item'=>get_string('deleteallentries', 'data'), 'error'=>false);
2670 }
2671
2672 // remove entries by users not enrolled into course
2673 if (!empty($data->reset_data_notenrolled)) {
2674 $recordssql = "SELECT r.id, r.userid, r.dataid, u.id AS userexists, u.deleted AS userdeleted
9c00b5d7 2675 FROM {data_records} r
2676 JOIN {data} d ON r.dataid = d.id
2677 LEFT JOIN {user} u ON r.userid = u.id
2678 WHERE d.course = ? AND r.userid > 0";
0b5a80a1 2679
0b3b8c30 2680 $course_context = context_course::instance($data->courseid);
0b5a80a1 2681 $notenrolled = array();
2682 $fields = array();
6b1b1d03
EL
2683 $rs = $DB->get_recordset_sql($recordssql, array($data->courseid));
2684 foreach ($rs as $record) {
2685 if (array_key_exists($record->userid, $notenrolled) or !$record->userexists or $record->userdeleted
2686 or !is_enrolled($course_context, $record->userid)) {
2687 //delete ratings
2688 if (!$cm = get_coursemodule_from_instance('data', $record->dataid)) {
2689 continue;
2690 }
0b3b8c30 2691 $datacontext = context_module::instance($cm->id);
6b1b1d03
EL
2692 $ratingdeloptions->contextid = $datacontext->id;
2693 $ratingdeloptions->itemid = $record->id;
2694 $rm->delete_ratings($ratingdeloptions);
2695
4e457296
MN
2696 // Delete any files that may exist.
2697 if ($contents = $DB->get_records('data_content', array('recordid' => $record->id), '', 'id')) {
2698 foreach ($contents as $content) {
2699 $fs->delete_area_files($datacontext->id, 'mod_data', 'content', $content->id);
0b5a80a1 2700 }
0b5a80a1 2701 }
6b1b1d03 2702 $notenrolled[$record->userid] = true;
4e457296
MN
2703
2704 $DB->delete_records('comments', array('itemid' => $record->id, 'commentarea' => 'database_entry'));
2705 $DB->delete_records('data_content', array('recordid' => $record->id));
2706 $DB->delete_records('data_records', array('id' => $record->id));
0b5a80a1 2707 }
0b5a80a1 2708 }
6b1b1d03
EL
2709 $rs->close();
2710 $status[] = array('component'=>$componentstr, 'item'=>get_string('deletenotenrolled', 'data'), 'error'=>false);
0b5a80a1 2711 }
2712
2713 // remove all ratings
2714 if (!empty($data->reset_data_ratings)) {
d251b259
AD
2715 if ($datas = $DB->get_records_sql($alldatassql, array($data->courseid))) {
2716 foreach ($datas as $dataid=>$unused) {
2717 if (!$cm = get_coursemodule_from_instance('data', $dataid)) {
2718 continue;
2719 }
0b3b8c30 2720 $datacontext = context_module::instance($cm->id);
d251b259
AD
2721
2722 $ratingdeloptions->contextid = $datacontext->id;
2723 $rm->delete_ratings($ratingdeloptions);
2724 }
2725 }
0b5a80a1 2726
2727 if (empty($data->reset_gradebook_grades)) {
2728 // remove all grades from gradebook
2729 data_reset_gradebook($data->courseid);
2730 }
b572ce19 2731
0b5a80a1 2732 $status[] = array('component'=>$componentstr, 'item'=>get_string('deleteallratings'), 'error'=>false);
2733 }
2734
2735 // remove all comments
2736 if (!empty($data->reset_data_comments)) {
e998effa 2737 $DB->delete_records_select('comments', "itemid IN ($allrecordssql) AND commentarea='database_entry'", array($data->courseid));
0b5a80a1 2738 $status[] = array('component'=>$componentstr, 'item'=>get_string('deleteallcomments'), 'error'=>false);
2739 }
2740
b8b554ac 2741 // updating dates - shift may be negative too
0b5a80a1 2742 if ($data->timeshift) {
2743 shift_course_mod_dates('data', array('timeavailablefrom', 'timeavailableto', 'timeviewfrom', 'timeviewto'), $data->timeshift, $data->courseid);
2744 $status[] = array('component'=>$componentstr, 'item'=>get_string('datechanged'), 'error'=>false);
2745 }
b572ce19 2746
0b5a80a1 2747 return $status;
2748}
f432bebf 2749
2750/**
2751 * Returns all other caps used in module
4636bf83 2752 *
2753 * @return array
f432bebf 2754 */
2755function data_get_extra_capabilities() {
16b86ae4 2756 return array('moodle/site:accessallgroups', 'moodle/site:viewfullnames', 'moodle/rating:view', 'moodle/rating:viewany', 'moodle/rating:viewall', 'moodle/rating:rate', 'moodle/comment:view', 'moodle/comment:post', 'moodle/comment:delete');
f432bebf 2757}
2758
18a2a0cb 2759/**
2760 * @param string $feature FEATURE_xx constant for requested feature
2761 * @return mixed True if module supports feature, null if doesn't know
2762 */
2763function data_supports($feature) {
2764 switch($feature) {
42f103be 2765 case FEATURE_GROUPS: return true;
2766 case FEATURE_GROUPINGS: return true;
dc5c2bd9 2767 case FEATURE_MOD_INTRO: return true;
18a2a0cb 2768 case FEATURE_COMPLETION_TRACKS_VIEWS: return true;
42f103be 2769 case FEATURE_GRADE_HAS_GRADE: return true;
2770 case FEATURE_GRADE_OUTCOMES: return true;
d251b259 2771 case FEATURE_RATE: return true;
fd3f6bf9 2772 case FEATURE_BACKUP_MOODLE2: return true;
3e4c2435 2773 case FEATURE_SHOW_DESCRIPTION: return true;
42f103be 2774
18a2a0cb 2775 default: return null;
17da2e6f 2776 }
18a2a0cb 2777}
4636bf83 2778/**
2779 * @global object
2780 * @param array $export
2781 * @param string $delimiter_name
2782 * @param object $database
2783 * @param int $count
2784 * @param bool $return
2785 * @return string|void
2786 */
9a5abd1b 2787function data_export_csv($export, $delimiter_name, $database, $count, $return=false) {
ecd06483 2788 global $CFG;
2789 require_once($CFG->libdir . '/csvlib.class.php');
9a5abd1b
AG
2790
2791 $filename = $database . '-' . $count . '-record';
20988152 2792 if ($count > 1) {
2793 $filename .= 's';
2794 }
9a5abd1b
AG
2795 if ($return) {
2796 return csv_export_writer::print_array($export, $delimiter_name, '"', true);
2797 } else {
2798 csv_export_writer::download_array($filename, $export, $delimiter_name);
20988152 2799 }
2800}
2801
4636bf83 2802/**
2803 * @global object
2804 * @param array $export
2805 * @param string $dataname
2806 * @param int $count
2807 * @return string
2808 */
1bf8c6b2 2809function data_export_xls($export, $dataname, $count) {
20988152 2810 global $CFG;
2811 require_once("$CFG->libdir/excellib.class.php");
fa7f82be 2812 $filename = clean_filename("{$dataname}-{$count}_record");
20988152 2813 if ($count > 1) {
2814 $filename .= 's';
2815 }
2816 $filename .= clean_filename('-' . gmdate("Ymd_Hi"));
2817 $filename .= '.xls';
ecd06483 2818
2819 $filearg = '-';
ecd06483 2820 $workbook = new MoodleExcelWorkbook($filearg);
1bf8c6b2 2821 $workbook->send($filename);
20988152 2822 $worksheet = array();
75427a82 2823 $worksheet[0] = $workbook->add_worksheet('');
20988152 2824 $rowno = 0;
2825 foreach ($export as $row) {
2826 $colno = 0;
2827 foreach($row as $col) {
2828 $worksheet[0]->write($rowno, $colno, $col);
2829 $colno++;
2830 }
2831 $rowno++;
2832 }
2833 $workbook->close();
ecd06483 2834 return $filename;
20988152 2835}
2836
4636bf83 2837/**
2838 * @global object
2839 * @param array $export
2840 * @param string $dataname
2841 * @param int $count
2842 * @param string
2843 */
1bf8c6b2 2844function data_export_ods($export, $dataname, $count) {
20988152 2845 global $CFG;
2846 require_once("$CFG->libdir/odslib.class.php");
fa7f82be 2847 $filename = clean_filename("{$dataname}-{$count}_record");
20988152 2848 if ($count > 1) {
2849 $filename .= 's';
2850 }
2851 $filename .= clean_filename('-' . gmdate("Ymd_Hi"));
2852 $filename .= '.ods';
ecd06483 2853 $filearg = '-';
1bf8c6b2 2854 $workbook = new MoodleODSWorkbook($filearg);
2855 $workbook->send($filename);
20988152 2856 $worksheet = array();
75427a82 2857 $worksheet[0] = $workbook->add_worksheet('');
20988152 2858 $rowno = 0;
2859 foreach ($export as $row) {
2860 $colno = 0;
2861 foreach($row as $col) {
2862 $worksheet[0]->write($rowno, $colno, $col);
2863 $colno++;
2864 }
2865 $rowno++;
2866 }
2867 $workbook->close();
ecd06483 2868 return $filename;
2869}
2870
4636bf83 2871/**
2872 * @global object
2873 * @param int $dataid
2874 * @param array $fields
2875 * @param array $selectedfields
83468603
AG
2876 * @param int $currentgroup group ID of the current group. This is used for
2877 * exporting data while maintaining group divisions.
6e12c215
AB
2878 * @param object $context the context in which the operation is performed (for capability checks)
2879 * @param bool $userdetails whether to include the details of the record author
2880 * @param bool $time whether to include time created/modified
2881 * @param bool $approval whether to include approval status
4636bf83 2882 * @return array
2883 */
4f304eeb
HB
2884function data_get_exportdata($dataid, $fields, $selectedfields, $currentgroup=0, $context=null,
2885 $userdetails=false, $time=false, $approval=false) {
ecd06483 2886 global $DB;
2887
4f304eeb
HB
2888 if (is_null($context)) {
2889 $context = context_system::instance();
2890 }
2891 // exporting user data needs special permission
2892 $userdetails = $userdetails && has_capability('mod/data:exportuserinfo', $context);
2893
ecd06483 2894 $exportdata = array();
2895
2896 // populate the header in first row of export
2897 foreach($fields as $key => $field) {
2898 if (!in_array($field->field->id, $selectedfields)) {
2899 // ignore values we aren't exporting
2900 unset($fields[$key]);
2901 } else {
2902 $exportdata[0][] = $field->field->name;
2903 }
2904 }
4f304eeb
HB
2905 if ($userdetails) {
2906 $exportdata[0][] = get_string('user');
2907 $exportdata[0][] = get_string('username');
2908 $exportdata[0][] = get_string('email');
2909 }
2910 if ($time) {
2911 $exportdata[0][] = get_string('timeadded', 'data');
2912 $exportdata[0][] = get_string('timemodified', 'data');
2913 }
2914 if ($approval) {
2915 $exportdata[0][] = get_string('approved', 'data');
2916 }
ecd06483 2917
2918 $datarecords = $DB->get_records('data_records', array('dataid'=>$dataid));
2919 ksort($datarecords);
2920 $line = 1;
2921 foreach($datarecords as $record) {
2922 // get content indexed by fieldid
83468603
AG
2923 if ($currentgroup) {
2924 $select = 'SELECT c.fieldid, c.content, c.content1, c.content2, c.content3, c.content4 FROM {data_content} c, {data_records} r WHERE c.recordid = ? AND r.id = c.recordid AND r.groupid = ?';
2925 $where = array($record->id, $currentgroup);
2926 } else {
2927 $select = 'SELECT fieldid, content, content1, content2, content3, content4 FROM {data_content} WHERE recordid = ?';
2928 $where = array($record->id);
2929 }
2930
2931 if( $content = $DB->get_records_sql($select, $where) ) {
ecd06483 2932 foreach($fields as $field) {
2933 $contents = '';
2934 if(isset($content[$field->field->id])) {
2935 $contents = $field->export_text_value($content[$field->field->id]);
2936 }
2937 $exportdata[$line][] = $contents;
2938 }
4f304eeb
HB
2939 if ($userdetails) { // Add user details to the export data
2940 $userdata = get_complete_user_data('id', $record->userid);
2941 $exportdata[$line][] = fullname($userdata);
2942 $exportdata[$line][] = $userdata->username;
2943 $exportdata[$line][] = $userdata->email;
2944 }
2945 if ($time) { // Add time added / modified
2946 $exportdata[$line][] = userdate($record->timecreated);
2947 $exportdata[$line][] = userdate($record->timemodified);
2948 }
2949 if ($approval) { // Add approval status
2950 $exportdata[$line][] = (int) $record->approved;
2951 }
ecd06483 2952 }
2953 $line++;
2954 }
2955 $line--;
2956 return $exportdata;
2957}
2958
386b67d1
DM
2959////////////////////////////////////////////////////////////////////////////////
2960// File API //
2961////////////////////////////////////////////////////////////////////////////////
2962
8429163d 2963/**
2964 * Lists all browsable file areas
4636bf83 2965 *
d2b7803e
DC
2966 * @package mod_data
2967 * @category files
2968 * @param stdClass $course course object
2969 * @param stdClass $cm course module object
2970 * @param stdClass $context context object
4636bf83 2971 * @return array
8429163d 2972 */
2973function data_get_file_areas($course, $cm, $context) {
386b67d1 2974 return array('content' => get_string('areacontent', 'mod_data'));
8429163d 2975}
2976
00ecac72
MG
2977/**
2978 * File browsing support for data module.
2979 *
2980 * @param file_browser $browser
2981 * @param array $areas
2982 * @param stdClass $course
2983 * @param cm_info $cm
2984 * @param context $context
2985 * @param string $filearea
2986 * @param int $itemid
2987 * @param string $filepath
2988 * @param string $filename
2989 * @return file_info_stored file_info_stored instance or null if not found
2990 */
6b8b0b2e 2991function data_get_file_info($browser, $areas, $course, $cm, $context, $filearea, $itemid, $filepath, $filename) {
35ca63c1 2992 global $CFG, $DB, $USER;
00ecac72
MG
2993
2994 if ($context->contextlevel != CONTEXT_MODULE) {
2995 return null;
2996 }
2997
386b67d1
DM
2998 if (!isset($areas[$filearea])) {
2999 return null;
3000 }
00ecac72 3001
386b67d1
DM
3002 if (is_null($itemid)) {
3003 require_once($CFG->dirroot.'/mod/data/locallib.php');
3004 return new data_file_info_container($browser, $course, $cm, $context, $areas, $filearea);
3005 }
00ecac72 3006
386b67d1
DM
3007 if (!$content = $DB->get_record('data_content', array('id'=>$itemid))) {
3008 return null;
3009 }
00ecac72 3010
386b67d1
DM
3011 if (!$field = $DB->get_record('data_fields', array('id'=>$content->fieldid))) {
3012 return null;
3013 }
00ecac72 3014
386b67d1
DM
3015 if (!$record = $DB->get_record('data_records', array('id'=>$content->recordid))) {
3016 return null;
3017 }
3018
3019 if (!$data = $DB->get_record('data', array('id'=>$field->dataid))) {
3020 return null;
3021 }
3022
3023 //check if approved
3024 if ($data->approval and !$record->approved and !data_isowner($record) and !has_capability('mod/data:approve', $context)) {
3025 return null;
3026 }
3027
3028 // group access
3029 if ($record->groupid) {
3030 $groupmode = groups_get_activity_groupmode($cm, $course);
3031 if ($groupmode == SEPARATEGROUPS and !has_capability('moodle/site:accessallgroups', $context)) {
3032 if (!groups_is_member($record->groupid)) {
3033 return null;
00ecac72
MG
3034 }
3035 }
386b67d1 3036 }
00ecac72 3037
386b67d1 3038 $fieldobj = data_get_field($field, $data, $cm);
00ecac72 3039
386b67d1
DM
3040 $filepath = is_null($filepath) ? '/' : $filepath;
3041 $filename = is_null($filename) ? '.' : $filename;
3042 if (!$fieldobj->file_ok($filepath.$filename)) {
3043 return null;
3044 }
00ecac72 3045
386b67d1
DM
3046 $fs = get_file_storage();
3047 if (!($storedfile = $fs->get_file($context->id, 'mod_data', $filearea, $itemid, $filepath, $filename))) {
3048 return null;
00ecac72 3049 }
35ca63c1
AG
3050
3051 // Checks to see if the user can manage files or is the owner.
3052 // TODO MDL-33805 - Do not use userid here and move the capability check above.
3053 if (!has_capability('moodle/course:managefiles', $context) && $storedfile->get_userid() != $USER->id) {
3054 return null;
3055 }
3056
386b67d1 3057 $urlbase = $CFG->wwwroot.'/pluginfile.php';
00ecac72 3058
386b67d1 3059 return new file_info_stored($browser, $context, $storedfile, $urlbase, $itemid, true, true, false, false);
00ecac72
MG
3060}
3061
8429163d 3062/**
3063 * Serves the data attachments. Implements needed access control ;-)
4636bf83 3064 *
d2b7803e
DC
3065 * @package mod_data
3066 * @category files
3067 * @param stdClass $course course object
3068 * @param stdClass $cm course module object
3069 * @param stdClass $context context object
3070 * @param string $filearea file area
3071 * @param array $args extra arguments
3072 * @param bool $forcedownload whether or not force download
261cbbac 3073 * @param array $options additional options affecting the file serving
86900a93 3074 * @return bool false if file not found, does not return if found - justsend the file
8429163d 3075 */
261cbbac 3076function data_pluginfile($course, $cm, $context, $filearea, $args, $forcedownload, array $options=array()) {
8429163d 3077 global $CFG, $DB;
3078
64f93798 3079 if ($context->contextlevel != CONTEXT_MODULE) {
8429163d 3080 return false;
3081 }
3082
375053ed 3083 require_course_login($course, true, $cm);
64f93798
PS
3084
3085 if ($filearea === 'content') {
8429163d 3086 $contentid = (int)array_shift($args);
3087
3088 if (!$content = $DB->get_record('data_content', array('id'=>$contentid))) {
3089 return false;
3090 }
3091
3092 if (!$field = $DB->get_record('data_fields', array('id'=>$content->fieldid))) {
3093 return false;
3094 }
3095
3096 if (!$record = $DB->get_record('data_records', array('id'=>$content->recordid))) {
3097 return false;
3098 }
3099
3100 if (!$data = $DB->get_record('data', array('id'=>$field->dataid))) {
3101 return false;
3102 }
3103
f011a8fb
PS
3104 if ($data->id != $cm->instance) {
3105 // hacker attempt - context does not match the contentid
3106 return false;
3107 }
3108
8429163d 3109 //check if approved
f011a8fb 3110 if ($data->approval and !$record->approved and !data_isowner($record) and !has_capability('mod/data:approve', $context)) {
8429163d 3111 return false;
3112 }
3113
3114 // group access
3115 if ($record->groupid) {
0a8a7b6c 3116 $groupmode = groups_get_activity_groupmode($cm, $course);
8429163d 3117 if ($groupmode == SEPARATEGROUPS and !has_capability('moodle/site:accessallgroups', $context)) {
3118 if (!groups_is_member($record->groupid)) {
3119 return false;
3120 }
3121 }
3122 }
3123
0a8a7b6c 3124 $fieldobj = data_get_field($field, $data, $cm);
8429163d 3125
64f93798
PS
3126 $relativepath = implode('/', $args);
3127 $fullpath = "/$context->id/mod_data/content/$content->id/$relativepath";
8429163d 3128
3129 if (!$fieldobj->file_ok($relativepath)) {
3130 return false;
3131 }
3132
3133 $fs = get_file_storage();
3134 if (!$file = $fs->get_file_by_hash(sha1($fullpath)) or $file->is_directory()) {
3135 return false;
3136 }
3137
3138 // finally send the file
261cbbac 3139 send_stored_file($file, 0, 0, true, $options); // download MUST be forced - security!
8429163d 3140 }
3141
3142 return false;
3143}
3144
29b64a22 3145
3146function data_extend_navigation($navigation, $course, $module, $cm) {
3147 global $CFG, $OUTPUT, $USER, $DB;
3148
3149 $rid = optional_param('rid', 0, PARAM_INT);
3150
3151 $data = $DB->get_record('data', array('id'=>$cm->instance));
3152 $currentgroup = groups_get_activity_group($cm);
3153 $groupmode = groups_get_activity_groupmode($cm);
3154
3155 $numentries = data_numentries($data);
3156 /// Check the number of entries required against the number of entries already made (doesn't apply to teachers)
0b3b8c30 3157 if ($data->requiredentries > 0 && $numentries < $data->requiredentries && !has_capability('mod/data:manageentries', context_module::instance($cm->id))) {
29b64a22 3158 $data->entriesleft = $data->requiredentries - $numentries;
3406acde
SH
3159 $entriesnode = $navigation->add(get_string('entrieslefttoadd', 'data', $data));
3160 $entriesnode->add_class('note');
29b64a22 3161 }
3162
a6855934 3163 $navigation->add(get_string('list', 'data'), new moodle_url('/mod/data/view.php', array('d'=>$cm->instance)));
29b64a22 3164 if (!empty($rid)) {
a6855934 3165 $navigation->add(get_string('single', 'data'), new moodle_url('/mod/data/view.php', array('d'=>$cm->instance, 'rid'=>$rid)));
29b64a22 3166 } else {
a6855934 3167 $navigation->add(get_string('single', 'data'), new moodle_url('/mod/data/view.php', array('d'=>$cm->instance, 'mode'=>'single')));
29b64a22 3168 }
ea2052ab 3169 $navigation->add(get_string('search', 'data'), new moodle_url('/mod/data/view.php', array('d'=>$cm->instance, 'mode'=>'asearch')));
29b64a22 3170}
3171
0b29477b
SH
3172/**
3173 * Adds module specific settings to the settings block
3174 *
3175 * @param settings_navigation $settings The settings navigation object
3176 * @param navigation_node $datanode The node to add module settings to
3177 */
3178function data_extend_settings_navigation(settings_navigation $settings, navigation_node $datanode) {
9e86f2e7 3179 global $PAGE, $DB, $CFG, $USER;
56115eea 3180
9e86f2e7 3181 $data = $DB->get_record('data', array("id" => $PAGE->cm->instance));
29b64a22 3182
29b64a22 3183 $currentgroup = groups_get_activity_group($PAGE->cm);
3184 $groupmode = groups_get_activity_groupmode($PAGE->cm);
3185
e4e96115 3186 if (data_user_can_add_entry($data, $currentgroup, $groupmode, $PAGE->cm->context)) { // took out participation list here!
fa7f82be 3187 if (empty($editentry)) { //TODO: undefined
29b64a22 3188 $addstring = get_string('add', 'data');
3189 } else {
3190 $addstring = get_string('editentry', 'data');
3191 }
0b29477b 3192 $datanode->add($addstring, new moodle_url('/mod/data/edit.php', array('d'=>$PAGE->cm->instance)));
29b64a22 3193 }
3194
3195 if (has_capability(DATA_CAP_EXPORT, $PAGE->cm->context)) {
3196 // The capability required to Export database records is centrally defined in 'lib.php'
3197 // and should be weaker than those required to edit Templates, Fields and Presets.
dd8ab1fb 3198 $datanode->add(get_string('exportentries', 'data'), new moodle_url('/mod/data/export.php', array('d'=>$data->id)));
29b64a22 3199 }
bbdfd8ce 3200 if (has_capability('mod/data:manageentries', $PAGE->cm->context)) {
dd8ab1fb 3201 $datanode->add(get_string('importentries', 'data'), new moodle_url('/mod/data/import.php', array('d'=>$data->id)));
bbdfd8ce 3202 }
29b64a22 3203
3204 if (has_capability('mod/data:managetemplates', $PAGE->cm->context)) {
3205 $currenttab = '';
3206 if ($currenttab == 'list') {
3207 $defaultemplate = 'listtemplate';
3208 } else if ($currenttab == 'add') {
3209 $defaultemplate = 'addtemplate';
3210 } else if ($currenttab == 'asearch') {
3211 $defaultemplate = 'asearchtemplate';