Rev 1846 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<?php/*vim: set expandtab tabstop=4 shiftwidth=4: */// +------------------------------------------------------------------------------------------------------+// | PHP version 4.1 |// +------------------------------------------------------------------------------------------------------+// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |// +------------------------------------------------------------------------------------------------------+// | This library is free software; you can redistribute it and/or |// | modify it under the terms of the GNU Lesser General Public |// | License as published by the Free Software Foundation; either |// | version 2.1 of the License, or (at your option) any later version. |// | |// | This library is distributed in the hope that it will be useful, |// | but WITHOUT ANY WARRANTY; without even the implied warranty of |// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |// | Lesser General Public License for more details. |// | |// | You should have received a copy of the GNU Lesser General Public |// | 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.34 2008-08-08 14:42:14 jp_milcent Exp $/*** Bibliothèque de fonction sur le rendu.** Cette bibliothèque contient des fonctions utilisé par le rendu des pages de Papyrus.**@package Papyrus*@subpackage Fonctions//Auteur original :*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>//Autres auteurs :*@author Alexandre GRANIER <alexadandre@tela-botanica.org>*@copyright Tela-Botanica 2000-2004*@version $Revision: 1.34 $ $Date: 2008-08-08 14:42:14 $// +------------------------------------------------------------------------------------------------------+*/// +------------------------------------------------------------------------------------------------------+// | LISTE des FONCTIONS |// +------------------------------------------------------------------------------------------------------+/** Fonction GEN_donnerProfondeurMax() - Renvoie le nombre de niveau de menu.** Cette fonction calcule, pour un menu donné, le nombre de niveau de menu fils complétant* l'arbre des menus jusqu'au feuilles.* Ici on l'utilise en passant l'argument égal à zéro c'est à dire* en partant du menu racine d'un site gmr_id_menu_02 = 0.* C'est une fonction récursive.* Noter que la variable $prof est statique.** @param integer identifiant du site sur lequel la profondeur est calculé.* @param integer identifiant du menu à partir duquel on souhaite calculer la profondeur.* @return integer le nombre de niveau de menu.*/function GEN_donnerProfondeurMax($id_site, $id_menu){global $db;static $prof = 0;// Requête sur les relations de type "avoir père" entre menus$requete = 'SELECT gmr_id_menu_01 '.'FROM gen_menu, gen_menu_relation '.'WHERE gmr_id_menu_02 = '.$id_menu.' '.'AND gmr_id_menu_01 = gm_id_menu '.'AND gm_ce_site = '.$id_site.' '.'AND gmr_id_valeur = 1 '.'ORDER BY gmr_ordre ASC';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';if ($resultat->numRows() == 0) {return $prof;}$prof++;while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {$prof = GEN_donnerProfondeurMax($id_site, $ligne->gmr_id_menu_01);}return $prof;}/** Fonction GEN_donnerProfondeur() - Renvoie le niveau du menu.** Cette fonction calcule, pour un menu donné, son niveau par rapport à la racine.* C'est une fonction récursive.* Noter que la variable $prof est statique.** @param integer identifiant du site sur lequel la profondeur est calculé.* @param integer identifiant du menu dont on souhaite connaître la profondeur.* @param integer profondeur de départ (par défaut 0). Ne devrait pas être modifié...* @return integer le nombre de niveau de menu.*/function GEN_donnerProfondeur($id_site, $id_menu, $prof = 0){global $db;// Requête sur les relations de type "avoir père" entre menus$requete = 'SELECT gmr_id_menu_02 '.'FROM gen_menu, gen_menu_relation '.'WHERE gmr_id_menu_01 = '.$id_menu.' '.'AND gmr_id_menu_01 = gm_id_menu '.'AND gm_ce_site = '.$id_site.' '.'AND gmr_id_valeur = 1 '.'ORDER BY gmr_ordre ASC';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';if ($resultat->numRows() != 0) {while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {$prof = GEN_donnerProfondeur($id_site, $ligne->gmr_id_menu_02, ++$prof);}}return $prof;}/** Fonction GEN_donnerDernierFreres() - Renvoie l'id du dernier menu frère.** Cette fonction regarde si un menu donné possède au moins un frère dans l'arbre* des menus. Elle retourne l'id du dernier menu frére en utilisant gmr_ordre.* Cette fonction fait appel à la fonction : GEN_lireIdentifiantMenuPere().** @param integer identifiant du menu.* @return boolean renvoi l'id du dernier menu frère sinon faux.*/function GEN_donnerDernierFreres($id_menu){// Initialisation des variables.global $db;$requete = 'SELECT gmr_id_menu_01 '.'FROM gen_menu_relation '.'WHERE gmr_id_menu_02 = '.GEN_lireIdentifiantMenuPere($id_menu).' '.'AND gmr_id_valeur = 1 '.'AND gmr_id_menu_01 <> '.$id_menu.' '.'ORDER BY gmr_ordre DESC';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);if ($resultat->numRows() > 0) {return $ligne->gmr_id_menu_01;} else {return false;}}/** Fonction GEN_etreFreres() - Renvoie vrai si les menus ont le même père.** Cette fonction regarde si deux menus donnés sont frères dans l'arbre* des menus. Nous regardons si les menus ont le même identifiant comme père.** @param integer identifiant du premier menu.* @param integer identifiant du seconde menu.* @return boolean renvoi vrai si les deux menus sont frères sinon faux.*/function GEN_etreFreres($id_menu_1, $id_menu_2){// Initialisation des variables.global $db;$requete = 'SELECT gmr_id_menu_02 '.'FROM gen_menu_relation '.'WHERE gmr_id_menu_01 = '.$id_menu_1.' '.'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);$id_pere_1 = $ligne->gmr_id_menu_02;$resultat->free();$requete = 'SELECT gmr_id_menu_02 '.'FROM gen_menu_relation '.'WHERE gmr_id_menu_01 = '.$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);$id_pere_2 = $ligne->gmr_id_menu_02;$resultat->free();return ($id_pere_1 == $id_pere_2);}/** Fonction GEN_etreAncetre() - Renvoie vrai si le premier argument (identifiant de menu) est un ancètre 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 2. 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 ancètre du second.*/function GEN_etreAncetre($id_menu_1, $id_menu_2){//Test erreurif (is_null($id_menu_1) || is_null($id_menu_2)) {return false;}// Initialisation des variables.global $db;$requete = 'SELECT gmr_id_menu_02 '.'FROM gen_menu_relation '.'WHERE gmr_id_menu_01 = '.$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 (isset($ligne)) {if ($ligne->gmr_id_menu_02 == 0) {return false;} else if ($ligne->gmr_id_menu_02 == $id_menu_1) {return true;} else {return GEN_etreAncetre($id_menu_1, $ligne->gmr_id_menu_02);}}}/** 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* menu dont le père est le menu racine (identifiant = 0) pour le menu passé en paramètre.** @global mixed objet Pear DB de connexion à la base de données..* @param int identifiant du menu dont il faut rechercher le père.* @return int identifiant du menu ancètre du menu passé en paramètre.*/function GEN_lireIdentifiantMenuAncetre($id_menu){global $db;// On teste si on est au niveau d'un menu racine i.e GM_ID_PERE=0$requete = 'SELECT gmr_id_menu_02 '.'FROM gen_menu_relation '.'WHERE gmr_id_menu_01 = '.$id_menu.' '.'AND gmr_id_valeur = 1 ';// 1 = avoir "père"$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);$resultat->free();// Dans le cas où le menu en paramètre est un menu racineif ($ligne->gmr_id_menu_02 == 0) {return $id_menu;}return GEN_lireIdentifiantMenuAncetre($ligne->gmr_id_menu_02);}/** Fonction GEN_lireIdentifiantMenuPere() - Renvoie l'identifiant du père du menu passé en paramètre.** Cette fonction parcours la table gen_menu_relation et retourne l'identifiant du* menu père du menu passé en paramètre.** @global mixed objet Pear DB de connexion à la base de données..* @param int l'identifiant du fils* @param mixed une instance de la classse Pear DB.* @return mixed l'identifiant du père,ou false en cas d'erreur.*/function GEN_lireIdentifiantMenuPere($id_menu, $db = null){if (is_null($db)) {$db =& $GLOBALS['_GEN_commun']['pear_db'];}$requete = 'SELECT gmr_id_menu_02 '.'FROM gen_menu_relation '.'WHERE gmr_id_menu_01 = '.$id_menu.' '.'AND gmr_id_valeur = 1 ';// 1 = avoir "père"$resultat = $db->getOne($requete) ;(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';return $resultat;}/** Fonction GEN_lireInfoMenu() - Renvoie un objet ou un tableau contenant une ligne de la table gen_menu** Retourne la ligne de la table gen_menu concernant le menu ayant pour identifiant la valeur* passée en paramètre.* Ancien nom : getLevel()** @param mixed une instance de la classse Pear DB.* @param int l'identifiant d'un menu.* @param string le mode dans Pear DB dans lequel on veut recevoir les infos du menu.* @return mixed un objet ou tableau résultat de Pear DB contenant une ligne de la table gen_menu, ou false en cas d'erreur.*/function GEN_lireInfoMenu(&$db, $id_menu, $mode = DB_FETCHMODE_OBJECT){//----------------------------------------------------------------------------// Recherche des informations sur le menu$requete = 'SELECT * '.'FROM gen_menu '.'WHERE gm_id_menu = '.$id_menu;$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';if ($resultat->numRows() != 1) {return false;}//----------------------------------------------------------------------------// Récupération des infos$info_menu = $resultat->fetchRow($mode);$resultat->free();return $info_menu;}/** Fonction GEN_retournerMenuCodeNum() - Renvoie le code num d'un menu en fonction du code Alphanumérique** Retourne le code numérique d'un menu en fonction du code alphanumérique.** @param mixed une instance de la classse Pear DB.* @param string le code alphanumérique d'un menu.* @return mixed le code numérique du menu sinon false.*/function GEN_retournerMenuCodeNum($db, $code_alphanum){//----------------------------------------------------------------------------// Recherche des informations sur le menu$requete = 'SELECT gm_code_num '.'FROM gen_menu '.'WHERE gm_code_alpha = "'.$code_alphanum.'"';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';if ($resultat->numRows() != 1) {return false;}//----------------------------------------------------------------------------// Récupération des infos$info_menu = $resultat->fetchRow(DB_FETCHMODE_OBJECT);$code_num = $info_menu->gm_code_num;$resultat->free();return $code_num;}/** Fonction GEN_retournerMenuCodeAlpha() - Renvoie le code alphanumérique d'un menu en fonction du code numérique** Retourne le code alphanumérique d'un menu en fonction du code numérique.** @param mixed une instance de la classse Pear DB.* @param string le code numérique d'un menu.* @return mixed le code alphanumérique du menu sinon false.*/function GEN_retournerMenuCodeAlpha($db, $code_num){//----------------------------------------------------------------------------// Recherche des informations sur le menu$requete = 'SELECT gm_code_alpha '.'FROM gen_menu '.'WHERE gm_code_num = '.$code_num;$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';if ($resultat->numRows() != 1) {return false;}//----------------------------------------------------------------------------// Récupération des infos$info_menu = $resultat->fetchRow(DB_FETCHMODE_OBJECT);$code_alphanum = $info_menu->gm_code_alpha;$resultat->free();return $code_alphanum;}/** Fonction GEN_lireContenuMenu() - Renvoie un objet ou un tableau contenant une ligne de la table gen_menu_contenu** Retourne la ligne de la table gen_menu_contenu concernant le menu ayant pour identifiant la valeur* passée en paramètre. Seul la dernière version du contenu du menu est retourné.** @param mixed une instance de la classse Pear DB.* @param int l'identifiant d'un menu.* @param string le mode dans Pear DB dans lequel on veut recevoir les infos du menu.* @return mixed un objet ou tableau résultat de Pear DB contenant une ligne de la table gen_menu_contenu, ou false en cas d'erreur.*/function GEN_lireContenuMenu(&$db, $id_menu, $mode = DB_FETCHMODE_OBJECT){//----------------------------------------------------------------------------// Gestion des erreurs//----------------------------------------------------------------------------// Recherche des informations sur le menu$requete = 'SELECT * '.'FROM gen_menu_contenu '.'WHERE gmc_ce_menu = '.$id_menu.' '.'AND gmc_bool_dernier = 1';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';if ($resultat->numRows() != 1) {return false;}//----------------------------------------------------------------------------// Récupération des infos$info_menu = $resultat->fetchRow($mode);$resultat->free();return $info_menu;}/** Fonction GEN_lireContenuMenuHistorique() - Renvoie un objet ou un tableau contenant une ligne de la table gen_menu_contenu** Retourne la ligne de la table gen_menu_contenu concernant le menu ayant pour identifiant la valeur* passée en paramètre. Toutes les versions archivées du contenu du menu sont retournées.** @param mixed une instance de la classse Pear DB.* @param int l'identifiant d'un menu.* @param string le mode dans Pear DB dans lequel on veut recevoir les infos du menu.* @return mixed un objet ou tableau résultat de Pear DB contenant une ligne de la table gen_menu_contenu, ou false en cas d'erreur.*/function GEN_lireContenuMenuHistorique(&$db, $id_menu, $mode = DB_FETCHMODE_OBJECT){//----------------------------------------------------------------------------// Gestion des erreurs//----------------------------------------------------------------------------// Recherche des informations sur le menu$requete = 'SELECT * '.'FROM gen_menu_contenu '.'WHERE gmc_ce_menu = '.$id_menu;$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';if ($resultat->numRows() < 1) {return false;}$resultat =& $db->query($requete);(PEAR::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';while ($menu_contenu = $resultat->fetchRow($mode)) {$aso_info[] = $menu_contenu;}return $aso_info;}/** Fonction GEN_retournerMenus() - Renvoie un tableau contenant les id de l'ensemble des menus** Retourne un tableau contenant les id de l'ensemble des menus des différents sites de Papyrus.** @param mixed une instance de la classse Pear DB.* @return array tableau contenant les id de chaque menu.*/function GEN_retournerMenus(&$db){//----------------------------------------------------------------------------// Gestion des erreurs//----------------------------------------------------------------------------// Recherche des informations sur le menu$requete = 'SELECT gm_id_menu '.'FROM gen_menu ';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';//----------------------------------------------------------------------------// Récupération des infos$tab_retour = array();while ($info_menu = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {array_push($tab_retour, $info_menu->gm_id_menu);}$resultat->free();return $tab_retour;}/** Fonction GEN_lireInfoMenuRelation() - Renvoie un objet ou un tableau contenant une ligne de la table gen_menu_relation** Par défaut recherche une relation de type père.* Ancien nom : getMenuRelation().** @param mixed Une instance de la classse PEAR_DB* @param int l'identifiant d'un menu.* @param int l'identifiant d'une valeur de relation.* @param string le mode dans Pear DB dans lequel on veut recevoir les infos du menu.* @return mixed un objet ou tableau résultat Pear DB, ou false en cas d'erreur.*/function GEN_lireInfoMenuRelation(&$db, $menuid, $id_valeur = 1, $mode = DB_FETCHMODE_OBJECT){//----------------------------------------------------------------------------// Recherche des informations sur la relation de menu$requete = 'SELECT * '.'FROM gen_menu_relation '.'WHERE gmr_id_menu_01 = '.$menuid.' '.'AND gmr_id_valeur = '.$id_valeur;$result = $db->query($requete);(DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';if ($result->numRows() != 1) {return false;}//----------------------------------------------------------------------------// Récupération des infos$info_menu_relation = $result->fetchRow($mode);$result->free();return $info_menu_relation;}/** Fonction GEN_verifierPresenceCodeMenu() - Vérifie l'existence d'un code de menu** Permet de vérifier dans la base de données si le code fournie (alphanumérique ou numérique) a déjà* été attribué à un menu ou pas!** @param mixed Une instance de la classse PEAR_DB* @param string le type du code (int ou string).* @param integer l'identifiant du menu courant.* @param mixed le code numérique ou alphanumérique.* @return mixed retourne l'identifiant du menu possédant le code sinon false.*/function GEN_verifierPresenceCodeMenu(&$db, $type, $id_menu, $code){// Gestion des erreursif ($code == '') {return true;}// Requete pour vérifier l'abscence du code numérique et alphanumérique de la table gen_menu$requete = 'SELECT gm_id_menu '.'FROM gen_menu '.'WHERE gm_id_menu <> '.$id_menu.' ';// Complément de requête en fonction du type de codeif ($type == 'int') {$requete .= 'AND gm_code_num = '.$code;} else {$requete .= 'AND gm_code_alpha = "'.$code.'"';}$resultat = $db->query($requete);if (DB::isError($resultat)) {die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );}$nombre_reponse = $resultat->numRows();if ($nombre_reponse >= 1) {return true;} else {return false;}}/** Fonction GEN_lireInfoMenuMotsCles() - Renvoie un objet ou un tableau contenant des lignes de la table gen_menu** Renvoie un objet ou un tableau contenant une ligne de la table gen_menu en fonction des mots clés présents dans* la table gen_menu.** @param mixed Une instance de la classse PEAR_DB* @param array un tableau de mots clés.* @param string la condition séparant chaque rechercher de mots-clés (AND ou OR).* @param string l'ordre d'affichage des Menus (ASC ou DESC).* @param string le mode dans Pear DB dans lequel on veut recevoir les infos du menu.* @param boolean true pour grouper les résultats (voir Pear DB : getAssoc() ) sinon false.* @return mixed un objet ou tableau résultat Pear DB, ou false en cas d'erreur.*/function GEN_lireInfoMenuMotsCles(&$db, $tab_mots, $condition = 'OR', $ordre = 'ASC', $mode = DB_FETCHMODE_OBJECT, $groupe = false){//----------------------------------------------------------------------------// Recherche des informations sur les menus en fonctions des mots clés$requete = 'SELECT DISTINCT * '.'FROM gen_menu '.'WHERE ';for ($i = 0; $i < count($tab_mots); $i++) {if ($i == 0) {$requete .= 'gm_mots_cles LIKE "%'.$tab_mots[$i].'%" ';} else {$requete .= $condition.' gm_mots_cles LIKE "%'.$tab_mots[$i].'%" ';}}$requete .= 'ORDER BY gm_date_creation '.$ordre;$aso_info =& $db->getAssoc($requete, false, array(), $mode, $groupe);(PEAR::isError($aso_info)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $aso_info->getMessage(), $requete)) : '';return $aso_info;}/** Fonction GEN_lireInfoMenuMeta() - Renvoie un objet ou un tableau contenant des lignes de la table gen_menu** Renvoie un objet ou un tableau contenant une ligne de la table gen_menu en fonction des mots clés,* catégories, id_menu,* la table gen_menu.** @param mixed Une instance de la classse PEAR_DB* @param array un tableau de mots clés.* @param string la condition séparant chaque rechercher de mots-clés (AND ou OR).* @param string l'ordre d'affichage des Menus (ASC ou DESC).* @param string le mode dans Pear DB dans lequel on veut recevoir les infos du menu.* @param boolean true pour grouper les résultats (voir Pear DB : getAssoc() ) sinon false.* @return mixed un objet ou tableau résultat Pear DB, ou false en cas d'erreur.*/function GEN_lireInfoMenuMeta(&$db, $tab_mots, $tab_cat, $condition = 'OR', $condition2 = 'OR', $ordre = 'ASC', $mode = DB_FETCHMODE_OBJECT, $groupe = false){//----------------------------------------------------------------------------// Recherche des informations sur les menus en fonctions des mots clés$requete = 'SELECT DISTINCT * '.'FROM gen_menu '.'WHERE ';for ($i = 0; $i < count($tab_mots); $i++) {if ($tab_mots[$i] != '') {if ($i == 0) {$requete .= 'gm_mots_cles LIKE "%'.$tab_mots[$i].'%" ';} else {$requete .= $condition.' gm_mots_cles LIKE "%'.$tab_mots[$i].'%" ';}}}if (count($tab_mots) != 0 && $tab_cat[0] != '') {$requete .= 'AND ' ;}for ($i = 0; $i < count($tab_cat); $i++) {if ($tab_cat[$i] != '') {if ($i == 0) {$requete .= 'gm_categorie LIKE "%'.$tab_cat[$i].'%" ';} else {$requete .= $condition2.' gm_categorie LIKE "%'.$tab_cat[$i].'%" ';}}}$requete .= 'ORDER BY gm_date_creation '.$ordre;$aso_info =& $db->getAssoc($requete, false, array(), $mode, $groupe);(PEAR::isError($aso_info)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $aso_info->getMessage(), $requete)) : '';return $aso_info;}/** Fonction GEN_lireInfoMenuCategorie() - Renvoie un objet ou un tableau contenant des lignes de la table gen_menu** Renvoie un objet ou un tableau contenant une ligne de la table gen_menu en fonction des catégories présentes dans* la table gen_menu.** @param mixed Une instance de la classse PEAR_DB* @param array un tableau de catégorie(s).* @param string le mode dans Pear DB dans lequel on veut recevoir les infos du menu.* @param boolean true pour grouper les résultats (voir Pear DB : getAssoc() ) sinon false.* @return mixed un objet ou tableau résultat Pear DB, ou false en cas d'erreur.*/function GEN_lireInfoMenuCategorie(&$db, $tab_categories, $mode = DB_FETCHMODE_OBJECT, $groupe = false){//----------------------------------------------------------------------------// Recherche des informations sur les menus en fonctions des mots clés$requete = 'SELECT DISTINCT * '.'FROM gen_menu '.'WHERE ';for ($i = 0; $i < count($tab_categories); $i++) {if ($i == 0) {$requete .= 'gm_categorie LIKE "%'.$tab_categories[$i].'%" ';} else {$requete .= 'OR gm_categorie LIKE "%'.$tab_categories[$i].'%" ';}}$requete .= 'ORDER BY gm_date_creation DESC';$aso_info =& $db->getAssoc($requete, false, array(), $mode, $groupe);(PEAR::isError($aso_info)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $aso_info->getMessage(), $requete)) : '';return $aso_info;}/** Fonction GEN_lireInfoMenuContenuDate() - Renvoie un objet ou un tableau contenant des lignes de la table gen_menu** Renvoie un objet ou un tableau contenant une ligne de la table gen_menu en fonction des catégories présentes dans* la table gen_menu.** @param mixed Une instance de la classse PEAR_DB* @param array le type de modification.* @param array le code alphanumérique du site ou de plusieurs sites séparés par des virgules.* @param string le mode dans Pear DB dans lequel on veut recevoir les infos du menu.* @param boolean true pour grouper les résultats (voir Pear DB : getAssoc() ) sinon false.* @return mixed un objet ou tableau résultat Pear DB, ou false en cas d'erreur.*/function GEN_lireInfoMenuContenuDate(&$db, $type_modif = '', $site = '', $categorie='', $mode = DB_FETCHMODE_OBJECT, $groupe = false){$type_modif_sql = 'AND gmc_ce_type_modification IN (%s) ';if (!empty($type_modif)) {$type_modif = sprintf($type_modif_sql, $type_modif);} else {$type_modif = sprintf($type_modif_sql, '1, 2');}$site_sql = 'AND gs_code_alpha IN (%s) ';if (!empty($site)) {$site = sprintf($site_sql, '"'.implode('", "', array_map('trim', explode(',', $site))).'"');} else {$site = '';}if (!empty($categorie)) {$categorie = 'AND gm_categorie like "%'.$categorie.'%"' ;} else {$categorie = '';}// Recherche des informations sur les menus en fonctions des mots clés$requete = 'SELECT DISTINCT gen_menu.*, gs_code_alpha, gmc_date_modification, gmc_resume_modification, gmc_ce_type_modification '.'FROM gen_site, gen_menu, gen_menu_contenu '.'WHERE gmc_date_modification <= "'.date('Y-m-d H:i:s', time()).'" '.'AND (gm_ce_site = gs_id_site OR gm_ce_site = 0) '.'AND gm_id_menu = gmc_ce_menu '.'AND gmc_bool_dernier = 1 '.$site.$type_modif.$categorie.'ORDER BY gmc_date_modification DESC';$aso_info =& $db->getAssoc($requete, false, array(), $mode, $groupe);(PEAR::isError($aso_info)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $aso_info->getMessage(), $requete)) : '';return $aso_info;}/** Fonction GEN_retournerTableauMenusSiteCodeAlpha() - Renvoie un tableau de tableau contenant des lignes de la table gen_menu** Renvoie un tableau de tableau contenant les lignes de la table gen_menu pour un site donné. Les tableaux sont imbriquées* pour reproduire l'arborescence des menus.** @param mixed Une instance de la classse PEAR_DB* @param string le code alphanumérique du site.* @return array un tableau de tableau contenant des lignes de la table gen_menu.*/function GEN_retournerTableauMenusSiteCodeAlpha($db, $site, $id_pere = 0, $aso_site_menus = array()){global $_GEN_commun;$id_langue = $_GEN_commun['i18n'];//identifiant de la langue choisieif ($id_langue != GEN_I18N_ID_DEFAUT) {$i18n_url=$id_langue;}if (isset($id_langue) && ($id_langue!='')) {$langue_test=$id_langue;} else {$langue_test=GEN_I18N_ID_DEFAUT;}$requete = 'SELECT gen_menu.* '.'FROM gen_site, gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.'WHERE GMR01.gmr_id_menu_02 = '.$id_pere.' '.'AND GMR01.gmr_id_menu_01 = gm_id_menu '.'AND gs_code_alpha = "'.$site.'" '.'AND gm_ce_site = gs_id_site '.'AND GMR01.gmr_id_valeur = 1 '.// 1 = avoir "père"'AND GMR02.gmr_id_menu_02 = gm_id_menu '.'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.'AND GMR02.gmr_id_valeur = 100 '.// 100 = type "menu classique"'ORDER BY GMR01.gmr_ordre ASC';$resultat = $db->query($requete);if (DB::isError($resultat)) {die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));}if ($resultat->numRows() > 0) {while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {$requete_restriction = 'SELECT gmr_id_menu_02 '.'FROM gen_menu_relation '.'WHERE '.$ligne['gm_id_menu'].' = gmr_id_menu_01 ' .'AND gmr_id_valeur = 106 ';// 106 restriction de menu$resultat_restriction = $db->query($requete_restriction);(DB::isError($resultat_restriction)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_restriction->getMessage(), $requete_restriction)): '';if ($resultat_restriction->numRows()>0 && $langue_test!=$ligne['gm_ce_i18n']) {$select_menu=0;}else {$select_menu=1;}// if ($select_menu) {$aso_site_menus[$ligne['gm_id_menu']] = $ligne;$aso_site_menus[$ligne['gm_id_menu']]['sous_menus'] = GEN_retournerTableauMenusSiteCodeAlpha($db, $site, $ligne['gm_id_menu']);// }}}return $aso_site_menus;}// Code menu --> Identifiant// Identifiant menu --> Identifiant version originale// Identifiant menu --> Identifiant version par défaut// Identifiant menu --> Contenu// Identifiant menu --> Contenu version originale// Identifiant menu --> Contenu version par défaut// Identifiant menu --> Identifiant version originale/** Fonction GEN_rechercheMenuIdentifiant() - Recherche code menu à partir de l'identifiant d'un site*** @param object objet Pear de connection à la base de données.*/function GEN_rechercheMenuIdentifiant($db, $id_menu){$requete = 'SELECT gm_code_num '.'FROM gen_menu '.'WHERE gm_id_menu = '.$id_menu.' ';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';$ligne = $resultat->fetchrow(DB_FETCHMODE_OBJECT);return $ligne->gm_code_num;}/** Fonction GEN_retournerIdMenuParCodeNum()** Recherche les info d'une menu à partir du code numérique du menu d'un site et en fonction de la langue.** @param object objet Pear de connection à la base de données.* @param integer code numérique du menu* @return identifiant menu*/function GEN_retournerIdMenuParCodeNum($db, $code_menu){// Si identifiant existe pour la langue choisie : retour identifiant// Si identifiant n'existe pas : retour identifiant de la langue par defaut :// Recherche de l'identifiant par defaut// Recherche de l'identifiant de la langue du site// Recherche de l'identifiant par defaut$id_langue = $GLOBALS['_GEN_commun']['i18n'];if (isset($id_langue) && ($id_langue!='')) {$langue_test=$id_langue;} else {$langue_test=GEN_I18N_ID_DEFAUT;}$requete = 'SELECT gm_id_menu, gm_code_num '.'FROM gen_menu '.'WHERE gm_code_num = '.$code_menu.' '.'AND gm_ce_i18n = "'.$langue_test.'" ';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';if ( $resultat->numRows() > 0 ) {$ligne = $resultat->fetchrow(DB_FETCHMODE_OBJECT);return $ligne->gm_id_menu;} else {// Recherche defaut :$requete = 'SELECT gm_id_menu, gm_code_num '.'FROM gen_menu '.'WHERE gm_code_num = '.$code_menu.' ';'AND gm_ce_i18n = "'.GEN_I18N_ID_DEFAUT.'" ';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';if ( $resultat->numRows() > 0 ) {$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);if ($langue_test!=GEN_I18N_ID_DEFAUT) {return GEN_rechercheMenuIdentifiantVersionParDefaut($db,$ligne->gm_id_menu);} else {return $ligne->gm_id_menu;}}}}/** Fonction GEN_rechercheMenuCode()** Allias de GEN_retournerIdMenuAvecCodeNum().** @param object objet Pear de connection à la base de données.* @param integer code numérique du menu* @return identifiant menu*/function GEN_rechercheMenuCode($db, $code_menu) {return GEN_retournerIdMenuParCodeNum($db, $code_menu);}/* Fonction GEN_rechercheContenu**/function GEN_rechercheContenu($db, $id_menu, $type_fetch = DB_FETCHMODE_OBJECT) {$requete = 'SELECT gmc_contenu , gmc_ce_type_contenu, gmc_ce_menu '.'FROM gen_menu_contenu '.'WHERE gmc_ce_menu = '.$id_menu.' '.'AND gmc_ce_type_contenu in (1,2) '.'AND gmc_bool_dernier = 1';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';// Rien trouvé ? : Pas encore de contenu// Recherche identifiant par défautif ( $resultat->numRows() == 0 ) {$id_menu_defaut = GEN_rechercheMenuIdentifiantVersionParDefaut($db,$id_menu);$requete = 'SELECT gmc_contenu , gmc_ce_type_contenu, gmc_ce_menu '.'FROM gen_menu_contenu '.'WHERE gmc_ce_menu = '.$id_menu_defaut.' '.'AND gmc_ce_type_contenu in (1,2) '.'AND gmc_bool_dernier = 1';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';if ( $resultat->numRows() == 0 ) {// Toujours rien ?// Tentative recherche dans la langue du site par defaut$id_menu_origine = GEN_rechercheMenuIdentifiantVersionOriginale($db, $id_menu);$requete = 'SELECT gmc_contenu , gmc_ce_type_contenu, gmc_ce_menu '.'FROM gen_menu_contenu '.'WHERE gmc_ce_menu = '.$id_menu_origine.' '.'AND gmc_ce_type_contenu in (1,2) '.'AND gmc_bool_dernier = 1';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';}}$ligne_contenu = $resultat->fetchRow($type_fetch);return $ligne_contenu;}function GEN_rechercheContenuIdentifiant($db, $id_contenu, $mode = DB_FETCHMODE_OBJECT) {$requete = 'SELECT gmc_contenu , gmc_ce_type_contenu, gmc_ce_menu, gmc_date_modification '.'FROM gen_menu_contenu '.'WHERE gmc_id_contenu = '.$id_contenu.' ';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';if ($resultat->numRows() != 1) {return false;}$ligne_contenu = $resultat->fetchRow($mode);return $ligne_contenu;}/** Fonction GEN_rechercheMenuIdentifiantVersionOriginale() - Recherche identifiant de la version orginale d'un menu*** @param object objet Pear de connection à la base de données.* @param identifiant menu* @return identifiant menu*/function GEN_rechercheMenuIdentifiantVersionOriginale($db, $id_menu) {$requete = 'SELECT gmr_id_menu_01 '.'FROM gen_menu_relation '.'WHERE gmr_id_menu_02 = ' . $id_menu .' '.'AND gmr_id_valeur = 2 '; // 2 = "avoir traduction"$resultat = $db->query($requete) ;if (DB::isError($resultat)) {die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );}if ($resultat->numRows() > 0) {$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);return $ligne->gmr_id_menu_01;}else {return $id_menu;}}/** Fonction GEN_rechercheMenuIdentifiantVersionParDefaut() - Recherche identifiant par defaut d'un menu*** @param object objet Pear de connection à la base de données.* @param identifiant menu* @return identifiant menu*/function GEN_rechercheMenuIdentifiantVersionParDefaut($db, $id_menu) {$identifiantVersionOrginale=GEN_rechercheMenuIdentifiantVersionOriginale($db, $id_menu);$requete = 'SELECT gmr_id_menu_02 '.'FROM gen_menu_relation '.'WHERE gmr_id_menu_01 = ' . $identifiantVersionOrginale .' '.'AND gmr_id_valeur = 105 '; // 105$resultat = $db->query($requete) ;if (DB::isError($resultat)) {die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );}if ($resultat->numRows() > 0) {$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);return $ligne->gmr_id_menu_02;}else {return $identifiantVersionOrginale;}}/* +--Fin du code ---------------------------------------------------------------------------------------+* $Log: not supported by cvs2svn $* Revision 1.33 2007-11-22 17:24:09 jp_milcent* Fusion avec la livraison AHA : 22 novembre 2007** Revision 1.32 2007-11-19 09:54:49 ddelon* Gestion des menus reservés à une langue** Revision 1.31 2007-06-26 15:39:46 jp_milcent* Ajout de fonctions utiles pour la gestion du contenu des menus.** Revision 1.30 2006-12-12 17:19:58 jp_milcent* Ajout de test supplémentaire pour éviter les erreurs.** Revision 1.29 2006/12/12 13:32:58 jp_milcent* Mise en forme.** Revision 1.28 2006/12/08 20:13:57 jp_milcent* Mise en allias de GEN_rechercherMenuCode(), remplacée par GEN_retournerIdMenuParCodeNum().** Revision 1.27 2006/10/16 15:50:10 ddelon* Refactorisation code mulitlinguisme et gestion menu invisibles** Revision 1.26 2006/03/02 10:49:49 ddelon* Fusion branche multilinguisme dans branche principale** Revision 1.25.2.1 2005/12/20 14:40:24 ddelon* Fusion Head vers Livraison** Revision 1.25 2005/11/08 17:43:46 ddelon* Bug Nouveaute ne s'affichant pas pour les menu communs** Revision 1.24 2005/09/20 17:01:22 ddelon* php5 et bugs divers** Revision 1.23 2005/08/29 09:05:12 ddelon* Suppression message debug** Revision 1.22 2005/07/08 15:16:37 alexandre_tb* ajout de la fonction GEN_lireInfoMenuMeta() qui permet de sélectionner des menus en fonction de leur mot clé et leur catégorie** Revision 1.21 2005/06/08 19:11:43 jpm* Ajout de ordre et condition pour la fonction de lecture des infos sur les menus.** Revision 1.20 2005/05/26 08:00:51 jpm* Correction dans la fonction GEN_retournerTableauMenusSiteCodeAlpha().** Revision 1.19 2005/05/25 13:46:58 jpm* Changement du sql de la fonction GEN_lireContenuMenu().** Revision 1.18 2005/04/19 17:21:19 jpm* Utilisation des références d'objets.** Revision 1.17 2005/04/18 16:41:25 jpm* Ajout d'une fonction pour récupérer tous les menus d'un site avec son code alphanumérique.** Revision 1.16 2005/04/14 17:40:31 jpm* Modification fonction pour les actions.** Revision 1.15 2005/04/14 13:56:53 jpm* Modification d'une ancienne fonction.** Revision 1.14 2005/04/12 16:13:50 jpm* Ajout de fonction renvoyant des infos sur un menu en fonction des mots clés, catégories ou date de modification du contenu.** Revision 1.13 2005/03/30 08:53:59 jpm* Ajout de fonctions permettant de récupérer les codes alphanumériques ou numériques en fonction de l'un ou de l'autre.** Revision 1.12 2005/02/28 11:12:03 jpm* Modification des auteurs.** Revision 1.11 2004/12/06 19:49:35 jpm* Ajout d'une fonction permettant de récupérer le contenu d'un menu.** Revision 1.10 2004/12/06 17:53:55 jpm* Ajout fonction GEN_retournerMenus().** Revision 1.9 2004/11/29 18:34:42 jpm* Correction bogue.** Revision 1.8 2004/11/10 17:25:51 jpm* Modification de fonction suite à des bogues.** Revision 1.7 2004/11/09 17:55:26 jpm* Suppresion de fonctions inutiles et mise en conformité.** Revision 1.6 2004/11/08 17:39:32 jpm* Suppression d'une fonction inutile.* GEN_etreFils() n'est pas utile. On peut utiliser GEN_etreAncetre() à la place.** 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.** Revision 1.3 2004/10/25 14:16:21 jpm* Suppression de code commenté.** Revision 1.2 2004/10/21 18:15:21 jpm* Ajout de gestion d'erreur aux fonctions.** Revision 1.1 2004/06/15 15:11:37 jpm* Changement de nom et d'arborescence de Genesia en Papyrus.** Revision 1.43 2004/05/05 06:13:27 jpm* Extraction de la fonction générant le "vous êtes ici", transformée en applette.** Revision 1.42 2004/05/04 16:24:06 jpm* Amélioration de la fonction générant le "vous êtes ici".** Revision 1.41 2004/05/04 16:17:31 jpm* Ajout de la fonction générant le "vous êtes ici".** Revision 1.40 2004/05/03 11:18:17 jpm* Normalisation de deux fonctions issues du fichier fontctions.php.** Revision 1.39 2004/05/01 16:17:11 jpm* Suppression des fonctions liées à la création des listes de menu. Elles ont été transformées en applette.** Revision 1.38 2004/05/01 11:43:16 jpm* Suppression des fonction GEN_afficherMenuCommun() et GEN_afficherSelecteurSites() transformées en applette.** Revision 1.37 2004/04/30 16:18:41 jpm* Correction d'un bogue dans les fonctions de gestion des scripts.** Revision 1.36 2004/04/28 12:04:40 jpm* Changement du modèle de la base de données.** Revision 1.35 2004/04/09 16:23:41 jpm* Prise en compte des tables i18n.** Revision 1.34 2004/04/02 16:34:44 jpm* Extraction de variable globale des fonction, remplacé par un passage en paramètre.** Revision 1.33 2004/04/01 11:24:51 jpm* Ajout et modification de commentaires pour PhpDocumentor.** Revision 1.32 2004/03/31 16:52:30 jpm* Modification du code vis à vis du modèle revision 1.9 de Génésia.** Revision 1.31 2004/03/29 17:13:05 jpm* Suppression de fonction, passer en code classique.** Revision 1.30 2004/03/27 11:11:58 jpm* Début changement nom de variable dans fonction creerInfoPageEtApplication().** Revision 1.29 2004/03/26 12:52:25 jpm* Ajout des fonctions creerInfoPageEtApplication() et donnerIdPremiereApplicationLiee().** +-- Fin du code ----------------------------------------------------------------------------------------+*/?>