5 include_once(
"./Services/Object/classes/class.ilObjectAccess.php");
 
   35                         array(
"permission" => 
"read", 
"cmd" => 
"render", 
"lang_var" => 
"show", 
"default" => 
true),
 
   36                         array(
"permission" => 
"write", 
"cmd" => 
"listRecords", 
"lang_var" => 
"edit_content"),
 
   37                         array(
"permission" => 
"write", 
"cmd" => 
"edit", 
"lang_var" => 
"settings")
 
   50                 $t_arr = explode(
"_", $a_target);               
 
   52                 if ($t_arr[0] != 
"dcl" || ((
int) $t_arr[1]) <= 0)
 
   57                 if ($ilAccess->checkAccess(
"visible", 
"", $t_arr[1]))
 
   76         public function _checkAccess($a_cmd, $a_permission, $a_ref_id, $a_obj_id, $a_user_id = 
"")
 
   82                            $a_user_id = $ilUser->getId();
 
   90                                                  && !$rbacsystem->checkAccessOfUser($a_user_id,
'write',$a_ref_id))
 
  105                                                  $ilAccess->addInfoItem(IL_STATUS_MESSAGE, $lng->txt(
"online"));
 
  110                   switch($a_permission)
 
  115                                                  (!$rbacsystem->checkAccessOfUser($a_user_id, 
'write', $a_ref_id)))
 
  135                 $q = 
"SELECT * FROM il_dcl_data WHERE id = ".
 
  136                         $ilDB->quote($a_id, 
"integer");
 
  137                 $dcl_set = $ilDB->query($q);
 
  138                 $dcl_rec = $ilDB->fetchAssoc($dcl_set);
 
  140                 return $dcl_rec[
"is_online"];