Subversion Repositories Applications.papyrus

<?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.19 2005-05-25 13:46:58 jpm 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>

*@author        Laurent COUDOUNEAU <laurent.coudouneau@ema.fr>

*@copyright     Tela-Botanica 2000-2004

*@version       $Revision: 1.19 $ $Date: 2005-05-25 13:46:58 $

// +------------------------------------------------------------------------------------------------------+

*/

// +------------------------------------------------------------------------------------------------------+

// |                                            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 delaquelle 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_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 erreur

    if (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 ($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 racine

    if ($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)

{

    //----------------------------------------------------------------------------

    // Gestion des erreurs

    //----------------------------------------------------------------------------

    // 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_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 erreurs

    if ($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 code

    if ($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  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, $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 .= 'OR gm_mots_cles LIKE "%'.$tab_mots[$i].'%" ';

        }

    }

    $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].'%" ';

        }

    }

    $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 = '', $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 = '';

    }

    // 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 '.

                'AND gm_id_menu = gmc_ce_menu '.

                'AND gmc_bool_dernier = 1 '.

                $site.

                $type_modif.

                '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())

{

    $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)) {

            $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'], $aso_site_menus[$id_pere]);

        }

    }

    return $aso_site_menus;

}

/* +--Fin du code ---------------------------------------------------------------------------------------+

* $Log: not supported by cvs2svn $

* 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 ----------------------------------------------------------------------------------------+

*/

?>