// on récupere les ids des entités parentes
$tabent = chemin_entite($_GET['ent']);
// on affiche le calque des personnes
$tpl->set_var('div_pdisp', 'display');
// hop on affiche la liste des personnes
$droit_w = $user->HaveAccess($data['CATEGORIES_CAT_ID'], 'W');
$droit_a = $user->HaveAccess($data['CATEGORIES_CAT_ID'], 'A');
aff_personnes((int) $_GET['ent'], $droit_w, $droit_a);
// on envoie le menu
$onglets = '<ul id="tabnav">';
$onglets .= '<li id="li_entite" class="active"><a href="#" onclick="javascript:ShowTab(\'entite\');">Entité</a></li>';
$onglets .= '<li id="li_personnes" class=""><a href="#" onclick="javascript:ShowTab(\'personnes\');">Personnes</a></li>';
$onglets .= '</ul><br>';
$tpl->set_var('onglets', $onglets);
// on affiche les infos sur l'entité
$CIL = InitPOReq($sql, $DBName);
$tmp = '<table>';
// l'user a t'il accès en lecture pour les champs spéciaux
//
$access = $user->HaveAccess($data['CATEGORIES_CAT_ID'], 'R');
if ($access == 'false') {
$access = $user->HaveAccess($data['CATEGORIES_CAT_ID'], 'W');
}
if ($access == 'false') {
$access = $user->HaveAccess($data['CATEGORIES_CAT_ID'], 'A');
}
// récupère le nom (éventuel) de la table virtuelle décrivant les champs spéciaux
$vtb_name = RecupLib("CATEGORIES", "CAT_ID", "CAT_VTBNAME", $data['CATEGORIES_CAT_ID']);
foreach ($CIL as $pobj) {
$NmChamp = $pobj->NmChamp;
if ($vtb_name && strstr($NmChamp, "PROPRIETE")) {
function RTbVChPO($req,$dbname="",$DirEcho=false) {
$TbObj=InitPOReq($req,$dbname);
foreach ($TbObj as $PO) {
$PO->TypEdit="C";
$PO->DirEcho=$DirEcho;
if ($PO->ValChp !="" && $PO->ValChp !="NULL") $TbVO[$PO->NmChamp]=$PO->Libelle.":|".$PO->EchoEditAll(false);
}
return($TbVO);
}