You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2730 lines
99 KiB
2730 lines
99 KiB
<?php // $Id: index.php 16620 2008-10-25 20:03:54Z yannoo $
|
|
/*
|
|
==============================================================================
|
|
Dokeos - elearning and course management software
|
|
|
|
Copyright (c) 2004-2008 Dokeos SPRL
|
|
Copyright (c) 2003 Ghent University (UGent)
|
|
|
|
For a full list of contributors, see "credits.txt".
|
|
The full license can be read in "license.txt".
|
|
|
|
This program 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 2
|
|
of the License, or (at your option) any later version.
|
|
|
|
See the GNU General Public License for more details.
|
|
|
|
Contact: Dokeos, rue Notre Dame, 152, B-1140 Evere, Belgium, info@dokeos.com
|
|
==============================================================================
|
|
*/
|
|
|
|
/**
|
|
==============================================================================
|
|
* This is a function library for the learning path.
|
|
*
|
|
* Due to the face that the learning path has been built upon the resoucelinker,
|
|
* naming conventions have changed at least 2 times. You can see here in order the :
|
|
* 1. name used in the first version of the resourcelinker
|
|
* 2. name used in the first version of the LP
|
|
* 3. name used in the second (current) version of the LP
|
|
*
|
|
* 1. 2. 3.
|
|
* Category = Chapter = Module
|
|
* Item (?) = Item = Step
|
|
*
|
|
* @author Denes Nagy <darkden@evk.bke.hu>, main author
|
|
* @author Roan Embrechts, some code cleaning
|
|
* @author Yannick Warnier <yannick.warnier@dokeos.com>, multi-level learnpath behaviour + new SCORM tool
|
|
* @access public
|
|
* @package dokeos.learnpath
|
|
* @todo rename functions to coding conventions: not deleteitem but delete_item, etc
|
|
* @todo rewrite functions to comply with phpDocumentor
|
|
* @todo remove code duplication
|
|
==============================================================================
|
|
*/
|
|
|
|
/**
|
|
* This function deletes an item
|
|
* @param integer $id: the item we want to delete
|
|
* @return boolean True if item was deleted, false if not found or error
|
|
**/
|
|
function deleteitem($id)
|
|
{
|
|
$tbl_learnpath_item = Database :: get_course_table(TABLE_LEARNPATH_ITEM);
|
|
$tbl_learnpath_chapter = Database :: get_course_table(TABLE_LEARNPATH_CHAPTER);
|
|
//get the display order for this item before it is deleted
|
|
$sql = "SELECT display_order, parent_item_id FROM $tbl_lp_item WHERE id=$id";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
if (Database::num_rows($result) == 0)
|
|
{
|
|
return false;
|
|
}
|
|
$row = Database::fetch_row($result);
|
|
$display_order = $row[0];
|
|
$parent_item_id = $row[1];
|
|
// delete the item
|
|
$sql = "DELETE FROM $tbl_learnpath_item WHERE id='$id'";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
if ($result === false)
|
|
{
|
|
return false;
|
|
}
|
|
// update the other items and chapters
|
|
$sql = "UPDATE $tbl_learnpath_item SET display_order = display_order-1 WHERE display_order > $display_order AND parent_item_id = $parent_item_id";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
$sql = "UPDATE $tbl_learnpath_chapter SET display_order = display_order-1 WHERE display_order > $display_order AND parent_item_id = $parent_item_id";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
//return
|
|
return true;
|
|
}
|
|
|
|
/**
|
|
* This function deletes a module(chapter) and all its steps(items).
|
|
*
|
|
* @param integer id of the chapter we want to delete
|
|
* @return boolean True on success and false if not found or error
|
|
**/
|
|
function deletemodule($parent_item_id)
|
|
{
|
|
global $learnpath_id;
|
|
$tbl_learnpath_item = Database :: get_course_table(TABLE_LEARNPATH_ITEM);
|
|
$tbl_learnpath_chapter = Database :: get_course_table(TABLE_LEARNPATH_CHAPTER);
|
|
|
|
//Added for multi-level behaviour - slightly recursive
|
|
$sql = "SELECT * FROM $tbl_learnpath_chapter WHERE lp_id=$learnpath_id";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
while ($row = Database::fetch_array($result))
|
|
{
|
|
if ($row['parent_item_id'] == $parent_item_id)
|
|
{
|
|
//delete every subchapter
|
|
if (deletemodule($row['id']) === false)
|
|
{
|
|
return false;
|
|
}
|
|
}
|
|
}
|
|
|
|
//get this chapter's display order
|
|
$sql = "SELECT display_order, parent_item_id FROM $tbl_learnpath_chapter WHERE id=$parent_item_id and lp_id=$learnpath_id";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
if (Database::num_rows($result) == 0)
|
|
{
|
|
return false;
|
|
}
|
|
$row = Database::fetch_row($result);
|
|
|
|
$display_order = $row[0];
|
|
$parent_id = $row[1];
|
|
|
|
//delete the chapter itself
|
|
$sql = "DELETE FROM $tbl_learnpath_chapter WHERE (id=$parent_item_id and lp_id=$learnpath_id)";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
//delete items from that chapter
|
|
$sql2 = "DELETE FROM $tbl_learnpath_item WHERE parent_item_id=$parent_item_id";
|
|
$result = Database::query($sql2, __FILE__, __LINE__);
|
|
|
|
//update all other chapters accordingly
|
|
$sql = "UPDATE $tbl_learnpath_item SET display_order = display_order-1 WHERE display_order > $display_order AND parent_item_id = $parent_id";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
$sql = "UPDATE $tbl_learnpath_chapter SET display_order = display_order-1 WHERE display_order > $display_order AND parent_item_id = $parent_id";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
|
|
return true;
|
|
}
|
|
|
|
/**
|
|
* This function deletes an entire path.
|
|
*
|
|
* @param integer $id: the path we want to delete
|
|
* @return void
|
|
**/
|
|
function deletepath($path_id)
|
|
{
|
|
$tbl_learnpath_main = Database :: get_course_table(TABLE_LEARNPATH_MAIN);
|
|
$tbl_learnpath_item = Database :: get_course_table(TABLE_LEARNPATH_ITEM);
|
|
$tbl_learnpath_chapter = Database :: get_course_table(TABLE_LEARNPATH_CHAPTER);
|
|
|
|
$sql = "DELETE FROM $tbl_learnpath_main WHERE lp_id='$path_id'";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
|
|
//@TODO check how this function is used before uncommenting the following
|
|
//also delete all elements inside that path
|
|
$sql = "SELECT * FROM $tbl_learnpath_chapter WHERE lp_id=$path_id";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
while ($row = Database::fetch_array($result))
|
|
{
|
|
deletemodule($row['id']);
|
|
}
|
|
}
|
|
|
|
/**
|
|
* This function moves an item.
|
|
*
|
|
* @param string $direction: move the given chapter up or down
|
|
* @param integer Item ID
|
|
* @param integer $moduleid: the id of the chapter the element resides in
|
|
* @return boolean Returns false on error
|
|
* @note With this new version, the moveitem deals with items AND directories (not the base-level modules). This is a lot more complicated but is a temporary step towards new database structure as 'everything is an item'
|
|
**/
|
|
function moveitem($direction, $id, $moduleid, $type = 'item')
|
|
{
|
|
global $learnpath_id;
|
|
$tbl_learnpath_item = Database::get_course_table(TABLE_LEARNPATH_ITEM);
|
|
$tbl_learnpath_chapter = Database::get_course_table(TABLE_LEARNPATH_CHAPTER);
|
|
|
|
$tree = get_learnpath_tree($learnpath_id);
|
|
$orig_order = 0;
|
|
$orig_type = '';
|
|
$orig_id = $id;
|
|
foreach ($tree[$moduleid] as $row)
|
|
{
|
|
//if this is the element we want (be it a chapter or an item), get its data
|
|
if (($row['id'] == $id) && ($row['type'] == $type))
|
|
{
|
|
$orig_order = $row['display_order'];
|
|
$orig_type = $row['type'];
|
|
break;
|
|
}
|
|
}
|
|
|
|
$dest_order = 0;
|
|
$dest_type = '';
|
|
$dest_id = 0;
|
|
if ($direction == "up")
|
|
{
|
|
if (!empty ($tree[$moduleid][$orig_order -1]))
|
|
{
|
|
$dest_order = $orig_order -1;
|
|
$dest_type = $tree[$moduleid][$orig_order -1]['type'];
|
|
$dest_id = $tree[$moduleid][$orig_order -1]['id'];
|
|
}
|
|
else
|
|
{
|
|
return false;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
//move down
|
|
if (!empty ($tree[$moduleid][$orig_order +1]))
|
|
{
|
|
$dest_order = $orig_order +1;
|
|
$dest_type = $tree[$moduleid][$orig_order +1]['type'];
|
|
$dest_id = $tree[$moduleid][$orig_order +1]['id'];
|
|
}
|
|
else
|
|
{
|
|
return false;
|
|
}
|
|
}
|
|
|
|
$sql1 = '';
|
|
$sql2 = '';
|
|
if ($orig_type == 'chapter')
|
|
{
|
|
$sql1 = "UPDATE $tbl_learnpath_chapter SET display_order = ".$dest_order." WHERE (id=$orig_id and parent_item_id=$moduleid)";
|
|
}
|
|
elseif ($orig_type == 'item')
|
|
{
|
|
$sql1 = "UPDATE $tbl_learnpath_item SET display_order = ".$dest_order." WHERE (id=$orig_id and parent_item_id=$moduleid)";
|
|
}
|
|
else
|
|
{
|
|
return false;
|
|
}
|
|
|
|
if ($dest_type == 'chapter')
|
|
{
|
|
$sql2 = "UPDATE $tbl_learnpath_chapter SET display_order = ".$orig_order." WHERE (id='$dest_id' and parent_item_id=$moduleid)";
|
|
}
|
|
elseif ($dest_type == 'item')
|
|
{
|
|
$sql2 = "UPDATE $tbl_learnpath_item SET display_order = ".$orig_order." WHERE (id='$dest_id' and parent_item_id=$moduleid)";
|
|
}
|
|
else
|
|
{
|
|
return false;
|
|
}
|
|
Database::query($sql1, __FILE__, __LINE__);
|
|
Database::query($sql2, __FILE__, __LINE__);
|
|
}
|
|
|
|
/**
|
|
* This function moves a module (also called chapter or category).
|
|
*
|
|
* @param string $direction: move the given chapter up or down
|
|
* @param integer $id: the id of the chapter we want to move
|
|
* @return void
|
|
**/
|
|
function movemodule($direction, $id)
|
|
{
|
|
global $learnpath_id;
|
|
$tbl_learnpath_chapter = Database :: get_course_learnpath_chapter_table();
|
|
if ($direction == "up")
|
|
{
|
|
$sortDirection = "DESC";
|
|
}
|
|
else
|
|
{
|
|
$sortDirection = "ASC";
|
|
}
|
|
|
|
// Select all chapters of first level (parent_item_id = 0)
|
|
$sql = "SELECT * FROM $tbl_learnpath_chapter where (lp_id=$learnpath_id AND parent_item_id = 0) ORDER BY display_order $sortDirection";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
$previousrow = "";
|
|
|
|
// see similar comment in moveitem() function
|
|
// @TODO: this only works for chapters in multi-level mode. Why not gather
|
|
// this function and moveitem to keep only one multi-uses function?
|
|
while ($row = Database::fetch_array($result))
|
|
{
|
|
// step 2: performing the move (only happens when passed trhough step 1 at least once)
|
|
if (!empty ($this_cat_order))
|
|
{
|
|
$next_cat_order = $row["display_order"];
|
|
$next_cat_id = $row["id"];
|
|
|
|
$sql1 = "UPDATE $tbl_learnpath_chapter SET display_order = '$next_cat_order' WHERE (id='$this_cat_id' and lp_id=$learnpath_id)";
|
|
$sql2 = "UPDATE $tbl_learnpath_chapter SET display_order = '$this_cat_order' WHERE (id='$next_cat_id' and lp_id=$learnpath_id)";
|
|
Database::query($sql1, __FILE__, __LINE__);
|
|
Database::query($sql2, __FILE__, __LINE__);
|
|
unset ($this_cat_order);
|
|
unset ($this_cat_id);
|
|
unset ($next_cat_order);
|
|
unset ($next_cat_id);
|
|
break;
|
|
}
|
|
|
|
// step 1: looking for the order of the row we want to move
|
|
if ($row["id"] == $id)
|
|
{
|
|
$this_cat_order = $row["display_order"];
|
|
$this_cat_id = $id;
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
/**
|
|
* Inserts a new element in a learnpath table (item or chapter)
|
|
* @param string Element type ('chapter' or 'item')
|
|
* @param string Chapter name
|
|
* @param string Chapter description (optional)
|
|
* @param integer Parent chapter ID (default: 0)
|
|
* @param integer Learnpath ID
|
|
* @param mixed If type 'item', then array(prereq_id=>value, prereq_..)
|
|
* @return integer The new chapter ID, or false on failure
|
|
* @TODO Finish this function before it is used. Currently only chapters can be added using it.
|
|
* @note This function is currently never used!
|
|
*/
|
|
function insert_item($type = 'item', $name, $chapter_description = '', $parent_id = 0, $learnpath_id = 0, $params = null)
|
|
{
|
|
$tbl_learnpath_chapter = Database :: get_course_table(TABLE_LEARNPATH_CHAPTER);
|
|
$tbl_learnpath_item = Database :: get_course_table(TABLE_LEARNPATH_ITEM);
|
|
|
|
// getting the last order number from the chapters table, in this learnpath, for the parent chapter given
|
|
$sql = "SELECT * FROM $tbl_learnpath_chapter
|
|
WHERE lp_id=$learnpath_id
|
|
AND parent_item_id = $parent_id
|
|
ORDER BY display_order DESC";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
$row = Database::fetch_array($result);
|
|
$last_chapter_order = $row["display_order"];
|
|
|
|
// getting the last order number of the items
|
|
$sql = "SELECT * FROM $tbl_learnpath_item
|
|
AND parent_item_id = $parent_id
|
|
ORDER BY display_order DESC";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
$row = Database::fetch_array($result);
|
|
$last_item_order = $row["display_order"];
|
|
$new_order = max($last_chapter_order, $last_item_order) + 1;
|
|
|
|
if ($type === 'chapter')
|
|
{
|
|
$sql = "INSERT INTO $tbl_learnpath_chapter
|
|
(lp_id, chapter_name, chapter_description, display_order)
|
|
VALUES ('".domesticate($learnpath_id)."',
|
|
'".domesticate(htmlspecialchars($chapter_name))."',
|
|
'".domesticate(htmlspecialchars($chapter_description))."',
|
|
$new_order )";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
if ($result === false)
|
|
{
|
|
return false;
|
|
}
|
|
$id = Database :: insert_id();
|
|
}
|
|
elseif ($type === 'item')
|
|
{
|
|
$sql = "INSERT INTO $tbl_learnpath_item
|
|
(parent_item_id, item_type, item_id, display_order)
|
|
VALUES ('".domesticate($parent_id)."',
|
|
'".domesticate(htmlspecialchars($item_type))."',
|
|
'".domesticate(htmlspecialchars($item_id))."',
|
|
$new_order )";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
if ($result === false)
|
|
{
|
|
return false;
|
|
}
|
|
$id = Database :: insert_id();
|
|
}
|
|
return $id;
|
|
}
|
|
|
|
/**
|
|
* This function returns an array with all the learnpath categories/chapters
|
|
* @return array List of learnpath chapter titles
|
|
**/
|
|
function array_learnpath_categories()
|
|
{
|
|
#global $tbl_learnpath_chapter;
|
|
global $learnpath_id;
|
|
$tbl_learnpath_chapter = Database :: get_course_table(TABLE_LEARNPATH_CHAPTER);
|
|
|
|
$sql = "SELECT * FROM $tbl_learnpath_chapter WHERE (lp_id=$learnpath_id) ORDER BY display_order ASC";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
|
|
while ($row = Database::fetch_array($result))
|
|
{
|
|
$array_learnpath_categories[] = array ($row["id"], $row["chapter_name"]);
|
|
}
|
|
//$array_learnpath_categories=array($array_learnpath_categories_name,$array_learnpath_categories_id);
|
|
return $array_learnpath_categories;
|
|
}
|
|
|
|
/**
|
|
* Displays the learnpath chapters(=modules,categories) and their contents.
|
|
* @param integer Chapter ID to display now (enables recursive behaviour)
|
|
* @param array The array as returned by get_learnpath_tree, with all the elements of a learnpath compiled and structured into the array, by chapter id
|
|
* @param integer Level (the depth of the call - helps in display)
|
|
* @todo eliminate all global $lang declarations, use get_lang, improve structure.
|
|
* @author Denes Nagy
|
|
* @author Roan Embrechts
|
|
* @author Yannick Warnier <yannick.warnier@dokeos.com> - complete redesign for multi-level learnpath chapters
|
|
*/
|
|
function display_learnpath_chapters($parent_item_id = 0, $tree = array (), $level = 0)
|
|
{
|
|
//error_log('New LP - In learnpath_functions::display_learnpath_chapters',0);
|
|
global $color2;
|
|
global $xml_output;
|
|
global $learnpath_id;
|
|
$tbl_lp_item = Database::get_course_table(TABLE_LP_ITEM);
|
|
|
|
|
|
// @todo: coding standards: Language variables are CaMMelCaSe, all other variables should use the underscoring method.
|
|
$lang_move_down = get_lang('_move_down');
|
|
$lang_move_up = get_lang('lang_move_up');
|
|
$lang_edit_learnpath_module = get_lang('lang_edit_learnpath_module');
|
|
$lang_delete_learnpath_module = get_lang('lang_delete_learnpath_module');
|
|
$lang_nochapters = get_lang('lang_nochapters');
|
|
$lang_prerequisites = get_lang('lang_prerequisites');
|
|
$lang_prerequisites_limit = get_lang('lang_prerequisites_limit');
|
|
$lang_add_learnpath_item = get_lang('lang_add_learnpath_item');
|
|
$lang_add_item = get_lang('lang_add_item');
|
|
$lang_title_and_desc = get_lang('lang_title_and_desc');
|
|
$lang_change_order = get_lang('lang_change_order');
|
|
$lang_add_prereqi = get_lang('lang_add_prereqi');
|
|
$lang_add_title_and_desc = get_lang('lang_add_title_and_desc');
|
|
$lang_delete = get_lang('Delete');
|
|
|
|
if ($parent_item_id === 0)
|
|
{
|
|
// this is the first time we use the function, define the tree and display learnpath name
|
|
|
|
$tree = get_learnpath_tree($learnpath_id);
|
|
|
|
$num_modules = count($tree);
|
|
//$num_modules=Database::num_rows($result);
|
|
if ($num_modules == 0)
|
|
{
|
|
// do not diplay useless information
|
|
//echo "<tr><td> $lang_nochapters</td></tr>";
|
|
}
|
|
else
|
|
{
|
|
echo " <tr align='center' valign='top'>\n"." <td><b> $lang_title_and_desc </b></td>\n"." <td><b> $lang_add_item </b></td>\n";
|
|
if (is_prereq($learnpath_id))
|
|
{
|
|
echo " <td bgcolor='#ddddee'><b> $lang_prerequisites_limit </b></td>\n";
|
|
}
|
|
else
|
|
echo " <td><b> $lang_prerequisites </b></td>\n";
|
|
|
|
echo " <td colspan='2'><b> $lang_change_order </b></td><td><b> $lang_add_prereqi </b></td>\n"." <td><b> $lang_add_title_and_desc </b></td><td><b> $lang_delete </b></td>\n"." </tr>\n";
|
|
}
|
|
}
|
|
|
|
$i = 1;
|
|
$counter = 0;
|
|
$num_modules = count($tree[$parent_item_id]);
|
|
|
|
//while ($row=Database::fetch_array($result))
|
|
if (isset ($tree[$parent_item_id]))
|
|
{
|
|
foreach ($tree[$parent_item_id] as $row)
|
|
{
|
|
if ($row['item_type'] === 'dokeos_chapter')
|
|
{
|
|
$xml_output .= "<chapter>";
|
|
$xml_output .= "<chaptertitle>".$row["title"]."</chaptertitle>";
|
|
$xml_output .= "<chapterdescription>".$row["description"]."</chapterdescription>";
|
|
|
|
$counter ++;
|
|
if (($counter % 2) == 0)
|
|
{
|
|
$oddclass = "row_odd";
|
|
}
|
|
else
|
|
{
|
|
$oddclass = "row_even";
|
|
}
|
|
|
|
//echo '<tr class="'.$oddclass.'">'."\n".' <td>'.str_repeat(" >", $level)."<img src='../img/documents.gif' alt='folder'/><a href='".api_get_self()."?lp_id=$learnpath_id&item_id={$row['id']}&action=add&type=learnpathitem&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9'><b> ".$row['title']."</b></a>"."<br /><i><div align='justify'> ".str_repeat(" ", $level)."</i></td>\n".' <td align="center"><a href="'.api_get_self()."?lp_id=$learnpath_id&item_id={$row['id']}&action=add&type=learnpathitem&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9"><img src='../img/0.gif' width='13' height='13' border='0' title='$lang_add_learnpath_item'></a></td>\n"." <td";
|
|
echo '<tr class="'.$oddclass.'">'."\n".' <td>'.str_repeat(" >", $level)."<img src='../img/documents.gif' alt='folder'/><a href='".api_get_self()."?lp_id=$learnpath_id&parent_item_id=".$row['id']."&action=add_sub_item'><b> ".$row['title']."</b></a>"."<br /><i><div align='justify'> ".str_repeat(" ", $level)."</i></td>\n".' <td align="center"><a href="'.api_get_self()."?lp_id=$learnpath_id&parent_item_id=".$row['id']."&action=add_sub_item\"><img src='../img/0.gif' width='13' height='13' border='0' title='$lang_add_learnpath_item'></a></td>\n"." <td";
|
|
if (is_prereq($learnpath_id))
|
|
{
|
|
echo " bgcolor='#ddddee'";
|
|
}
|
|
echo ">".$row['prerequisite']."</td>\n";
|
|
|
|
// showing the edit, delete and move icons
|
|
if (is_allowed_to_edit())
|
|
{
|
|
$myaction = 'move_item';
|
|
if ($i < $num_modules)
|
|
{
|
|
|
|
// if we are still under the number of chapters in this section, show "move down"
|
|
//echo " <td align=center>"."<a href='".api_get_self()."?lp_id=$learnpath_id&action=".$myaction."&direction=down&moduleid=".$parent_item_id."&id=".$row["id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9>"."<img src=\"../img/down.gif\" border=\"0\" title=\"$lang_move_down\">"."</a></td>\n";
|
|
echo " <td align=center>"."<a href='".api_get_self()."?lp_id=$learnpath_id&action=".$myaction."&direction=down&moduleid=".$parent_item_id."&id=".$row["id"]."'>"."<img src=\"../img/down.gif\" border=\"0\" title=\"$lang_move_down\">"."</a></td>\n";
|
|
}
|
|
else
|
|
{
|
|
echo ' <td align="center"> </td>'."\n";
|
|
}
|
|
|
|
if ($i > 1)
|
|
{
|
|
//echo ' <td align="center">'."<a href='".api_get_self()."?lp_id=$learnpath_id&action=".$myaction."&direction=up&moduleid=".$parent_item_id."&id=".$row["id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9>"."<img src=\"../img/up.gif\" border=\"0\" title=\"$lang_move_up\">"."</a>"."</td>\n";
|
|
echo ' <td align="center">'."<a href='".api_get_self()."?lp_id=$learnpath_id&action=".$myaction."&direction=up&moduleid=".$parent_item_id."&id=".$row["id"]."'>"."<img src=\"../img/up.gif\" border=\"0\" title=\"$lang_move_up\">"."</a>"."</td>\n";
|
|
}
|
|
else
|
|
{
|
|
echo ' <td align="center"> </td>'."\n";
|
|
}
|
|
|
|
echo " <td align='center'> </td>\n";
|
|
//echo " <td align='center'>"."<a href='".api_get_self()."?lp_id=$learnpath_id&action=editmodule&id=".$row["id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9>"."<img src=\"../img/edit.gif\" border=\"0\" title=\"$lang_edit_learnpath_module\">"."</a>"."</td>\n";
|
|
echo " <td align='center'>"."<a href='".api_get_self()."?lp_id=$learnpath_id&action=edititem&id=".$row["id"]."'>"."<img src=\"../img/edit.gif\" border=\"0\" title=\"$lang_edit_learnpath_module\">"."</a>"."</td>\n";
|
|
|
|
//echo " <td align='center'>"."<a href='".api_get_self()."?lp_id=$learnpath_id&action=deletemodule&id=".$row["id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9 onclick=\"return confirmation('".$row['chapter_name']."');\">"."<img src=\"../img/delete.gif\" border=\"0\" title=\"$lang_delete_learnpath_module\">"."</a>"."</td>\n";
|
|
echo " <td align='center'>"."<a href='".api_get_self()."?lp_id=$learnpath_id&action=delete_item&id=".$row["id"]."' onclick=\"return confirmation('".$row['title']."');\">"."<img src=\"../img/delete.gif\" border=\"0\" title=\"$lang_delete_learnpath_module\">"."</a>"."</td>\n";
|
|
}
|
|
|
|
echo "</tr>\n";
|
|
$i ++;
|
|
|
|
$xml_output .= "<items>";
|
|
|
|
#display_learnpath_items($row["id"]);
|
|
display_learnpath_chapters($row['id'], $tree, $level +1);
|
|
|
|
$xml_output .= "</items>";
|
|
$xml_output .= "</chapter>";
|
|
|
|
}
|
|
else //if //($row['item_type'] === 'item')
|
|
{
|
|
$row_items = $row;
|
|
echo "<tr>\n <td colspan='2' valign='top'>";
|
|
//require('resourcelinker.inc.php');
|
|
display_addedresource_link_in_learnpath($row_items["item_type"], $row_items["ref"], '', $row_items["id"], 'builder', 'icon', $level);
|
|
|
|
if ($row_items["description"])
|
|
{
|
|
echo "<div align='justify'> {$row_items['description']}";
|
|
}
|
|
|
|
echo "</td>";
|
|
|
|
if (is_prereq($learnpath_id))
|
|
{
|
|
echo '<td bgcolor="#EEEEFF">';
|
|
}
|
|
else
|
|
{
|
|
echo "<td>";
|
|
}
|
|
|
|
if (is_allowed_to_edit())
|
|
{
|
|
|
|
if ($row_items["prerequisite"] <> '')
|
|
{
|
|
$prereq = $row_items["prerequisite"];
|
|
|
|
//if ($row_items["prereq_type"] == 'i')
|
|
//{
|
|
//item
|
|
$sql_items2 = "SELECT * FROM $tbl_lp_item WHERE id='$prereq'"; //check if prereq has been deleted
|
|
$result_items2 = Database::query($sql_items2, __FILE__, __LINE__);
|
|
$number_items2 = Database::num_rows($result_items2);
|
|
if ($number_items2 == 0)
|
|
{
|
|
echo get_lang('prereq_deleted_error');
|
|
}
|
|
$row_items2 = Database::fetch_array($result_items2);
|
|
display_addedresource_link_in_learnpath($row_items2["item_type"], $row_items2["ref"], '', $row_items2["id"], 'builder', '', 0);
|
|
if ((($row_items2["item_type"] == TOOL_QUIZ) or ($row_items2["item_type"] == 'HotPotatoes')) and ($row_items['prerequisite']))
|
|
{
|
|
//echo " ({$row_items2['title']})";
|
|
}
|
|
//}
|
|
/*
|
|
if ($row_items["prereq_type"] == 'c')
|
|
{
|
|
//chapter
|
|
$sql_items2 = "SELECT * FROM $tbl_lp_item WHERE id='$prereq' AND item_type='dokeos_chapter'"; //check if prereq has been deleted
|
|
$result_items2 = Database::query($sql_items2, __FILE__, __LINE__);
|
|
$number_items2 = Database::num_rows($result_items2);
|
|
if ($number_items2 == 0)
|
|
{
|
|
echo "<font color='red'>$lang_prereq_deleted_error</font>";
|
|
}
|
|
$row_items2 = Database::fetch_array($result_items2);
|
|
echo " {$row_items2['title']}";
|
|
}*/
|
|
}
|
|
echo "</font></td>";
|
|
$xml_output .= "<element_type>".$row_items["item_type"]."</element_type>";
|
|
$xml_output .= "<element_id>".$row_items["item_id"]."</element_id>";
|
|
|
|
// move
|
|
if ($i < $num_modules)
|
|
{
|
|
echo "<td align='center'>"."<a href='".api_get_self()."?lp_id=$learnpath_id&action=moveitem&type=item&direction=down&moduleid=".$parent_item_id."&id=".$row_items["id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9>"."<img src=\"../img/down.gif\" border=\"0\" title=\"$lang_move_down\">"."</a>"."</td>";
|
|
}
|
|
else
|
|
{
|
|
echo "<td width='30' align='center'> </td>";
|
|
}
|
|
|
|
if ($i > 1)
|
|
{
|
|
echo "<td align='center'>"."<a href='".api_get_self()."?lp_id=$learnpath_id&action=moveitem&type=item&direction=up&moduleid=".$parent_item_id."&id=".$row_items["id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9>"."<img src=\"../img/up.gif\" border=\"0\" title=\"$lang_move_up\">"."</a>";
|
|
}
|
|
else
|
|
{
|
|
echo "<td width='30' align='center'> </td>";
|
|
}
|
|
echo "</td>"."<td align='center'>";
|
|
|
|
// edit prereq
|
|
echo "<a href='".api_get_self()."?lp_id=$learnpath_id&action=edititemprereq&id=".$row_items["id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9>"."<img src=\"../img/scormpre.gif\" border=\"0\" title=\"$lang_add_prereq\">"."</a>"."</td>";
|
|
|
|
// edit
|
|
echo "<td align='center'>"."<a href='".api_get_self()."?lp_id=$learnpath_id&action=edititem&id=".$row_items["id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9>"."<img src=\"../img/edit.gif\" border=\"0\" title=\"$lang_edit_learnpath_item\">"."</a>"."</td>";
|
|
|
|
// delete
|
|
echo "<td align='center'>"."<a href='".api_get_self()."?lp_id=$learnpath_id&action=deleteitem&id=".$row_items["id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9>"."<img src=\"../img/delete.gif\" border=\"0\" title=\"$lang_delete_learnpath_item\" onclick=\"return confirmation('".$row_items["item_type"]."');\">"."</a>";
|
|
}
|
|
$i ++;
|
|
echo "</td></tr>";
|
|
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Displays all learning paths.
|
|
* @return void
|
|
* @todo eliminate all global $lang declarations, use get_lang, improve structure.
|
|
*/
|
|
function display_all_learnpath()
|
|
{
|
|
global $tbl_tool, $color2;
|
|
global $xml_output, $lang_edit_learnpath, $lang_delete_learnpath, $lang_publish, $lang_no_publish, $lang_add_learnpath_chapter_to_path;
|
|
$tbl_learnpath_main = Database :: get_course_table(TABLE_LEARNPATH_MAIN);
|
|
|
|
$sql = "SELECT * FROM $tbl_learnpath_main ORDER BY learnpath_name";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
$i = 1;
|
|
$num_modules = Database::num_rows($result);
|
|
|
|
while ($row = Database::fetch_array($result))
|
|
{
|
|
//other grey color : #E6E6E6
|
|
echo "<tr><td bgcolor=\"$color2\" width=400><b> ";
|
|
echo "<a href='learnpath_handler.php?&lp_id={$row['lp_id']}'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9>{$row['learnpath_name']}</a>";
|
|
echo "</b><br><i><div class=text align=justify>{$row['learnpath_description']}</div></i></td>";
|
|
|
|
// showing the edit, delete and publish icons
|
|
if (is_allowed_to_edit())
|
|
{
|
|
echo "<td bgcolor=\"$color2\" align=center><a href='learnpath_handler.php?lp_id={$row['lp_id']}&action=add&type=learnpathcategory'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9><img src='../img/0.gif' width='13' height='13' border='0' title='$lang_add_learnpath_chapter_to_path'></a></td>";
|
|
echo "<td bgcolor=\"$color2\" align=center><a href='".api_get_self()."?action=editpath&id=".$row["lp_id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9><img src=\"../img/edit.gif\" border=\"0\" title=\"$lang_edit_learnpath\"></a></td>";
|
|
echo "<td bgcolor=\"$color2\" align=center><a href='".api_get_self()."?action=deletepath&id=".$row["lp_id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9><img src=\"../img/delete.gif\" border=\"0\" title=\"$lang_delete_learnpath\" onclick=\"return confirmation('".$row2['learnpath_name']."');\"></a></td>";
|
|
$id = $row["lp_id"];
|
|
$sql2 = "SELECT * FROM $tbl_learnpath_main where lp_id=$id";
|
|
$result2 = Database::query($sql2, __FILE__, __LINE__);
|
|
$row2 = Database::fetch_array($result2);
|
|
$name = $row2['learnpath_name'];
|
|
$sql3 = "SELECT * FROM $tbl_tool where (name=\"$name\" and image='scormbuilder.gif')";
|
|
$result3 = Database::query($sql3, __FILE__, __LINE__);
|
|
$row3 = Database::fetch_array($result3);
|
|
if (($row3["visibility"]) == '1')
|
|
{
|
|
echo "<td bgcolor=\"$color2\" align=center><a href='".api_get_self()."?action=publishpath&set=i&id=".$row["lp_id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9><img src=\"../img/visible.gif\" border=\"0\" title=\"$lang_no_publish\"></a></td>";
|
|
}
|
|
else
|
|
{
|
|
echo "<td bgcolor=\"$color2\" align=center><a href='".api_get_self()."?action=publishpath&set=v&id=".$row["lp_id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9><img src=\"../img/invisible.gif\" border=\"0\" title=\"$lang_publish\"></a></td>";
|
|
}
|
|
}
|
|
$i ++;
|
|
echo "<tr><td> </td></tr>";
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Displays the learning path items/steps.
|
|
* @param integer Category ID
|
|
* @return void
|
|
* @todo eliminate all global $lang declarations, use get_lang, improve structure.
|
|
*/
|
|
function display_learnpath_items($categoryid)
|
|
{
|
|
global $xml_output;
|
|
global $lang_prerequisites, $lang_move_down, $lang_move_up, $lang_edit_learnpath_item, $lang_delete_learnpath_item, $learnpath_id, $lang_add_prereq, $lang_prereq_deleted_error, $lang_pre_short, $langThisItem;
|
|
$tbl_lp_item = Database::get_course_table(TABLE_LP_ITEM);
|
|
|
|
$sql_items = "SELECT * FROM $tbl_lp_item WHERE parent_item_id='$categoryid' ORDER BY display_order ASC";
|
|
$result_items = Database::query($sql_items,__FILE__,__LINE__);
|
|
$number_items = Database::num_rows($result_items);
|
|
$i = 1;
|
|
error_log('Selected item under '.$categoryid,0);
|
|
|
|
while ($row_items = Database::fetch_array($result_items))
|
|
{
|
|
echo "<tr><td colspan='2' valign='top'>";
|
|
display_addedresource_link_in_learnpath($row_items["item_type"], $row_items["ref"], '', $row_items["id"], 'builder', 'icon');
|
|
if ($row_items["description"])
|
|
{
|
|
echo "<div align='justify'><font color='#999999'> {$row_items['description']}</font>";
|
|
}
|
|
echo "</td>";
|
|
if (is_prereq($learnpath_id))
|
|
{
|
|
echo '<td bgcolor="#EEEEFF">';
|
|
}
|
|
else
|
|
{
|
|
echo "<td>";
|
|
}
|
|
|
|
if (is_allowed_to_edit())
|
|
{
|
|
error_log('Is allowed to edit item'.$row_items['id'],0);
|
|
//TODO: fix by adding true prerequisites parsing (and cycle through)
|
|
//Over simplification here, we transform prereq_id field into prerequisite field
|
|
if ($row_items["prerequisite"] <> '')
|
|
{
|
|
$prereq = $row_items["prerequisite"];
|
|
|
|
//if ($row_items["prereq_type"] == 'i')
|
|
//{
|
|
//item
|
|
$sql_items2 = "SELECT * FROM $tbl_lp_item WHERE id='$prereq'"; //check if prereq has been deleted
|
|
$result_items2 = Database::query($sql_items2);
|
|
$number_items2 = Database::num_rows($result_items2);
|
|
if ($number_items2 == 0)
|
|
{
|
|
echo "<font color=red>$lang_prereq_deleted_error</font>";
|
|
}
|
|
$row_items2 = Database::fetch_array($result_items2);
|
|
display_addedresource_link_in_learnpath($row_items2["item_type"], $row_items2["ref"], '', $row_items2["id"], 'builder', '');
|
|
if ((($row_items2["item_type"] == 'Exercise') or ($row_items2["item_type"] == 'HotPotatoes')) and ($row_items['prerequisites']))
|
|
{
|
|
echo " ({$row_items2['title']})";
|
|
}
|
|
//}
|
|
/*if ($row_items["prereq_type"] == 'c')
|
|
{
|
|
//chapter
|
|
$sql_items2 = "SELECT * FROM $tbl_learnpath_chapter WHERE id='$prereq'"; //check if prereq has been deleted
|
|
$result_items2 = Database::query($sql_items2,__FILE__,__LINE__);
|
|
$number_items2 = Database::num_rows($result_items2);
|
|
if ($number_items2 == 0)
|
|
{
|
|
echo "<font color=red>$lang_prereq_deleted_error</font>";
|
|
}
|
|
$row_items2 = Database::fetch_array($result_items2);
|
|
echo " {$row_items2['chapter_name']}";
|
|
}*/
|
|
}
|
|
echo "</font></td>";
|
|
$xml_output .= "<element_type>".$row_items["item_type"]."</element_type>";
|
|
$xml_output .= "<element_id>".$row_items["id"]."</element_id>";
|
|
|
|
// move
|
|
if ($i < $number_items)
|
|
{
|
|
echo "<td align='center'><a href='".api_get_self()."?lp_id=$learnpath_id&action=moveitem&direction=down&moduleid=".$categoryid."&id=".$row_items["id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9><img src=\"../img/down.gif\" border=\"0\" title=\"$lang_move_down\"></a></td>";
|
|
}
|
|
else
|
|
{
|
|
echo "<td width='30' align='center'> </td>";
|
|
}
|
|
|
|
if ($i > 1)
|
|
{
|
|
echo "<td align='center'><a href='".api_get_self()."?lp_id=$learnpath_id&action=moveitem&direction=up&moduleid=".$categoryid."&id=".$row_items["id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9><img src=\"../img/up.gif\" border=\"0\" title=\"$lang_move_up\"></a>";
|
|
}
|
|
else
|
|
{
|
|
echo "<td width='30' align='center'> </td>";
|
|
}
|
|
echo "</td><td align='center'>";
|
|
|
|
// edit prereq
|
|
echo "<a href='".api_get_self()."?lp_id=$learnpath_id&action=edititemprereq&id=".$row_items["id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9><img src=\"../img/scormpre.gif\" border=\"0\" title=\"$lang_add_prereq\"></a></td>";
|
|
|
|
// edit
|
|
echo "<td align='center'><a href='".api_get_self()."?lp_id=$learnpath_id&action=edititem&id=".$row_items["id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9><img src=\"../img/edit.gif\" border=\"0\" title=\"$lang_edit_learnpath_item\"></a></td>";
|
|
|
|
// delete
|
|
echo "<td align='center'>";
|
|
echo "<a href='".api_get_self()."?lp_id=$learnpath_id&action=deleteitem&id=".$row_items["id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9><img src=\"../img/delete.gif\" border=\"0\" title=\"$lang_delete_learnpath_item\" onclick=\"return confirmation('".$langThisItem."');\"></a>";
|
|
}
|
|
$i ++;
|
|
echo "</td></tr>";
|
|
}
|
|
}
|
|
|
|
/**
|
|
* This function returns the items belonging to the chapter that contains the given item (brother items)
|
|
* @param integer Item id
|
|
* @return array Table containing the items
|
|
*/
|
|
function learnpath_items($itemid)
|
|
{
|
|
global $xml_output;
|
|
$tbl_learnpath_item = Database :: get_course_table(TABLE_LEARNPATH_ITEM);
|
|
|
|
$sql_items = "SELECT parent_item_id FROM $tbl_lp_item WHERE id='$itemid'";
|
|
$moduleid_sql = Database::query($sql_items);
|
|
$moduleid_array = Database::fetch_array($moduleid_sql); //first row of the results
|
|
$moduleid = $moduleid_array["parent_item_id"];
|
|
|
|
$sql_items = "SELECT * FROM $tbl_lp_item WHERE parent_item_id='$moduleid' ORDER BY display_order ASC";
|
|
$result_items = Database::query($sql_items);
|
|
$ar = Database::fetch_array($result_items);
|
|
while ($ar != '')
|
|
{
|
|
$result[] = $ar;
|
|
$ar = Database::fetch_array($result_items);
|
|
}
|
|
return $result;
|
|
|
|
}
|
|
|
|
/**
|
|
* This function returns the chapters belonging to the path that contais the given chapter (brother chapters)
|
|
* @param integer Learnpath id
|
|
* @return array Table containing the chapters
|
|
*/
|
|
function learnpath_chapters($learnpath_id)
|
|
{
|
|
global $xml_output, $learnpath_id;
|
|
//$tbl_learnpath_chapter = Database :: get_course_table(TABLE_LEARNPATH_CHAPTER);
|
|
$tbl_lp_item = Database::get_course_table(TABLE_LP_ITEM);
|
|
|
|
|
|
$sql_items = "SELECT * FROM $tbl_lp_item WHERE lp_id='$learnpath_id' AND item_type='dokeos_chapter' ORDER BY display_order ASC";
|
|
//$sql_items = "SELECT * FROM $tbl_learnpath_chapter WHERE lp_id='$learnpath_id' ORDER BY display_order ASC";
|
|
$result_items = Database::query($sql_items, __FILE__, __LINE__);
|
|
$ar = Database::fetch_array($result_items);
|
|
while ($ar != '')
|
|
{
|
|
$result[] = $ar;
|
|
$ar = Database::fetch_array($result_items);
|
|
}
|
|
return $result;
|
|
|
|
}
|
|
|
|
/**
|
|
* This function tells if a learnpath contains items which are prerequisite to other items
|
|
* @param integer Learnpath id
|
|
* @return boolean True if this learnpath contains an item which is a prerequisite to something
|
|
*/
|
|
function is_prereq($learnpath_id)
|
|
{
|
|
global $xml_output;
|
|
$tbl_lp_item = Database::get_course_table(TABLE_LP_ITEM);
|
|
|
|
$prereq = false;
|
|
|
|
$sql_items = "SELECT * FROM $tbl_lp_item WHERE lp_id='$learnpath_id' AND parent_item_id=0 ORDER BY display_order ASC";
|
|
$result_items = Database::query($sql_items,__FILE__,__LINE__);
|
|
while ($ar = Database::fetch_array($result_items))
|
|
{
|
|
$c = $ar['id'];
|
|
$sql_items2 = "SELECT * FROM $tbl_lp_item WHERE lp_id = $learnpath_id AND parent_item_id='$c' ORDER BY display_order ASC";
|
|
$result_items2 = Database::query($sql_items2,__FILE__,__LINE__);
|
|
while ($ar2 = Database::fetch_array($result_items2))
|
|
{
|
|
if ($ar2['prerequisite'] != '')
|
|
{
|
|
$prereq = true;
|
|
}
|
|
}
|
|
}
|
|
return ($prereq);
|
|
}
|
|
|
|
/**
|
|
* This function returns the prerequisite sentence
|
|
* @param integer Item ID
|
|
* @return string Prerequisite warning text
|
|
*/
|
|
function prereqcheck($id_in_path)
|
|
{
|
|
//1 Initialise and import working vars
|
|
global $learnpath_id, $_user;
|
|
global $langPrereqToEnter, $langPrereqTestLimit1, $langPrereqTestLimit2, $langPrereqTestLimitNow, $langPrereqFirstNeedTo, $langPrereqModuleMinimum1, $langPrereqModuleMinimum2;
|
|
$tbl_learnpath_user = Database :: get_course_table(TABLE_LEARNPATH_USER);
|
|
$tbl_learnpath_item = Database :: get_course_table(TABLE_LEARNPATH_ITEM);
|
|
$tbl_learnpath_chapter = Database :: get_course_table(TABLE_LEARNPATH_CHAPTER);
|
|
|
|
//2 Initialise return value
|
|
$prereq = false;
|
|
|
|
//3 Get item data from the database
|
|
$sql_items = "SELECT * FROM $tbl_learnpath_item WHERE id='$id_in_path'";
|
|
$result_items = Database::query($sql_items);
|
|
$row = Database::fetch_array($result_items);
|
|
//4 Check prerequisite's type
|
|
if ($row['prereq_type'] == 'i')
|
|
{
|
|
//4.a If prerequisite is of type 'i' (item)
|
|
//4.a.1 Get data ready for use
|
|
$id_in_path3 = $row['prereq_id'];
|
|
$prereq_limit = $row['prereq_completion_limit'];
|
|
|
|
//4.a.2 Get data from the user-item relation
|
|
if ($_user['user_id'] == '')
|
|
{
|
|
$user_id = '0';
|
|
}
|
|
else
|
|
{
|
|
$user_id = $_user['user_id'];
|
|
}
|
|
$sql_items3 = "SELECT * FROM $tbl_learnpath_user WHERE (learnpath_item_id='$id_in_path3' and user_id=$user_id)";
|
|
$result_items3 = Database::query($sql_items3);
|
|
$row3 = Database::fetch_array($result_items3);
|
|
|
|
//4.a.3 Get the link that needs to be shown for the current item (not the prereq)
|
|
$stepname = display_addedresource_link_in_learnpath($row['item_type'], $row['ref'], '', $id_in_path, 'builder', 'nolink');
|
|
//this is the step we want to open
|
|
$stepname = trim($stepname); //to remove occasional line breaks and white spaces
|
|
|
|
//4.a.4 Get the prerequisite item
|
|
$sql6 = "SELECT * FROM $tbl_learnpath_item WHERE (id='$id_in_path3')";
|
|
$result6 = Database::query($sql6);
|
|
$row6 = Database::fetch_array($result6);
|
|
//4.a.5 Get a link to the prerequisite item
|
|
$prereqname = display_addedresource_link_in_learnpath($row6['item_type'], $row6['ref'], '', $id_in_path3, 'builder', 'nolink'); //this is the prereq of the step we want to open
|
|
|
|
//4.a.5 Initialise limit value
|
|
$limitok = true;
|
|
//4.a.6 Get prerequisite limit
|
|
if ($prereq_limit)
|
|
{
|
|
//4.a.6.a If the completion limit exists
|
|
if ($row3['score'] < $prereq_limit)
|
|
{
|
|
//4.a.6.a.a If the completion limit hasn't been reached, then display the corresponding message
|
|
$prereq = $langPrereqToEnter.$stepname.$langPrereqTestLimit1."$prereq_limit".$langPrereqTestLimit2.$prereqname.". (".$langPrereqTestLimitNow.$row3['score'].")";
|
|
}
|
|
else
|
|
{
|
|
//4.a.6.a.b The completion limit has been reached. Prepare to return false (no prereq hanging)
|
|
$prereq = false;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
//4.a.6.b If the completion limit doesn't exist
|
|
if ($row3['status'] == "completed" or $row3['status'] == 'passed')
|
|
{
|
|
//4.a.6.b.a If the prerequisite status is 'completed'
|
|
$prereq = false;
|
|
}
|
|
else
|
|
{
|
|
//4.a.6.b.b The prerequisite status is not 'completed', return corresponding message
|
|
$prereq = $langPrereqToEnter.$stepname.$langPrereqFirstNeedTo.$prereqname.'.';
|
|
}
|
|
}
|
|
|
|
}
|
|
elseif ($row['prereq_type'] == 'c')
|
|
{
|
|
//4.b If prerequisite is of type 'c' (chapter)
|
|
//4.b.1 Get data ready to use
|
|
$id_in_path2 = $row['prereq_id'];
|
|
//4.b.2 Get all items in the prerequisite chapter
|
|
$sql_items3 = "SELECT * FROM $tbl_lp_item WHERE parent_item_id='$id_in_path2'";
|
|
$result_items3 = Database::query($sql_items3);
|
|
$allcompleted = true;
|
|
while ($row3 = Database::fetch_array($result_items3))
|
|
{
|
|
//4.b.3 Cycle through items in the prerequisite chapter
|
|
//4.b.3.1 Get data ready to use
|
|
$id_in_path4 = $row3['id'];
|
|
if ($_user['user_id'] == '')
|
|
{
|
|
$user_id = '0';
|
|
}
|
|
else
|
|
{
|
|
$user_id = $_user['user_id'];
|
|
}
|
|
//4.b.3.2 Get user-item relation
|
|
$sql_items4 = "SELECT * FROM $tbl_learnpath_user WHERE (learnpath_item_id='$id_in_path4' and user_id=$user_id)";
|
|
$result_items4 = Database::query($sql_items4);
|
|
$row4 = Database::fetch_array($result_items4);
|
|
//4.b.3.3 If any of these elements is not 'completed', the overall completion status is false
|
|
if ($row4['status'] != "completed" and $row4['status'] != 'passed')
|
|
{
|
|
$allcompleted = false;
|
|
}
|
|
}
|
|
if ($allcompleted)
|
|
{
|
|
//4.b.4.a All items were completed, prepare to return that there is no prerequisite blocking the way
|
|
$prereq = false;
|
|
}
|
|
else
|
|
{
|
|
//4.b.4.b Something was not completed. Return corresponding message
|
|
$sql5 = "SELECT * FROM $tbl_learnpath_chapter WHERE (lp_id='$learnpath_id' and id='$id_in_path2')";
|
|
$result5 = Database::query($sql5);
|
|
$row5 = Database::fetch_array($result5);
|
|
$prereqmodulename = trim($row5['chapter_name']);
|
|
$prereq = $langPrereqModuleMinimum1.$prereqmodulename.$langPrereqModuleMinimum2;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
//5 If prerequisite type undefined, no prereq
|
|
$prereq = false;
|
|
}
|
|
//6 Return the message (or false if no prerequisite waiting)
|
|
return ($prereq);
|
|
}
|
|
|
|
/**
|
|
* Constructs the tree that will be used to build the learnpath structure
|
|
* @params integer Learnpath_id
|
|
* @return array Tree of the learnpath structure
|
|
* @author Yannick Warnier <yannick.warnier@dokeos.com>
|
|
* @comment This is a temporary function, which exists while the chapters and items
|
|
* are still in separate tables in the database. This function gathers the data in a unique tree.
|
|
**/
|
|
function get_learnpath_tree($learnpath_id)
|
|
{
|
|
//error_log('New LP - In learnpath_functions::get_learnpath_tree',0);
|
|
//init elems
|
|
#global $tbl_learnpath_item, $tbl_learnpath_chapter;
|
|
/*
|
|
$tbl_learnpath_item = Database :: get_course_table(TABLE_LEARNPATH_ITEM);
|
|
$tbl_learnpath_chapter = Database :: get_course_table(TABLE_LEARNPATH_CHAPTER);
|
|
*/
|
|
$tbl_lp_item = Database::get_course_table(TABLE_LP_ITEM);
|
|
|
|
$tree = array ();
|
|
$chapters = array ();
|
|
//$chapters = array();
|
|
//$chapters_by_parent = array();
|
|
//$items = array();
|
|
//$items_by_chapter = array();
|
|
$all_items_by_chapter = array ();
|
|
$sql = "SELECT * FROM $tbl_lp_item WHERE lp_id = ".$learnpath_id." AND item_type='dokeos_chapter' ORDER BY display_order";
|
|
//error_log('New LP - learnpath_functions - get_learnpath_tree: '.$sql,0);
|
|
$res = Database::query($sql, __FILE__, __LINE__);
|
|
// format the $chapters_by_parent array so we have a suitable structure to work with
|
|
while ($row = Database::fetch_array($res))
|
|
{
|
|
$chapters[] = $row;
|
|
//shouldn't be necessary (check no null value)
|
|
if (empty ($row['parent_item_id']))
|
|
{
|
|
$row['parent_item_id'] = 0;
|
|
}
|
|
//$chapters_by_parent[$row['parent_item_id']][$row['previous_item_id']] = $row;
|
|
$all_items_by_chapter[$row['parent_item_id']][$row['display_order']] = $row;
|
|
$all_items_by_chapter[$row['parent_item_id']][$row['display_order']]['type'] = 'dokeos_chapter';
|
|
}
|
|
|
|
// now for every item in each chapter, get a suitable structure too
|
|
foreach ($chapters as $row)
|
|
{
|
|
// select items from this chapter
|
|
$sql = "SELECT * FROM $tbl_lp_item WHERE lp_id = $learnpath_id AND parent_item_id = ".$row['id']." ORDER BY display_order";
|
|
//error_log('New LP - learnpath_functions - get_learnpath_tree: '.$sql,0);
|
|
$res = Database::query($sql, __FILE__, __LINE__);
|
|
//error_log('New LP - learnpath_functions - get_learnpath_tree: Found '.Database::num_rows($res).' results',0);
|
|
while ($myrow = Database::fetch_array($res, 'ASSOC'))
|
|
{
|
|
//$items[] = $myrow;
|
|
//$items_by_chapter[$myrow['parent_item_id']][$myrow['display_order']] = $myrow;
|
|
$all_items_by_chapter[$row['id']][$myrow['display_order']] = $myrow;
|
|
$all_items_by_chapter[$row['id']][$myrow['display_order']]['type'] = 'item';
|
|
}
|
|
}
|
|
//array_multisort($all_items_by_chapter[0], SORT_ASC, SORT_NUMERIC);
|
|
foreach ($all_items_by_chapter as $key => $subrow)
|
|
{
|
|
ksort($all_items_by_chapter[$key]);
|
|
}
|
|
|
|
//all items should now be well-ordered
|
|
//error_log('New LP - In get_learnpath_tree, returning '.print_r($all_items_by_chapter,true),0);
|
|
return $all_items_by_chapter;
|
|
}
|
|
|
|
/**
|
|
* Gives a list of sequencial elements IDs for next/previous actions
|
|
* @param array The elements tree as returned by get_learnpath_tree()
|
|
* @param integer The chapter id to start from
|
|
* @param boolean Whether to include chapters or not
|
|
* @return array List of elements in the first to last order
|
|
* @author Yannick Warnier <yannick.warnier@dokeos.com>
|
|
**/
|
|
function get_ordered_items_list($tree, $chapter = 0, $include_chapters = false)
|
|
{
|
|
$list = array ();
|
|
foreach ($tree[$chapter] as $order => $elem)
|
|
{
|
|
if ($elem['type'] == 'chapter')
|
|
{
|
|
if ($include_chapters === true)
|
|
{
|
|
$list[] = array ('id' => $elem['id'], 'type' => $elem['type']);
|
|
}
|
|
$res = get_ordered_items_list($tree, $elem['id'], $include_chapters);
|
|
foreach ($res as $elem)
|
|
{
|
|
$list[] = $elem;
|
|
}
|
|
}
|
|
elseif ($elem['type'] == 'item')
|
|
{
|
|
$list[] = array ('id' => $elem['id'], 'type' => $elem['type'], 'item_type' => $elem['item_type'], 'parent_item_id' => $elem['parent_item_id'], 'item_id' => $elem['item_id']);
|
|
}
|
|
}
|
|
return $list;
|
|
}
|
|
|
|
/**
|
|
* Displays the structure of a chapter recursively. Takes the result of get_learnpath_tree as argument
|
|
* @param array Chapter structure
|
|
* @param integer Chapter ID (start point in the tree)
|
|
* @param integer Learnpath ID
|
|
* @param integer User ID
|
|
* @param boolean Indicates if the style is wrapped (true) or extended (false)
|
|
* @param integer Level reached so far in the tree depth (enables recursive behaviour)
|
|
* @return array Number of items, Number of items completed
|
|
* @author Many changes by Yannick Warnier <yannick.warnier@dokeos.com>
|
|
**/
|
|
function display_toc_chapter_contents($tree, $parent_item_id = 0, $learnpath_id, $uid, $wrap, $level = 0)
|
|
{
|
|
#global $tbl_learnpath_user;
|
|
$tbl_learnpath_user = Database :: get_course_table(TABLE_LEARNPATH_USER);
|
|
$num = 0;
|
|
$num_completed = 0;
|
|
foreach ($tree[$parent_item_id] as $order => $elem)
|
|
{
|
|
|
|
$bold = false;
|
|
if (!empty ($_SESSION['cur_open']) && ($elem['id'] == $_SESSION['cur_open']))
|
|
{
|
|
$bold = true;
|
|
}
|
|
if ($elem['type'] === 'chapter')
|
|
{
|
|
if ($wrap)
|
|
{
|
|
echo str_repeat(" ", $level).shorten(strip_tags($elem['chapter_name']), (35 - 3 * $level))."<br />\n";
|
|
}
|
|
else
|
|
{
|
|
echo "<tr><td colspan='3'>".str_repeat(" ", $level).shorten($elem['chapter_name'], (35 - 3 * $level))."</td></tr>\n";
|
|
}
|
|
|
|
if ($wrap)
|
|
{
|
|
if ($elem['chapter_description'] != '')
|
|
{
|
|
echo "<div class='description'>".str_repeat(" ", $level)." ".shorten($elem['chapter_description'], (35 - 3 * $level))."</div>\n";
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if ($elem['chapter_description'] != '')
|
|
{
|
|
echo "<tr><td colspan='3'><div class='description'>".str_repeat(" ", $level)." ".shorten($elem['chapter_description'], (35 - 3 * $level))."</div></td></tr>\n";
|
|
}
|
|
}
|
|
list ($a, $b) = display_toc_chapter_contents($tree, $elem['id'], $learnpath_id, $uid, $wrap, $level +1);
|
|
$num += $a;
|
|
$num_completed += $b;
|
|
|
|
}
|
|
elseif ($elem['type'] === 'item')
|
|
{
|
|
// If this element is an item (understand: not a directory/module)
|
|
$sql0 = "SELECT * FROM $tbl_learnpath_user WHERE (user_id='".$uid."' and learnpath_item_id='".$elem['id']."' and lp_id='".$learnpath_id."')";
|
|
$result0 = Database::query($sql0, __FILE__, __LINE__);
|
|
$row0 = Database::fetch_array($result0);
|
|
|
|
$completed = '';
|
|
if (($row0['status'] == 'completed') or ($row0['status'] == 'passed'))
|
|
{
|
|
$completed = 'completed';
|
|
$num_completed ++;
|
|
}
|
|
|
|
if ($wrap)
|
|
{
|
|
echo str_repeat(" ", $level)."<a name='{$elem['id']}' />\n";
|
|
}
|
|
else
|
|
{
|
|
echo "<tr><td>".str_repeat(" ", $level-1)."<a name='{$elem['id']}' />\n";
|
|
}
|
|
|
|
if ($wrap)
|
|
{
|
|
$icon = 'wrap';
|
|
}
|
|
|
|
if ($bold)
|
|
{
|
|
echo "<b>";
|
|
}
|
|
display_addedresource_link_in_learnpath($elem['item_type'], $elem['ref'], $completed, $elem['id'], 'player', $icon);
|
|
if ($bold)
|
|
{
|
|
echo "</b>";
|
|
}
|
|
if ($wrap)
|
|
{
|
|
echo "<br />\n";
|
|
}
|
|
else
|
|
{
|
|
echo "</td></tr>\n";
|
|
}
|
|
|
|
$num ++;
|
|
}
|
|
}
|
|
return array ($num, $num_completed);
|
|
}
|
|
|
|
/**
|
|
* Returns a string to display in the tracking frame within the contents.php page (for example)
|
|
* @param integer Learnpath id
|
|
* @param integer Current user id
|
|
* @param integer Starting chapter id
|
|
* @param array Tree of elements as returned by get_learnpath_tree()
|
|
* @param integer Level of recursivity we have reached
|
|
* @param integer Counter of elements already displayed
|
|
* @author Yannick Warnier <yannick.warnier@dokeos.com>
|
|
* @note : forced display because of display_addedresource_link_in_learnpath behaviour (outputing a string would be better)
|
|
**/
|
|
function get_tracking_table($learnpath_id, $user_id, $parent_item_id = 0, $tree = false, $level = 0, $counter = 0)
|
|
{
|
|
$tbl_learnpath_chapter = Database :: get_course_learnpath_chapter_table();
|
|
$tbl_learnpath_item = Database :: get_course_learnpath_item_table();
|
|
$tbl_learnpath_user = Database :: get_course_learnpath_user_table();
|
|
//$mytable = '';
|
|
$include_chapters = true;
|
|
|
|
if (!is_array($tree))
|
|
{
|
|
//get a tree of the current learnpath elements
|
|
$tree = get_learnpath_tree($learnpath_id);
|
|
}
|
|
foreach ($tree[$parent_item_id] as $order => $elem)
|
|
{
|
|
if (($counter % 2) == 0)
|
|
{
|
|
$oddclass = 'row_odd';
|
|
}
|
|
else
|
|
{
|
|
$oddclass = 'row_even';
|
|
}
|
|
|
|
if ($elem['type'] == 'chapter')
|
|
{
|
|
if ($include_chapters === true)
|
|
{
|
|
//$mytable .= "<tr class='$oddclass'><td colspan = '3'>".str_repeat(' ',$level*2+2).$elem['chapter_name']."</td></tr>\n";
|
|
echo "<tr class='$oddclass'><td colspan = '3'>".str_repeat(' ', $level * 2 + 2).$elem['chapter_name']."</td></tr>\n";
|
|
}
|
|
$counter ++;
|
|
//$mytable .= get_tracking_table($learnpath_id, $user_id, $elem['id'], $tree, $level + 1, $counter );
|
|
get_tracking_table($learnpath_id, $user_id, $elem['id'], $tree, $level +1, $counter);
|
|
|
|
}
|
|
elseif ($elem['type'] == 'item')
|
|
{
|
|
|
|
$sql = "SELECT * FROM $tbl_learnpath_user "."WHERE user_id = $user_id "."AND lp_id = $learnpath_id "."AND learnpath_item_id = ".$elem['id'];
|
|
$res = Database::query($sql, __FILE__, __LINE__);
|
|
$myrow = Database::fetch_array($res);
|
|
|
|
if (($myrow['status'] == 'completed') || ($myrow['status'] == 'passed'))
|
|
{
|
|
$color = 'blue';
|
|
$statusmessage = get_lang('Complete');
|
|
}
|
|
else
|
|
{
|
|
$color = 'black';
|
|
$statusmessage = get_lang('Incomplete');
|
|
}
|
|
|
|
$link = get_addedresource_link_in_learnpath($elem['item_type'], $elem['id'], $elem['item_id']);
|
|
//$link = display_addedresource_link_in_learnpath($elem['item_type'], $elem['id'], $row['status'], $elem['item_id'], 'player', 'none');
|
|
|
|
//$mytable .= "<tr class='$oddclass'>"
|
|
echo "<tr class='$oddclass'>"."<td class='mystatus'>".str_repeat(" ", $level * 2 + 2);
|
|
//."<a href='$link?SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9' target='toc'>hop</a>"
|
|
display_addedresource_link_in_learnpath($elem['item_type'], $elem['ref'], $myrow['status'], $elem['id'], 'player', 'wrap');
|
|
//we should also add the total score here
|
|
echo "<td>"."<font color='$color'><div class='mystatus'>".$statusmessage."</div></font>"."</td>"."<td>"."<div class='mystatus' align='center'>". ($myrow['score'] == 0 ? '-' : $myrow['score'])."</div>"."</td>"."</tr>\n";
|
|
$counter ++;
|
|
}
|
|
}
|
|
//return $mytable;
|
|
return true;
|
|
}
|
|
|
|
/**
|
|
* This function returns false if there is at least one item in the path
|
|
* @param Learnpath ID
|
|
* @return boolean True if nothing was found, false otherwise
|
|
*/
|
|
function is_empty($id)
|
|
{
|
|
$tbl_learnpath_item = Database :: get_course_table(TABLE_LEARNPATH_ITEM);
|
|
$tbl_learnpath_chapter = Database :: get_course_table(TABLE_LEARNPATH_CHAPTER);
|
|
|
|
$sql = "SELECT * FROM $tbl_learnpath_chapter WHERE lp_id=$id ORDER BY display_order ASC";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
$num_modules = Database::num_rows($result);
|
|
$empty = true;
|
|
|
|
if ($num_modules != 0)
|
|
{
|
|
while ($row = Database::fetch_array($result))
|
|
{
|
|
|
|
$num_items = 0;
|
|
$parent_item_id = $row['id'];
|
|
$sql2 = "SELECT * FROM $tbl_learnpath_item WHERE (parent_item_id=$parent_item_id) ORDER BY display_order ASC";
|
|
$result2 = Database::query($sql2, __FILE__, __LINE__);
|
|
$num_items = Database::num_rows($result2);
|
|
if ($num_items > 0)
|
|
{
|
|
$empty = false;
|
|
}
|
|
|
|
}
|
|
}
|
|
|
|
return ($empty);
|
|
|
|
}
|
|
|
|
/**
|
|
* This function writes $content to $filename
|
|
* @param string Destination filename
|
|
* @param string Learnpath name
|
|
* @param integer Learnpath ID
|
|
* @param string Content to write
|
|
* @return void
|
|
*/
|
|
function exporttofile($filename, $LPname, $LPid, $content)
|
|
{
|
|
|
|
global $circle1_files; //this keeps all the files which are exported [0]:filename [1]:LP name
|
|
//the $circle1_files variable is going to be used to a deep extent in the imsmanifest.xml
|
|
global $expdir;
|
|
|
|
if (!$handle = fopen($expdir.'/'.$filename, 'w'))
|
|
{
|
|
echo "Cannot open file ($filename)";
|
|
}
|
|
if (fwrite($handle, $content) === FALSE)
|
|
{
|
|
echo "Cannot write to file ($filename)";
|
|
exit;
|
|
}
|
|
fclose($handle);
|
|
|
|
$circle1_files[0][] = $filename;
|
|
$circle1_files[1][] = $LPname;
|
|
$circle1_files[2][] = $LPid;
|
|
|
|
}
|
|
|
|
/**
|
|
* This function exports the given Dokeos test
|
|
* @param integer Test ID
|
|
* @return string The test itself as an HTML string
|
|
*/
|
|
function export_exercise($item_id)
|
|
{
|
|
|
|
global $expdir, $_course, $_configuration, $_SESSION, $_SERVER, $language_interface, $langExerciseNotFound, $langQuestion, $langOk;
|
|
|
|
$exerciseId = $item_id;
|
|
|
|
require_once ('../exercice/exercise.class.php');
|
|
require_once ('../exercice/question.class.php');
|
|
require_once ('../exercice/answer.class.php');
|
|
require_once ('../exercice/exercise.lib.php');
|
|
|
|
// answer types
|
|
define('UNIQUE_ANSWER', 1);
|
|
define('MULTIPLE_ANSWER', 2);
|
|
define('FILL_IN_BLANKS', 3);
|
|
define('MATCHING', 4);
|
|
define('FREE_ANSWER', 5);
|
|
|
|
include_once (api_get_path(LIBRARY_PATH).'/text.lib.php');
|
|
|
|
$TBL_EXERCISES = Database :: get_course_table(TABLE_QUIZ_TEST);
|
|
|
|
/*******************************/
|
|
/* Clears the exercise session */
|
|
/*******************************/
|
|
if (isset ($_SESSION['objExercise']))
|
|
{
|
|
api_session_unregister('objExercise');
|
|
unset ($objExercise);
|
|
}
|
|
if (isset ($_SESSION['objQuestion']))
|
|
{
|
|
api_session_unregister('objQuestion');
|
|
unset ($objQuestion);
|
|
}
|
|
if (isset ($_SESSION['objAnswer']))
|
|
{
|
|
api_session_unregister('objAnswer');
|
|
unset ($objAnswer);
|
|
}
|
|
if (isset ($_SESSION['questionList']))
|
|
{
|
|
api_session_unregister('questionList');
|
|
unset ($questionList);
|
|
}
|
|
if (isset ($_SESSION['exerciseResult']))
|
|
{
|
|
api_session_unregister('exerciseResult');
|
|
unset ($exerciseResult);
|
|
}
|
|
|
|
// if the object is not in the session
|
|
if (!isset ($_SESSION['objExercise']))
|
|
{
|
|
// construction of Exercise
|
|
$objExercise = new Exercise();
|
|
|
|
$sql = "SELECT title,description,sound,type,random,active FROM $TBL_EXERCISES WHERE id='$exerciseId'";
|
|
// if the specified exercise doesn't exist or is disabled
|
|
if (!$objExercise->read($exerciseId) || (!$objExercise->selectStatus() && !$is_allowedToEdit && ($origin != 'learnpath')))
|
|
{
|
|
die($langExerciseNotFound);
|
|
}
|
|
|
|
// saves the object into the session
|
|
api_session_register('objExercise');
|
|
}
|
|
|
|
$exerciseTitle = $objExercise->selectTitle();
|
|
$exerciseDescription = $objExercise->selectDescription();
|
|
$exerciseSound = $objExercise->selectSound();
|
|
$randomQuestions = $objExercise->isRandom();
|
|
$exerciseType = $objExercise->selectType();
|
|
|
|
if (!isset ($_SESSION['questionList']))
|
|
{
|
|
// selects the list of question ID
|
|
$questionList = $randomQuestions ? $objExercise->selectRandomList() : $objExercise->selectQuestionList();
|
|
|
|
// saves the question list into the session
|
|
api_session_register('questionList');
|
|
}
|
|
|
|
$nbrQuestions = sizeof($questionList);
|
|
|
|
// if questionNum comes from POST and not from GET
|
|
if (!$questionNum || $_POST['questionNum'])
|
|
{
|
|
// only used for sequential exercises (see $exerciseType)
|
|
if (!$questionNum)
|
|
{
|
|
$questionNum = 1;
|
|
}
|
|
else
|
|
{
|
|
$questionNum ++;
|
|
}
|
|
}
|
|
|
|
$exerciseTitle = api_parse_tex($exerciseTitle);
|
|
|
|
$test .= "<h3>".$exerciseTitle."</h3>";
|
|
|
|
if (!empty ($exerciseSound))
|
|
{
|
|
$test .= "<a href=\"../document/download.php?doc_url=%2Faudio%2F".$exerciseSound."\"&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9 target=\"_blank\"><img src=\"../img/sound.gif\" border=\"0\" align=\"absmiddle\" alt=".get_lang("Sound")."\" /></a>";
|
|
}
|
|
|
|
$exerciseDescription = api_parse_tex($exerciseDescription);
|
|
|
|
// --------- writing the .js file with to check the correct answers begin -----------------------
|
|
$scriptfilename = "Exercice".$item_id.".js";
|
|
$s = "<script type=\"text/javascript\" src='../js/".$scriptfilename."'></script>";
|
|
$test .= $s;
|
|
|
|
$content = "function evaluate() {
|
|
alert('Test evaluated.');
|
|
}
|
|
";
|
|
|
|
if (!$handle = fopen($expdir.'/js/'.$scriptfilename, 'w'))
|
|
{
|
|
echo "Cannot open file ($scriptfilename)";
|
|
}
|
|
if (fwrite($handle, $content) === FALSE)
|
|
{
|
|
echo "Cannot write to file ($filename)";
|
|
exit;
|
|
}
|
|
fclose($handle);
|
|
// --------- writing the .js file with to check the correct answers end -----------------------
|
|
|
|
$s = "
|
|
<p>$exerciseDescription</p>
|
|
<table width='100%' border='0' cellpadding='1' cellspacing='0'>
|
|
<form method='post' action=''><input type=\"hidden\" name=\"SQMSESSID\" value=\"36812c2dea7d8d6e708d5e6a2f09b0b9\" />
|
|
<input type='hidden' name='formSent' value='1' />
|
|
<input type='hidden' name='exerciseType' value='".$exerciseType."' />
|
|
<input type='hidden' name='questionNum' value='".$questionNum."' />
|
|
<input type='hidden' name='nbrQuestions' value='".$nbrQuestions."' />
|
|
<tr>
|
|
<td>
|
|
<table width='100%' cellpadding='4' cellspacing='2' border='0'>";
|
|
|
|
$exerciseType = 1; //so to list all questions in one page
|
|
$test .= $s;
|
|
|
|
$i = 0;
|
|
|
|
foreach ($questionList as $questionId) {
|
|
$i ++;
|
|
|
|
// for sequential exercises
|
|
if ($exerciseType == 2) {
|
|
// if it is not the right question, goes to the next loop iteration
|
|
if ($questionNum != $i)
|
|
{
|
|
continue;
|
|
} else {
|
|
// if the user has already answered this question
|
|
if (isset ($exerciseResult[$questionId])) {
|
|
// construction of the Question object
|
|
$objQuestionTmp = new Question();
|
|
|
|
// reads question informations
|
|
$objQuestionTmp->read($questionId);
|
|
|
|
$questionName = $objQuestionTmp->selectTitle();
|
|
|
|
// destruction of the Question object
|
|
unset ($objQuestionTmp);
|
|
|
|
$test .= '<tr><td>'.get_lang("AlreadyAnswered").' "'.$questionName.'"</td></tr>';
|
|
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
echo $s = "<tr bgcolor='#e6e6e6'><td valign='top' colspan='2'>".get_lang('Question')." ";
|
|
//Call the showQuestion() function from exercise.lib.php. This basically displays the question in a table
|
|
$test .= showQuestion($questionId, false, 'export', $i, $nbrQuestions);
|
|
|
|
} // end foreach()
|
|
|
|
$s = "</table></td></tr><tr><td><br/><input type='button' value='".$langOk."' onClick=\"javascript:evaluate();alert('Evaluated.');\">";
|
|
$s .= "</td></tr></form></table>";
|
|
$s .= "<script type='text/javascript'> loadPage(); </script>";
|
|
$b = 2;
|
|
$test .= $s;
|
|
return ($test);
|
|
}
|
|
|
|
/**
|
|
* This function exports the given item
|
|
* @param integer Id from learnpath_items table
|
|
* @param integer Item id
|
|
* @param string Itm type
|
|
* @param boolean Shall the SCORM communications features be added? (true). Default: false.
|
|
* @return void (outputs a zip file)
|
|
* @todo Try using the SCORM communications addition (adding a button and several javascript calls to the SCORM API) elsewhere than just in the export feature, so it doesn't look like an incoherent feature
|
|
*/
|
|
|
|
function exportitem($id, $item_id, $item_type, $add_scorm_communications = false)
|
|
{
|
|
|
|
global $circle1_files, $expdir, $_course, $_SESSION, $GLOBALS;
|
|
global $timeNoSecFormat, $dateFormatLong, $language_interface, $langPubl, $langDone, $langThisCourseDescriptionIsEmpty, $lang_course_description, $lang_introduction_text, $_cid, $langHotPotatoesFinished, $lang_author, $lang_date, $lang_groups, $lang_users, $lang_ass, $lang_dropbox, $test, $langQuestion;
|
|
|
|
// $_course=$_SESSION['course'];
|
|
require_once (api_get_path(LIBRARY_PATH)."database.lib.php");
|
|
//$tbl_learnpath_item = Database::get_course_learnpath_item_table();
|
|
|
|
include_once ('exercise.class.php');
|
|
include_once ('question.class.php');
|
|
include_once ('answer.class.php');
|
|
include_once ('exercise.lib.php');
|
|
|
|
include_once ('../lang/english/announcements.inc.php'); //this line is here only for $langPubl in announcements
|
|
include_once ("../lang/".$language_interface."/announcements.inc.php"); //this line is here only for $langPubl in announcements
|
|
include_once ('../lang/english/course_description.inc.php'); //this line is here only for $langThisCourseDescriptionIsEmpty
|
|
include_once ("../lang/".$language_interface."/course_description.inc.php"); // -||-
|
|
include_once ('../lang/english/resourcelinker.inc.php');
|
|
include_once ("../lang/".$language_interface."/resourcelinker.inc.php");
|
|
include_once ('../lang/english/learnpath.inc.php');
|
|
include_once ("../lang/".$language_interface."/learnpath.inc.php");
|
|
include_once ('../lang/english/exercice.inc.php');
|
|
include_once ("../lang/".$language_interface."/exercice.inc.php");
|
|
|
|
include_once (api_get_path(LIBRARY_PATH).'text.lib.php');
|
|
include_once ("../resourcelinker/resourcelinker.inc.php");
|
|
|
|
$LPname = display_addedresource_link_in_learnpath($item_type, $item_id, '', $id, 'builder', 'nolink');
|
|
|
|
$expcontent = "<!--
|
|
This is an exported file from Dokeos Learning Path belonging to a Scorm compliant content package.
|
|
Do not modify or replace individually.
|
|
|
|
Export module author : Denes Nagy <darkden@evk.bke.hu>
|
|
|
|
-->
|
|
|
|
";
|
|
//files needed for communicating with the scos
|
|
$scocomfiles = "<script type='text/javascript' src='../js/APIWrapper.js'></script>"."<script type='text/javascript' src='../js/SCOFunctions.js'></script>";
|
|
$expcontent .= '<html><head><link rel="stylesheet" href="../css/default.css" type="text/css" media="screen,projection" />'.$scocomfiles.'</head><body>';
|
|
|
|
$donebutton .= "<script type='text/javascript'>
|
|
/* <![CDATA[ */
|
|
loadPage();
|
|
var studentName = '!';
|
|
var lmsStudentName = doLMSGetValue( 'cmi.core.student_name' );
|
|
if ( lmsStudentName != '' )
|
|
{
|
|
studentName = ' ' + lmsStudentName + '!';
|
|
}
|
|
/* ]]> */
|
|
</script>
|
|
<br /><br />
|
|
<form><input type=\"hidden\" name=\"SQMSESSID\" value=\"36812c2dea7d8d6e708d5e6a2f09b0b9\" />
|
|
<table cols='3' width='100%' align='center'>
|
|
<tr>
|
|
<td align='middle'><input type = 'button' value = ' ".$langDone." ' onclick = \"doQuit('completed')\" id='button2' name='button2'></td>
|
|
</tr>
|
|
</table>
|
|
</form>";
|
|
|
|
/**
|
|
* switch between the different element types, namely:
|
|
* - Agenda
|
|
* - Ad_Valvas
|
|
* - Course_description
|
|
* - Document
|
|
* - Introduction_text
|
|
* - HotPotatoes
|
|
* - Exercise
|
|
* - Post
|
|
* - Forum ]
|
|
* - Thread ]
|
|
* - Dropbox ]
|
|
* - Assignments ] Theses elements are all replaced by a simple message in the exported document
|
|
* - Groups ]
|
|
* - Users ]
|
|
* - Link _self
|
|
* - Link _blank
|
|
*/
|
|
switch ($item_type)
|
|
{
|
|
|
|
//------------------------AGENDA BEGIN-------------------
|
|
case "Agenda" :
|
|
//1 Get agenda event data from the database table
|
|
$TABLEAGENDA = Database :: get_course_table(TABLE_AGENDA);
|
|
$sql = "SELECT * FROM ".$TABLEAGENDA." where (id=$item_id)";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
|
|
//2 Prepare table output
|
|
$expcontent .= "<table class=\"data_table\" >";
|
|
$barreMois = "";
|
|
|
|
//3 For each event corresponding to this agenda, do the following:
|
|
while ($myrow = Database::fetch_array($result))
|
|
{
|
|
//3.1 Make the blue month bar appear only once.
|
|
if ($barreMois != date("m", strtotime($myrow["start_date"])))
|
|
{
|
|
//3.1.1 Update the check value for the month bar
|
|
$barreMois = date("m", strtotime($myrow["start_date"]));
|
|
//3.1.2 Display the month bar
|
|
$expcontent .= "<tr><td id=\"title\" colspan=\"2\" class=\"month\" valign=\"top\">".api_ucfirst(format_locale_date("%B %Y", strtotime($myrow["start_date"])))."</td></tr>";
|
|
}
|
|
|
|
//3.2 Display the agenda items (of this month): the date, hour and title
|
|
$db_date = (int) date(d, strtotime($myrow["start_date"]));
|
|
if ($_GET["day"] <> $db_date)
|
|
{ //3.2.1.a If the day given in the URL (might not be set) is different from this element's day, use style 'data'
|
|
$expcontent .= "<tr><td class=\"data\" colspan='2'>";
|
|
}
|
|
else
|
|
{ //3.2.1.b Else (same day) use style 'datanow'
|
|
$expcontent .= "<tr><td class=\"datanow\" colspan='2'>";
|
|
}
|
|
//3.2.2 Mark an anchor for this date
|
|
$expcontent .= "<a name=\"".(int) date(d, strtotime($myrow["start_date"]))."\"></a>"; // anchoring
|
|
//3.2.3 Write the date and time of this event to the export string
|
|
$expcontent .= api_ucfirst(format_locale_date($dateFormatLong, strtotime($myrow["start_date"])))." ";
|
|
$expcontent .= api_ucfirst(strftime($timeNoSecFormat, strtotime($myrow["start_time"])))."";
|
|
//3.2.4 If a duration is set, write it, otherwise ignore
|
|
if ($myrow["duration"] == "")
|
|
{
|
|
$expcontent .= "<br />";
|
|
}
|
|
else
|
|
{
|
|
$expcontent .= " / ".$lang_lasting." ".$myrow["duration"]."<br/>";
|
|
}
|
|
//3.2.5 Write the title
|
|
$expcontent .= $myrow["title"];
|
|
$expcontent .= "</td></tr>";
|
|
//3.2.6 Prepare the content of the agenda item
|
|
$content = $myrow["content"];
|
|
//3.2.7 Make clickable???
|
|
$content = make_clickable($content);
|
|
$content = api_parse_tex($content);
|
|
//3.2.8 Write the prepared content to the export string
|
|
$expcontent .= "<tr><td class=\"text\" colspan='2'>";
|
|
$expcontent .= $content;
|
|
$expcontent .= "</td></tr>";
|
|
|
|
// displaying the agenda item of this month: the added resources
|
|
// this part is not included into LP export
|
|
/*if (check_added_resources("Agenda", $myrow["id"]))
|
|
{
|
|
$content.= "<tr><td colspan='2'>";
|
|
$content.= "<i>".get_lang('AddedResources')."</i><br/>";
|
|
display_added_resources("Agenda", $myrow["id"]);
|
|
$content.= "</td></tr>";
|
|
}*/
|
|
|
|
}
|
|
//4 Finish the export string
|
|
$expcontent .= "<tr></table>";
|
|
|
|
break;
|
|
//------------------------ANNOUNCEMENT BEGIN-------------------
|
|
case "Ad_Valvas" :
|
|
//1 Get the announcement data from the database
|
|
$tbl_announcement = Database::get_course_table(TABLE_ANNOUNCEMENT);
|
|
$sql = "SELECT * FROM $tbl_announcement where id='$item_id'";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
|
|
//2 Initialise export string
|
|
$expcontent .= "<table class=\"data_table\">";
|
|
|
|
//3 For each announcement matching the query
|
|
while ($myrow = Database::fetch_array($result))
|
|
{
|
|
//3.1 Get the __ field data
|
|
$content = $myrow[1];
|
|
//$content = nl2br($content);
|
|
//3.2 Prepare the data for export
|
|
$content = make_clickable($content);
|
|
$content = api_parse_tex($content);
|
|
|
|
//3.3 Get a UNIX(?<-mktime) Timestamp of the end_date for this announcement
|
|
$last_post_datetime = $myrow['end_date']; // post time format datetime de mysql
|
|
list ($last_post_date, $last_post_time) = split(" ", $last_post_datetime);
|
|
list ($year, $month, $day) = explode("-", $last_post_date);
|
|
list ($hour, $min) = explode(":", $last_post_time);
|
|
$announceDate = mktime($hour, $min, 0, $month, $day, $year);
|
|
|
|
//3.4 Compare the end date to the last login date of the user (mark it in red if he has not already read it)
|
|
if ($announceDate > $_SESSION['user_last_login_datetime'])
|
|
{
|
|
$colorBecauseNew = " color=\"red\" ";
|
|
}
|
|
else
|
|
{
|
|
$colorBecauseNew = " ";
|
|
}
|
|
|
|
//3.5 Write this content to the export string (formatted HTML array)
|
|
$expcontent .= "<tr>\n"."<td class=\"cell_header\">\n"."<font ".$colorBecauseNew.">".$langPubl." : ".api_ucfirst(format_locale_date($dateFormatLong, strtotime($last_post_date)))."</font>\n"."</td>\n"."</tr>\n"."<tr>\n"."<td>\n".$content."</td>\n"."</tr>\n";
|
|
|
|
} // while loop
|
|
|
|
//4 Finish the export string
|
|
$expcontent .= "</table>";
|
|
|
|
break;
|
|
//------------------------Course_description BEGIN-------------------
|
|
case "Course_description" :
|
|
//1 Get course description data from database
|
|
$tbl_course_description = Database :: get_course_table(TABLE_COURSE_DESCRIPTION);
|
|
$result = Database::query("SELECT id, title, content FROM ".$tbl_course_description." ORDER BY id", __FILE__, __LINE__);
|
|
|
|
//2 Check this element
|
|
if (Database::num_rows($result))
|
|
{
|
|
//2.a This course has one (or more) description in the database
|
|
$expcontent .= "<hr noshade=\"noshade\" size=\"1\" />";
|
|
//2.a.1 For each description available for this course
|
|
while ($row = Database::fetch_array($result))
|
|
{
|
|
//2.a.1.1 Write title to export string
|
|
$expcontent .= "<h4>".$row['title']."</h4>";
|
|
//2.a.1.2 Prepare content
|
|
$content = make_clickable(nl2br($row['content']));
|
|
$content = api_parse_tex($content);
|
|
//2.a.1.3 Write content to the export string
|
|
$expcontent .= $content;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
//2.b This course has no description available
|
|
$expcontent .= "<br /><h4>$langThisCourseDescriptionIsEmpty</h4>";
|
|
}
|
|
|
|
break;
|
|
//------------------------DOCUMENT BEGIN-------------------
|
|
case "Document" :
|
|
//1 Get the document data from the database
|
|
$tbl_document = Database::get_course_table(TABLE_DOCUMENT);
|
|
$sql_query = "SELECT * FROM $tbl_document WHERE id=$item_id";
|
|
$sql_result = Database::query($sql_query, __FILE__, __LINE__);
|
|
$myrow = Database::fetch_array($sql_result);
|
|
//2 Get the origin path of the document to treat it internally
|
|
$orig = api_get_path(SYS_COURSE_PATH).$_course['path'].'/document'.$myrow["path"];
|
|
//3 Make some kind of strange transformation to get the destination filepath ???
|
|
$pathname = explode("/", $myrow["path"]);
|
|
$last = count($pathname) - 1;
|
|
$filename = 'data/'.$filename.$pathname[$last];
|
|
$copyneeded = true;
|
|
|
|
//htm files do not need to be copied as the ok button is inserted into them,
|
|
//so don't copy directly
|
|
$extension = explode(".", $pathname[$last]);
|
|
//This old condition was WRONG for names like design.html.old. Instead, we now get the extension
|
|
// by using preg_match to match case-insensitive (probably faster than 4 conditions)
|
|
//if (($extension[1]=='htm') or ($extension[1]=='html') or ($extension[1]=='HTM') or ($extension[1]=='HTML')) {
|
|
//4 Check the file extension
|
|
if (preg_match('/.*(\.htm(l)?)$/i', $pathname[$last]))
|
|
{
|
|
//4.a If this file ends with ".htm(l)", we consider it's an HTML file
|
|
//src tag check begin
|
|
//we now check if there is any src attribute in htm(l) files, if yes, we have to also export
|
|
//the target file (swf, mp3, video,...) of that src tag
|
|
//In case of absolute links (http://) this is not neccessary, but makes no error.
|
|
//however still missing : relative links case with subdirs -> the necessary dirs are not created in the exported package
|
|
|
|
//4.a.1 Get the file contents into $file
|
|
$file = file_get_contents($orig);
|
|
|
|
//4.a.2 Get all the src links in this file
|
|
//preg_match_all("|((?i)src=\".*\" )|U",$file,$match);
|
|
$match = GetSRCTags($orig);
|
|
|
|
//4.a.3 For each src tag found, do the following:
|
|
for ($i = 0; $i < count($match); $i ++)
|
|
{
|
|
//4.a.3.1 Get the tag (split from the key)
|
|
list ($key, $srctag) = each($match);
|
|
$src = $srctag;
|
|
|
|
//4.a.3.2 Check the link kind (web or absolute/relative)
|
|
if (stristr($src, "http") === false)
|
|
{
|
|
//4.a.3.2.a Do something only if relative (otherwise the user will be able to see it too anyway)
|
|
//4.a.3.2.a.1 Get a proper URL and remove all './'
|
|
$src = urldecode($src); //mp3
|
|
//$src=str_replace('./','',$src);
|
|
$src = preg_replace('/^\.\//', '', $src);
|
|
//4.a.3.2.a.2 Remove the player link from the URL (only use the mp3 file)
|
|
$src = str_replace('mp3player.swf?son=', '', $src); //mp3
|
|
//4.a.3.2.a.3 Remove funny link parts
|
|
$src = str_replace('?0', '', $src); //mp3
|
|
//the previous lines are used when creating docs with Dokeos Document tool's htmlarea
|
|
//rows marked by 'mp3' are needed because the mp3 plugin inserts the swf-mp3 links in a very strange way
|
|
//and we can decode them with those 3 lines, hoping this will not cause errors in case of other htmls,
|
|
//created by any other software
|
|
//4.a.3.2.a.4 Prepare source and destination paths
|
|
$source = api_get_path(SYS_COURSE_PATH).$_course['path'].'/document'.dirname($myrow['path']).'/'.$src;
|
|
$dest = $expdir.'/data/'.$src;
|
|
//CopyNCreate($source,$dest);
|
|
rcopy($source, $dest);
|
|
} //else...?
|
|
}
|
|
|
|
//src tag check end
|
|
|
|
//sco communication insertion begin
|
|
//4.a.4 If we want to add SCORM actions and a "Done" button, do the following:
|
|
if ($add_scorm_communications === true)
|
|
{
|
|
if ($bodyclose = strpos($file, '</body>'))
|
|
{
|
|
$file = substr_replace($file, $scocomfiles.$donebutton, $bodyclose, 7);
|
|
}
|
|
elseif ($htmlclose = strpos($file, '</html>'))
|
|
{
|
|
$file = substr_replace($file, $scocomfiles.$donebutton, $htmlclose, 7);
|
|
$file .= '</html>';
|
|
}
|
|
else
|
|
{
|
|
$file .= $scocomfiles.$donebutton;
|
|
}
|
|
} //sco communication insertion end
|
|
|
|
//4.a.5 Replace the file's name by adding the element's ID before htm
|
|
// This will not work with uppercase HTML though. Maybe use the preg_replace syntax proposed...
|
|
$filename = str_replace('.htm', $id.'.htm', $filename);
|
|
//$filename=preg_replace('/.*(\.htm(l)?)$/i',$id.$1,$filename);
|
|
//4.a.6 Export these contents to a file and set the circle1_files array for later reuse
|
|
exporttofile($filename, $LPname, $id, $file);
|
|
|
|
//The file has been copied, so ask not to copy it again
|
|
$copyneeded = false;
|
|
|
|
} //if (htm(l) files) end
|
|
|
|
//5 If we still need to copy the file (e.g. it was not an HTML file), then copy and set circle1_files for later reuse
|
|
if ($copyneeded)
|
|
{
|
|
copy($orig, $expdir.'/'.$filename);
|
|
$circle1_files[0][] = $filename;
|
|
$circle1_files[1][] = $LPname;
|
|
$circle1_files[2][] = $id;
|
|
}
|
|
|
|
//echo $orig;
|
|
return;
|
|
|
|
//------------------------Introduction_text BEGIN-------------------
|
|
case "Introduction_text" :
|
|
//1 Get the introduction text data from the database
|
|
$TBL_INTRO = Database :: get_course_tool_intro_table();
|
|
$result = Database::query("SELECT * FROM ".$TBL_INTRO." WHERE id=1");
|
|
$myrow = Database::fetch_array($result);
|
|
$intro = $myrow["intro_text"];
|
|
//2 Write introduction text to the export string
|
|
$expcontent .= "<br />".$intro;
|
|
break;
|
|
|
|
//------------------------HotPotatoes BEGIN-------------------
|
|
case "HotPotatoes" :
|
|
//1 Get HotPotatoes data from the document table
|
|
$tbl_document = Database::get_course_table(TABLE_DOCUMENT);
|
|
$result = Database::query("SELECT * FROM $tbl_document WHERE id=$item_id", __FILE__, __LINE__);
|
|
$myrow = Database::fetch_array($result);
|
|
//2 Get the document path
|
|
$testfile = api_get_path(SYS_COURSE_PATH).$_course['path']."/document".urldecode($myrow['path']);
|
|
//3 Get the document contents into a string
|
|
$content = file_get_contents($testfile);
|
|
//4 Get the document filename (just the file, no path) - would probably be better to use PHP native function
|
|
$pathname = explode("/", $myrow["path"]);
|
|
$last = count($pathname) - 1;
|
|
$filename = 'data/'.$filename.$pathname[$last];
|
|
|
|
//4beta - get all linked files and copy them (procedure copied from documents type)
|
|
//Get all the src links in this file
|
|
$match = GetSRCTags($testfile);
|
|
//For each src tag found, do the following:
|
|
foreach ($match as $src)
|
|
{
|
|
//Check the link kind (web or absolute/relative)
|
|
if (stristr($src, "http") === false)
|
|
{
|
|
//Do something only if relative (otherwise the user will be able to see it too anyway)
|
|
//Get a proper URL and remove all './'
|
|
$src = urldecode($src); //mp3
|
|
$src = str_replace('./', '', $src);
|
|
//Remove the player link from the URL (only use the mp3 file)
|
|
$src = str_replace('mp3player.swf?son=', '', $src); //mp3
|
|
//Remove funny link parts
|
|
$src = str_replace('?0', '', $src); //mp3
|
|
//The previous lines are used when creating docs with Dokeos Document tool's htmlarea
|
|
//rows marked by 'mp3' are needed because the mp3 plugin inserts the swf-mp3 links in a very strange way
|
|
//and we can decode them with those 3 lines, hoping this will not cause errors in case of other htmls,
|
|
//created by any other software
|
|
//Prepare source and destination paths
|
|
$source = api_get_path(SYS_COURSE_PATH).$_course['path'].'/document'.dirname($myrow['path']).'/'.$src;
|
|
$dest = $expdir.'/data/'.$src;
|
|
//CopyNCreate($source,$dest);
|
|
rcopy($source, $dest);
|
|
} //else...?
|
|
}
|
|
|
|
//5 Prepare the special "close window" for this test
|
|
$closewindow = "<html><head><link rel='stylesheet' type='text/css' href='../css/default.css'></head><body>"."<br /><div class='message'>$langHotPotatoesFinished</div></body></html>";
|
|
|
|
//Finish is the function of HP to save scores, we insert our scorm function calls to its beginning
|
|
//'Score' is the variable that tracks the score in HP tests
|
|
//6
|
|
$mit = "function Finish(){";
|
|
|
|
$js_content = "var SaveScoreVariable = 0; // This variable is included by Dokeos LP export\n"."function mySaveScore() // This function is included by Dokeos LP export\n"."{\n"." if (SaveScoreVariable==0)\n"." {\n"." SaveScoreVariable = 1;\n".
|
|
//the following function are implemented in SCOFunctions.js
|
|
" exitPageStatus = true;\n"." computeTime();\n"." doLMSSetValue( 'cmi.core.score.raw', Score );\n"." doLMSSetValue( 'cmi.core.lesson_status', 'completed' );\n"." doLMSCommit();\n"." doLMSFinish();\n".
|
|
// " document.write('".$closewindow."');\n".
|
|
//if you insert the previous row, the test does not appear correctly !!!!
|
|
" }\n"."}\n"."function Finish(){\n"." mySaveScore();";
|
|
|
|
$start = "<script type='text/javascript'> loadPage(); </script>";
|
|
//7 Replace the current MIT function call by our set of functions. In clear, transform HP to SCORM
|
|
$content = str_replace($mit, $js_content, $content);
|
|
//8 Finally, add the API loading calls (although that might have been done first)
|
|
$content = str_replace("</script>", "</script>".$scocomfiles.$start, $content);
|
|
|
|
//9 Change the filename to add the database ID and export to a new file,
|
|
// setting the circle1_files array for later reuse
|
|
$filename = str_replace('.htm', $id.'.htm', $filename);
|
|
exporttofile($filename, $LPname, $id, $content);
|
|
|
|
return;
|
|
|
|
//------------------------Dokeos test BEGIN-------------------
|
|
case "Exercise" :
|
|
//1 Use the export_exercise() function to do the job of constructing the question's HTML table
|
|
$expcontent .= export_exercise($item_id);
|
|
break;
|
|
//------------------------POST BEGIN---------------------------------------
|
|
case "Post" :
|
|
//1 Get the forum post data from the database
|
|
$tbl_posts =Database::get_course_table(TABLE_FORUM_POST);
|
|
$tbl_posts_text =Database::get_course_table(TOOL_FORUM_POST_TEXT_TABLE);
|
|
$result = Database::query("SELECT * FROM $tbl_posts where post_id=$item_id", __FILE__, __LINE__);
|
|
$myrow = Database::fetch_array($result);
|
|
// grabbing the title of the post
|
|
$sql_titel = "SELECT * FROM $tbl_posts_text WHERE post_id=".$myrow["post_id"];
|
|
$result_titel = Database::query($sql_titel, __FILE__, __LINE__);
|
|
$myrow_titel = Database::fetch_array($result_titel);
|
|
|
|
$posternom = $myrow['nom'];
|
|
$posterprenom = $myrow['prenom'];
|
|
$posttime = $myrow['post_time'];
|
|
$posttext = $myrow_titel['post_text'];
|
|
$posttitle = $myrow_titel['post_title'];
|
|
$posttext = str_replace('"', "'", $posttext);
|
|
|
|
//2 Export contents as an HTML table
|
|
$expcontent .= "<table border='0' cellpadding='3' cellspacing='1' width='100%'>
|
|
<tr>
|
|
<td colspan='2' bgcolor='#e6e6e6'><b>$posttitle</b><br />$posttext</td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='2'></td>
|
|
</tr>
|
|
<tr>
|
|
<td bgcolor='#cccccc' align='left'>$lang_author : $posterprenom $posternom</td>
|
|
<td align='right' bgcolor='#cccccc'>$lang_date : $posttime</td>
|
|
</tr>
|
|
<tr><td colspan='2' height='10'></td></tr>
|
|
</table>";
|
|
break;
|
|
//------------------------NOT IMPLEMENTED ITEMS BEGIN-------------------
|
|
case "Forum" :
|
|
case "Thread" :
|
|
case "Dropbox" :
|
|
case "Assignments" :
|
|
case "Groups" :
|
|
case "Users" :
|
|
//1 Instead of building something, put an info message
|
|
$langItemMissing1 = "There was a ";
|
|
$langItemMissing2 = "page (step) here in the original Dokeos Learning Path.";
|
|
$expcontent .= "<div class='message'>$langItemMissing1 $item_type $langItemMissing2</div>";
|
|
break;
|
|
//------------------------Link BEGIN-------------------------------------
|
|
case "Link _self" :
|
|
case "Link _blank" :
|
|
//1 Get the link data from the database
|
|
$TABLETOOLLINK = Database :: get_course_link_table();
|
|
$result = Database::query("SELECT * FROM $TABLETOOLLINK WHERE id=$item_id", __FILE__, __LINE__);
|
|
$myrow = Database::fetch_array($result);
|
|
$thelink = $myrow["url"];
|
|
//2 Check the link type (open in blank page or in current page)
|
|
if ($item_type == "Link _blank")
|
|
{
|
|
$target = "_blank";
|
|
}
|
|
//3 Write the link to the export string
|
|
$expcontent .= "<a href='$thelink?SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9' target='".$target."'>$LPname</a>";
|
|
//4 Change the element type for later changes (this is lost, however, so useless here)
|
|
$item_type = "Link"; //to put this to the filename
|
|
//$LPname="<a href='$thelink?SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9' target=".$target.">$LPname</a>";
|
|
//i am still not sure about Link export : to export them as files or they can appear in the TOC at once ?
|
|
//to enable the second possibility, unrem the row $LPname=...
|
|
break;
|
|
}
|
|
|
|
//now we add the Done button and the initialize function : loadpage()
|
|
//not in the case of Documents, HotP
|
|
if ($item_type != 'Exercise' and ($add_scorm_communications === true))
|
|
{
|
|
$expcontent .= $donebutton;
|
|
}
|
|
//End the export string with valid HTML tags
|
|
$expcontent .= "</body></html>";
|
|
|
|
//Prepare new file name
|
|
$filename = $item_type.$id.".htm";
|
|
//Write the export content to the new file
|
|
exporttofile('data/'.$filename, $LPname, $id, $expcontent);
|
|
|
|
}
|
|
|
|
/**
|
|
* This function exports the given item's description into a separate file
|
|
* @param integer Item id
|
|
* @param string Item type
|
|
* @param string Description
|
|
* @return void
|
|
*/
|
|
function exportdescription($id, $item_type, $description)
|
|
{
|
|
|
|
global $expdir;
|
|
|
|
$filename = $item_type.$id.".desc";
|
|
$expcontent = $description;
|
|
exporttofile($expdir.$filename, 'description_of_'.$item_type.$id, 'description_of_item_'.$id, $expcontent);
|
|
}
|
|
|
|
/**
|
|
* This function deletes an entire directory
|
|
* @param string The directory path
|
|
* @return boolean True on success, false on failure
|
|
*/
|
|
function deldir($dir)
|
|
{
|
|
$dh = opendir($dir);
|
|
while ($file = readdir($dh))
|
|
{
|
|
if ($file != "." && $file != "..")
|
|
{
|
|
$fullpath = $dir."/".$file;
|
|
if (!is_dir($fullpath))
|
|
{
|
|
unlink($fullpath);
|
|
}
|
|
else
|
|
{
|
|
deldir($fullpath);
|
|
}
|
|
}
|
|
}
|
|
|
|
closedir($dh);
|
|
|
|
if (rmdir($dir))
|
|
{
|
|
return true;
|
|
}
|
|
else
|
|
{
|
|
return false;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* This functions exports the given path. This is the opener function, which is called first
|
|
* @param integer The path id
|
|
* @return resource A zip file, containing a hopefully Scorm compliant course made from the LP. This might happen when we don't actually exit the function first :-)
|
|
*/
|
|
function exportpath($learnpath_id)
|
|
{
|
|
//1 Initialise variables
|
|
global $_course, $circle1_files, $LPnamesafe, $LPname, $expdir;
|
|
//$tbl_learnpath_main, $tbl_learnpath_chapter, $tbl_learnpath_item,
|
|
$tbl_learnpath_main = Database :: get_course_table(TABLE_LEARNPATH_MAIN);
|
|
$tbl_learnpath_item = Database :: get_course_table(TABLE_LEARNPATH_ITEM);
|
|
$tbl_learnpath_chapter = Database :: get_course_table(TABLE_LEARNPATH_CHAPTER);
|
|
|
|
//where applicable, add a scorm "Done" button at the end of all contents
|
|
$add_scorm_button = true;
|
|
|
|
//2 Get the name of the LP
|
|
include_once (api_get_path(LIBRARY_PATH)."fileUpload.lib.php");
|
|
$sql = "SELECT * FROM $tbl_learnpath_main WHERE (lp_id=$learnpath_id)";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
$row = Database::fetch_array($result);
|
|
$LPname = $row['learnpath_name'];
|
|
$LPnamesafe = replace_dangerous_char($LPname, 'strict');
|
|
|
|
//3 Get a temporary dir for creating the zip file
|
|
$expdir = api_get_path('SYS_COURSE_PATH').$_course['path']."/temp/".$LPnamesafe;
|
|
$fromdir = '../scorm/export/'; //this dir contains some standard files
|
|
|
|
deldir($expdir); //make sure the temp dir is cleared
|
|
mkdir($expdir);
|
|
mkdir($expdir.'/css');
|
|
mkdir($expdir.'/data');
|
|
mkdir($expdir.'/js');
|
|
mkdir($expdir.'/data/images');
|
|
mkdir($expdir.'/data/audio');
|
|
mkdir($expdir.'/data/videos');
|
|
|
|
$circle1 = array (//this array contains the types of elements we want to export
|
|
'Chapter', 'Agenda', 'Ad_Valvas', 'Course_description', 'Document', 'Introduction_text', 'Link _self', 'Link _blank', 'Forum', 'Thread', 'Post', 'Exercise', 'HotPotatoes', 'Assignments', 'Dropbox', 'Users', 'Groups');
|
|
//$circle2=array('');
|
|
|
|
//4 Get the first level chapters - YW added parent_item_id condition for multi-level paths
|
|
$sql = "SELECT * FROM $tbl_learnpath_chapter
|
|
WHERE (lp_id=$learnpath_id and parent_item_id=0)
|
|
ORDER BY display_order ASC";
|
|
//to get all the elements, we should use the function that builds the table of content get_learnpath_tree
|
|
//WHERE (lp_id=$learnpath_id)
|
|
//ORDER BY parent_item_id, display_order ASC";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
|
|
//5 export the items listed in Circle I one by one
|
|
while ($row = Database::fetch_array($result))
|
|
{
|
|
//5.1 Get items data from the database for this chapter
|
|
$parent_item_id = $row['id'];
|
|
//$sql2a="SELECT * FROM $tbl_learnpath_chapter WHERE (lp_id=$learnpath_id and parent_item_id=$parent_item_id) ORDER BY display_order ASC";
|
|
//$result2a=Database::query($sql,__FILE__,__LINE__);
|
|
$sql2b = "SELECT * FROM $tbl_learnpath_item WHERE (parent_item_id=$parent_item_id) ORDER BY display_order ASC";
|
|
$result2b = Database::query($sql2b, __FILE__, __LINE__);
|
|
|
|
while ($row2 = Database::fetch_array($result2b))
|
|
{
|
|
//5.1.1 Check if the element is in the circle1 array
|
|
$tobeexported = false;
|
|
for ($i = 0; $i < count($circle1) && !$tobeexported; $i ++)
|
|
{
|
|
//if the type is found in the circle1 array, ask for export
|
|
if ($circle1[$i] == $row2['item_type'])
|
|
{
|
|
$tobeexported = true;
|
|
}
|
|
}
|
|
//5.1.2 If applicable, export the item to an HTML file (see exportitem function for more details)
|
|
if ($tobeexported)
|
|
{
|
|
exportitem($row2['id'], $row2['item_id'], $row2['item_type'], $add_scorm_button);
|
|
/*if ($row2['description']) { //put the description of items to a separate file (.desc)
|
|
exportdescription($row2['id'],$row2['item_type'],$row2['description']);
|
|
}*/
|
|
}
|
|
} //end of items loop
|
|
} //end of first-level chapters loop
|
|
|
|
//6 export the other necceassary files
|
|
$filename = 'default.css';
|
|
copy('../css/'.$filename, $expdir.'/css/'.$filename);
|
|
$filename = 'ims_xml.xsd';
|
|
copy($fromdir.$filename, $expdir.'/'.$filename);
|
|
$filename = 'imscp_v1p1.xsd';
|
|
copy($fromdir.$filename, $expdir.'/'.$filename);
|
|
$filename = 'imsmd_v1p2.xsd';
|
|
copy($fromdir.$filename, $expdir.'/'.$filename);
|
|
$filename = 'APIWrapper.js';
|
|
copy($fromdir.$filename, $expdir.'/js/'.$filename);
|
|
$filename = 'SCOFunctions.js';
|
|
copy($fromdir.$filename, $expdir.'/js/'.$filename);
|
|
|
|
//in case circle1_files is not defined, build it
|
|
//$circle1_files
|
|
//7 create imsmanifest.xml
|
|
createimsmanifest($circle1_files, $learnpath_id);
|
|
|
|
//8 put the files in the exportdir into a zip and force download
|
|
include_once (api_get_path(LIBRARY_PATH)."pclzip/pclzip.lib.php");
|
|
//create zipfile of given directory
|
|
$zip_folder = new PclZip(api_get_path('SYS_COURSE_PATH').$_course['path']."/temp/".$LPnamesafe.".zip");
|
|
|
|
$zip_folder->create(api_get_path('SYS_COURSE_PATH').$_course['path']."/temp/".$LPnamesafe."/", PCLZIP_OPT_REMOVE_PATH, api_get_path('SYS_COURSE_PATH').$_course['path']."/temp/");
|
|
//api_get_path('SYS_COURSE_PATH').$_course['path']."/temp/".$LPnamesafe); // whitout folder
|
|
|
|
// modified by imandak80
|
|
|
|
/* copy(api_get_path('SYS_COURSE_PATH').$_course['path']."/temp/".$LPnamesafe.".zip",
|
|
api_get_path('SYS_COURSE_PATH').$_course['path']."/document/".$LPnamesafe.".zip");
|
|
*/
|
|
|
|
$zipfoldername = api_get_path('SYS_COURSE_PATH').$_course['path']."/temp/".$LPnamesafe;
|
|
$zipfilename = $zipfoldername.".zip";
|
|
DocumentManager :: file_send_for_download($zipfilename, false, basename($LPnamesafe.".zip"));
|
|
|
|
//9 Delete the temporary zip file and directory
|
|
include_once (api_get_path(LIBRARY_PATH)."fileManage.lib.php");
|
|
// in fileManage.lib.php
|
|
my_delete($zipfilename);
|
|
my_delete($zipfoldername);
|
|
|
|
//exit;
|
|
|
|
//0 Return the circle_files hash (array)
|
|
return ($circle1_files); //has been used before...
|
|
}
|
|
|
|
/**
|
|
* Export SCORM content into a zip file
|
|
*
|
|
* Basically, all this function does is put the scorm directory back into a zip file (like the one
|
|
* that was most probably used to import the course at first)
|
|
* @param string Name of the SCORM path (or the directory under which it resides)
|
|
* @param array Not used right now. Should replace the use of global $_course
|
|
* @return void
|
|
* @author imandak80
|
|
*/
|
|
function exportSCORM($scormname, $course)
|
|
{
|
|
global $_course;
|
|
|
|
//initialize
|
|
$tmpname = api_get_path('SYS_COURSE_PATH').$_course['path']."/scorm";
|
|
$zipfoldername = $tmpname.$scormname;
|
|
$zipfilename = $zipfoldername.".zip";
|
|
|
|
//create zipfile of given directory
|
|
include_once (api_get_path(LIBRARY_PATH)."pclzip/pclzip.lib.php");
|
|
$zip_folder = new PclZip($zipfilename);
|
|
$list = 1;
|
|
//$list = $zip_folder->create($zipfoldername."/",PCLZIP_OPT_REMOVE_PATH,$tmpname.$scormname."/"); // whitout folder
|
|
$list = $zip_folder->create($zipfoldername."/", PCLZIP_OPT_REMOVE_PATH, $tmpname);
|
|
if ($list == 0)
|
|
{
|
|
// echo "Error : ".$zip_folder->errorInfo(true);
|
|
}
|
|
|
|
//send to client
|
|
DocumentManager :: file_send_for_download($zipfilename, false, basename($scormname.".zip"));
|
|
|
|
//clear
|
|
include_once (api_get_path(LIBRARY_PATH)."fileManage.lib.php");
|
|
my_delete($zipfilename);
|
|
}
|
|
|
|
/**
|
|
* This function returns an xml tag
|
|
* $data behaves as the content in case of full tags
|
|
* $data is an array of attributes in case of returning an opening tag
|
|
* @param string
|
|
* @param string
|
|
* @param array
|
|
* @param string
|
|
* @return string
|
|
*/
|
|
function xmltagwrite($tagname, $which, $data, $linebreak = "yes")
|
|
{
|
|
switch ($which)
|
|
{
|
|
case "open" :
|
|
$tag = "<".$tagname;
|
|
$i = 0;
|
|
while ($data[0][$i])
|
|
{
|
|
$tag .= " ".$data[0][$i]."=\"".$data[1][$i]."\"";
|
|
$i ++;
|
|
}
|
|
if ($tagname == 'file')
|
|
{
|
|
$closing = '/';
|
|
}
|
|
$tag .= $closing.">";
|
|
if ($linebreak != 'no_linebreak')
|
|
{
|
|
$tag .= "\n";
|
|
}
|
|
break;
|
|
case "close" :
|
|
$tag = "</".$tagname.">";
|
|
if ($linebreak != 'no_linebreak')
|
|
{
|
|
$tag .= "\n";
|
|
}
|
|
break;
|
|
case "full" :
|
|
$tag = "<".$tagname;
|
|
$tag .= ">".$data."</".$tagname.">";
|
|
if ($linebreak != 'no_linebreak')
|
|
{
|
|
$tag .= "\n";
|
|
}
|
|
break;
|
|
}
|
|
return $tag;
|
|
}
|
|
|
|
/**
|
|
* This function writes the imsmanifest.xml and exports the chapter names
|
|
* @param array Array containing filenames
|
|
* @param integer Learnpath_id
|
|
* @return void
|
|
*/
|
|
function createimsmanifest($circle1_files, $learnpath_id)
|
|
{
|
|
global $charset;
|
|
global $_course, $LPname, $expdir, $LPnamesafe;
|
|
//$tbl_learnpath_main, $tbl_learnpath_chapter, $tbl_learnpath_item,
|
|
$tbl_learnpath_main = Database :: get_course_table(TABLE_LEARNPATH_MAIN);
|
|
$tbl_learnpath_item = Database :: get_course_table(TABLE_LEARNPATH_ITEM);
|
|
$tbl_learnpath_chapter = Database :: get_course_table(TABLE_LEARNPATH_CHAPTER);
|
|
|
|
include_once ('../metadata/md_funcs.php'); // RH: export metadata
|
|
|
|
//1.1 header
|
|
/*
|
|
$header='<?xml version="1.0" encoding="UTF-8"?><manifest identifier="'.$LPnamesafe.'" xmlns="http://www.imsglobal.org/xsd/imscp_v1p1" xmlns:imsmd="http://www.imsglobal.org/xsd/imsmd_v1p2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.imsglobal.org/xsd/imscp_v1p1 imscp_v1p1.xsd http://www.imsglobal.org/xsd/imsmd_v1p2 imsmd_v1p2.xsd" version="IMS CP 1.1.3">'."\n";
|
|
*/
|
|
|
|
//1.2
|
|
//charset should be dependent on content
|
|
//$mycharset = 'ISO-8859-1';
|
|
$mycharset = $charset;
|
|
$header = '<?xml version="1.0" encoding="'.$mycharset.'"?>'."\n<manifest identifier='".$LPnamesafe."' version='1.1'\n xmlns='http://www.imsproject.org/xsd/imscp_rootv1p1p2'\n xmlns:adlcp='http://www.adlnet.org/xsd/adlcp_rootv1p2'\n xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance'\n xsi:schemaLocation='http://www.imsproject.org/xsd/imscp_rootv1p1p2 imscp_rootv1p1p2.xsd\n http://www.imsglobal.org/xsd/imsmd_rootv1p2p1 imsmd_rootv1p2p1.xsd\n http://www.adlnet.org/xsd/adlcp_rootv1p2 adlcp_rootv1p2.xsd'>\n";
|
|
|
|
$org .= xmltagwrite('metadata', 'open');
|
|
$org .= " ".xmltagwrite('schema', 'full', 'ADL SCORM');
|
|
$org .= " ".xmltagwrite('schemaversion', 'full', '1.2');
|
|
$org .= xmltagwrite('metadata', 'close');
|
|
|
|
$defaultorgname = 'default_org';
|
|
|
|
$attributes[0][0] = 'default';
|
|
$attributes[1][0] = $defaultorgname;
|
|
$org .= xmltagwrite('organizations', 'open', $attributes);
|
|
|
|
$attributes[0][0] = 'identifier';
|
|
$attributes[1][0] = $defaultorgname;
|
|
$org .= " ".xmltagwrite('organization', 'open', $attributes);
|
|
|
|
$org .= " ".xmltagwrite('title', 'full', $LPname);
|
|
|
|
//items list
|
|
$i = 0;
|
|
$previous_item_id = '00';
|
|
while ($circle1_files[0][$i])
|
|
{
|
|
//check whether we are in the border of two chapters
|
|
//if (!$desc=strpos($circle1_files[2][$i],'scription')) { //this is is needed if the descriptions are exported to file
|
|
|
|
$sql = "SELECT * FROM $tbl_learnpath_item WHERE (id=".$circle1_files[2][$i].")";
|
|
$result = Database::query($sql, __FILE__, __LINE__);
|
|
$row = Database::fetch_array($result);
|
|
$parent_item_id = $row['parent_item_id'];
|
|
|
|
if ($parent_item_id != $previous_item_id)
|
|
{
|
|
//we create the item tag for the chapter (without indifierref)
|
|
$sql2 = "SELECT * FROM $tbl_learnpath_chapter WHERE (id=".$parent_item_id.")";
|
|
$result2 = Database::query($sql2, __FILE__, __LINE__);
|
|
$row2 = Database::fetch_array($result2);
|
|
$chapter_name = $row2['chapter_name'];
|
|
|
|
$attributes = '';
|
|
$attributes[0][] = 'identifier';
|
|
$attributes[1][] = 'chapter_'.$row2['id'];
|
|
$attributes[0][] = 'isvisible';
|
|
$attributes[1][] = '1';
|
|
if ($previous_item_id != '00')
|
|
{
|
|
$org .= " ".xmltagwrite('item', 'close');
|
|
}
|
|
|
|
$org .= " ".xmltagwrite('item', 'open', $attributes);
|
|
$org .= " ".xmltagwrite('title', 'full', $chapter_name);
|
|
|
|
if ($row2['chapter_description'] != '')
|
|
{
|
|
//chapter description
|
|
$attributes = '';
|
|
$attributes[0][] = 'identifier';
|
|
$attributes[1][] = 'chapter_'.$row2['id'].'_desc';
|
|
$attributes[0][] = 'isvisible';
|
|
$attributes[1][] = '1';
|
|
$org .= " ".xmltagwrite('item', 'open', $attributes);
|
|
$org .= " ".xmltagwrite('title', 'full', ' '.$row2['chapter_description']);
|
|
$org .= " ".xmltagwrite('item', 'close');
|
|
}
|
|
}
|
|
$previous_item_id = $parent_item_id;
|
|
//}
|
|
|
|
$attributes = ''; //item output
|
|
$attributes[0][] = 'identifier';
|
|
$attributes[1][] = 'item_'.$circle1_files[2][$i];
|
|
$attributes[0][] = 'identifierref';
|
|
$attributes[1][] = 'item_ref_'.$circle1_files[2][$i];
|
|
$attributes[0][] = 'isvisible';
|
|
$attributes[1][] = '1';
|
|
$org .= " ".xmltagwrite('item', 'open', $attributes);
|
|
$org .= " ".xmltagwrite('title', 'full', $circle1_files[1][$i]);
|
|
|
|
if ($row['prereq_id'] != '')
|
|
{ //item prerequisites
|
|
$attributes = '';
|
|
$attributes[0][] = 'type';
|
|
$attributes[1][] = 'aicc_script';
|
|
$org .= " ".xmltagwrite('adlcp:prerequisites', 'open', $attributes, "no_linebreak");
|
|
if ($row['prereq_type'] == 'i')
|
|
{
|
|
$org .= 'item_'.$row['prereq_id'];
|
|
}
|
|
if ($row['prereq_type'] == 'c')
|
|
{
|
|
$org .= 'chapter_'.$row['prereq_id'];
|
|
}
|
|
$org .= xmltagwrite('adlcp:prerequisites', 'close', $attributes);
|
|
}
|
|
|
|
if ($row['description'] != '')
|
|
{
|
|
//item description
|
|
$attributes = '';
|
|
$attributes[0][] = 'identifier';
|
|
$attributes[1][] = 'item_'.$circle1_files[2][$i].'_desc';
|
|
$attributes[0][] = 'isvisible';
|
|
$attributes[1][] = '1';
|
|
$org .= " ".xmltagwrite('item', 'open', $attributes);
|
|
$org .= " ".xmltagwrite('title', 'full', ' '.$row['description']);
|
|
$org .= " ".xmltagwrite('item', 'close');
|
|
}
|
|
|
|
$mds = new mdstore(TRUE); // RH: export metadata; if no table, create it
|
|
if (($mdt = $mds->mds_get($row['item_type'].'.'.$row['item_id'])))
|
|
if (($mdo = api_strpos($mdt, '<metadata>')) && ($mdc = api_strpos($mdt, '</metadata>')))
|
|
$org .= " ".api_substr($mdt, $mdo, $mdc - $mdo +11)."\n";
|
|
|
|
$org .= " ".xmltagwrite('item', 'close');
|
|
$i ++;
|
|
}
|
|
|
|
if ($circle1_files)
|
|
{
|
|
$org .= " ".xmltagwrite('item', 'close');
|
|
} //not needed in case of a blank path
|
|
$org .= " ".xmltagwrite('organization', 'close');
|
|
$org .= xmltagwrite('organizations', 'close');
|
|
$org .= xmltagwrite('resources', 'open');
|
|
|
|
//resources list
|
|
$i = 0;
|
|
while ($circle1_files[0][$i])
|
|
{
|
|
$attributes = '';
|
|
$attributes[0][] = 'identifier';
|
|
$attributes[1][] = 'item_ref_'.$circle1_files[2][$i];
|
|
$attributes[0][] = 'type';
|
|
$attributes[1][] = 'webcontent';
|
|
$attributes[0][] = 'adlcp:scormtype';
|
|
$attributes[1][] = 'sco';
|
|
$attributes[0][] = 'href';
|
|
$attributes[1][] = $circle1_files[0][$i];
|
|
$org .= " ".xmltagwrite('resource', 'open', $attributes);
|
|
|
|
$org .= " ".xmltagwrite('metadata', 'open');
|
|
$org .= " ".xmltagwrite('schema', 'full', 'ADL SCORM');
|
|
$org .= " ".xmltagwrite('schemaversion', 'full', '1.2');
|
|
$org .= " ".xmltagwrite('metadata', 'close');
|
|
|
|
$attributes = '';
|
|
$attributes[0][] = 'href';
|
|
$attributes[1][] = $circle1_files[0][$i];
|
|
$org .= " ".xmltagwrite('file', 'open', $attributes);
|
|
|
|
$org .= " ".xmltagwrite('resource', 'close');
|
|
$i ++;
|
|
}
|
|
|
|
$org .= xmltagwrite('resources', 'close');
|
|
$org .= xmltagwrite('manifest', 'close');
|
|
$manifest = $header.$org;
|
|
|
|
exporttofile('imsmanifest.xml', 'Manifest file', '0', $manifest);
|
|
}
|
|
|
|
/**
|
|
* Gets the tags of the file given as parameter
|
|
*
|
|
* if $filename is not found, GetSRCTags(filename) will return FALSE
|
|
* @param string file path
|
|
* @return mixed array of strings on success, false on failure
|
|
* @author unknown
|
|
* @author included by imandak80
|
|
*/
|
|
function GetSRCTags($fileName)
|
|
{
|
|
if (!($fp = fopen($fileName, "r")))
|
|
{
|
|
//if file can't be opened, return false
|
|
return false;
|
|
}
|
|
//read file contents
|
|
$contents = fread($fp, filesize($fileName));
|
|
fclose($fp);
|
|
|
|
$matches = array ();
|
|
$srcList = array ();
|
|
//get all src tags contents in this file. Use multi-line search.
|
|
preg_match_all('/src(\s)*=(\s)*[\'"]([^\'"]*)[\'"]/mi', $contents, $matches); //get the img src as contained between " or '
|
|
|
|
foreach ($matches[3] as $match)
|
|
{
|
|
if (!in_array($match, $srcList))
|
|
{
|
|
$srcList[] = $match;
|
|
}
|
|
}
|
|
if (count($srcList) == 0)
|
|
{
|
|
return false;
|
|
}
|
|
return $srcList;
|
|
}
|
|
|
|
/**
|
|
* Copy file and create directories in the path if needed.
|
|
*
|
|
* @param string $source Source path
|
|
* @param string $dest Destination path
|
|
* @return boolean true on success, false on failure
|
|
*/
|
|
function CopyNCreate($source, $dest)
|
|
{
|
|
if (strcmp($source, $dest) == 0)
|
|
return false;
|
|
|
|
$dir = "";
|
|
$tdest = explode('/', $dest);
|
|
for ($i = 0; $i < sizeof($tdest) - 1; $i ++)
|
|
{
|
|
$dir = $dir.$tdest[$i]."/";
|
|
if (!is_dir($dir))
|
|
if (!mkdir($dir))
|
|
return false;
|
|
}
|
|
|
|
if (!copy($source, $dest))
|
|
return false;
|
|
|
|
return true;
|
|
}
|
|
|
|
function rcopy($source, $dest)
|
|
{
|
|
//error_log($source." -> ".$dest,0);
|
|
if (!file_exists($source))
|
|
{
|
|
//error_log($source." does not exist",0);
|
|
return false;
|
|
}
|
|
|
|
if (is_dir($source))
|
|
{
|
|
//error_log($source." is a dir",0);
|
|
//this is a directory
|
|
//remove trailing '/'
|
|
if (strrpos($source, '/') == sizeof($source) - 1)
|
|
{
|
|
$source = substr($source, 0, size_of($source) - 1);
|
|
}
|
|
if (strrpos($dest, '/') == sizeof($dest) - 1)
|
|
{
|
|
$dest = substr($dest, 0, size_of($dest) - 1);
|
|
}
|
|
|
|
if (!is_dir($dest))
|
|
{
|
|
$res = @ mkdir($dest);
|
|
if ($res === true)
|
|
{
|
|
return true;
|
|
}
|
|
else
|
|
{
|
|
//remove latest part of path and try creating that
|
|
if (rcopy(substr($source, 0, strrpos($source, '/')), substr($dest, 0, strrpos($dest, '/'))))
|
|
{
|
|
return @ mkdir($dest);
|
|
}
|
|
else
|
|
{
|
|
return false;
|
|
}
|
|
}
|
|
}
|
|
return true;
|
|
}
|
|
else
|
|
{
|
|
//this is presumably a file
|
|
//error_log($source." is a file",0);
|
|
if (!@ copy($source, $dest))
|
|
{
|
|
//error_log("Could not simple-copy $source",0);
|
|
$res = rcopy(dirname($source), dirname($dest));
|
|
if ($res === true)
|
|
{
|
|
//error_log("Welcome dir created",0);
|
|
return @ copy($source, $dest);
|
|
}
|
|
else
|
|
{
|
|
return false;
|
|
//error_log("Error creating path",0);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
//error_log("Could well simple-copy $source",0);
|
|
return true;
|
|
}
|
|
}
|
|
}
|
|
?>
|
|
|