G::LoadClassRBAC('roles');
$obj = new RBAC_Application();
$obj->SetTo($dbc);
$obj->Load($appid);
$_SESSION['STR_APP'] = $obj->Fields['APP_CODE'];
$obj = new RBAC_Role();
$obj->SetTo($dbc);
$obj->Load($rolid);
$_SESSION['STR_ROL'] = $obj->Fields['ROL_CODE'];
//$appCode = G::LoadMessage (13);
//print "<center class='subtitle'>$appCode</center>";
$ses = new DBSession();
$ses->SetTo($dbc);
$dbc = new DBConnection(DB_HOST, DB_RBAC_USER, DB_RBAC_PASS, DB_RBAC_NAME);
$ses = new DBSession();
$ses->SetTo($dbc);
function showLevel($i, $label1, $texto1, $texto2, $uid)
{
global $pathViewChart;
global $collapsed;
global $rolid;
global $parents;
global $dbc;
global $ses;
global $canCreateRole;
$MAX_LEVEL = 10;
$sql = "SELECT count(*) AS CANT from ROLE_PERMISSION WHERE ROL_UID in ({$parents} ) AND PRM_UID = {$uid}";
$dset = $ses->Execute($sql);
$row2 = $dset->Read();
$rolStatus = $row2['CANT'];
if ($rolStatus == 1) {
function LoadOptions($stQry, $dbc)
{
$stQry = str_replace("''''", "''", $stQry);
//cuando la conexion es normal... se intenta realizar el query
$dses = new DBSession();
$dses->SetTo($dbc);
$dses->UseDB(DB_NAME);
$dset = $dses->Execute($stQry, false, 3);
$data = $dset->ReadAbsolute();
while ($data) {
$key = $data[0];
$val = $data[1];
$result[$key] = $val;
$data = $dset->ReadAbsolute();
}
return $result;
}
