|
|
|
|
<?php
|
|
|
|
|
/* For licensing terms, see /license.txt */
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Class aicc
|
|
|
|
|
* Defines the AICC class, which is meant to contain the aicc items (nuclear elements).
|
|
|
|
|
*
|
|
|
|
|
* @author Yannick Warnier <ywarnier@beeznest.org>
|
|
|
|
|
* @license GNU/GPL
|
|
|
|
|
*/
|
|
|
|
|
class aicc extends learnpath
|
|
|
|
|
{
|
|
|
|
|
public $config = [];
|
|
|
|
|
// The configuration files might be multiple and might have
|
|
|
|
|
// funny names. We need to keep the name of that file while we
|
|
|
|
|
// install the content.
|
|
|
|
|
public $config_basename = '';
|
|
|
|
|
public $config_files = [];
|
|
|
|
|
public $config_exts = [
|
|
|
|
|
'crs' => 0, // Course description file (mandatory)
|
|
|
|
|
'au' => 0, // Assignable Unit file (mandatory)
|
|
|
|
|
'des' => 0, // Descriptor file (mandatory)
|
|
|
|
|
'cst' => 0, // Course structure file (mandatory)
|
|
|
|
|
'ore' => 0, // Objectives relationshops file (optional)
|
|
|
|
|
'pre' => 0, // Prerequisites file (optional)
|
|
|
|
|
'cmp' => 0, // Completion Requirements file (optional)
|
|
|
|
|
];
|
|
|
|
|
public $aulist = [];
|
|
|
|
|
public $au_order_list = [];
|
|
|
|
|
public $au_order_list_new_id = [];
|
|
|
|
|
public $deslist = [];
|
|
|
|
|
public $cstlist = [];
|
|
|
|
|
public $orelist = [];
|
|
|
|
|
|
|
|
|
|
// Path between the scorm/ directory and the config files
|
|
|
|
|
// e.g. maritime_nav/maritime_nav.
|
|
|
|
|
// This is the path that will be used in the lp_path when importing a package.
|
|
|
|
|
public $subdir = '';
|
|
|
|
|
// Keeps the zipfile safe for the object's life
|
|
|
|
|
// so that we can use it if there is no title available.
|
|
|
|
|
public $zipname = '';
|
|
|
|
|
// Keeps an index of the number of uses of the zipname so far.
|
|
|
|
|
public $lastzipnameindex = 0;
|
|
|
|
|
public $config_encoding = 'ISO-8859-1';
|
|
|
|
|
public $debug = 0;
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Class constructor. Based on the parent constructor.
|
|
|
|
|
*
|
|
|
|
|
* @param string $course_code
|
|
|
|
|
* @param int $resource_id Learnpath ID in DB
|
|
|
|
|
* @param int $user_id
|
|
|
|
|
*/
|
|
|
|
|
public function __construct($course_code = null, $resource_id = null, $user_id = null)
|
|
|
|
|
{
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log('In aicc::aicc()');
|
|
|
|
|
}
|
|
|
|
|
if (!empty($course_code) && !empty($resource_id) && !empty($user_id)) {
|
|
|
|
|
parent::__construct($course_code, $resource_id, $user_id);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Opens a resource.
|
|
|
|
|
*
|
|
|
|
|
* @param int Database ID of the resource
|
|
|
|
|
*/
|
|
|
|
|
public function open($id)
|
|
|
|
|
{
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Parses a set of AICC config files and puts everything into the $config array.
|
|
|
|
|
*
|
|
|
|
|
* @param string Path to the config files dir on the system.
|
|
|
|
|
* If not defined, uses the base path of the course's scorm dir
|
|
|
|
|
*
|
|
|
|
|
* @return array Structured array representing the config files' contents
|
|
|
|
|
*/
|
|
|
|
|
public function parse_config_files($dir = '')
|
|
|
|
|
{
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log('New LP - In aicc::parse_config_files('.$dir.')', 0);
|
|
|
|
|
}
|
|
|
|
|
if (empty($dir)) {
|
|
|
|
|
// Get the path of the AICC config files dir.
|
|
|
|
|
$dir = $this->subdir;
|
|
|
|
|
}
|
|
|
|
|
if (is_dir($dir) && is_readable($dir)) {
|
|
|
|
|
// Now go through all the config files one by one and parse everything into AICC objects.
|
|
|
|
|
// The basename for the config files is stored in $this->config_basename.
|
|
|
|
|
// Parse the Course Description File (.crs) - ini-type.
|
|
|
|
|
$crs_file = $dir.'/'.$this->config_files['crs'];
|
|
|
|
|
$crs_params = $this->parse_ini_file_quotes_safe($crs_file);
|
|
|
|
|
if ($this->debug > 1) {
|
|
|
|
|
error_log('New LP - In aicc::parse_config_files() - '.$crs_file.' has been parsed');
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// CRS distribute crs params into the aicc object.
|
|
|
|
|
if (!empty($crs_params['course']['course_creator'])) {
|
|
|
|
|
$this->course_creator = Database::escape_string($crs_params['course']['course_creator']);
|
|
|
|
|
}
|
|
|
|
|
if (!empty($crs_params['course']['course_id'])) {
|
|
|
|
|
$this->course_id = Database::escape_string($crs_params['course']['course_id']);
|
|
|
|
|
}
|
|
|
|
|
if (!empty($crs_params['course']['course_system'])) {
|
|
|
|
|
$this->course_system = $crs_params['course']['course_system'];
|
|
|
|
|
}
|
|
|
|
|
if (!empty($crs_params['course']['course_title'])) {
|
|
|
|
|
$this->course_title = Database::escape_string($crs_params['course']['course_title']);
|
|
|
|
|
}
|
|
|
|
|
if (!empty($crs_params['course']['course_level'])) {
|
|
|
|
|
$this->course_level = $crs_params['course']['course_level'];
|
|
|
|
|
}
|
|
|
|
|
if (!empty($crs_params['course']['max_fields_cst'])) {
|
|
|
|
|
$this->course_max_fields_cst = $crs_params['course']['max_fields_cst'];
|
|
|
|
|
}
|
|
|
|
|
if (!empty($crs_params['course']['max_fields_ort'])) {
|
|
|
|
|
$this->course_max_fields_ort = $crs_params['course']['max_fields_ort'];
|
|
|
|
|
}
|
|
|
|
|
if (!empty($crs_params['course']['total_aus'])) {
|
|
|
|
|
$this->course_total_aus = $crs_params['course']['total_aus'];
|
|
|
|
|
}
|
|
|
|
|
if (!empty($crs_params['course']['total_blocks'])) {
|
|
|
|
|
$this->course_total_blocks = $crs_params['course']['total_blocks'];
|
|
|
|
|
}
|
|
|
|
|
if (!empty($crs_params['course']['total_objectives'])) {
|
|
|
|
|
$this->course_total_objectives = $crs_params['course']['total_objectives'];
|
|
|
|
|
}
|
|
|
|
|
if (!empty($crs_params['course']['total_complex_objectives'])) {
|
|
|
|
|
$this->course_total_complex_objectives = $crs_params['course']['total_complex_objectives'];
|
|
|
|
|
}
|
|
|
|
|
if (!empty($crs_params['course']['version'])) {
|
|
|
|
|
$this->course_version = $crs_params['course']['version'];
|
|
|
|
|
}
|
|
|
|
|
if (!empty($crs_params['course_description'])) {
|
|
|
|
|
$this->course_description = Database::escape_string($crs_params['course_description']);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// Parse the Descriptor File (.des) - csv-type.
|
|
|
|
|
$des_file = $dir.'/'.$this->config_files['des'];
|
|
|
|
|
$des_params = $this->parse_csv_file($des_file);
|
|
|
|
|
if ($this->debug > 1) {
|
|
|
|
|
error_log('New LP - In aicc::parse_config_files() - '.$des_file.' has been parsed', 0);
|
|
|
|
|
}
|
|
|
|
|
// Distribute des params into the aicc object.
|
|
|
|
|
foreach ($des_params as $des) {
|
|
|
|
|
// One AU in AICC is equivalent to one SCO in SCORM (scormItem class).
|
|
|
|
|
$oDes = new aiccResource('config', $des);
|
|
|
|
|
$this->deslist[$oDes->identifier] = $oDes;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// Parse the Assignable Unit File (.au) - csv-type.
|
|
|
|
|
$au_file = $dir.'/'.$this->config_files['au'];
|
|
|
|
|
$au_params = $this->parse_csv_file($au_file);
|
|
|
|
|
if ($this->debug > 1) {
|
|
|
|
|
error_log('New LP - In aicc::parse_config_files() - '.$au_file.' has been parsed', 0);
|
|
|
|
|
}
|
|
|
|
|
// Distribute au params into the aicc object.
|
|
|
|
|
foreach ($au_params as $au) {
|
|
|
|
|
$oAu = new aiccItem('config', $au);
|
|
|
|
|
$this->aulist[$oAu->identifier] = $oAu;
|
|
|
|
|
$this->au_order_list[] = $oAu->identifier;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// Parse the Course Structure File (.cst) - csv-type.
|
|
|
|
|
$cst_file = $dir.'/'.$this->config_files['cst'];
|
|
|
|
|
$cst_params = $this->parse_csv_file($cst_file, ',', '"', true);
|
|
|
|
|
if ($this->debug > 1) {
|
|
|
|
|
error_log('New LP - In aicc::parse_config_files() - '.$cst_file.' has been parsed', 0);
|
|
|
|
|
}
|
|
|
|
|
// Distribute cst params into the aicc object.
|
|
|
|
|
foreach ($cst_params as $cst) {
|
|
|
|
|
$oCst = new aiccBlock('config', $cst);
|
|
|
|
|
$this->cstlist[$oCst->identifier] = $oCst;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// Parse the Objectives Relationships File (.ore) - csv-type - if exists.
|
|
|
|
|
// TODO: Implement these objectives. For now they're just parsed.
|
|
|
|
|
if (!empty($this->config_files['ore'])) {
|
|
|
|
|
$ore_file = $dir.'/'.$this->config_files['ore'];
|
|
|
|
|
$ore_params = $this->parse_csv_file($ore_file, ',', '"', true);
|
|
|
|
|
if ($this->debug > 1) {
|
|
|
|
|
error_log('New LP - In aicc::parse_config_files() - '.$ore_file.' has been parsed', 0);
|
|
|
|
|
}
|
|
|
|
|
// Distribute ore params into the aicc object.
|
|
|
|
|
foreach ($ore_params as $ore) {
|
|
|
|
|
$oOre = new aiccObjective('config', $ore);
|
|
|
|
|
$this->orelist[$oOre->identifier] = $oOre;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// Parse the Prerequisites File (.pre) - csv-type - if exists.
|
|
|
|
|
if (!empty($this->config_files['pre'])) {
|
|
|
|
|
$pre_file = $dir.'/'.$this->config_files['pre'];
|
|
|
|
|
$pre_params = $this->parse_csv_file($pre_file);
|
|
|
|
|
if ($this->debug > 1) {
|
|
|
|
|
error_log('New LP - In aicc::parse_config_files() - '.$pre_file.' has been parsed', 0);
|
|
|
|
|
}
|
|
|
|
|
// Distribute pre params into the aicc object.
|
|
|
|
|
foreach ($pre_params as $pre) {
|
|
|
|
|
// Place a constraint on the corresponding block or AU.
|
|
|
|
|
if (in_array(api_strtolower($pre['structure_element']), array_keys($this->cstlist))) {
|
|
|
|
|
// If this references a block element:
|
|
|
|
|
$this->cstlist[api_strtolower($pre['structure_element'])]->prereq_string = api_strtolower($pre['prerequisite']);
|
|
|
|
|
}
|
|
|
|
|
if (in_array(api_strtolower($pre['structure_element']), array_keys($this->aulist))) {
|
|
|
|
|
// If this references a block element:
|
|
|
|
|
$this->aulist[api_strtolower($pre['structure_element'])]->prereq_string = api_strtolower($pre['prerequisite']);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// Parse the Completion Requirements File (.cmp) - csv-type - if exists.
|
|
|
|
|
// TODO: Implement this set of requirements (needs database changes).
|
|
|
|
|
if (!empty($this->config_files['cmp'])) {
|
|
|
|
|
$cmp_file = $dir.'/'.$this->config_files['cmp'];
|
|
|
|
|
$cmp_params = $this->parse_csv_file($cmp_file);
|
|
|
|
|
if ($this->debug > 1) {
|
|
|
|
|
error_log('New LP - In aicc::parse_config_files() - '.$cmp_file.' has been parsed', 0);
|
|
|
|
|
}
|
|
|
|
|
// Distribute cmp params into the aicc object.
|
|
|
|
|
foreach ($cmp_params as $cmp) {
|
|
|
|
|
//$oCmp = new aiccCompletionRequirements('config', $cmp);
|
|
|
|
|
//$this->cmplist[$oCmp->identifier] =& $oCmp;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return $this->config;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Import the aicc object (as a result from the parse_config_files function) into the database structure.
|
|
|
|
|
*
|
|
|
|
|
* @param string $course_code
|
|
|
|
|
*
|
|
|
|
|
* @return bool Returns -1 on error
|
|
|
|
|
*/
|
|
|
|
|
public function import_aicc($course_code)
|
|
|
|
|
{
|
|
|
|
|
$courseInfo = api_get_course_info($course_code);
|
|
|
|
|
$course_id = $courseInfo['real_id'];
|
|
|
|
|
|
|
|
|
|
if (empty($course_id)) {
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log('New LP - In aicc::import_aicc('.$course_code.')', 0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$new_lp = Database::get_course_table(TABLE_LP_MAIN);
|
|
|
|
|
$new_lp_item = Database::get_course_table(TABLE_LP_ITEM);
|
|
|
|
|
$get_max = "SELECT MAX(display_order) FROM $new_lp WHERE c_id = $course_id";
|
|
|
|
|
$res_max = Database::query($get_max);
|
|
|
|
|
if (Database::num_rows($res_max) < 1) {
|
|
|
|
|
$dsp = 1;
|
|
|
|
|
} else {
|
|
|
|
|
$row = Database::fetch_array($res_max);
|
|
|
|
|
$dsp = $row[0] + 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$this->config_encoding = "ISO-8859-1"; // TODO: We may apply detection for this value, see the function api_detect_encoding().
|
|
|
|
|
|
|
|
|
|
$sql = "INSERT INTO $new_lp (c_id, lp_type, name, ref, description, path, force_commit, default_view_mod, default_encoding, js_lib, content_maker,display_order)".
|
|
|
|
|
"VALUES ".
|
|
|
|
|
"($course_id, 3, '".$this->course_title."', '".$this->course_id."','".$this->course_description."',".
|
|
|
|
|
"'".$this->subdir."', 0, 'embedded', '".$this->config_encoding."',".
|
|
|
|
|
"'aicc_api.php','".$this->course_creator."',$dsp)";
|
|
|
|
|
if ($this->debug > 2) {
|
|
|
|
|
error_log('New LP - In import_aicc(), inserting path: '.$sql, 0);
|
|
|
|
|
}
|
|
|
|
|
Database::query($sql);
|
|
|
|
|
$lp_id = Database::insert_id();
|
|
|
|
|
|
|
|
|
|
if ($lp_id) {
|
|
|
|
|
$sql = "UPDATE $new_lp SET id = iid WHERE iid = $lp_id";
|
|
|
|
|
Database::query($sql);
|
|
|
|
|
|
|
|
|
|
$this->lp_id = $lp_id;
|
|
|
|
|
|
|
|
|
|
api_item_property_update(
|
|
|
|
|
$courseInfo,
|
|
|
|
|
TOOL_LEARNPATH,
|
|
|
|
|
$this->lp_id,
|
|
|
|
|
'LearnpathAdded',
|
|
|
|
|
api_get_user_id()
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
api_item_property_update(
|
|
|
|
|
$courseInfo,
|
|
|
|
|
TOOL_LEARNPATH,
|
|
|
|
|
$this->lp_id,
|
|
|
|
|
'visible',
|
|
|
|
|
api_get_user_id()
|
|
|
|
|
);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$previous = 0;
|
|
|
|
|
foreach ($this->aulist as $identifier => $dummy) {
|
|
|
|
|
$oAu = &$this->aulist[$identifier];
|
|
|
|
|
//echo "Item ".$oAu->identifier;
|
|
|
|
|
$field_add = '';
|
|
|
|
|
$value_add = '';
|
|
|
|
|
if (!empty($oAu->masteryscore)) {
|
|
|
|
|
$field_add = 'mastery_score, ';
|
|
|
|
|
$value_add = $oAu->masteryscore.',';
|
|
|
|
|
}
|
|
|
|
|
$title = $oAu->identifier;
|
|
|
|
|
if (is_object($this->deslist[$identifier])) {
|
|
|
|
|
$title = $this->deslist[$identifier]->title;
|
|
|
|
|
}
|
|
|
|
|
$path = $oAu->path;
|
|
|
|
|
//$max_score = $oAu->max_score // TODO: Check if special constraint exists for this item.
|
|
|
|
|
//$min_score = $oAu->min_score // TODO: Check if special constraint exists for this item.
|
|
|
|
|
$parent = 0; // TODO: Deal with the parent.
|
|
|
|
|
$previous = 0;
|
|
|
|
|
$prereq = $oAu->prereq_string;
|
|
|
|
|
$sql_item = "INSERT INTO $new_lp_item (c_id, lp_id,item_type,ref,title, path,min_score,max_score, $field_add parent_item_id,previous_item_id,next_item_id, prerequisite,display_order,parameters) ".
|
|
|
|
|
"VALUES ".
|
|
|
|
|
"($course_id, $lp_id, 'au','".$oAu->identifier."','".$title."',".
|
|
|
|
|
"'$path',0,100, $value_add".
|
|
|
|
|
"$parent, $previous, 0, ".
|
|
|
|
|
"'$prereq', 0,'".(!empty($oAu->parameters) ? Database::escape_string($oAu->parameters) : '')."'".
|
|
|
|
|
")";
|
|
|
|
|
Database::query($sql_item);
|
|
|
|
|
if ($this->debug > 1) {
|
|
|
|
|
error_log('New LP - In aicc::import_aicc() - inserting item : '.$sql_item.' : ', 0);
|
|
|
|
|
}
|
|
|
|
|
$item_id = Database::insert_id();
|
|
|
|
|
|
|
|
|
|
if ($item_id) {
|
|
|
|
|
$sql = "UPDATE $new_lp_item SET id = iid WHERE iid = $lp_id";
|
|
|
|
|
Database::query($sql);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// Now update previous item to change next_item_id.
|
|
|
|
|
if (0 != $previous) {
|
|
|
|
|
$upd = "UPDATE $new_lp_item SET next_item_id = $item_id WHERE c_id = $course_id AND id = $previous";
|
|
|
|
|
Database::query($upd);
|
|
|
|
|
// Update the previous item id.
|
|
|
|
|
}
|
|
|
|
|
$previous = $item_id;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Intermediate to import_package only to allow import from local zip files.
|
|
|
|
|
*
|
|
|
|
|
* @param string Path to the zip file, from the dokeos sys root
|
|
|
|
|
* @param string Current path (optional)
|
|
|
|
|
*
|
|
|
|
|
* @return string Absolute path to the AICC description files or empty string on error
|
|
|
|
|
*/
|
|
|
|
|
public function import_local_package($file_path, $current_dir = '')
|
|
|
|
|
{
|
|
|
|
|
// TODO: Prepare info as given by the $_FILES[''] vector.
|
|
|
|
|
$file_info = [];
|
|
|
|
|
$file_info['tmp_name'] = $file_path;
|
|
|
|
|
$file_info['name'] = basename($file_path);
|
|
|
|
|
// Call the normal import_package function.
|
|
|
|
|
return $this->import_package($file_info, $current_dir);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Imports a zip file (presumably AICC) into the Chamilo structure.
|
|
|
|
|
*
|
|
|
|
|
* @param string Zip file info as given by $_FILES['userFile']
|
|
|
|
|
*
|
|
|
|
|
* @return string Absolute path to the AICC config files directory or empty string on error
|
|
|
|
|
*/
|
|
|
|
|
public function import_package($zip_file_info, $current_dir = '')
|
|
|
|
|
{
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log('In aicc::import_package('.print_r($zip_file_info, true).',"'.$current_dir.'") method', 0);
|
|
|
|
|
}
|
|
|
|
|
//ini_set('error_log', 'E_ALL');
|
|
|
|
|
$maxFilledSpace = 1000000000;
|
|
|
|
|
$zip_file_path = $zip_file_info['tmp_name'];
|
|
|
|
|
$zip_file_name = $zip_file_info['name'];
|
|
|
|
|
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log(
|
|
|
|
|
'New LP - aicc::import_package() - Zip file path = '.$zip_file_path.', zip file name = '.$zip_file_name,
|
|
|
|
|
0
|
|
|
|
|
);
|
|
|
|
|
}
|
|
|
|
|
$course_rel_dir = api_get_course_path().'/scorm'; // Scorm dir web path starting from /courses
|
|
|
|
|
$course_sys_dir = api_get_path(SYS_COURSE_PATH).$course_rel_dir; // The absolute system path of this course.
|
|
|
|
|
$current_dir = api_replace_dangerous_char(trim($current_dir)); // Current dir we are in, inside scorm/
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log('New LP - aicc::import_package() - Current_dir = '.$current_dir, 0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
//$uploaded_filename = $_FILES['userFile']['name'];
|
|
|
|
|
// Get the name of the zip file without the extension.
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log('New LP - aicc::import_package() - Received zip file name: '.$zip_file_path, 0);
|
|
|
|
|
}
|
|
|
|
|
$file_info = pathinfo($zip_file_name);
|
|
|
|
|
$filename = $file_info['basename'];
|
|
|
|
|
$extension = $file_info['extension'];
|
|
|
|
|
$file_base_name = str_replace('.'.$extension, '', $filename); // Filename without its extension.
|
|
|
|
|
$this->zipname = $file_base_name; // Save for later in case we don't have a title.
|
|
|
|
|
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log('New LP - aicc::import_package() - Base file name is : '.$file_base_name, 0);
|
|
|
|
|
}
|
|
|
|
|
$new_dir = api_replace_dangerous_char(trim($file_base_name));
|
|
|
|
|
$this->subdir = $new_dir;
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log('New LP - aicc::import_package() - Subdir is first set to : '.$this->subdir, 0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
if (check_name_exist($course_sys_dir.$current_dir.'/'.$new_dir)) {
|
|
|
|
|
$dialogBox = get_lang('FileExists');
|
|
|
|
|
$stopping_error = true;
|
|
|
|
|
}
|
|
|
|
|
*/
|
|
|
|
|
$zipFile = new PclZip($zip_file_path);
|
|
|
|
|
// Check the zip content (real size and file extension).
|
|
|
|
|
$zipContentArray = $zipFile->listContent();
|
|
|
|
|
|
|
|
|
|
$package_type = ''; // The type of the package. Should be 'aicc' after the next few lines.
|
|
|
|
|
$package = ''; // The basename of the config files (if 'courses.crs' => 'courses').
|
|
|
|
|
$at_root = false; // Check if the config files are at zip root.
|
|
|
|
|
$config_dir = ''; // The directory in which the config files are. May remain empty.
|
|
|
|
|
$files_found = [];
|
|
|
|
|
$subdir_isset = false;
|
|
|
|
|
// The following loop should be stopped as soon as we found the right config files (.crs, .au, .des and .cst).
|
|
|
|
|
$realFileSize = 0;
|
|
|
|
|
foreach ($zipContentArray as $thisContent) {
|
|
|
|
|
if (preg_match('~.(php.*|phtml)$~i', $thisContent['filename'])) {
|
|
|
|
|
// If a php file is found, do not authorize (security risk).
|
|
|
|
|
if ($this->debug > 1) {
|
|
|
|
|
error_log(
|
|
|
|
|
'New LP - aicc::import_package() - Found unauthorized file: '.$thisContent['filename']
|
|
|
|
|
);
|
|
|
|
|
}
|
|
|
|
|
Display::addFlash(
|
|
|
|
|
Display::return_message(get_lang('ZipNoPhp'))
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
return false;
|
|
|
|
|
} elseif (preg_match('?.*/aicc/$?', $thisContent['filename'])) {
|
|
|
|
|
// If a directory named 'aicc' is found, package type = aicc, but continue,
|
|
|
|
|
// because we need to find the right AICC files;
|
|
|
|
|
if ($this->debug > 1) {
|
|
|
|
|
error_log('New LP - aicc::import_package() - Found aicc directory: '.$thisContent['filename']);
|
|
|
|
|
}
|
|
|
|
|
$package_type = 'aicc';
|
|
|
|
|
} else {
|
|
|
|
|
// else, look for one of the files we're searching for (something.crs case insensitive).
|
|
|
|
|
$res = [];
|
|
|
|
|
if (preg_match('?^(.*)\.(crs|au|des|cst|ore|pre|cmp)$?i', $thisContent['filename'], $res)) {
|
|
|
|
|
if ($this->debug > 1) {
|
|
|
|
|
error_log(
|
|
|
|
|
'New LP - aicc::import_package() - Found AICC config file: '.$thisContent['filename'].'. Now splitting: '.$res[1].' and '.$res[2]
|
|
|
|
|
);
|
|
|
|
|
}
|
|
|
|
|
if ($thisContent['filename'] == basename($thisContent['filename'])) {
|
|
|
|
|
if ($this->debug > 2) {
|
|
|
|
|
error_log('New LP - aicc::import_package() - '.$thisContent['filename'].' is at root level', 0);
|
|
|
|
|
}
|
|
|
|
|
$at_root = true;
|
|
|
|
|
if (!is_array($files_found[$res[1]])) {
|
|
|
|
|
$files_found[$res[1]] = $this->config_exts; // Initialise list of expected extensions (defined in class definition).
|
|
|
|
|
}
|
|
|
|
|
$files_found[$res[1]][api_strtolower($res[2])] = $thisContent['filename'];
|
|
|
|
|
$subdir_isset = true;
|
|
|
|
|
} else {
|
|
|
|
|
if (!$subdir_isset) {
|
|
|
|
|
if (preg_match('?^.*/aicc$?i', dirname($thisContent['filename']))) {
|
|
|
|
|
//echo "Cutting subdir<br/>";
|
|
|
|
|
$this->subdir .= '/'.substr(dirname($thisContent['filename']), 0, -5);
|
|
|
|
|
} else {
|
|
|
|
|
//echo "Not cutting subdir<br/>";
|
|
|
|
|
$this->subdir .= '/'.dirname($thisContent['filename']);
|
|
|
|
|
}
|
|
|
|
|
$subdir_isset = true;
|
|
|
|
|
}
|
|
|
|
|
if ($this->debug > 2) {
|
|
|
|
|
error_log('New LP - aicc::import_package() - '.$thisContent['filename'].' is not at root level - recording subdir '.$this->subdir, 0);
|
|
|
|
|
}
|
|
|
|
|
$config_dir = dirname($thisContent['filename']); // Just the relative directory inside scorm/
|
|
|
|
|
if (!is_array($files_found[basename($res[1])])) {
|
|
|
|
|
$files_found[basename($res[1])] = $this->config_exts;
|
|
|
|
|
}
|
|
|
|
|
$files_found[basename($res[1])][api_strtolower($res[2])] = basename($thisContent['filename']);
|
|
|
|
|
}
|
|
|
|
|
$package_type = 'aicc';
|
|
|
|
|
} else {
|
|
|
|
|
if ($this->debug > 3) {
|
|
|
|
|
error_log('New LP - aicc::import_package() - File '.$thisContent['filename'].' didnt match any check', 0);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
$realFileSize += $thisContent['size'];
|
|
|
|
|
}
|
|
|
|
|
if ($this->debug > 2) {
|
|
|
|
|
error_log('New LP - aicc::import_package() - $files_found: '.print_r($files_found, true), 0);
|
|
|
|
|
}
|
|
|
|
|
if ($this->debug > 1) {
|
|
|
|
|
error_log('New LP - aicc::import_package() - Package type is now '.$package_type, 0);
|
|
|
|
|
}
|
|
|
|
|
$mandatory = false;
|
|
|
|
|
foreach ($files_found as $file_name => $file_exts) {
|
|
|
|
|
$temp = (
|
|
|
|
|
!empty($files_found[$file_name]['crs'])
|
|
|
|
|
&& !empty($files_found[$file_name]['au'])
|
|
|
|
|
&& !empty($files_found[$file_name]['des'])
|
|
|
|
|
&& !empty($files_found[$file_name]['cst'])
|
|
|
|
|
);
|
|
|
|
|
if ($temp) {
|
|
|
|
|
if ($this->debug > 1) {
|
|
|
|
|
error_log('New LP - aicc::import_package() - Found all config files for '.$file_name, 0);
|
|
|
|
|
}
|
|
|
|
|
$mandatory = true;
|
|
|
|
|
$package = $file_name;
|
|
|
|
|
// Store base config file name for reuse in parse_config_files().
|
|
|
|
|
$this->config_basename = $file_name;
|
|
|
|
|
// Store filenames for reuse in parse_config_files().
|
|
|
|
|
$this->config_files = $files_found[$file_name];
|
|
|
|
|
// Get out, we only want one config files set.
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if ($package_type == '' || !$mandatory) {
|
|
|
|
|
Display::addFlash(
|
|
|
|
|
Display::return_message(get_lang('FileError'))
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (!enough_size($realFileSize, $course_sys_dir, $maxFilledSpace)) {
|
|
|
|
|
Display::addFlash(
|
|
|
|
|
Display::return_message(get_lang('NoSpace'))
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// It happens on Linux that $new_dir sometimes doesn't start with '/'
|
|
|
|
|
if ($new_dir[0] != '/') {
|
|
|
|
|
$new_dir = '/'.$new_dir;
|
|
|
|
|
}
|
|
|
|
|
// Cut trailing slash.
|
|
|
|
|
if ($new_dir[strlen($new_dir) - 1] == '/') {
|
|
|
|
|
$new_dir = substr($new_dir, 0, -1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Uncompressing phase */
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
We need to process each individual file in the zip archive to
|
|
|
|
|
- add it to the database
|
|
|
|
|
- parse & change relative html links
|
|
|
|
|
- make sure the filenames are secure (filter funny characters or php extensions)
|
|
|
|
|
*/
|
|
|
|
|
if (is_dir($course_sys_dir.$new_dir) ||
|
|
|
|
|
@mkdir($course_sys_dir.$new_dir, api_get_permissions_for_new_directories())
|
|
|
|
|
) {
|
|
|
|
|
// PHP method - slower...
|
|
|
|
|
if ($this->debug >= 1) {
|
|
|
|
|
error_log('New LP - Changing dir to '.$course_sys_dir.$new_dir, 0);
|
|
|
|
|
}
|
|
|
|
|
chdir($course_sys_dir.$new_dir);
|
|
|
|
|
$zipFile->extract(
|
|
|
|
|
PCLZIP_CB_PRE_EXTRACT,
|
|
|
|
|
'clean_up_files_in_zip'
|
|
|
|
|
);
|
|
|
|
|
} else {
|
|
|
|
|
return '';
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return $course_sys_dir.$new_dir.$config_dir;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Sets the proximity setting in the database.
|
|
|
|
|
*
|
|
|
|
|
* @param string $proxy Proximity setting
|
|
|
|
|
*
|
|
|
|
|
* @return bool
|
|
|
|
|
*/
|
|
|
|
|
public function set_proximity($proxy = '')
|
|
|
|
|
{
|
|
|
|
|
$course_id = api_get_course_int_id();
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log('In aicc::set_proximity('.$proxy.') method', 0);
|
|
|
|
|
}
|
|
|
|
|
$lp = $this->get_id();
|
|
|
|
|
if ($lp != 0) {
|
|
|
|
|
$tbl_lp = Database::get_course_table(TABLE_LP_MAIN);
|
|
|
|
|
$sql = "UPDATE $tbl_lp SET content_local = '$proxy' WHERE c_id = ".$course_id." id = ".$lp;
|
|
|
|
|
Database::query($sql);
|
|
|
|
|
|
|
|
|
|
return true;
|
|
|
|
|
} else {
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Sets the theme setting in the database.
|
|
|
|
|
*
|
|
|
|
|
* @param string Theme setting
|
|
|
|
|
*
|
|
|
|
|
* @return bool
|
|
|
|
|
*/
|
|
|
|
|
public function set_theme($theme = '')
|
|
|
|
|
{
|
|
|
|
|
$course_id = api_get_course_int_id();
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log('In aicc::set_theme('.$theme.') method', 0);
|
|
|
|
|
}
|
|
|
|
|
$lp = $this->get_id();
|
|
|
|
|
if ($lp != 0) {
|
|
|
|
|
$tbl_lp = Database::get_course_table(TABLE_LP_MAIN);
|
|
|
|
|
$sql = "UPDATE $tbl_lp SET theme = '$theme' WHERE c_id = ".$course_id." id = ".$lp;
|
|
|
|
|
$res = Database::query($sql);
|
|
|
|
|
|
|
|
|
|
return true;
|
|
|
|
|
} else {
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Sets the image LP in the database.
|
|
|
|
|
*
|
|
|
|
|
* @param string $preview_image Theme setting
|
|
|
|
|
*
|
|
|
|
|
* @return bool
|
|
|
|
|
*/
|
|
|
|
|
public function set_preview_image($preview_image = '')
|
|
|
|
|
{
|
|
|
|
|
$course_id = api_get_course_int_id();
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log('In aicc::set_preview_image('.$preview_image.') method', 0);
|
|
|
|
|
}
|
|
|
|
|
$lp = $this->get_id();
|
|
|
|
|
if ($lp != 0) {
|
|
|
|
|
$tbl_lp = Database::get_course_table(TABLE_LP_MAIN);
|
|
|
|
|
$sql = "UPDATE $tbl_lp SET preview_image = '$preview_image'
|
|
|
|
|
WHERE c_id = ".$course_id." id = ".$lp;
|
|
|
|
|
Database::query($sql);
|
|
|
|
|
|
|
|
|
|
return true;
|
|
|
|
|
} else {
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Sets the Author LP in the database.
|
|
|
|
|
*
|
|
|
|
|
* @param string $author
|
|
|
|
|
*
|
|
|
|
|
* @return true
|
|
|
|
|
*/
|
|
|
|
|
public function set_author($author = '')
|
|
|
|
|
{
|
|
|
|
|
$course_id = api_get_course_int_id();
|
|
|
|
|
$lp = $this->get_id();
|
|
|
|
|
if ($lp != 0) {
|
|
|
|
|
$tbl_lp = Database::get_course_table(TABLE_LP_MAIN);
|
|
|
|
|
$sql = "UPDATE $tbl_lp SET author = '$author'
|
|
|
|
|
WHERE c_id = ".$course_id." id = ".$lp;
|
|
|
|
|
Database::query($sql);
|
|
|
|
|
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Sets the content maker setting in the database.
|
|
|
|
|
*
|
|
|
|
|
* @param string $maker
|
|
|
|
|
*
|
|
|
|
|
* @return bool
|
|
|
|
|
*/
|
|
|
|
|
public function set_maker($maker = '')
|
|
|
|
|
{
|
|
|
|
|
$course_id = api_get_course_int_id();
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log('In aicc::set_maker method('.$maker.')', 0);
|
|
|
|
|
}
|
|
|
|
|
$lp = $this->get_id();
|
|
|
|
|
if ($lp != 0) {
|
|
|
|
|
$tbl_lp = Database::get_course_table(TABLE_LP_MAIN);
|
|
|
|
|
$sql = "UPDATE $tbl_lp SET content_maker = '$maker'
|
|
|
|
|
WHERE c_id = ".$course_id." id = ".$lp;
|
|
|
|
|
Database::query($sql);
|
|
|
|
|
|
|
|
|
|
return true;
|
|
|
|
|
} else {
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Exports the current AICC object's files as a zip. Excerpts taken from learnpath_functions.inc.php::exportpath().
|
|
|
|
|
*
|
|
|
|
|
* @param int Learnpath ID (optional, taken from object context if not defined)
|
|
|
|
|
*
|
|
|
|
|
* @return bool
|
|
|
|
|
*/
|
|
|
|
|
public function export_zip($lp_id = null)
|
|
|
|
|
{
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log('In aicc::export_zip method('.$lp_id.')', 0);
|
|
|
|
|
}
|
|
|
|
|
if (empty($lp_id)) {
|
|
|
|
|
if (!is_object($this)) {
|
|
|
|
|
return false;
|
|
|
|
|
} else {
|
|
|
|
|
$id = $this->get_id();
|
|
|
|
|
if (empty($id)) {
|
|
|
|
|
return false;
|
|
|
|
|
} else {
|
|
|
|
|
$lp_id = $this->get_id();
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
// Zip everything that is in the corresponding scorm dir.
|
|
|
|
|
// Write the zip file somewhere (might be too big to return).
|
|
|
|
|
$course_id = api_get_course_int_id();
|
|
|
|
|
$tbl_lp = Database::get_course_table(TABLE_LP_MAIN);
|
|
|
|
|
$_course = api_get_course_info(api_get_course_id());
|
|
|
|
|
|
|
|
|
|
$sql = "SELECT * FROM $tbl_lp WHERE iid= $lp_id";
|
|
|
|
|
$result = Database::query($sql);
|
|
|
|
|
$row = Database::fetch_array($result);
|
|
|
|
|
$LPname = $row['path'];
|
|
|
|
|
$list = explode('/', $LPname);
|
|
|
|
|
$LPnamesafe = $list[0];
|
|
|
|
|
//$zipfoldername = '/tmp';
|
|
|
|
|
//$zipfoldername = '../../courses/'.$_course['directory'].'/temp/'.$LPnamesafe;
|
|
|
|
|
$zipfoldername = api_get_path(SYS_COURSE_PATH).$_course['directory'].'/temp/'.$LPnamesafe;
|
|
|
|
|
$scormfoldername = api_get_path(SYS_COURSE_PATH).$_course['directory'].'/scorm/'.$LPnamesafe;
|
|
|
|
|
$zipfilename = $zipfoldername.'/'.$LPnamesafe.'.zip';
|
|
|
|
|
|
|
|
|
|
// Get a temporary dir for creating the zip file.
|
|
|
|
|
removeDir($zipfoldername); //make sure the temp dir is cleared
|
|
|
|
|
mkdir($zipfoldername, api_get_permissions_for_new_directories());
|
|
|
|
|
|
|
|
|
|
// Create zipfile of given directory.
|
|
|
|
|
$zip_folder = new PclZip($zipfilename);
|
|
|
|
|
$zip_folder->create($scormfoldername.'/', PCLZIP_OPT_REMOVE_PATH, $scormfoldername.'/');
|
|
|
|
|
|
|
|
|
|
//this file sending implies removing the default mime-type from php.ini
|
|
|
|
|
DocumentManager::file_send_for_download($zipfilename, true);
|
|
|
|
|
|
|
|
|
|
// Delete the temporary zip file and directory in fileManage.lib.php
|
|
|
|
|
my_delete($zipfilename);
|
|
|
|
|
my_delete($zipfoldername);
|
|
|
|
|
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Gets a resource's path if available, otherwise return empty string.
|
|
|
|
|
*
|
|
|
|
|
* @param string Resource ID as used in resource array
|
|
|
|
|
*
|
|
|
|
|
* @return string The resource's path as declared in config file course.crs
|
|
|
|
|
*/
|
|
|
|
|
public function get_res_path($id)
|
|
|
|
|
{
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log('In aicc::get_res_path('.$id.') method', 0);
|
|
|
|
|
}
|
|
|
|
|
$path = '';
|
|
|
|
|
if (isset($this->resources[$id])) {
|
|
|
|
|
$oRes = &$this->resources[$id];
|
|
|
|
|
$path = @$oRes->get_path();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return $path;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Gets a resource's type if available, otherwise return empty string.
|
|
|
|
|
*
|
|
|
|
|
* @param string Resource ID as used in resource array
|
|
|
|
|
*
|
|
|
|
|
* @return string The resource's type as declared in the assignable unit (.au) file
|
|
|
|
|
*/
|
|
|
|
|
public function get_res_type($id)
|
|
|
|
|
{
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log('In aicc::get_res_type('.$id.') method', 0);
|
|
|
|
|
}
|
|
|
|
|
$type = '';
|
|
|
|
|
if (isset($this->resources[$id])) {
|
|
|
|
|
$oRes = &$this->resources[$id];
|
|
|
|
|
$temptype = $oRes->get_scorm_type();
|
|
|
|
|
if (!empty($temptype)) {
|
|
|
|
|
$type = $temptype;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return $type;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Gets the default organisation's title.
|
|
|
|
|
*
|
|
|
|
|
* @return string The organization's title
|
|
|
|
|
*/
|
|
|
|
|
public function get_title()
|
|
|
|
|
{
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log('In aicc::get_title() method', 0);
|
|
|
|
|
}
|
|
|
|
|
$title = '';
|
|
|
|
|
if (isset($this->config['organizations']['default'])) {
|
|
|
|
|
$title = $this->organizations[$this->config['organizations']['default']]->get_name();
|
|
|
|
|
} elseif (count($this->organizations) == 1) {
|
|
|
|
|
// This will only get one title but so we don't need to know the index.
|
|
|
|
|
foreach ($this->organizations as $id => $value) {
|
|
|
|
|
$title = $this->organizations[$id]->get_name();
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return $title;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* TODO: Implement this function to restore items data from a set of AICC config files,
|
|
|
|
|
* updating the existing table... This will prove very useful in case initial data
|
|
|
|
|
* from config files were not imported well enough.
|
|
|
|
|
*/
|
|
|
|
|
public function reimport_aicc()
|
|
|
|
|
{
|
|
|
|
|
if ($this->debug > 0) {
|
|
|
|
|
error_log('In aicc::reimport_aicc() method', 0);
|
|
|
|
|
}
|
|
|
|
|
//query current items list
|
|
|
|
|
//get the identifiers
|
|
|
|
|
//parse the config files
|
|
|
|
|
//match both
|
|
|
|
|
//update DB accordingly
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Static function to parse AICC ini files.
|
|
|
|
|
* Based on work by sinedeo at gmail dot com published on php.net (parse_ini_file()).
|
|
|
|
|
*
|
|
|
|
|
* @param string File path
|
|
|
|
|
*
|
|
|
|
|
* @return array Structured array
|
|
|
|
|
*/
|
|
|
|
|
public function parse_ini_file_quotes_safe($f)
|
|
|
|
|
{
|
|
|
|
|
$null = '';
|
|
|
|
|
$r = $null;
|
|
|
|
|
$sec = $null;
|
|
|
|
|
$f = @file_get_contents($f);
|
|
|
|
|
$f = api_convert_encoding($f, api_get_system_encoding(), $this->config_encoding);
|
|
|
|
|
$f = preg_split('/\r?\n/', $f);
|
|
|
|
|
for ($i = 0; $i < @count($f); $i++) {
|
|
|
|
|
$newsec = 0;
|
|
|
|
|
$w = @trim($f[$i]);
|
|
|
|
|
if (substr($w, 0, 1) == ';') {
|
|
|
|
|
// Ignore comment lines
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
if ($w) {
|
|
|
|
|
if ((!$r) or ($sec)) {
|
|
|
|
|
if ((@substr($w, 0, 1) == '[') and (@substr($w, -1, 1)) == ']') {
|
|
|
|
|
$sec = @substr($w, 1, @strlen($w) - 2);
|
|
|
|
|
$newsec = 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if (!$newsec) {
|
|
|
|
|
$w = @explode('=', $w);
|
|
|
|
|
$k = @trim($w[0]);
|
|
|
|
|
unset($w[0]);
|
|
|
|
|
$v = @trim(@implode('=', $w));
|
|
|
|
|
if ((@substr($v, 0, 1) == "\"") and (@substr($v, -1, 1) == "\"")) {
|
|
|
|
|
$v = @substr($v, 1, @strlen($v) - 2);
|
|
|
|
|
}
|
|
|
|
|
if ($sec) {
|
|
|
|
|
if (api_strtolower($sec) == 'course_description') { // A special case.
|
|
|
|
|
$r[api_strtolower($sec)] = $k;
|
|
|
|
|
} else {
|
|
|
|
|
$r[api_strtolower($sec)][api_strtolower($k)] = $v;
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
$r[api_strtolower($k)] = $v;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return $r;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Static function to parse AICC ini strings.
|
|
|
|
|
* Based on work by sinedeo at gmail dot com published on php.net (parse_ini_file()).
|
|
|
|
|
*
|
|
|
|
|
* @param string INI File string
|
|
|
|
|
* @param array List of names of sections that should be considered
|
|
|
|
|
* as containing only hard string data (no variables), provided in lower case
|
|
|
|
|
*
|
|
|
|
|
* @return array Structured array
|
|
|
|
|
*/
|
|
|
|
|
public function parse_ini_string_quotes_safe($s, $pure_strings = [])
|
|
|
|
|
{
|
|
|
|
|
$null = '';
|
|
|
|
|
$r = $null;
|
|
|
|
|
$sec = $null;
|
|
|
|
|
$s = api_convert_encoding($s, api_get_system_encoding(), $this->config_encoding);
|
|
|
|
|
//$f = split("\r\n", $s);
|
|
|
|
|
$f = preg_split('/\r?\n/', $s);
|
|
|
|
|
for ($i = 0; $i < @count($f); $i++) {
|
|
|
|
|
$newsec = 0;
|
|
|
|
|
$w = @trim($f[$i]);
|
|
|
|
|
if (substr($w, 0, 1) == ';') {
|
|
|
|
|
// Ignore comment lines
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
if ($w) {
|
|
|
|
|
if ((!$r) or ($sec)) {
|
|
|
|
|
if ((@substr($w, 0, 1) == '[') and (@substr($w, -1, 1)) == ']') {
|
|
|
|
|
$sec = @substr($w, 1, @strlen($w) - 2);
|
|
|
|
|
$pure_data = 0;
|
|
|
|
|
if (in_array(api_strtolower($sec), $pure_strings)) {
|
|
|
|
|
// This section can only be considered as pure string data (until the next section).
|
|
|
|
|
$pure_data = 1;
|
|
|
|
|
$r[api_strtolower($sec)] = '';
|
|
|
|
|
}
|
|
|
|
|
$newsec = 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if (!$newsec) {
|
|
|
|
|
$w = @explode('=', $w);
|
|
|
|
|
$k = @trim($w[0]);
|
|
|
|
|
unset($w[0]);
|
|
|
|
|
$v = @trim(@implode('=', $w));
|
|
|
|
|
if ((@substr($v, 0, 1) == "\"") and (@substr($v, -1, 1) == "\"")) {
|
|
|
|
|
$v = @substr($v, 1, @strlen($v) - 2);
|
|
|
|
|
}
|
|
|
|
|
if ($sec) {
|
|
|
|
|
if ($pure_data) {
|
|
|
|
|
$r[api_strtolower($sec)] .= $f[$i];
|
|
|
|
|
} else {
|
|
|
|
|
if (api_strtolower($sec) == 'course_description') { // A special case.
|
|
|
|
|
$r[api_strtolower($sec)] = $k;
|
|
|
|
|
} else {
|
|
|
|
|
$r[api_strtolower($sec)][api_strtolower($k)] = $v;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
$r[api_strtolower($k)] = $v;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return $r;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Static function that parses CSV files into simple arrays, based on a function
|
|
|
|
|
* by spam at cyber-space dot nl published on php.net (fgetcsv()).
|
|
|
|
|
*
|
|
|
|
|
* @param string Filepath
|
|
|
|
|
* @param string CSV delimiter
|
|
|
|
|
* @param string CSV enclosure
|
|
|
|
|
* @param bool Might one field name happen more than once on the same line? (then split by comma in the values)
|
|
|
|
|
*
|
|
|
|
|
* @return array Simple structured array
|
|
|
|
|
*/
|
|
|
|
|
public function parse_csv_file($f, $delim = ',', $enclosure = '"', $multiples = false)
|
|
|
|
|
{
|
|
|
|
|
$data = @file_get_contents($f);
|
|
|
|
|
$data = api_convert_encoding($data, api_get_system_encoding(), $this->config_encoding);
|
|
|
|
|
$enclosed = false;
|
|
|
|
|
$fldcount = 0;
|
|
|
|
|
$linecount = 0;
|
|
|
|
|
$fldval = '';
|
|
|
|
|
for ($i = 0; $i < strlen($data); $i++) {
|
|
|
|
|
$chr = $data[$i];
|
|
|
|
|
switch ($chr) {
|
|
|
|
|
case $enclosure:
|
|
|
|
|
if ($enclosed && $data[$i + 1] == $enclosure) {
|
|
|
|
|
$fldval .= $chr;
|
|
|
|
|
$i++; // Skip the next character.
|
|
|
|
|
} else {
|
|
|
|
|
$enclosed = !$enclosed;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
case $delim:
|
|
|
|
|
if (!$enclosed) {
|
|
|
|
|
$ret_array[$linecount][$fldcount++] = $fldval;
|
|
|
|
|
$fldval = '';
|
|
|
|
|
} else {
|
|
|
|
|
$fldval .= $chr;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
case "\r":
|
|
|
|
|
if (!$enclosed && $data[$i + 1] == "\n") {
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
// no break
|
|
|
|
|
case "\n":
|
|
|
|
|
if (!$enclosed) {
|
|
|
|
|
$ret_array[$linecount++][$fldcount] = $fldval;
|
|
|
|
|
$fldcount = 0;
|
|
|
|
|
$fldval = '';
|
|
|
|
|
} else {
|
|
|
|
|
$fldval .= $chr;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
case "\\r":
|
|
|
|
|
if (!$enclosed && $data[$i + 1] == "\\n") {
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
// no break
|
|
|
|
|
case "\\n":
|
|
|
|
|
if (!$enclosed) {
|
|
|
|
|
$ret_array[$linecount++][$fldcount] = $fldval;
|
|
|
|
|
$fldcount = 0;
|
|
|
|
|
$fldval = '';
|
|
|
|
|
} else {
|
|
|
|
|
$fldval .= $chr;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
$fldval .= $chr;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if ($fldval) {
|
|
|
|
|
$ret_array[$linecount][$fldcount] = $fldval;
|
|
|
|
|
}
|
|
|
|
|
// Transform the array to use the first line as titles.
|
|
|
|
|
$titles = [];
|
|
|
|
|
$ret_ret_array = [];
|
|
|
|
|
foreach ($ret_array as $line_idx => $line) {
|
|
|
|
|
if ($line_idx == 0) {
|
|
|
|
|
$titles = $line;
|
|
|
|
|
} else {
|
|
|
|
|
$ret_ret_array[$line_idx] = [];
|
|
|
|
|
foreach ($line as $idx => $val) {
|
|
|
|
|
if ($multiples && !empty($ret_ret_array[$line_idx][api_strtolower($titles[$idx])])) {
|
|
|
|
|
$ret_ret_array[$line_idx][api_strtolower($titles[$idx])] .= ','.$val;
|
|
|
|
|
} else {
|
|
|
|
|
$ret_ret_array[$line_idx][api_strtolower($titles[$idx])] = $val;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return $ret_ret_array;
|
|
|
|
|
}
|
|
|
|
|
}
|
