e705f95fc790fbb46f9c6c83c2e1e5112538b96b
[moodle.git] / mod / resource / locallib.php
1 <?php
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/>.
18 /**
19  * Private resource module utility functions
20  *
21  * @package    mod_resource
22  * @copyright  2009 Petr Skoda  {@link http://skodak.org}
23  * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
24  */
26 defined('MOODLE_INTERNAL') || die;
28 require_once("$CFG->libdir/filelib.php");
29 require_once("$CFG->libdir/resourcelib.php");
30 require_once("$CFG->dirroot/mod/resource/lib.php");
32 /**
33  * Redirected to migrated resource if needed,
34  * return if incorrect parameters specified
35  * @param int $oldid
36  * @param int $cmid
37  * @return void
38  */
39 function resource_redirect_if_migrated($oldid, $cmid) {
40     global $DB, $CFG;
42     if ($oldid) {
43         $old = $DB->get_record('resource_old', array('oldid'=>$oldid));
44     } else {
45         $old = $DB->get_record('resource_old', array('cmid'=>$cmid));
46     }
48     if (!$old) {
49         return;
50     }
52     redirect("$CFG->wwwroot/mod/$old->newmodule/view.php?id=".$old->cmid);
53 }
55 /**
56  * Display embedded resource file.
57  * @param object $resource
58  * @param object $cm
59  * @param object $course
60  * @param stored_file $file main file
61  * @return does not return
62  */
63 function resource_display_embed($resource, $cm, $course, $file) {
64     global $CFG, $PAGE, $OUTPUT;
66     $clicktoopen = resource_get_clicktoopen($file, $resource->revision);
68     $context = context_module::instance($cm->id);
69     $path = '/'.$context->id.'/mod_resource/content/'.$resource->revision.$file->get_filepath().$file->get_filename();
70     $fullurl = file_encode_url($CFG->wwwroot.'/pluginfile.php', $path, false);
71     $moodleurl = new moodle_url('/pluginfile.php' . $path);
73     $mimetype = $file->get_mimetype();
74     $title    = $resource->name;
76     $extension = resourcelib_get_extension($file->get_filename());
78     $mediarenderer = $PAGE->get_renderer('core', 'media');
79     $embedoptions = array(
80         core_media::OPTION_TRUSTED => true,
81         core_media::OPTION_BLOCK => true,
82     );
84     if (file_mimetype_in_typegroup($mimetype, 'web_image')) {  // It's an image
85         $code = resourcelib_embed_image($fullurl, $title);
87     } else if ($mimetype === 'application/pdf') {
88         // PDF document
89         $code = resourcelib_embed_pdf($fullurl, $title, $clicktoopen);
91     } else if ($mediarenderer->can_embed_url($moodleurl, $embedoptions)) {
92         // Media (audio/video) file.
93         $code = $mediarenderer->embed_url($moodleurl, $title, 0, 0, $embedoptions);
95     } else {
96         // anything else - just try object tag enlarged as much as possible
97         $code = resourcelib_embed_general($fullurl, $title, $clicktoopen, $mimetype);
98     }
100     resource_print_header($resource, $cm, $course);
101     resource_print_heading($resource, $cm, $course);
103     echo $code;
105     resource_print_intro($resource, $cm, $course);
107     echo $OUTPUT->footer();
108     die;
111 /**
112  * Display resource frames.
113  * @param object $resource
114  * @param object $cm
115  * @param object $course
116  * @param stored_file $file main file
117  * @return does not return
118  */
119 function resource_display_frame($resource, $cm, $course, $file) {
120     global $PAGE, $OUTPUT, $CFG;
122     $frame = optional_param('frameset', 'main', PARAM_ALPHA);
124     if ($frame === 'top') {
125         $PAGE->set_pagelayout('frametop');
126         resource_print_header($resource, $cm, $course);
127         resource_print_heading($resource, $cm, $course);
128         resource_print_intro($resource, $cm, $course);
129         echo $OUTPUT->footer();
130         die;
132     } else {
133         $config = get_config('resource');
134         $context = context_module::instance($cm->id);
135         $path = '/'.$context->id.'/mod_resource/content/'.$resource->revision.$file->get_filepath().$file->get_filename();
136         $fileurl = file_encode_url($CFG->wwwroot.'/pluginfile.php', $path, false);
137         $navurl = "$CFG->wwwroot/mod/resource/view.php?id=$cm->id&amp;frameset=top";
138         $title = strip_tags(format_string($course->shortname.': '.$resource->name));
139         $framesize = $config->framesize;
140         $contentframetitle = s(format_string($resource->name));
141         $modulename = s(get_string('modulename','resource'));
142         $dir = get_string('thisdirection', 'langconfig');
144         $file = <<<EOF
145 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">
146 <html dir="$dir">
147   <head>
148     <meta http-equiv="content-type" content="text/html; charset=utf-8" />
149     <title>$title</title>
150   </head>
151   <frameset rows="$framesize,*">
152     <frame src="$navurl" title="$modulename" />
153     <frame src="$fileurl" title="$contentframetitle" />
154   </frameset>
155 </html>
156 EOF;
158         @header('Content-Type: text/html; charset=utf-8');
159         echo $file;
160         die;
161     }
164 /**
165  * Internal function - create click to open text with link.
166  */
167 function resource_get_clicktoopen($file, $revision, $extra='') {
168     global $CFG;
170     $filename = $file->get_filename();
171     $path = '/'.$file->get_contextid().'/mod_resource/content/'.$revision.$file->get_filepath().$file->get_filename();
172     $fullurl = file_encode_url($CFG->wwwroot.'/pluginfile.php', $path, false);
174     $string = get_string('clicktoopen2', 'resource', "<a href=\"$fullurl\" $extra>$filename</a>");
176     return $string;
179 /**
180  * Internal function - create click to open text with link.
181  */
182 function resource_get_clicktodownload($file, $revision) {
183     global $CFG;
185     $filename = $file->get_filename();
186     $path = '/'.$file->get_contextid().'/mod_resource/content/'.$revision.$file->get_filepath().$file->get_filename();
187     $fullurl = file_encode_url($CFG->wwwroot.'/pluginfile.php', $path, true);
189     $string = get_string('clicktodownload', 'resource', "<a href=\"$fullurl\">$filename</a>");
191     return $string;
194 /**
195  * Print resource info and workaround link when JS not available.
196  * @param object $resource
197  * @param object $cm
198  * @param object $course
199  * @param stored_file $file main file
200  * @return does not return
201  */
202 function resource_print_workaround($resource, $cm, $course, $file) {
203     global $CFG, $OUTPUT;
205     resource_print_header($resource, $cm, $course);
206     resource_print_heading($resource, $cm, $course, true);
207     resource_print_intro($resource, $cm, $course, true);
209     $resource->mainfile = $file->get_filename();
210     echo '<div class="resourceworkaround">';
211     switch (resource_get_final_display_type($resource)) {
212         case RESOURCELIB_DISPLAY_POPUP:
213             $path = '/'.$file->get_contextid().'/mod_resource/content/'.$resource->revision.$file->get_filepath().$file->get_filename();
214             $fullurl = file_encode_url($CFG->wwwroot.'/pluginfile.php', $path, false);
215             $options = empty($resource->displayoptions) ? array() : unserialize($resource->displayoptions);
216             $width  = empty($options['popupwidth'])  ? 620 : $options['popupwidth'];
217             $height = empty($options['popupheight']) ? 450 : $options['popupheight'];
218             $wh = "width=$width,height=$height,toolbar=no,location=no,menubar=no,copyhistory=no,status=no,directories=no,scrollbars=yes,resizable=yes";
219             $extra = "onclick=\"window.open('$fullurl', '', '$wh'); return false;\"";
220             echo resource_get_clicktoopen($file, $resource->revision, $extra);
221             break;
223         case RESOURCELIB_DISPLAY_NEW:
224             $extra = 'onclick="this.target=\'_blank\'"';
225             echo resource_get_clicktoopen($file, $resource->revision, $extra);
226             break;
228         case RESOURCELIB_DISPLAY_DOWNLOAD:
229             echo resource_get_clicktodownload($file, $resource->revision);
230             break;
232         case RESOURCELIB_DISPLAY_OPEN:
233         default:
234             echo resource_get_clicktoopen($file, $resource->revision);
235             break;
236     }
237     echo '</div>';
239     echo $OUTPUT->footer();
240     die;
243 /**
244  * Print resource header.
245  * @param object $resource
246  * @param object $cm
247  * @param object $course
248  * @return void
249  */
250 function resource_print_header($resource, $cm, $course) {
251     global $PAGE, $OUTPUT;
253     $PAGE->set_title($course->shortname.': '.$resource->name);
254     $PAGE->set_heading($course->fullname);
255     $PAGE->set_activity_record($resource);
256     $PAGE->set_button(update_module_button($cm->id, '', get_string('modulename', 'resource')));
257     echo $OUTPUT->header();
260 /**
261  * Print resource heading.
262  * @param object $resource
263  * @param object $cm
264  * @param object $course
265  * @param bool $notused This variable is no longer used
266  * @return void
267  */
268 function resource_print_heading($resource, $cm, $course, $notused = false) {
269     global $OUTPUT;
270     echo $OUTPUT->heading(format_string($resource->name), 2);
273 /**
274  * Gets optional details for a resource, depending on resource settings.
275  *
276  * Result may include the file size and type if those settings are chosen,
277  * or blank if none.
278  *
279  * @param object $resource Resource table row
280  * @param object $cm Course-module table row
281  * @return string Size and type or empty string if show options are not enabled
282  */
283 function resource_get_optional_details($resource, $cm) {
284     global $DB;
286     $details = '';
288     $options = empty($resource->displayoptions) ? array() : unserialize($resource->displayoptions);
289     if (!empty($options['showsize']) || !empty($options['showtype']) || !empty($options['showdate'])) {
290         $context = context_module::instance($cm->id);
291         $size = '';
292         $type = '';
293         $date = '';
294         $langstring = '';
295         $infodisplayed = 0;
296         $fs = get_file_storage();
297         $files = $fs->get_area_files($context->id, 'mod_resource', 'content', 0, 'sortorder DESC, id ASC', false);
298         if (!empty($options['showsize']) && count($files)) {
299             $sizebytes = 0;
300             foreach ($files as $file) {
301                 // this will also synchronize the file size for external files if needed
302                 $sizebytes += $file->get_filesize();
303             }
304             if ($sizebytes) {
305                 $size = display_size($sizebytes);
306             }
307             $langstring .= 'size';
308             $infodisplayed += 1;
309         }
310         if (!empty($options['showtype']) && count($files)) {
311             // For a typical file resource, the sortorder is 1 for the main file
312             // and 0 for all other files. This sort approach is used just in case
313             // there are situations where the file has a different sort order
314             $mainfile = reset($files);
315             $type = get_mimetype_description($mainfile);
316             // Only show type if it is not unknown
317             if ($type === get_mimetype_description('document/unknown')) {
318                 $type = '';
319             }
320             $langstring .= 'type';
321             $infodisplayed += 1;
322         }
323         if (!empty($options['showdate'])) {
324             $mainfile = reset($files);
325             $uploaddate = $mainfile->get_timecreated();
326             $modifieddate = $mainfile->get_timemodified();
328             if ($modifieddate > $uploaddate) {
329                 $date = get_string('modifieddate', 'mod_resource', userdate($modifieddate));
330             } else {
331                 $date = get_string('uploadeddate', 'mod_resource', userdate($uploaddate));
332             }
333             $langstring .= 'date';
334             $infodisplayed += 1;
335         }
337         if ($infodisplayed > 1) {
338             $details = get_string("resourcedetails_{$langstring}", 'resource',
339                     (object)array('size' => $size, 'type' => $type, 'date' => $date));
340         } else {
341             // Only one of size, type and date is set, so just append.
342             $details = $size . $type . $date;
343         }
344     }
346     return $details;
349 /**
350  * Print resource introduction.
351  * @param object $resource
352  * @param object $cm
353  * @param object $course
354  * @param bool $ignoresettings print even if not specified in modedit
355  * @return void
356  */
357 function resource_print_intro($resource, $cm, $course, $ignoresettings=false) {
358     global $OUTPUT;
360     $options = empty($resource->displayoptions) ? array() : unserialize($resource->displayoptions);
362     $extraintro = resource_get_optional_details($resource, $cm);
363     if ($extraintro) {
364         // Put a paragaph tag around the details
365         $extraintro = html_writer::tag('p', $extraintro, array('class' => 'resourcedetails'));
366     }
368     if ($ignoresettings || !empty($options['printintro']) || $extraintro) {
369         $gotintro = trim(strip_tags($resource->intro));
370         if ($gotintro || $extraintro) {
371             echo $OUTPUT->box_start('mod_introbox', 'resourceintro');
372             if ($gotintro) {
373                 echo format_module_intro('resource', $resource, $cm->id);
374             }
375             echo $extraintro;
376             echo $OUTPUT->box_end();
377         }
378     }
381 /**
382  * Print warning that instance not migrated yet.
383  * @param object $resource
384  * @param object $cm
385  * @param object $course
386  * @return void, does not return
387  */
388 function resource_print_tobemigrated($resource, $cm, $course) {
389     global $DB, $OUTPUT;
391     $resource_old = $DB->get_record('resource_old', array('oldid'=>$resource->id));
392     resource_print_header($resource, $cm, $course);
393     resource_print_heading($resource, $cm, $course);
394     resource_print_intro($resource, $cm, $course);
395     echo $OUTPUT->notification(get_string('notmigrated', 'resource', $resource_old->type));
396     echo $OUTPUT->footer();
397     die;
400 /**
401  * Print warning that file can not be found.
402  * @param object $resource
403  * @param object $cm
404  * @param object $course
405  * @return void, does not return
406  */
407 function resource_print_filenotfound($resource, $cm, $course) {
408     global $DB, $OUTPUT;
410     $resource_old = $DB->get_record('resource_old', array('oldid'=>$resource->id));
411     resource_print_header($resource, $cm, $course);
412     resource_print_heading($resource, $cm, $course);
413     resource_print_intro($resource, $cm, $course);
414     if ($resource_old) {
415         echo $OUTPUT->notification(get_string('notmigrated', 'resource', $resource_old->type));
416     } else {
417         echo $OUTPUT->notification(get_string('filenotfound', 'resource'));
418     }
419     echo $OUTPUT->footer();
420     die;
423 /**
424  * Decide the best display format.
425  * @param object $resource
426  * @return int display type constant
427  */
428 function resource_get_final_display_type($resource) {
429     global $CFG, $PAGE;
431     if ($resource->display != RESOURCELIB_DISPLAY_AUTO) {
432         return $resource->display;
433     }
435     if (empty($resource->mainfile)) {
436         return RESOURCELIB_DISPLAY_DOWNLOAD;
437     } else {
438         $mimetype = mimeinfo('type', $resource->mainfile);
439     }
441     if (file_mimetype_in_typegroup($mimetype, 'archive')) {
442         return RESOURCELIB_DISPLAY_DOWNLOAD;
443     }
444     if (file_mimetype_in_typegroup($mimetype, array('web_image', '.htm', 'web_video', 'web_audio'))) {
445         return RESOURCELIB_DISPLAY_EMBED;
446     }
448     // let the browser deal with it somehow
449     return RESOURCELIB_DISPLAY_OPEN;
452 /**
453  * File browsing support class
454  */
455 class resource_content_file_info extends file_info_stored {
456     public function get_parent() {
457         if ($this->lf->get_filepath() === '/' and $this->lf->get_filename() === '.') {
458             return $this->browser->get_file_info($this->context);
459         }
460         return parent::get_parent();
461     }
462     public function get_visible_name() {
463         if ($this->lf->get_filepath() === '/' and $this->lf->get_filename() === '.') {
464             return $this->topvisiblename;
465         }
466         return parent::get_visible_name();
467     }
470 function resource_set_mainfile($data) {
471     global $DB;
472     $fs = get_file_storage();
473     $cmid = $data->coursemodule;
474     $draftitemid = $data->files;
476     $context = context_module::instance($cmid);
477     if ($draftitemid) {
478         file_save_draft_area_files($draftitemid, $context->id, 'mod_resource', 'content', 0, array('subdirs'=>true));
479     }
480     $files = $fs->get_area_files($context->id, 'mod_resource', 'content', 0, 'sortorder', false);
481     if (count($files) == 1) {
482         // only one file attached, set it as main file automatically
483         $file = reset($files);
484         file_set_sortorder($context->id, 'mod_resource', 'content', 0, $file->get_filepath(), $file->get_filename(), 1);
485     }