function printInit($selection = "*")
{
global $uidReset, $cidReset, $gidReset, $tidReset, $uidReq, $cidReq, $gidReq, $tidReq, $tlabelReq, $_user, $_course, $_groupUser, $_courseTool, $_SESSION, $_claro_local_run;
if ($_claro_local_run) {
echo "local init runned";
} else {
echo '<font color="red"> local init never runned during this script </font>';
}
echo '
<table width="100%" border="1" cellspacing="4" cellpadding="1" bordercolor="#808080" bgcolor="#C0C0C0" lang="en">
<TR>';
if ($selection == "*" or strstr($selection, "u")) {
echo '
<TD valign="top" >
<strong>User</strong> :
(_uid) : ' . var_export(claro_get_current_user_id(), 1) . ' |
(session[_uid]) : ' . var_export($_SESSION["_uid"], 1) . '
<br />
reset = ' . var_export($uidReset, 1) . ' |
req = ' . var_export($uidReq, 1) . '<br />
_user : <pre>' . var_export($_user, 1) . '</pre>
<br />is_platformAdmin :' . var_export(claro_is_platform_admin(), 1) . '
<br />is_allowedCreateCourse :' . var_export(claro_is_allowed_to_create_course(), 1) . '
</TD>';
}
if ($selection == "*" or strstr($selection, "c")) {
echo "\n <TD valign=\"top\" >\n <strong>Course</strong> : (_cid)" . var_export(claro_get_current_course_id(), 1) . "\n <br />\n reset = " . var_export($cidReset, 1) . " | req = " . var_export($cidReq, 1) . "\n <br />\n _course : <pre>" . var_export($_course, 1) . "</pre>\n <br />\n _groupProperties :\n <PRE>\n " . var_export(claro_get_current_group_properties_data(), 1) . "\n </PRE>\n </TD>";
}
echo '
</TR>
<TR>';
if ($selection == "*" or strstr($selection, "g")) {
echo '<TD valign="top" ><strong>Group</strong> : (_gid) ' . var_export(claro_get_current_group_id(), 1) . '<br />
reset = ' . var_export($GLOBALS['gidReset'], 1) . ' | req = ' . var_export($gidReq, 1) . "<br />\n _group :<pre>" . var_export(claro_get_current_group_data(), 1) . "</pre></TD>";
}
if ($selection == "*" or strstr($selection, "t")) {
echo '<TD valign="top" ><strong>Tool</strong> : (_tid)' . var_export(claro_get_current_tool_id(), 1) . '<br />
reset = ' . var_export($tidReset, 1) . ' |
req = ' . var_export($tidReq, 1) . '|
req = ' . var_export($tlabelReq, 1) . '
<br />
_tool :' . var_export(get_init('_tool'), 1) . "</TD>";
}
echo "</TR>";
if ($selection == "*" or strstr($selection, "u") && strstr($selection, "c")) {
echo '<TR><TD valign="top" colspan="2"><strong>Course-User</strong>';
if (claro_is_user_authenticated()) {
echo '<br /><strong>User</strong> :' . var_export(claro_is_in_a_course(), 1);
}
if (claro_is_in_a_course()) {
echo ' in ' . var_export(claro_get_current_course_id(), 1) . '<br />';
}
if (claro_is_user_authenticated() && claro_get_current_course_id()) {
echo '_courseUser : <pre>' . var_export(getInit('_courseUser'), 1) . '</pre>';
}
echo '<br />is_courseMember : ' . var_export(claro_is_course_member(), 1);
echo '<br />is_courseAdmin : ' . var_export(claro_is_course_manager(), 1);
echo '<br />is_courseAllowed : ' . var_export(claro_is_course_allowed(), 1);
echo '<br />is_courseTutor : ' . var_export(claro_is_course_tutor(), 1);
echo '</TD></TR>';
}
echo "";
if ($selection == "*" or strstr($selection, "u") && strstr($selection, "g")) {
echo '<TR><TD valign="top" colspan="2">' . '<strong>Course-Group-User</strong>';
if (claro_is_user_authenticated()) {
echo '<br /><strong>User</strong> :' . var_export(claro_is_in_a_course(), 1);
}
if (claro_is_in_a_group()) {
echo ' in ' . var_export(claro_get_current_group_id(), 1);
}
if (claro_is_in_a_group()) {
echo '<br />_groupUser:'******'_groupUser'), 1);
}
echo '<br />is_groupMember:' . var_export(claro_is_group_member(), 1) . '<br />is_groupTutor: ' . var_export(claro_is_group_tutor(), 1) . '<br />is_groupAllowed:' . var_export(claro_is_group_allowed(), 1) . '</TD>' . '</tr>';
}
if ($selection == "*" or strstr($selection, "c") && strstr($selection, "t")) {
echo '<tr>
<TD valign="top" colspan="2" ><strong>Course-Tool</strong><br />';
if (claro_get_current_tool_id()) {
echo 'Tool :' . claro_get_current_tool_id();
}
if (claro_is_in_a_course()) {
echo ' in ' . claro_get_current_course_id() . '<br />';
}
if (claro_get_current_tool_id()) {
echo "_courseTool : <pre>" . var_export($_courseTool, 1) . '</pre><br />';
}
echo 'is_toolAllowed : ' . var_export(claro_is_tool_allowed(), 1);
echo "</TD>";
}
echo "</TR></TABLE>";
}
/**
* Get the context from where the page is called
* e.g.: if a tool is called from another tool
* @return mixed tlabel or false if not called from a specific tool or whatever
*/
function claro_called_from()
{
return get_init('calledFrom');
}
/**
* Return the tool list for a course according a certain access level
*
* @param boolean $force (optionnal) - reset the result cache, default is false
*
* @return array the main course list array ( $id => 'name','url','icon','visibility' )
*/
function claro_get_course_external_link_list($courseIdReq = null, $force = false)
{
static $courseExtLinkList = null, $courseId = null;
if (is_null($courseIdReq)) {
$courseIdReq = get_init('_cid');
}
if (is_null($courseExtLinkList) || $courseIdReq != $courseId || $force) {
// Initialise course tool list
$courseId = $courseIdReq;
$courseExtLinkList = array();
// Get name of the tables
$tbl_cdb_names = claro_sql_get_course_tbl(claro_get_course_db_name_glued($courseIdReq));
$tbl_course_tool_list = $tbl_cdb_names['tool'];
// Find external link
$sql = "SELECT id,\n script_name,\n script_url,\n visibility\n FROM `" . $tbl_course_tool_list . "`\n WHERE ISNULL(tool_id) ";
if (!(get_init('is_courseAdmin') || get_init('is_platformAdmin'))) {
$sql .= 'AND visibility = 1';
}
$courseExtLinkResult = claro_sql_query_fetch_all($sql);
foreach ($courseExtLinkResult as $courseExtLink) {
$id = $courseExtLink['id'];
$courseExtLinkList[$id]['name'] = $courseExtLink['script_name'];
$courseExtLinkList[$id]['url'] = $courseExtLink['script_url'];
$courseExtLinkList[$id]['icon'] = $GLOBALS['imgRepositoryWeb'] . '/tool.png';
$courseExtLinkList[$id]['visibility'] = (bool) $courseExtLink['visibility'];
}
}
return $courseExtLinkList;
}