Subversion Repositories Applications.papyrus

Compare Revisions

Ignore whitespace Rev 128 → Rev 129

/trunk/papyrus/bibliotheque/fonctions/pap_menu.fonct.php
19,7 → 19,7
// | License along with this library; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: pap_menu.fonct.php,v 1.5 2004-11-04 12:51:45 jpm Exp $
// CVS : $Id: pap_menu.fonct.php,v 1.6 2004-11-08 17:39:32 jpm Exp $
/**
* Bibliothèque de fonction sur le rendu.
*
33,7 → 33,7
*@author Alexandre GRANIER <alexadandre@tela-botanica.org>
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.5 $ $Date: 2004-11-04 12:51:45 $
*@version $Revision: 1.6 $ $Date: 2004-11-08 17:39:32 $
// +------------------------------------------------------------------------------------------------------+
*/
 
196,48 → 196,6
}
}
 
/** Fonction GEN_etreFils() - Renvoie vrai si le premier argument (identifiant de menu) est un fils du second.
*
* Nous récupérons l'identifiant du père du menu passé en argument numéro 2. Puis,
* nous le comparons à l'argument 1. Si c'est les même on retourne faux. Sinon on rapelle
* la fonction avec l'identifiant du père trouvé pour l'argument 1. Ainsi de suite jusqu'a
* renvoyé vrai où tomber sur un menu racine (idetifiant du père = 0).
* Si les variable sont null nous retournons false.
* C'est une fonction récursive.
*
* @param integer identifiant d'un menu numéro 1.
* @param integer identifiant d'un menu numéro 2.
* @return boolean vrai si le menu numéro 1 est fils du second.
*/
function GEN_etreFils($id_menu_1, $id_menu_2)
{
//Test erreur
if (is_null($id_menu_1) || is_null($id_menu_2)) {
return false;
}
// Initialisation des variables.
global $db;
$requete = 'SELECT gmr_id_menu_01 '.
'FROM gen_menu_relation '.
'WHERE gmr_id_menu_02 = '.$id_menu_2.' '.
'AND gmr_id_valeur = 1 ';
$resultat = $db->query($requete);
(DB::isError($resultat)) ? die (BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
$resultat->free();
if ($ligne->gmr_id_menu_01 == 0) {
return false;
} else if ($ligne->gmr_id_menu_01 == $id_menu_1) {
return true;
} else {
return GEN_etreFils($id_menu_1, $ligne->gmr_id_menu_01);
}
}
 
/** Fonction GEN_lireIdentifiantMenuAncetre() - Renvoie l'identifiant du menu ancètre du menu passé en paramètre.
*
* Cette fonction parcours la table gen_menu_relation et retourne l'identifiant du
479,6 → 437,9
 
/* +--Fin du code ---------------------------------------------------------------------------------------+
* $Log: not supported by cvs2svn $
* Revision 1.5 2004/11/04 12:51:45 jpm
* Suppression de message de débogage.
*
* Revision 1.4 2004/11/04 12:23:50 jpm
* Nouvelles fonctions sur les menus frères.
*