mirror of
https://github.com/moodle/moodle.git
synced 2025-01-18 22:08:20 +01:00
273 lines
8.3 KiB
PHP
273 lines
8.3 KiB
PHP
<?php
|
|
|
|
// This file is part of Moodle - http://moodle.org/
|
|
//
|
|
// Moodle is free software: you can redistribute it and/or modify
|
|
// it under the terms of the GNU General Public License as published by
|
|
// the Free Software Foundation, either version 3 of the License, or
|
|
// (at your option) any later version.
|
|
//
|
|
// Moodle is distributed in the hope that it will be useful,
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
// GNU General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU General Public License
|
|
// along with Moodle. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
/**
|
|
* Private imscp module utility functions
|
|
*
|
|
* @package mod
|
|
* @subpackage imscp
|
|
* @copyright 2009 Petr Skoda {@link http://skodak.org}
|
|
* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
|
|
*/
|
|
|
|
defined('MOODLE_INTERNAL') || die();
|
|
|
|
require_once("$CFG->dirroot/mod/imscp/lib.php");
|
|
require_once("$CFG->libdir/filelib.php");
|
|
require_once("$CFG->libdir/resourcelib.php");
|
|
|
|
function imscp_print_content($imscp, $cm, $course) {
|
|
global $PAGE, $CFG;
|
|
|
|
$items = unserialize($imscp->structure);
|
|
$first = reset($items);
|
|
$context = get_context_instance(CONTEXT_MODULE, $cm->id);
|
|
$urlbase = "$CFG->wwwroot/pluginfile.php";
|
|
$path = '/'.$context->id.'/mod_imscp/content/'.$imscp->revision.'/'.$first['href'];
|
|
$firsturl = file_encode_url($urlbase, $path, false);
|
|
|
|
echo '<div id="imscp_layout">';
|
|
echo '<div id="imscp_toc">';
|
|
echo '<div id="imscp_tree"><ul>';
|
|
foreach ($items as $item) {
|
|
echo imscp_htmllize_item($item, $imscp, $cm);
|
|
}
|
|
echo '</ul></div></div>';
|
|
echo '</div>';
|
|
echo '<div id="imscp_navpanel"></div>';
|
|
|
|
$PAGE->requires->js_init_call('M.mod_imscp.init');
|
|
return;
|
|
}
|
|
|
|
/**
|
|
* Internal function - creates htmls structure suitable for YUI tree.
|
|
*/
|
|
function imscp_htmllize_item($item, $imscp, $cm) {
|
|
global $CFG;
|
|
|
|
$context = get_context_instance(CONTEXT_MODULE, $cm->id);
|
|
$urlbase = "$CFG->wwwroot/pluginfile.php";
|
|
$path = '/'.$context->id.'/mod_imscp/content/'.$imscp->revision.'/'.$item['href'];
|
|
$url = file_encode_url($urlbase, $path, false);
|
|
$result = "<li><a href=\"$url\">".$item['title'].'</a>';
|
|
if ($item['subitems']) {
|
|
$result .= '<ul>';
|
|
foreach ($item['subitems'] as $subitem) {
|
|
$result .= imscp_htmllize_item($subitem, $imscp, $cm);
|
|
}
|
|
$result .= '</ul>';
|
|
}
|
|
$result .= '</li>';
|
|
|
|
return $result;
|
|
}
|
|
|
|
function imscp_parse_structure($imscp, $context) {
|
|
$fs = get_file_storage();
|
|
|
|
if (!$manifestfile = $fs->get_file($context->id, 'mod_imscp', 'content', $imscp->revision, '/', 'imsmanifest.xml')) {
|
|
return null;
|
|
}
|
|
|
|
|
|
$doc = new DOMDocument();
|
|
if (!$doc->loadXML($manifestfile->get_content(), LIBXML_NONET)) {
|
|
return null;
|
|
}
|
|
|
|
// we put this fake URL as base in order to detect path changes caused by xml:base attributes
|
|
$doc->documentURI = 'http://grrr/';
|
|
|
|
$xmlorganizations = $doc->getElementsByTagName('organizations');
|
|
if (empty($xmlorganizations->length)) {
|
|
return null;
|
|
}
|
|
$default = null;
|
|
if ($xmlorganizations->item(0)->attributes->getNamedItem('default')) {
|
|
$default = $xmlorganizations->item(0)->attributes->getNamedItem('default')->nodeValue;
|
|
}
|
|
$xmlorganization = $doc->getElementsByTagName('organization');
|
|
if (empty($xmlorganization->length)) {
|
|
return null;
|
|
}
|
|
$organization = null;
|
|
foreach ($xmlorganization as $org) {
|
|
if (is_null($organization)) {
|
|
// use first if default nor found
|
|
$organization = $org;
|
|
}
|
|
if (!$org->attributes->getNamedItem('identifier')) {
|
|
continue;
|
|
}
|
|
if ($default === $org->attributes->getNamedItem('identifier')->nodeValue) {
|
|
// found default - use it
|
|
$organization = $org;
|
|
break;
|
|
}
|
|
}
|
|
|
|
// load all resources
|
|
$resources = array();
|
|
|
|
$xmlresources = $doc->getElementsByTagName('resource');
|
|
foreach ($xmlresources as $res) {
|
|
if (!$identifier = $res->attributes->getNamedItem('identifier')) {
|
|
continue;
|
|
}
|
|
$identifier = $identifier->nodeValue;
|
|
if ($xmlbase = $res->baseURI) {
|
|
// undo the fake URL, we are interested in relative links only
|
|
$xmlbase = str_replace('http://grrr/', '/', $xmlbase);
|
|
$xmlbase = rtrim($xmlbase, '/').'/';
|
|
} else {
|
|
$xmlbase = '';
|
|
}
|
|
if (!$href = $res->attributes->getNamedItem('href')) {
|
|
continue;
|
|
}
|
|
$href = $href->nodeValue;
|
|
if (strpos($href, 'http://') !== 0) {
|
|
$href = $xmlbase.$href;
|
|
}
|
|
// href cleanup - Some packages are poorly done and use \ in urls
|
|
$href = ltrim(strtr($href, "\\", '/'), '/');
|
|
$resources[$identifier] = $href;
|
|
}
|
|
|
|
$items = array();
|
|
foreach ($organization->childNodes as $child) {
|
|
if ($child->nodeName === 'item') {
|
|
if (!$item = imscp_recursive_item($child, 0, $resources)) {
|
|
continue;
|
|
}
|
|
$items[] = $item;
|
|
}
|
|
}
|
|
|
|
return $items;
|
|
}
|
|
|
|
function imscp_recursive_item($xmlitem, $level, $resources) {
|
|
$identifierref = '';
|
|
if ($identifierref = $xmlitem->attributes->getNamedItem('identifierref')) {
|
|
$identifierref = $identifierref->nodeValue;
|
|
}
|
|
|
|
$title = '?';
|
|
$subitems = array();
|
|
|
|
foreach ($xmlitem->childNodes as $child) {
|
|
if ($child->nodeName === 'title') {
|
|
$title = $child->textContent;
|
|
|
|
} else if ($child->nodeName === 'item') {
|
|
if ($subitem = imscp_recursive_item($child, $level+1, $resources)) {
|
|
$subitems[] = $subitem;
|
|
}
|
|
}
|
|
}
|
|
|
|
return array('href' => isset($resources[$identifierref]) ? $resources[$identifierref] : '',
|
|
'title' => $title,
|
|
'level' => $level,
|
|
'subitems' => $subitems,
|
|
);
|
|
}
|
|
|
|
/**
|
|
* File browsing support class
|
|
*/
|
|
class imscp_file_info extends file_info {
|
|
protected $course;
|
|
protected $cm;
|
|
protected $areas;
|
|
protected $filearea;
|
|
|
|
public function __construct($browser, $course, $cm, $context, $areas, $filearea) {
|
|
parent::__construct($browser, $context);
|
|
$this->course = $course;
|
|
$this->cm = $cm;
|
|
$this->areas = $areas;
|
|
$this->filearea = $filearea;
|
|
}
|
|
|
|
/**
|
|
* Returns list of standard virtual file/directory identification.
|
|
* The difference from stored_file parameters is that null values
|
|
* are allowed in all fields
|
|
* @return array with keys contextid, filearea, itemid, filepath and filename
|
|
*/
|
|
public function get_params() {
|
|
return array('contextid'=>$this->context->id,
|
|
'component'=>'mod_imscp',
|
|
'filearea' =>$this->filearea,
|
|
'itemid' =>null,
|
|
'filepath' =>null,
|
|
'filename' =>null);
|
|
}
|
|
|
|
/**
|
|
* Returns localised visible name.
|
|
* @return string
|
|
*/
|
|
public function get_visible_name() {
|
|
return $this->areas[$this->filearea];
|
|
}
|
|
|
|
/**
|
|
* Can I add new files or directories?
|
|
* @return bool
|
|
*/
|
|
public function is_writable() {
|
|
return false;
|
|
}
|
|
|
|
/**
|
|
* Is directory?
|
|
* @return bool
|
|
*/
|
|
public function is_directory() {
|
|
return true;
|
|
}
|
|
|
|
/**
|
|
* Returns list of children.
|
|
* @return array of file_info instances
|
|
*/
|
|
public function get_children() {
|
|
global $DB;
|
|
|
|
$children = array();
|
|
$itemids = $DB->get_records('files', array('contextid'=>$this->context->id, 'component'=>'mod_imscp', 'filearea'=>$this->filearea), 'itemid', "DISTINCT itemid");
|
|
foreach ($itemids as $itemid=>$unused) {
|
|
if ($child = $this->browser->get_file_info($this->context, 'mod_imscp', $this->filearea, $itemid)) {
|
|
$children[] = $child;
|
|
}
|
|
}
|
|
return $children;
|
|
}
|
|
|
|
/**
|
|
* Returns parent file_info instance
|
|
* @return file_info or null for root
|
|
*/
|
|
public function get_parent() {
|
|
return $this->browser->get_file_info($this->context);
|
|
}
|
|
}
|