<?php // $Id: learnpath_functions.inc.php,v 1.72.2.3 2005/09/25 19:57:48 yannoo Exp $ 
/*
============================================================================== 
	Dokeos - elearning and course management software
	
	Copyright (c) 2004-2005 Dokeos S.A.
	Copyright (c) 2003 Ghent University (UGent)
	Copyright (c) 2001 Universite catholique de Louvain (UCL)
	Copyright (c) Denes Nagy
	
	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 address: Dokeos, 44 rue des palais, B-1030 Brussels, Belgium
	Mail: 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
* @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(LEARNPATH_ITEM_TABLE);
	$tbl_learnpath_chapter	= Database::get_course_table(LEARNPATH_CHAPTER_TABLE);
	//get the display order for this item before it is deleted
	$sql = "SELECT display_order, chapter_id FROM $tbl_learnpath_item WHERE id=$id";
	$result = api_sql_query($sql,__FILE__,__LINE__);
	if ( mysql_num_rows($result)==0){
		return false;
	}
	$row = mysql_fetch_row($result);
	$display_order = $row[0];
	$chapter_id = $row[1];
	// delete the item
	$sql="DELETE FROM $tbl_learnpath_item WHERE id='$id'";
	$result=api_sql_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 chapter_id = $chapter_id";
	$result=api_sql_query($sql,__FILE__,__LINE__);
	$sql = "UPDATE $tbl_learnpath_chapter SET display_order = display_order-1 WHERE display_order > $display_order AND parent_chapter_id = $chapter_id";
	$result=api_sql_query($sql,__FILE__,__LINE__);
	//return
	return true;
}

/**
 * This function deletes the chapters and all their 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($chapter_id)
{
    global $learnpath_id;
    $tbl_learnpath_item = Database::get_course_table(LEARNPATH_ITEM_TABLE);
    $tbl_learnpath_chapter = Database::get_course_table(LEARNPATH_CHAPTER_TABLE);
	
    //Added for multi-level behaviour - slightly recursive
    $sql = "SELECT * FROM $tbl_learnpath_chapter WHERE learnpath_id=$learnpath_id";
    $result = api_sql_query($sql,__FILE__,__LINE__);
    while($row = mysql_fetch_array($result)){
        if($row['parent_chapter_id'] == $chapter_id){
            //delete every subchapter
									if (deletemodule($row['id']) === false){
										return false;
									}
        }
    }//end
			//get this chapter's display order
			$sql = "SELECT display_order, parent_chapter_id FROM $tbl_learnpath_chapter WHERE id=$chapter_id and learnpath_id=$learnpath_id";
			$result=api_sql_query($sql,__FILE__,__LINE__);
			if ( mysql_num_rows($result)==0){
				return false;
			}
			$row = mysql_fetch_row($result);
			$display_order = $row[0];	
			$parent_id = $row[1];
			//delete the chapter itself
			$sql="DELETE FROM $tbl_learnpath_chapter WHERE (id=$chapter_id and learnpath_id=$learnpath_id)";
    $result=api_sql_query($sql,__FILE__,__LINE__);
			//delete items from that chapter
    $sql2="DELETE FROM $tbl_learnpath_item WHERE chapter_id=$chapter_id";
    $result=api_sql_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 chapter_id = $parent_id";
			$result=api_sql_query($sql,__FILE__,__LINE__);
			$sql = "UPDATE $tbl_learnpath_chapter SET display_order = display_order-1 WHERE display_order > $display_order AND parent_chapter_id = $parent_id";
			$result=api_sql_query($sql,__FILE__,__LINE__);
			//return
			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(LEARNPATH_MAIN_TABLE);
    $tbl_learnpath_item = Database::get_course_table(LEARNPATH_ITEM_TABLE);
    $tbl_learnpath_chapter = Database::get_course_table(LEARNPATH_CHAPTER_TABLE);
    
    $sql="DELETE FROM $tbl_learnpath_main WHERE learnpath_id='$path_id'";
    $result=api_sql_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 learnpath_id=$path_id";
		$result = api_sql_query($sql,__FILE__,__LINE__);
		while($row = mysql_fetch_array($result)){
			deletemodule($row['id']);
		}
}

/**
 * this functions moves the items
 * @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_learnpath_item_table(); 
    $tbl_learnpath_chapter  = Database::get_course_learnpath_chapter_table(); 
    
    $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
    {
        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_chapter_id=$moduleid)"; 
    } elseif ( $orig_type == 'item' ) {
        $sql1="UPDATE $tbl_learnpath_item SET display_order = ".$dest_order." WHERE (id=$orig_id and chapter_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_chapter_id=$moduleid)"; 
    } elseif ( $dest_type == 'item' ) {
        $sql2="UPDATE $tbl_learnpath_item SET display_order = ".$orig_order." WHERE (id='$dest_id' and chapter_id=$moduleid)"; 
    } else {
        return false;
    }
    api_sql_query($sql1,__FILE__,__LINE__);
    api_sql_query($sql2,__FILE__,__LINE__); 
}


/**
 * This function moves the chapters (chapters are also called modules or categories)
 * @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_chapter_id = 0)
	$sql="SELECT * FROM $tbl_learnpath_chapter where (learnpath_id=$learnpath_id AND parent_chapter_id = 0) ORDER BY display_order $sortDirection";
	$result=api_sql_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=mysql_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 learnpath_id=$learnpath_id)"; 
			$sql2="UPDATE $tbl_learnpath_chapter SET display_order = '$this_cat_order' WHERE (id='$next_cat_id' and learnpath_id=$learnpath_id)"; 
			api_sql_query($sql1,__FILE__,__LINE__);
			api_sql_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. 
 */
function insert_item ($type = 'item', $name, $chapter_description = '', $parent_id = 0, $learnpath_id = 0, $params=null)
{
	$tbl_learnpath_chapter 	= Database::get_course_table(LEARNPATH_CHAPTER_TABLE);
	$tbl_learnpath_item			= Database::get_course_table(LEARNPATH_ITEM_TABLE);

	// getting the last order number from the chapters table, in this learnpath, for the parent chapter given
	$sql="SELECT * FROM $tbl_learnpath_chapter 
		WHERE learnpath_id=$learnpath_id 
		AND parent_chapter_id = $parent_id
		ORDER BY display_order DESC";
	$result=api_sql_query($sql,__FILE__,__LINE__);
	$row=mysql_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_chapter_id = $parent_id
		ORDER BY display_order DESC";
	$result=api_sql_query($sql,__FILE__,__LINE__);
	$row=mysql_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 
				(learnpath_id, chapter_name, chapter_description, display_order) 
				VALUES ('".domesticate($learnpath_id)."', 
				'".domesticate(htmlspecialchars($chapter_name))."',
				'".domesticate(htmlspecialchars($chapter_description))."', 
				$new_order )"; 
		
		$result=api_sql_query($sql,__FILE__,__LINE__);
		if ( $result === false ) { return false; }
		$id = Database::get_last_insert_id();
	} elseif ( $type === 'item' ) {
		$sql ="INSERT INTO $tbl_learnpath_item 
				(chapter_id, item_type, item_id, display_order) 
				VALUES ('".domesticate($parent_id)."', 
				'".domesticate(htmlspecialchars($item_type))."',
				'".domesticate(htmlspecialchars($item_id))."', 
				$new_order )"; 
		$result=api_sql_query($sql,__FILE__,__LINE__); 
		if ( $result === false ) { return false; }
		$id = Database::get_last_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(LEARNPATH_CHAPTER_TABLE);
	
	$sql="SELECT * FROM  $tbl_learnpath_chapter  WHERE (learnpath_id=$learnpath_id) ORDER BY display_order ASC";
	$result=api_sql_query($sql,__FILE__,__LINE__); 

	while ($row=mysql_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($chapter_id = 0, $tree=array(), $level = 0)
{
    global $color2; 
    global $xml_output; 
    global $learnpath_id;
    $tbl_learnpath_chapter = Database::get_course_table(LEARNPATH_CHAPTER_TABLE);
    $tbl_learnpath_item = Database::get_course_table(LEARNPATH_ITEM_TABLE);
    
    $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('lang_delete');
    
    //$sql="SELECT * FROM  $tbl_learnpath_chapter  WHERE (learnpath_id=$learnpath_id AND parent_chapter_id=$chapter_id) ORDER BY display_order ASC";
    //$result=api_sql_query($sql,__FILE__,__LINE__);

    if($chapter_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=mysql_num_rows($result);
		if ($num_modules==0)
		{
			// do not diplay useless information
			//echo "<tr><td>&nbsp;$lang_nochapters</td></tr>";
		}
		else
		{
			echo "  <tr bgcolor=\"$color2\" align='center' valign='top'>\n"
				."    <td><b>&nbsp;$lang_title_and_desc </b></td>\n"
				."    <td><b>&nbsp;$lang_add_item </b></td>\n";
			if (is_prereq($learnpath_id))
			{
				echo "    <td bgcolor='#ddddee'><b>&nbsp;$lang_prerequisites_limit </b></td>\n";
			}
			else echo "    <td bgcolor=\"$color2\"><b>&nbsp;$lang_prerequisites </b></td>\n";
			
			echo "    <td colspan='2'><b>&nbsp;$lang_change_order </b></td><td><b>&nbsp;$lang_add_prereqi </b></td>\n"
				."    <td><b>&nbsp;$lang_add_title_and_desc </b></td><td><b>&nbsp;$lang_delete </b></td>\n"
				."  </tr>\n";
		}
    }

    $i=1;    
    $counter = 0;
    $num_modules = count($tree[$chapter_id]);
	
    //while ($row=mysql_fetch_array($result))
	if (isset($tree[$chapter_id]))
	{
		foreach($tree[$chapter_id] as $row)
		{
			if ( $row['type'] === 'chapter' )
			{
				$xml_output.="<chapter>";
				$xml_output.="<chaptertitle>".$row["chapter_name"]."</chaptertitle>";
				$xml_output.="<chapterdescription>".$row["chapter_description"]."</chapterdescription>";
				
				$counter++;
				if (($counter % 2)==0) { $oddclass="row_odd"; } else { $oddclass="row_even"; }
			
				echo '<tr class="'.$oddclass.'">'."\n".'  <td bgcolor="'.$color2.'">'
					.str_repeat("&nbsp;&gt;",$level)."<img src='../img/documents.gif' alt='folder'/><a href='".$_SERVER['PHP_SELF']."?learnpath_id=$learnpath_id&chapter_id={$row['id']}&action=add&type=learnpathitem'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9><b>&nbsp;".$row['chapter_name']."</b></a>"
					."<br /><i><div align='justify'>&nbsp;".str_repeat("&nbsp;&nbsp;&nbsp;",$level).$row['chapter_description']."</i></td>\n"
					.'  <td bgcolor="'.$color2.'" align="center"><a href="'.$_SERVER['PHP_SELF']."?learnpath_id=$learnpath_id&chapter_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 bgcolor='";
				if (is_prereq($learnpath_id)) { echo "#ddddee"; } else { echo "$color2"; }
				echo "'></td>\n";
				
				// showing the edit, delete and move icons
				if (is_allowed_to_edit())
				{
					$myaction = '';
					if($level == 0)
					{
						$myaction = 'movemodule';
					}
					else
					{
						$myaction = 'moveitem&amp;type=chapter';
					}
					if ($i<$num_modules)
					{
					
						// if we are still under the number of chapters in this section, show "move down"
						echo "  <td bgcolor=\"$color2\" align=center>"
							."<a href='".$_SERVER['PHP_SELF']."?learnpath_id=$learnpath_id&amp;action=".$myaction."&amp;direction=down&amp;moduleid=".$chapter_id."&amp;id=".$row["id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9>"
							."<img src=\"../img/down.gif\" border=\"0\" title=\"$lang_move_down\">"
							."</a></td>\n"; 
					}
					else
					{ 
						echo '  <td bgcolor="'.$color2.'"  align="center">&nbsp;</td>'."\n"; 
					}
					
					if ($i>1)
					{ 
						echo '  <td bgcolor="'.$color2.'" align="center">'
								."<a href='".$_SERVER['PHP_SELF']."?learnpath_id=$learnpath_id&amp;action=".$myaction."&amp;direction=up&amp;moduleid=".$chapter_id."&amp;id=".$row["id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9>"
									."<img src=\"../img/up.gif\" border=\"0\" title=\"$lang_move_up\">"
								."</a>"
							."</td>\n"; 
					}
					else
					{ 
						echo '  <td bgcolor="'.$color2.'"  align="center">&nbsp;</td>'."\n"; 
					} 
					
					echo "  <td bgcolor=\"$color2\" align='center'>&nbsp;</td>\n";
					echo "  <td bgcolor=\"$color2\" align='center'>"
							."<a href='".$_SERVER['PHP_SELF']."?learnpath_id=$learnpath_id&amp;action=editmodule&amp;id=".$row["id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9>"
								."<img src=\"../img/edit.gif\" border=\"0\" title=\"$lang_edit_learnpath_module\">"
							."</a>"
						."</td>\n";
					echo "  <td bgcolor=\"$color2\" align='center'>"
							."<a href='".$_SERVER['PHP_SELF']."?learnpath_id=$learnpath_id&amp;action=deletemodule&amp;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 "</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>";
			
			}
			elseif ( $row['type'] === 'item' )
			{
				$row_items = $row;
				echo "<tr>\n  <td colspan='2' valign='top'>";
				
				display_addedresource_link_in_learnpath($row_items["item_type"],$row_items["item_id"],'',$row_items["id"],'builder','icon',$level);
				
				if ($row_items["description"])
				{ 
					echo "<div align='justify'><font color='#999999'>&nbsp;&nbsp;&nbsp;{$row_items['description']}</font>"; 
				}
				
				echo "</td>";
				
				if (is_prereq($learnpath_id)) { echo '<td bgcolor="#EEEEFF">'; } else { echo "<td>"; }
			
				if (is_allowed_to_edit())
				{
				
					if ($row_items["prereq_id"]<>'')
					{
						$prereq=$row_items["prereq_id"];
				
						if ($row_items["prereq_type"]=='i')
						{
							//item
							$sql_items2="SELECT * FROM $tbl_learnpath_item WHERE id='$prereq'";  //check if prereq has been deleted
							$result_items2=api_sql_query($sql_items2,__FILE__,__LINE__);
							$number_items2=mysql_num_rows($result_items2);
							if ($number_items2==0) { echo "<font color='red'>$lang_prereq_deleted_error</font>"; }
							$row_items2=mysql_fetch_array($result_items2);
							display_addedresource_link_in_learnpath($row_items2["item_type"],$row_items2["item_id"],'',$row_items2["id"],'builder','',$level);
							if ((($row_items2["item_type"]=='Exercise') or ($row_items2["item_type"]=='HotPotatoes')) and ($row_items['prereq_completion_limit'])) {
								echo "&nbsp;({$row_items['prereq_completion_limit']})";
							}
						}
						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=api_sql_query($sql_items2,__FILE__,__LINE__);
							$number_items2=mysql_num_rows($result_items2);
							if ($number_items2==0) { echo "<font color='red'>$lang_prereq_deleted_error</font>"; }
							$row_items2=mysql_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["item_id"]."</element_id>";
					
					// move
					if ($i<$num_modules)
					{
						echo "<td align='center'>"
								."<a href='".$_SERVER['PHP_SELF']."?learnpath_id=$learnpath_id&amp;action=moveitem&amp;type=item&amp;direction=down&amp;moduleid=".$chapter_id."&amp;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'>&nbsp;</td>";
					}
					
					if ($i>1)
					{
						echo "<td align='center'>"
								."<a href='".$_SERVER['PHP_SELF']."?learnpath_id=$learnpath_id&amp;action=moveitem&amp;type=item&amp;direction=up&amp;moduleid=".$chapter_id."&amp;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'>&nbsp;</td>";
					}
					echo "</td>"
						."<td align='center'>";
					
					// edit prereq
					echo    "<a href='".$_SERVER['PHP_SELF']."?learnpath_id=$learnpath_id&amp;action=edititemprereq&amp;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='".$_SERVER['PHP_SELF']."?learnpath_id=$learnpath_id&amp;action=edititem&amp;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='".$_SERVER['PHP_SELF']."?learnpath_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>";
	
			}
		}
	}
}

/**
 * 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(LEARNPATH_MAIN_TABLE);
	
	$sql="SELECT * FROM  $tbl_learnpath_main  ORDER BY learnpath_name";
	$result=api_sql_query($sql,__FILE__,__LINE__); 
	$i=1;
	$num_modules=mysql_num_rows($result);
	
	while ($row=mysql_fetch_array($result))
	{
		//other grey color : #E6E6E6
		echo "<tr><td bgcolor=\"$color2\" width=400><b>&nbsp;";
		echo "<a href='learnpath_handler.php?&learnpath_id={$row['learnpath_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?learnpath_id={$row['learnpath_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='".$_SERVER['PHP_SELF']."?action=editpath&id=".$row["learnpath_id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9><img src=\"../img/edit.gif\" border=\"0\" title=\"$lang_edit_learnpath\"></a></td>";
			echo "<td bgcolor=\"$color2\" align=center><a href='".$_SERVER['PHP_SELF']."?action=deletepath&id=".$row["learnpath_id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9><img src=\"../img/delete.gif\" border=\"0\" title=\"$lang_delete_learnpath\" onclick=\"return confirmation('".$row2['learnpath_name']."');\"></a></td>";
			$id=$row["learnpath_id"];
			$sql2="SELECT * FROM $tbl_learnpath_main where learnpath_id=$id";
			$result2=api_sql_query($sql2,__FILE__,__LINE__); 
			$row2=mysql_fetch_array($result2);
			$name=$row2['learnpath_name'];
			$sql3="SELECT * FROM $tbl_tool where (name=\"$name\" and image='scormbuilder.gif')";
			$result3=api_sql_query($sql3,__FILE__,__LINE__);
			$row3=mysql_fetch_array($result3);
			if (($row3["visibility"])=='1')
			{
				echo "<td bgcolor=\"$color2\" align=center><a href='".$_SERVER['PHP_SELF']."?action=publishpath&set=i&id=".$row["learnpath_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='".$_SERVER['PHP_SELF']."?action=publishpath&set=v&id=".$row["learnpath_id"]."'&SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9><img src=\"../img/invisible.gif\" border=\"0\" title=\"$lang_publish\"></a></td>";
			}
		}
		$i++;
		echo "<tr><td>&nbsp;</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_learnpath_item = Database::get_course_table(LEARNPATH_ITEM_TABLE);
	$tbl_learnpath_chapter = Database::get_course_table(LEARNPATH_CHAPTER_TABLE);
	
	$sql_items="SELECT * FROM $tbl_learnpath_item WHERE chapter_id='$categoryid' ORDER BY display_order ASC";
	$result_items=api_sql_query($sql_items) ; 
	$number_items=mysql_num_rows($result_items);
	$i=1;
	
	while ($row_items=mysql_fetch_array($result_items))
	{
		echo "<tr><td colspan='2' valign='top'>";
		display_addedresource_link_in_learnpath($row_items["item_type"],$row_items["item_id"],'',$row_items["id"],'builder','icon');
		if ($row_items["description"]) { echo "<div align='justify'><font color='#999999'>&nbsp;&nbsp;&nbsp;{$row_items['description']}</font>"; }
		echo "</td>";
		if (is_prereq($learnpath_id)) { echo '<td bgcolor="#EEEEFF">'; } else { echo "<td>"; }
	
		if (is_allowed_to_edit())
		{
		
			if ($row_items["prereq_id"]<>'')
			{
				$prereq=$row_items["prereq_id"];
		
				if ($row_items["prereq_type"]=='i')
				{
					//item
					$sql_items2="SELECT * FROM $tbl_learnpath_item WHERE id='$prereq'";  //check if prereq has been deleted
					$result_items2=api_sql_query($sql_items2);
					$number_items2=mysql_num_rows($result_items2);
					if ($number_items2==0) { echo "<font color=red>$lang_prereq_deleted_error</font>"; }
					$row_items2=mysql_fetch_array($result_items2);
					display_addedresource_link_in_learnpath($row_items2["item_type"],$row_items2["item_id"],'',$row_items2["id"],'builder','');
					if ((($row_items2["item_type"]=='Exercise') or ($row_items2["item_type"]=='HotPotatoes')) and ($row_items['prereq_completion_limit'])) {
						echo "&nbsp;({$row_items['prereq_completion_limit']})";
					}
				}
				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=api_sql_query($sql_items2);
					$number_items2=mysql_num_rows($result_items2);
					if ($number_items2==0) { echo "<font color=red>$lang_prereq_deleted_error</font>"; }
					$row_items2=mysql_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["item_id"]."</element_id>";
			
			// move
			if ($i<$number_items)
			{
				echo "<td align='center'><a href='".$_SERVER['PHP_SELF']."?learnpath_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'>&nbsp;</td>";
			}
			
			if ($i>1)
			{
				echo "<td align='center'><a href='".$_SERVER['PHP_SELF']."?learnpath_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'>&nbsp;</td>";
			}
			echo "</td><td align='center'>";
			
			// edit prereq
			echo "<a href='".$_SERVER['PHP_SELF']."?learnpath_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='".$_SERVER['PHP_SELF']."?learnpath_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='".$_SERVER['PHP_SELF']."?learnpath_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(LEARNPATH_ITEM_TABLE);

  $sql_items="SELECT chapter_id FROM $tbl_learnpath_item WHERE id='$itemid'";
  $moduleid_sql=api_sql_query($sql_items); 
  $moduleid_array=mysql_fetch_array($moduleid_sql); //first row of the results
  $moduleid=$moduleid_array["chapter_id"];

  $sql_items="SELECT * FROM $tbl_learnpath_item WHERE chapter_id='$moduleid' ORDER BY display_order ASC";
  $result_items=api_sql_query($sql_items); 
  $ar=mysql_fetch_array($result_items);
  while ($ar != '')
  {
  	  $result[]=$ar;
	  $ar=mysql_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(LEARNPATH_CHAPTER_TABLE);

  $sql_items="SELECT * FROM $tbl_learnpath_chapter WHERE learnpath_id='$learnpath_id' ORDER BY display_order ASC";
  $result_items=api_sql_query($sql_items,__FILE__,__LINE__);
  $ar = mysql_fetch_array($result_items);
  while ($ar != '') {
  	  $result[]=$ar;
	  $ar=mysql_fetch_array($result_items);
  }
  return $result;

}

/**
 * This function tells if a learnpath contains chapters which are prerequisite to other items
 * @param	integer	Learnpath id
 * @return	boolean	True if this learnpath contains a chapter which is a prerequisite to something
 */
function is_prereq($learnpath_id)
{
  #global $tbl_learnpath_chapter, $tbl_learnpath_item; 
  global $xml_output;
  $tbl_learnpath_item = Database::get_course_table(LEARNPATH_ITEM_TABLE);
  $tbl_learnpath_chapter = Database::get_course_table(LEARNPATH_CHAPTER_TABLE);

  $prereq=false;

  $sql_items="SELECT * FROM $tbl_learnpath_chapter WHERE learnpath_id='$learnpath_id' ORDER BY display_order ASC";
  $result_items=api_sql_query($sql_items) ; 
  $ar=mysql_fetch_array($result_items);
  while ($ar != '')
  {
	  $c=$ar['id'];
	  $sql_items2="SELECT * FROM $tbl_learnpath_item WHERE chapter_id='$c' ORDER BY display_order ASC";
	  $result_items2=api_sql_query($sql_items2) ; 
	  $ar2=mysql_fetch_array($result_items2);
	  while ($ar2 != '')
	  {
		  if ($ar2['prereq_id'] != '') { $prereq=true; }
		  $ar2=mysql_fetch_array($result_items2);
	  }
	  $ar=mysql_fetch_array($result_items);
  }
  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, $_uid;
	global $langPrereqToEnter, $langPrereqTestLimit1, $langPrereqTestLimit2, $langPrereqTestLimitNow, $langPrereqFirstNeedTo, $langPrereqModuleMinimum1, $langPrereqModuleMinimum2;
	$tbl_learnpath_user = Database::get_course_table(LEARNPATH_USER_TABLE);
	$tbl_learnpath_item = Database::get_course_table(LEARNPATH_ITEM_TABLE);
	$tbl_learnpath_chapter = Database::get_course_table(LEARNPATH_CHAPTER_TABLE);
	
	//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=api_sql_query($sql_items); 
	$row=mysql_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 ($_uid=='') { $user_id='0'; } else { $user_id=$_uid; }
		$sql_items3="SELECT * FROM $tbl_learnpath_user WHERE (learnpath_item_id='$id_in_path3' and user_id=$user_id)";
		$result_items3=api_sql_query($sql_items3); 
		$row3=mysql_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['item_id'], '', $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=api_sql_query($sql6) ; 
		$row6=mysql_fetch_array($result6);
		//4.a.5 Get a link to the prerequisite item
		$prereqname=display_addedresource_link_in_learnpath($row6['item_type'], $row6['item_id'], '', $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_learnpath_item WHERE chapter_id='$id_in_path2'";
		$result_items3=api_sql_query($sql_items3) ; 
		$allcompleted=true;
		while ($row3=mysql_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 ($_uid=='') { $user_id='0'; } else { $user_id=$_uid; }
			//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 = api_sql_query($sql_items4) ; 
			$row4=mysql_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 (learnpath_id='$learnpath_id' and id='$id_in_path2')";
			$result5=api_sql_query($sql5) ; 
			$row5=mysql_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) {
    //init elems
    #global $tbl_learnpath_item, $tbl_learnpath_chapter; 
    $tbl_learnpath_item = Database::get_course_table(LEARNPATH_ITEM_TABLE);
    $tbl_learnpath_chapter = Database::get_course_table(LEARNPATH_CHAPTER_TABLE);

    $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_learnpath_chapter WHERE learnpath_id = ".$learnpath_id." ORDER BY id";
    $res = api_sql_query($sql,__FILE__,__LINE__);
    
	// format the $chapters_by_parent array so we have a suitable structure to work with
    while ($row = mysql_fetch_array($res,MYSQL_ASSOC) )
	{
        $chapters[]= $row;
        //shouldn't be necessary (check no null value)
        if(empty($row['parent_chapter_id']))
		{
            $row['parent_chapter_id'] = 0;
        }
        //$chapters_by_parent[$row['parent_chapter_id']][$row['display_order']] = $row;
        $all_items_by_chapter[$row['parent_chapter_id']][$row['display_order']] = $row;
        $all_items_by_chapter[$row['parent_chapter_id']][$row['display_order']]['type'] = '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_learnpath_item WHERE chapter_id = ".$row['id']." ORDER BY id";
		$res = api_sql_query($sql,__FILE__,__LINE__);
		while($myrow = mysql_fetch_array($res,MYSQL_ASSOC) )
		{
			//$items[] = $myrow;
			//$items_by_chapter[$myrow['chapter_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
	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'], 'chapter_id' => $elem['chapter_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, $chapter_id = 0, $learnpath_id, $uid, $wrap, $level = 0){
    #global $tbl_learnpath_user;
    $tbl_learnpath_user = Database::get_course_table(LEARNPATH_USER_TABLE);
    $num = 0;
    $num_completed = 0;
    $strip_limit = 65; //what is the maximum length of a title at level 0
    $strip_mul = 1; //multiplier for the stripping level-modifier (if level 2, shorten from $strip_limit by 2*$strip_mul)
    foreach ( $tree[$chapter_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("&nbsp;&nbsp;",$level-1).shorten($elem['chapter_name'],($strip_limit-$strip_mul*$level))."<br />\n"; 
            } else { 
                echo "<tr><td colspan='3'>".str_repeat("&nbsp;&nbsp;",$level-1)
                        .shorten($elem['chapter_name'],($strip_limit-$strip_mul*$level))
                    ."</td></tr>\n"; 
            }
            
            if ($wrap) {
                if ($elem['chapter_description'] != '')
                    { echo "<div class='description'>".str_repeat("&nbsp;&nbsp;",$level)."&nbsp;".shorten($elem['chapter_description'],($strip_limit-$strip_mul*$level))."</div>\n"; }
            }
            else {
                if ($elem['chapter_description'] != ''){ 
                    echo "<tr><td colspan='3'><div class='description'>".str_repeat("&nbsp;&nbsp;",$level-1)."&nbsp;".shorten($elem['chapter_description'],($strip_limit-$strip_mul*$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 learnpath_id='".$learnpath_id."')";
            $result0=api_sql_query($sql0,__FILE__,__LINE__);
            $row0=mysql_fetch_array($result0);
    
            $completed='';
            if (($row0['status']=='completed') or ($row0['status']=='passed')) { 
                $completed='completed'; 
                $num_completed++; 
            }
            
            if ($wrap) { 
                echo str_repeat("&nbsp;&nbsp;",$level-1)."<a name='{$elem['id']}' />\n"; 
            } else { 
                echo "<tr><td>".str_repeat("&nbsp;&nbsp;",$level-1)."<a name='{$elem['id']}' />\n"; 
            }
            
            if ($wrap) { $icon='wrap'; }
            
            if($bold){echo "<b>";}
            display_addedresource_link_in_learnpath($elem['item_type'], $elem['item_id'], $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, $chapter_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[$chapter_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('&nbsp;',$level*2+2).$elem['chapter_name']."</td></tr>\n";
				echo "<tr class='$oddclass'><td colspan = '3'>".str_repeat('&nbsp;',$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 learnpath_id = $learnpath_id "
							."AND learnpath_item_id = ".$elem['id'];
			$res = api_sql_query($sql,__FILE__,__LINE__);
			$myrow = mysql_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("&nbsp;",$level*2+2);
								//."<a href='$link?SQMSESSID=36812c2dea7d8d6e708d5e6a2f09b0b9' target='toc'>hop</a>"
			display_addedresource_link_in_learnpath($elem['item_type'], $elem['item_id'], $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(LEARNPATH_ITEM_TABLE);
	$tbl_learnpath_chapter = Database::get_course_table(LEARNPATH_CHAPTER_TABLE);

	$sql="SELECT * FROM $tbl_learnpath_chapter WHERE learnpath_id=$id ORDER BY display_order ASC";
	$result=api_sql_query($sql,__FILE__,__LINE__); 
	$num_modules = mysql_num_rows($result);
	$empty=true;
	
	if ($num_modules != 0) {
	  while ($row=mysql_fetch_array($result)) {

			$num_items=0;
			$chapter_id=$row['id'];
			$sql2="SELECT * FROM $tbl_learnpath_item WHERE (chapter_id=$chapter_id) ORDER BY display_order ASC";
			$result2=api_sql_query($sql2,__FILE__,__LINE__); 
			$num_items=mysql_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, $statsDbName, $_SESSION, $_SERVER, $languageInterface, $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_library_path().'/text.lib.php');
	
	$TBL_EXERCISES								= Database::get_course_table(QUIZ_TEST_TABLE);
	
	/*******************************/
	/* 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 language=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").' &quot;'.$questionName.'&quot;</td></tr>';
	
					break;
				}
			}
		}
	
		$s="<tr bgcolor='#e6e6e6'><td valign='top' colspan='2'>".$langQuestion." ";
		$s.=$i;
		if($exerciseType == 2) $s.=' / '.$nbrQuestions;
		$s.='</td></tr>';
	
		$test.=$s;
	
		//Call the showQuestion() function from exercise.lib.php. This basically displays the question in a table
		$test.=showQuestion($questionId, false, 'export');
	
	}	// 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 language='Javascript' 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, $languageInterface, $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_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/".$languageInterface."/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/".$languageInterface."/course_description.inc.php"); //				 -||-
	include_once('../lang/english/resourcelinker.inc.php');	 
	include_once("../lang/".$languageInterface."/resourcelinker.inc.php");
	include_once('../lang/english/learnpath.inc.php');	 
	include_once("../lang/".$languageInterface."/learnpath.inc.php");
	include_once('../lang/english/exercice.inc.php');				
	include_once("../lang/".$languageInterface."/exercice.inc.php");

	include_once(api_get_library_path().'/text.lib.php');
	include_once("../resourcelinker/resourcelinker.inc.php");
	include_once(api_get_library_path()."/events.lib.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 language='JavaScript' type='text/javascript' src='../js/APIWrapper.js'></script>"
					."<script language='JavaScript' 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 language='javascript' type='text/javascript'>
		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(AGENDA_TABLE);
			$sql="SELECT * FROM ".$TABLEAGENDA." where (id=$item_id)";
			$result=api_sql_query($sql,__FILE__,__LINE__);
			
			//2 Prepare table output
			$expcontent.="<table id=\"agenda_list\" >";
			$barreMois="";
			
			//3 For each event corresponding to this agenda, do the following:
			while ($myrow=mysql_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\">".
					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.=ucfirst(format_locale_date($dateFormatLong,strtotime($myrow["start_date"])))."&nbsp;&nbsp;&nbsp;";
				$expcontent.=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_announcement_table();
			$sql="SELECT * FROM $tbl_announcement where id='$item_id'";
			$result = api_sql_query($sql,__FILE__,__LINE__);
			
			//2 Initialise export string
			$expcontent.= "<table class=\"data_table\">";
			
			//3 For each announcement matching the query
			while ($myrow = mysql_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.
				" : ".
				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_description_table();
		$result=api_sql_query("SELECT id, title, content FROM ".$tbl_course_description." ORDER BY id",__FILE__,__LINE__);
		
		//2 Check this element
		if(mysql_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=mysql_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_document_table();
			$sql_query = "SELECT * FROM $tbl_document WHERE id=$item_id";
			$sql_result = api_sql_query($sql_query,__FILE__,__LINE__);
			$myrow = mysql_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;

			break;
		
		//------------------------Introduction_text BEGIN-------------------
		case "Introduction_text":
			//1 Get the introduction text data from the database
			$TBL_INTRO	= Database::get_course_tool_intro_table();
			$result = api_sql_query("SELECT * FROM ".$TBL_INTRO." WHERE id=1");
			$myrow= mysql_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_document_table();
			$result= api_sql_query("SELECT * FROM $tbl_document WHERE id=$item_id",__FILE__,__LINE__);
			$myrow=mysql_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 language='javascript' 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;

		break;
		//------------------------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       = $_course['dbNameGlu'].'bb_posts';
			$tbl_posts_text  = $_course['dbNameGlu'].'bb_posts_text';
			$TBL_FORUMS = $_course['dbNameGlu']."bb_forums";
			$result= api_sql_query("SELECT * FROM `$tbl_posts` where post_id=$item_id",__FILE__,__LINE__);
			$myrow=mysql_fetch_array($result);
			// grabbing the title of the post
			$sql_titel="SELECT * FROM `$tbl_posts_text` WHERE post_id=".$myrow["post_id"];
			$result_titel=api_sql_query($sql_titel,__FILE__,__LINE__);
			$myrow_titel=mysql_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= api_sql_query("SELECT * FROM $TABLETOOLLINK WHERE id=$item_id",__FILE__,__LINE__);
			$myrow=mysql_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(LEARNPATH_MAIN_TABLE);
	$tbl_learnpath_item = Database::get_course_table(LEARNPATH_ITEM_TABLE);
	$tbl_learnpath_chapter = Database::get_course_table(LEARNPATH_CHAPTER_TABLE);

	//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_library_path()."/fileUpload.lib.php");
	$sql="SELECT * FROM $tbl_learnpath_main WHERE (learnpath_id=$learnpath_id)";
    $result=api_sql_query($sql,__FILE__,__LINE__); 
    $row=mysql_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_chapter_id condition for multi-level paths
	$sql="SELECT * FROM $tbl_learnpath_chapter 
		WHERE (learnpath_id=$learnpath_id and parent_chapter_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 (learnpath_id=$learnpath_id) 
			//ORDER BY parent_chapter_id, display_order ASC";
	$result=api_sql_query($sql,__FILE__,__LINE__); 
	
	//5 export the items listed in Circle I one by one
	while ($row=mysql_fetch_array($result))	{
		//5.1 Get items data from the database for this chapter
		$chapter_id=$row['id'];
		//$sql2a="SELECT * FROM $tbl_learnpath_chapter WHERE (learnpath_id=$learnpath_id and parent_chapter_id=$chapter_id) ORDER BY display_order ASC";
		//$result2a=api_sql_query($sql,__FILE__,__LINE__); 		
		$sql2b="SELECT * FROM $tbl_learnpath_item WHERE (chapter_id=$chapter_id) ORDER BY display_order ASC";
		$result2b=api_sql_query($sql2b,__FILE__,__LINE__);
		
		while ($row2=mysql_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_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_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_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_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 $_course, $LPname, $expdir, $LPnamesafe;
	//$tbl_learnpath_main, $tbl_learnpath_chapter, $tbl_learnpath_item, 
	$tbl_learnpath_main = Database::get_course_table(LEARNPATH_MAIN_TABLE);
	$tbl_learnpath_item = Database::get_course_table(LEARNPATH_ITEM_TABLE);
	$tbl_learnpath_chapter = Database::get_course_table(LEARNPATH_CHAPTER_TABLE);
	
	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';
	$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_chapter_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=api_sql_query($sql,__FILE__,__LINE__); 
		$row=mysql_fetch_array($result);
		$chapter_id=$row['chapter_id'];
	   
		if ($chapter_id != $previous_chapter_id) { //so we create the item tag for the chapter (without indifierref)
			$sql2="SELECT * FROM $tbl_learnpath_chapter WHERE (id=".$chapter_id.")";
			$result2=api_sql_query($sql2,__FILE__,__LINE__); 
			$row2=mysql_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_chapter_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_chapter_id=$chapter_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 = strpos($mdt, '<metadata>')) && ($mdc = strpos($mdt, '</metadata>')))
    	   $org .= "    " . 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 cannot open, 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 path
	 * @param	string	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;
			}
		}
	}
?>
