Subversion Repositories Applications.papyrus

Rev

Rev 197 | Rev 317 | Go to most recent revision | 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 file is part of Papyrus.                                                                        |
// |                                                                                                      |
// | Foobar is free software; you can redistribute it and/or modify                                       |
// | it under the terms of the GNU General Public License as published by                                 |
// | the Free Software Foundation; either version 2 of the License, or                                    |
// | (at your option) any later version.                                                                  |
// |                                                                                                      |
// | Foobar 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 General Public License for more details.                                                         |
// |                                                                                                      |
// | You should have received a copy of the GNU General Public License                                    |
// | along with Foobar; if not, write to the Free Software                                                |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: adme_menu_commun.fonct.php,v 1.9 2005-01-24 11:28:09 jpm Exp $
/**
* Application de gestion des menus communs
*
* Permet de lister, d'ajouter, de modifier, et de déplacer des menus communs.
* Par menus communs, nous entendons tous les menus devant paraitre sur l'ensemble des pages de plusieurs site,
* comme le lien vers le plan du site, le lien vers la charte d'accessibilité, le flux rss...
*
*@package Admin_menu
*@subpackage Fonctions
//Auteur original :
*@author        Laurent COUDOUNEAU <lc@gsite.org>
//Autres auteurs :
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
*@copyright     Tela-Botanica 2000-2004
*@version       $Revision: 1.9 $ $Date: 2005-01-24 11:28:09 $
// +------------------------------------------------------------------------------------------------------+
*/

// +------------------------------------------------------------------------------------------------------+
// |                                            ENTÊTE du PROGRAMME                                       |
// +------------------------------------------------------------------------------------------------------+


// +------------------------------------------------------------------------------------------------------+
// |                                            CORPS du PROGRAMME                                        |
// +------------------------------------------------------------------------------------------------------+


// +------------------------------------------------------------------------------------------------------+
// |                                           LISTE de FONCTIONS                                         |
// +------------------------------------------------------------------------------------------------------+
/** Fonction ADME_afficherListeMenuClassique () - Affiche un arbre de menu en xhtml
*
* Elle forme l'arbre des menus communs à administrer.
* Ancien nom : deployer_menu().
*
* @param  object objet Pear de connection à la base de données.
* @param  object objet Pear représentant l'url de base.
* @param  integer l'identifiant du menu à administrer.
* @param  integer l'identifiant du menu sur lequel on agit.
* @param  string le nom de l'action courante.
* @param  integer l'identifiant du menu en cours de déploiement.
* @param  boolean true indique que l'on a à faire au premier appel de cette fonction récursive.
* @return string  le code XHTML constituant l'arbre des menus à administrer.
*/
function ADME_afficherListeMenuCommun($db, $url, $adme_site_id, $adme_menu_id, $adme_action, $id_menu_a_deployer, $bln_premier_appel = true)
{
    // Initialisation des variables :
    $retour = '';
    
    // Est-ce que ces menus comporte des sous-menus ?
    $requete_sous_menu =    'SELECT gm_id_menu '.
                            'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
                            'WHERE GMR01.gmr_id_menu_02 = '.$id_menu_a_deployer.' '.
                            'AND GMR01.gmr_id_menu_01 = gm_id_menu '.
                            //'AND gm_ce_site = '.$adme_site_id.' '.
                            '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 = 102 '.// 102 = type "menu commun"
                            'ORDER BY GMR01.gmr_ordre ASC';
    
    $resultat_sous_menu = $db->query($requete_sous_menu) ;
    if (DB::isError($resultat_sous_menu)) {
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_sous_menu->getMessage(), $requete_sous_menu));
    }
    
    // Gestion du stockage ou déstockage des menus ouverts
    if (($adme_action == ADME_LG_ACTION_DEPLIER || $adme_action == ADME_LG_ACTION_COMMUN_AJOUTER) && $id_menu_a_deployer != 0) {
        $_SESSION['adme_menus_communs_ouverts'][$adme_menu_id] = $adme_menu_id;
    }
    if ($adme_action == ADME_LG_ACTION_PLIER && $id_menu_a_deployer != 0) {
        unset($_SESSION['adme_menus_communs_ouverts'][$adme_menu_id]);
        foreach ($_SESSION['adme_menus_communs_ouverts'] as $val) {
            if (GEN_etreAncetre($adme_menu_id, $val)) {
                unset($_SESSION['adme_menus_communs_ouverts'][$val]);
            }
        }
    }
    
    // Gestion affichage des menus
    if ($resultat_sous_menu->numRows() > 0) {
        // Ici, on sait qu'un menu a des sous menus, on commence par l'afficher:
        if ($bln_premier_appel == false) {
            $retour .= '<li>'."\n";
            
            if (GEN_etreAncetre($id_menu_a_deployer, $adme_menu_id) || 
                ($id_menu_a_deployer == $adme_menu_id && $adme_action == ADME_LG_ACTION_DEPLIER) || 
                isset($_SESSION['adme_menus_communs_ouverts'][$id_menu_a_deployer])
                ){
                // Affiche un -
                $retour .= ADME_retournerXhtmlMenuCommun($db, $url, $adme_site_id, $id_menu_a_deployer, 1);
            } else if ( !GEN_etreAncetre($id_menu_a_deployer, $adme_menu_id) || 
                        ($id_menu_a_deployer == $adme_menu_id && $adme_action == ADME_LG_ACTION_PLIER) || 
                        !isset($_SESSION['adme_menus_communs_ouverts'][$id_menu_a_deployer])
                        ){
                // Affiche un +
                $retour .= ADME_retournerXhtmlMenuCommun($db, $url, $adme_site_id, $id_menu_a_deployer, 2);
            }
        }
        if ($bln_premier_appel == true || GEN_etreAncetre($id_menu_a_deployer, $adme_menu_id) || 
            ($id_menu_a_deployer == $adme_menu_id && $adme_action == ADME_LG_ACTION_DEPLIER) || 
            isset($_SESSION['adme_menus_communs_ouverts'][$id_menu_a_deployer])
            ){
            $retour .= '<ul>'."\n";
            while ($ligne_sous_menu = $resultat_sous_menu->fetchRow(DB_FETCHMODE_OBJECT)) {
                $retour .= ADME_afficherListeMenuCommun($db, $url, $adme_site_id, $adme_menu_id, $adme_action, $ligne_sous_menu->gm_id_menu, false);
            }
            $retour .= '</ul>'."\n";
        }
        if ($bln_premier_appel == false) {
            $retour .= '</li>'."\n";
        }
    } else if ($resultat_sous_menu->numRows() == 0 && $bln_premier_appel == false) {
        $retour .= '<li>'."\n";
        $retour .= ADME_retournerXhtmlMenuCommun($db, $url, $adme_site_id, $id_menu_a_deployer, 0);
        $retour .= '</li>'."\n";
    }
    
    return $retour;
}

/** Fonction ADME_retournerXhtmlMenuCommun() - Effectue une sortie d'un menu en XHTML
*
* Retourne le XHTML d'une ligne de l'arbre des menus communs permettant de l'administer.
* Ancien nom : menu_toHtml().
*
* @param  object objet Pear de connection à la base de données.
* @param  object objet Pear représentant l'url de base.
* @param  integer l'identifiant du site à administrer.
* @param  integer l'identifiant du menu à administrer.
* @param  integer 0 indique que le menu ne possède pas de fils, 1 qu'il faut afficher un - et 2 un +.
* @return  string une ligne de liste XHTML
*/
function ADME_retournerXhtmlMenuCommun($db, $url, $adme_site_id, $adme_menu_id, $int_deplier)
{
    //-------------------------------------------------------------------------------------------------------------------
    // Récupération des infos concernant l'administrateur d'un menu
    $requete =  'SELECT gen_menu.*, ga_prenom '.
                'FROM gen_menu, gen_annuaire '.
                'WHERE gm_id_menu = '.$adme_menu_id.' '.
                'AND gm_ce_admin = ga_id_administrateur';
    
    $resultat = $db->query($requete);
    if (DB::isError($resultat)) {
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
    }
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
    
    //-------------------------------------------------------------------------------------------------------------------
    // Recupération des infos de l'appli du menu courant.
    $ligne_app = GEN_retournerInfoAppliMenu($db, $adme_menu_id);
    
    //-------------------------------------------------------------------------------------------------------------------
    // XHTML image plier-déplier
    
    $url->addQueryString('adme_site_id', $adme_site_id);
    $url->addQueryString('adme_menu_id', $ligne->gm_id_menu);
    $xhtml_pd = '';
    if ($int_deplier != 0) {
        if ($int_deplier == 1) {
            // Afficher un -
            $image_plier_deplier = ADME_IMAGE_MOINS;
            $alt = ADME_LG_ACTION_PLIER_ALT;
            $url->addQueryString('adme_action', ADME_LG_ACTION_PLIER);
            $url_plier_deplier = $url->getURL();
        } else if ($int_deplier == 2) {
            // Afficher un +
            $image_plier_deplier = ADME_IMAGE_PLUS;
            $alt = ADME_LG_ACTION_DEPLIER_ALT;
            $url->addQueryString('adme_action', ADME_LG_ACTION_DEPLIER);
            $url_plier_deplier = $url->getURL();
        }
        $xhtml_pd = '<a href="'.$url_plier_deplier.'" title="'.$alt.'">'.
                        '<img class="'.ADME_CLASS_IMG_PD.'" src="'.$image_plier_deplier.'" alt="'.$alt.'" />'.
                    '</a>'.'&nbsp;'."\n";
    }
    
    //-------------------------------------------------------------------------------------------------------------------
    // XHTML du nom du menu et de ses infos
    $xhtml_info  = htmlentities(empty($ligne->gm_nom) ? ADME_LG_PARENTHESE_OUVRANTE.$ligne->gm_nom.ADME_LG_PARENTHESE_FERMANTE : $ligne->gm_nom);
    $xhtml_info .= '&nbsp;';
    $xhtml_info .= ADME_LG_PARENTHESE_OUVRANTE.$ligne_app->gap_nom.'&nbsp;'.ADME_LG_SLASH.'&nbsp;'.$ligne->ga_prenom.ADME_LG_PARENTHESE_FERMANTE;
    $xhtml_info .= '&nbsp;'."\n";
    
    //-------------------------------------------------------------------------------------------------------------------
    // XHTML actions
    $url->removeQueryString('adme_action');
    $url->addQueryString('adme_action', ADME_LG_ACTION_COMMUN_MODIFIER);
    $xhtml_action = '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_COMMUN_MODIFIER_TITLE.'">'.
                        '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_VOIR.'" alt="'.ADME_LG_ACTION_COMMUN_MODIFIER_ALT.'" />'.
                    '</a>&nbsp;'."\n";
    $url->removeQueryString('adme_action');
    $url->addQueryString('adme_action', ADME_LG_ACTION_COMMUN_MONTER);
    $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_COMMUN_MONTER_TITLE.'">'.
                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_FLECHE_HAUT.'" alt="'.ADME_LG_ACTION_COMMUN_MONTER_ALT.'" />'.
                        '</a>&nbsp;'."\n";
    $url->removeQueryString('adme_action');
    $url->addQueryString('adme_action', ADME_LG_ACTION_COMMUN_DESCENDRE);
    $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_COMMUN_DESCENDRE_TITLE.'">'.
                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_FLECHE_BAS.'" alt="'.ADME_LG_ACTION_COMMUN_DESCENDRE_ALT.'" />'.
                        '</a>&nbsp;'."\n";
    $url->removeQueryString('adme_action');
    $url->addQueryString('adme_action', ADME_LG_ACTION_COMMUN_SUPPRIMER);
    $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_COMMUN_SUPPRIMER_TITLE.'" onclick="javascript:return confirm(\''.ADME_LG_ACTION_SUPPRIMER_CONFIRMATION.'\');">'.
                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_SUPPRIMER.'" alt="'.ADME_LG_ACTION_COMMUN_SUPPRIMER_ALT.'" />'.
                        '</a>&nbsp;'."\n";
    $url->removeQueryString('adme_action');
    $url->addQueryString('adme_action', ADME_LG_ACTION_COMMUN_AJOUTER);
    $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_COMMUN_AJOUTER_TITLE.'">'.
                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_NOUVEAU.'" alt="'.ADME_LG_ACTION_COMMUN_AJOUTER_ALT.'" />'.
                        '</a>'.'&nbsp;'."\n";
    
    // Si l'application liée est "texte simple", on ajoute un icone avec un lien vers
    // l'administration de cette application.
    if ($ligne_app->gap_id_application != 0 && GEN_verifierPresenceInterfaceAdmin($db, $ligne_app->gap_id_application)) { // l'appli afficheur a pour id 3
        $url->removeQueryString('adme_action');
        $url->addQueryString('adme_action', ADME_LG_ACTION_ADMINISTRER);
        $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_ADMINISTRER_TITLE.'">'.
                                '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_TEXTE.'" alt="'.ADME_LG_ACTION_ADMINISTRER_ALT.'" />'.
                            '</a>'.'&nbsp;'."\n";
    }
    
    //-------------------------------------------------------------------------------------------------------------------
    // Envoi du menu.
    $retour = $xhtml_pd.$xhtml_info.$xhtml_action;
    return $retour;
}

/** Fonction ADME_ajouterMenuCommun() - Ajoute un sous menu commun au menu commun courant
*
* Fonction ajoutant un menu commun à Papyrus.
*
* @param object objet Pear de connection à la base de données.
* @param object objet Pear représentant l'authentification.
* @param integer l'identifiant du site à administrer.
* @param integer l'identifiant du menu à administrer.
* @return void les changement sont fait dans la base de données.
*/
function ADME_ajouterMenuCommun($db, $auth, $adme_site_id, $adme_menu_id)
{
    //----------------------------------------------------------------------------
    // Récupération d'infos sur le nouveau menu
    $objet_site = GEN_lireInfoSitePrincipal($db, $adme_site_id);
    if ($objet_site == false) {
        die('ERREUR Génésia Administrateur de Menus : '.ADME_LG_ERREUR_INFO_SITE.'<br />'.
            'ID du site : '.$adme_site_id.'<br />'.
            'Ligne n° : '. __LINE__ .'<br />'.
            'Fichier n° : '. __FILE__ .'<br />');
    }
    $nouveau_id_menu = SQL_obtenirNouveauId($db, 'gen_menu', 'gm_id_menu');
    $auteur = $auth->getAuthData('ga_prenom').' '.$auth->getAuthData('ga_nom');
    
    //----------------------------------------------------------------------------
    // Ajout du nouveau menu
    $requete =  'INSERT INTO gen_menu '.
                'SET gm_id_menu = '.$nouveau_id_menu.', '.
                'gm_ce_site = 0, '.
                'gm_ce_i18n = "'.$objet_site->gs_ce_i18n.'", '.
                'gm_ce_application = 0, '.
                'gm_code_num = '.$nouveau_id_menu.', '.
                'gm_code_alpha = "menu_commun_'.$nouveau_id_menu.'", '.
                'gm_nom = "menu_commun_'.$nouveau_id_menu.'", '.
                'gm_titre = "menu_commun_'.$nouveau_id_menu.'", '.
                'gm_description_resume = "menu_commun_'.$nouveau_id_menu.'", '.
                'gm_auteur = "'.$auteur.'", '.
                'gm_date_creation = "'.date('Y-m-d H:i:s').'", '.
                'gm_date_soumission = "'.date('Y-m-d H:i:s').'", '.
                'gm_date_acceptation = "'.date('Y-m-d H:i:s').'", '.
                'gm_date_publication = "'.date('Y-m-d H:i:s').'", '.
                'gm_date_debut_validite = "'.date('Y-m-d H:i:s').'", '.
                'gm_date_copyright = "'.date('Y-00-00 00:00:00').'", '.
                'gm_categorie = "menu", '.
                'gm_ce_admin = '.$auth->getAuthData('ga_id_administrateur').' '
                ;
    
    $resultat = $db->query($requete);
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
    
    //----------------------------------------------------------------------------
    // Ajout de la relation "père"
    
    if (!isset($adme_menu_id) && empty($adme_menu_id)) {
        $adme_menu_id = 0 ;// Identifiant du père
    }
    //----------------------------------------------------------------------------
    // Récupération d'infos sur la hierarchie du menu
    $requete =  'SELECT GMR01.gmr_ordre '.
                'FROM gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
                'WHERE GMR01.gmr_id_menu_02 = '.$adme_menu_id.' '.
                'AND GMR01.gmr_id_valeur = 1 '.// 1 = avoir "père"
                'AND GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
                'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.
                'AND GMR02.gmr_id_valeur = 102 '.// 102 = menu type "commun"
                'ORDER BY GMR01.gmr_ordre DESC';
    
    $resultat = $db->query($requete);
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
    
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
    $nouveau_ordre_menu = $ligne->gmr_ordre + 1;
    $resultat->free();
    
    $requete =  'INSERT INTO gen_menu_relation '.
                'SET gmr_id_menu_02 = '.$adme_menu_id.', '.
                'gmr_id_menu_01 = '.$nouveau_id_menu.', '.
                'gmr_id_valeur = 1, '.
                'gmr_ordre = '.$nouveau_ordre_menu;
    
    $resultat = $db->query($requete);
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
    
    //----------------------------------------------------------------------------
    // Ajout de la relation-type "commun"
    
    // Récupération d'infos sur la hierarchie du menu
    $requete =  'SELECT * '.
                'FROM gen_menu_relation, gen_menu '.
                'WHERE gmr_id_menu_02 = gmr_id_menu_01 '.
                'AND gmr_id_valeur = 102 '.// 102 = type "commun"
                'AND gmr_id_menu_01 = gm_id_menu '.
                'AND gm_ce_site = 0 '.// un menu commun n'a pas de site lié!
                '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);
    $nouveau_ordre_commun = $ligne->gmr_ordre + 1;
    $resultat->free();
    
    $requete =  'INSERT INTO gen_menu_relation '.
                'SET gmr_id_menu_01 = '.$nouveau_id_menu.', '.
                'gmr_id_menu_02 = '.$nouveau_id_menu.', '.
                'gmr_id_valeur = 102, '.
                'gmr_ordre = '.$nouveau_ordre_commun;
    
    $resultat = $db->query($requete);
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
}

/** Fonction ADME_afficherFormMenuCommun() - Affiche le formulaire pour un menu commun.
*
* Utilise HTML_QuickForm pour générer le formulaire.
* Ancien nom : showUpper().
*
* @param  object  objet Pear de connection à la base de données.
* @param  object  objet Pear représentant l'url de base.
* @param  integer l'identifiant du site à administrer.
* @param  integer l'identifiant du menu à administrer.
* @param  array   le tableau associatif des valeurs à afficher dans le formulaire.
* @return string  le formulaire XHTML.
*/
function ADME_afficherFormMenuCommun($db, $url, $adme_site_id, $adme_menu_id, $aso_valeurs)
{
    // Initialisation de variable
    $url->addQueryString('adme_site_id', $adme_site_id);
    $url->addQueryString('adme_menu_id', $adme_menu_id);
    
    // Récupération des informations du menu concerné.
    if (!isset($aso_valeurs[ADME_LG_ACTION_COMMUN_VERIFIER])) {
        $aso_valeurs = GEN_lireInfoMenu($db, $adme_menu_id, DB_FETCHMODE_ASSOC);
        
        if ($aso_valeurs === false) {
            die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_MENU.'<br />'.
                'Idenitifiant du menu n° : '. $adme_menu_id .'<br />'.
                'Ligne n° : '. __LINE__ .'<br />'.
                'Fichier n° : '. __FILE__ .'<br />');
        }
    }
    
    // Titre de la page
    $retour = '<h1>'.ADME_LG_FORM_MENU_COMMUN_TITRE_GENERAL.'</h1>'."\n";
    $retour .= '<p class="adme_menu_id" >'.ADME_LG_FORM_MENU_ID.'<span id="adme_menu_id">'.$aso_valeurs['gm_id_menu'].'</span></p>'."\n";
    
    // Création du formulaire
    // Notes : Quickform semble remplacer les & des &amp; à nouveau par des &amp; solution utiliser str_replace()...
    $form =& new HTML_QuickForm('form_menu_commun', 'post', str_replace('&amp;', '&', $url->getUrl()));
    $tab_index = 1000;
    $squelette =& $form->defaultRenderer();
    $squelette->setFormTemplate("\n".'<form{attributes}>'."\n"."\n".'{content}'."\n"."\n".'</form>'."\n");
    $squelette->setElementTemplate(  '<li>'."\n".
                                    '{label}'."\n".
                                    '{element}'."\n".
                                    '<!-- BEGIN required --><span class="symbole_obligatoire">'.ADME_LG_FORM_SYMBOLE_CHP_OBLIGATOIRE.'</span><!-- END required -->'."\n".
                                    '<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n".
                                    '</li>'."\n");
    $squelette->setRequiredNoteTemplate("\n".'<p><span class="symbole_obligatoire">'.ADME_LG_FORM_SYMBOLE_CHP_OBLIGATOIRE.'</span> {requiredNote}</p>'."\n");
    
    $partie_menu_debut = '<fieldset>'."\n".'<legend>'.ADME_LG_FORM_MENU_COMMUN_TITRE_CONFIG.'</legend>'."\n".'<ul>'."\n";
    $form->addElement('html', $partie_menu_debut);
    
    $id = 'gm_code_num';
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 5, 'maxlength' => 100);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_CODE_NUM.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    $form->addRule($id, ADME_LG_FORM_MENU_REGLE_CODE_NUM, 'required', '', 'client');
    
    $id = 'gm_code_alpha';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 20, 'maxlength' => 20);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_CODE_ALPHA.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    $form->addRule($id, ADME_LG_FORM_MENU_REGLE_CODE_ALPHA, 'required', '', 'client');
    
    $id = 'gm_nom';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 50, 'maxlength' => 100);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_NOM.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    $form->addRule($id, ADME_LG_FORM_MENU_REGLE_NOM, 'required', '', 'client');
    $form->applyFilter($id, 'trim');
    
    $id = 'gm_raccourci_clavier';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 1, 'maxlength' => 1);
    $label = '<label for="'.$id.'">'.'Raccourci clavier'.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $id = 'gm_fichier_squelette';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 50, 'maxlength' => 255);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_FICHIER_SQUELETTE.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $id = 'gm_description_resume';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 2, 'cols' => 50);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_INFO_BULLE.'</label>';
    $form->addElement('textarea', $id, $label, $aso_attributs);
    $form->addRule($id, ADME_LG_FORM_MENU_REGLE_INFO_BULLE, 'required', '', 'client');
    
    // Requête sur les applications
    $requete =  'SELECT gap_id_application, gap_nom '.
                'FROM gen_application '.
                'WHERE gap_bool_applette = 0';// Pour éviter d'afficher les applettes.
    $resultat = $db->query($requete);
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
    
    $aso_options = array();
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
        $aso_options[$ligne->gap_id_application] = $ligne->gap_nom;
    }
    $resultat->free();
    $id = 'gm_ce_application';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_APPLI.'</label>';
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
    
    $id = 'gm_application_arguments';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_APPLI_ARGUMENT.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $partie_menu_fin = '</ul>'."\n".'</fieldset>'."\n";
    $form->addElement('html', $partie_menu_fin);
    
    $partie_entete_debut = '<fieldset>'."\n".'<legend>'.ADME_LG_FORM_MENU_COMMUN_TITRE_ENTETE.'</legend>'."\n".'<ul>'."\n";
    $form->addElement('html', $partie_entete_debut);
    
    $id = 'gm_robot';
    $aso_options = array(   'index,follow' => ADME_LG_FORM_MENU_INDEX_FOLLOW,
                            'index' => ADME_LG_FORM_MENU_INDEX,
                            'noindex' => ADME_LG_FORM_MENU_NOINDEX,
                            'noindex,nofollow' => ADME_LG_FORM_MENU_NOINDEX_NOFOLLOW,
                            '' => ADME_LG_FORM_MENU_INDEX_VIDE);
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_ROBOT.'</label>';
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
    
    $id = 'gm_titre';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_TITRE.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $id = 'gm_titre_alternatif';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_TITRE_ALTERNATIF.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $id = 'gm_mots_cles';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 50);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_MOT_CLE.'</label>';
    $form->addElement('textarea', $id, $label, $aso_attributs);
    
    $id = 'gm_description_libre';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_DESCRIPTION.'</label>';
    $form->addElement('textarea', $id, $label, $aso_attributs);
    
    $id = 'gm_description_table_matieres';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_TABLE_MATIERE.'</label>';
    $form->addElement('textarea', $id, $label, $aso_attributs);
    
    $id = 'gm_source';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_SOURCE.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $id = 'gm_auteur';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_AUTEUR.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $id = 'gm_contributeur';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 2, 'cols' => 45);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_CONTRIBUTEUR.'</label>';
    $form->addElement('textarea', $id, $label, $aso_attributs);
    
    $id = 'gm_editeur';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 2, 'cols' => 45);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_EDITEUR.'</label>';
    $form->addElement('textarea', $id, $label, $aso_attributs);
    
    $id = 'gm_date_debut_validite';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_DATE_VALIDITE_DEBUT.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $id = 'gm_date_fin_validite';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_DATE_VALIDITE_FIN.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $id = 'gm_date_copyright';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_DATE_COPYRIGHT.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $id = 'gm_licence';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_URL_LICENCE.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $id = 'gm_categorie';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 100);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_CATEGORIE.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $id = 'gm_public';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_PUBLIC.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $id = 'gm_public_niveau';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 25, 'maxlength' => 45);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_PUBLIC_NIVEAU.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $id = 'gm_ce_type_portee_spatiale';
    $aso_options = array(   '' => ADME_LG_FORM_MENU_ZG_VIDE,
                            'iso3166' => ADME_LG_FORM_MENU_ZG_ISO,
                            'Point' => ADME_LG_FORM_MENU_ZG_POINT,
                            'Box' => ADME_LG_FORM_MENU_ZG_DC,
                            'TGN' => ADME_LG_FORM_MENU_ZG_GTGN);
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_ZG_TYPE.'</label>';
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
    
    $id = 'gm_portee_spatiale';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 100);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_ZG_VALEUR.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $id = 'gm_ce_type_portee_temporelle';
    $aso_options = array(   '' => ADME_LG_FORM_MENU_TMP_VIDE,
                            'W3CDTF' => ADME_LG_FORM_MENU_TMP_W3C,
                            'Period' => ADME_LG_FORM_MENU_TMP_DC);
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_TMP_TYPE.'</label>';
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
    
    $id = 'gm_portee_temporelle';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 100);
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_TMP_VALEUR.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $partie_entete_fin = '</ul>'."\n".'</fieldset>'."\n";
    $form->addElement('html', $partie_entete_fin);
    
    $liste_bouton_debut = '<ul class="liste_bouton">'."\n";
    $form->addElement('html', $liste_bouton_debut);
    
    $form->addElement('submit', ADME_LG_ACTION_COMMUN_VERIFIER, ADME_LG_FORM_MENU_VALIDER);
    $bouton_annuler = '<li><a class="bouton" href="'.$url->getURL().'" title="'.ADME_LG_FORM_MENU_ANNULER.'" >'.ADME_LG_FORM_MENU_ANNULER.'</a>'.'</li>'."\n";
    $form->addElement('html', $bouton_annuler);
    
    $liste_bouton_fin = '</ul>'."\n";
    $form->addElement('html', $liste_bouton_fin);
    
    $form->addElement('hidden', 'gm_id_menu', $aso_valeurs['gm_id_menu']);
    
    $form->setDefaults($aso_valeurs);
    
    // Note de fin de formulaire
    $form->setRequiredNote(ADME_LG_FORM_TXT_CHP_OBLIGATOIRE);
    
    $retour .= $form->toHTML()."\n";
    return $retour;
}

/** Fonction ADME_validerFormAjouterMenuCommun() - Valide les données issues du formulaire pour gen_menu.
*
* Cette fonction valide les données à ajouter dans la table gen_menu.
*
* @param  PEAR:DB   l'objet pear de connexion à la base de données.
* @param  string   le tableau contenant les valeurs du formulaire.
* @return string   retourne les messages d'erreurs sinon rien.
*/
function ADME_validerFormAjouterMenuCommun($db, $aso_valeurs)
{
    $message = '';
    if ($aso_valeurs['gm_code_alpha'] == '') {
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_CODE_ALPHA.'</p>';
    } else {
        // Requete pour vérifier l'abscence du code alphanumérique de la table gen_menu
        if (GEN_verifierPresenceCodeMenu($db, 'string', $aso_valeurs['gm_id_menu'], $aso_valeurs['gm_code_alpha']) === true) {
            $message .= '<p class="pap_erreur">'.sprintf(ADME_LG_ERREUR_CODE_ALPHA, $aso_valeurs['gm_code_alpha']).'</p>';
        }
    }
    if ($aso_valeurs['gm_code_num'] == '') {
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_CODE_NUM.'</p>';
    } else {
        // Requete pour vérifier l'abscence du code numérique de la table gen_menu
        if (GEN_verifierPresenceCodeMenu($db, 'int', $aso_valeurs['gm_id_menu'], $aso_valeurs['gm_code_num']) === true) {
            $message .= '<p class="pap_erreur">'.sprintf(ADME_LG_ERREUR_CODE_NUM, $aso_valeurs['gm_code_num']).'</p>';
        }
    }
    if ($aso_valeurs['gm_nom'] == '') {
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_NOM.'</p>';
    }
    if ($aso_valeurs['gm_description_resume'] == '') {
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_INFO_BULLE.'</p>';
    }
    return $message;
}

/** Fonction ADME_modifierMenuCommun() - Met à jour les infos d'un menu commun
*
* Fonction modifiant un menu commun à Papyrus.
*
* @param object objet Pear de connection à la base de données.
* @param object objet Pear représentant l'authentification.
* @param integer l'identifiant du menu à administrer.
* @param array le tableau des valeurs à modifier.
* @return void les changement sont fait dans la base de données.
*/
function ADME_modifierMenuCommun($db, $auth, $adme_menu_id, $aso_valeurs)
{
    $requete =  'UPDATE gen_menu SET '.
                'gm_ce_application = '.$_POST['gm_ce_application'].', '.
                'gm_application_arguments = "'.$_POST['gm_application_arguments'].'", '.
                'gm_fichier_squelette = "'.$_POST['gm_fichier_squelette'].'", '.
                'gm_code_num = '.$_POST['gm_code_num'].', '.
                'gm_code_alpha = "'.$_POST['gm_code_alpha'].'", '.
                'gm_nom = "'.$_POST['gm_nom'].'", '.
                'gm_raccourci_clavier = "'.$_POST['gm_raccourci_clavier'].'", '.
                'gm_robot = "'.$_POST['gm_robot'].'", '.
                'gm_titre = "'.$_POST['gm_titre'].'", '.
                'gm_titre_alternatif = "'.$_POST['gm_titre_alternatif'].'", '.
                'gm_mots_cles = "'.$_POST['gm_mots_cles'].'", '.
                'gm_description_libre = "'.$_POST['gm_description_libre'].'", '.
                'gm_description_resume = "'.$_POST['gm_description_resume'].'", '.
                'gm_description_table_matieres = "'.$_POST['gm_description_table_matieres'].'", '.
                'gm_source = "'.$_POST['gm_source'].'", '.
                'gm_auteur = "'.$_POST['gm_auteur'].'", '.
                'gm_contributeur = "'.$_POST['gm_contributeur'].'", '.
                'gm_editeur = "'.$_POST['gm_editeur'].'", '.
                'gm_date_debut_validite = "'.$_POST['gm_date_debut_validite'].'", '.
                'gm_date_fin_validite = "'.$_POST['gm_date_fin_validite'].'", '.
                'gm_date_copyright = "'.$_POST['gm_date_copyright'].'", '.
                'gm_licence = "'.$_POST['gm_licence'].'", '.
                'gm_categorie = "'.$_POST['gm_categorie'].'", '.
                'gm_public = "'.$_POST['gm_public'].'", '.
                'gm_public_niveau = "'.$_POST['gm_public_niveau'].'", '.
                'gm_portee_spatiale = "'.$_POST['gm_portee_spatiale'].'", '.
                'gm_portee_temporelle = "'.$_POST['gm_portee_temporelle'].'", '.
                'gm_ce_admin = "'.$auth->getAuthData('ga_id_administrateur').'" '.
                'WHERE gm_id_menu = '.$adme_menu_id;
    
    $resultat = $db->query($requete);
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
}

/** Fonction ADME_deplacerMenuCommun() - Permet de déplacer un menu dans la hiérarchie.
*
* Permet de déplacer un menu dans la hiérarchie des menus communs.
* Ancien nom : moveUpper()
*
* @param  PEAR::DB objet Pear DB de connexion à la base de données.
* @param  integer   identifiant du site administré.
* @param  integer  identifiant du menu à déplacer.
* @param  boolean  indique si on veut monter le menu (true) ou le descendre (false).
* @return void     modifie la base de données.
*/
function ADME_deplacerMenuCommun($db, $adme_site_id, $adme_menu_id, $bln_monter)
{
    //-------------------------------------------------------------------------------------------------------------------
    // Récupération d'informations sur les relations du menu courant.
    $ligne_menu_courant_relation = GEN_lireInfoMenuRelation($db, $adme_menu_id, '1'); // 1 = relation "avoir père"
    if ($ligne_menu_courant_relation == false) {
        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_MENU_RELATION.'<br />'.
            'Identifiant menu : '. $adme_menu_id .'<br />'.
            'Identifiant valeur relation : 1 <br />'.
            'Ligne n° : '. __LINE__ .'<br />'.
            'Fichier n° : '. __FILE__ .'<br />');
    }
    
    $id_pere = GEN_lireIdentifiantMenuPere($adme_menu_id);
    if ($id_pere === false) {
        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_ID_MENU_PERE.'<br />'.
            'Identifiant menu fils : '. $adme_menu_id .'<br />'.
            'Ligne n° : '. __LINE__ .'<br />'.
            'Fichier n° : '. __FILE__ .'<br />');
    }
    
    //-------------------------------------------------------------------------------------------------------------------
    // Recherche d'information hiérarchiques sur le menu précédent ou suivant le menu courant
    $requete =  'SELECT GMR01.gmr_ordre AS nouvel_ordre, GMR01.gmr_id_menu_01 AS id_menu_remplace '.
                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
                'WHERE GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
                'AND GMR01.gmr_id_menu_01 = gm_id_menu './/jonction avec la table GEN_MENU
                'AND gm_ce_site = 0 '.// les menus communs ne sont pas liés à un site!
                'AND GMR02.gmr_id_valeur = 102 '.// 102 = menu type "commun"
                'AND GMR01.gmr_id_menu_02 = '.$id_pere.' '.
                'AND GMR01.gmr_id_valeur = 1 ';// 1 = relation menu "père"
    if ($bln_monter) {
        $requete .= 'AND GMR01.gmr_ordre < '.$ligne_menu_courant_relation->gmr_ordre.' '.
                    'ORDER BY GMR01.gmr_ordre DESC';
    } else {
        $requete .= 'AND GMR01.gmr_ordre > '.$ligne_menu_courant_relation->gmr_ordre.' '.
                    'ORDER BY GMR01.gmr_ordre ASC';
    }
    
    $resultat_menu = $db->query($requete);
    (DB::isError($resultat_menu)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_menu->getMessage(), $requete)) : '';
    
    $ligne_menu = $resultat_menu->fetchRow(DB_FETCHMODE_OBJECT);
    $resultat_menu->free();
    
    //-------------------------------------------------------------------------------------------------------------------
    // Si la requete ne retourne rien nous ne faisons rien.
    if (! $ligne_menu) {
        return null;
    }
    
    //-------------------------------------------------------------------------------------------------------------------
    // Mise à jour des relations hiérarchiques du menu courant
    $requete =  'UPDATE gen_menu_relation SET '.
                'gmr_ordre = '.$ligne_menu->nouvel_ordre.' '.
                'WHERE gmr_id_menu_01 = '.$ligne_menu_courant_relation->gmr_id_menu_01.' '.
                'AND gmr_id_valeur = 1';// 1 = relation menu "père"
    
    $resultat = $db->query($requete);
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
    
    //-------------------------------------------------------------------------------------------------------------------
    // Mise à jour des relations hiérarchiques du menu précédent ou suivant
    $requete =  'UPDATE gen_menu_relation SET '.
                'gmr_ordre = '.$ligne_menu_courant_relation->gmr_ordre.' '.
                'WHERE gmr_id_menu_01 = '.$ligne_menu->id_menu_remplace.' '.
                'AND gmr_id_valeur = 1';// 1 = relation menu "père"
    
    $resultat = $db->query($requete);
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
}

/** Fonction ADME_supprimerMenuCommun() - Supprime un menu classique.
*
* Supprime de la base de données de Génésia toutes les traces du menu classiques
* passé en paramètre.
* Ancien nom : deleteUpper()
*
* @param  PEAR::DB l'objet Pear DB de connexion à la base de données.
* @param  integer   l'identifiant du menu à supprimer
* @return void     le menu classique est supprimé de la base de données.
*/
function ADME_supprimerMenuCommun($db, $id_menu_a_supprimer)
{
    //-------------------------------------------------------------------------------------------------------------------
    // Y a t'il des sous_menus ?
    $requete =    'SELECT COUNT(gm_id_menu) AS compte '.
                'FROM gen_menu, gen_menu_relation '.
                'WHERE gmr_id_menu_02 = '.$id_menu_a_supprimer.' '.
                'AND gmr_id_valeur = 1 '.
                'AND gmr_id_menu_01 = gm_id_menu ';
    
    $resultat = $db->query($requete);
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
    
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
    
    if ($ligne && ($ligne->compte > 0)) {
        return ADME_LG_ERREUR_EXISTE_SOUS_MENU;
    }
    
    //-------------------------------------------------------------------------------------------------------------------
    // Mise à jour de l'ordre des menus
    $ligne_menu_supr_relation = GEN_lireInfoMenuRelation($db, $id_menu_a_supprimer, '1'); // 1 = relation "avoir père"
    $requete =  'SELECT GMR01.gmr_id_menu_01, GMR01.gmr_ordre '.
                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
                'WHERE GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
                'AND GMR01.gmr_id_menu_01 = gm_id_menu './/jonction avec la table GEN_MENU
                'AND gm_ce_site = 0 '.// les menus communs ne sont pas liés à un site!
                'AND GMR02.gmr_id_valeur = 102 '.// 102 = menu type "commun"
                'AND GMR01.gmr_id_menu_02 = '.$ligne_menu_supr_relation->gmr_id_menu_02.' '.
                'AND GMR01.gmr_id_valeur = 1 '.// 1 = relation menu "père"
                'AND GMR01.gmr_ordre > '.$ligne_menu_supr_relation->gmr_ordre.' '.
                'ORDER BY GMR01.gmr_ordre ASC';
    $resultat = $db->query($requete);
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
        // Mise à jour des relations hiérarchiques du menu courant
        $requete_maj =  'UPDATE gen_menu_relation SET '.
                        'gmr_ordre = '.($ligne->gmr_ordre - 1).' '.
                        'WHERE gmr_id_menu_01 = '.$ligne->gmr_id_menu_01.' '.
                        'AND gmr_id_valeur = 1';// 1 = relation menu "père"
        
        $resultat_maj = $db->query($requete_maj);
        (DB::isError($resultat_maj)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_maj->getMessage(), $requete_maj)) : '';
    }
    $resultat->free();
    
    //-------------------------------------------------------------------------------------------------------------------
    // S'il n'y a plus de sous niveau, on supprime le menu
    $requete =  'DELETE FROM gen_menu '.
                'WHERE gm_id_menu = '.$id_menu_a_supprimer;
    
    $resultat = $db->query($requete);
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
    
    //-------------------------------------------------------------------------------------------------------------------
    // Puis on supprime les relations de ce menu
    $requete =  'DELETE FROM gen_menu_relation '.
                'WHERE gmr_id_menu_01 = '.$id_menu_a_supprimer;
    
    $resultat = $db->query($requete);
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
    
}



// +------------------------------------------------------------------------------------------------------+
// |                                            PIED du PROGRAMME                                         |
// +------------------------------------------------------------------------------------------------------+



/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.8  2004/12/01 16:47:28  jpm
* Ajout d'une boite javascript de confirmation de suppression d'un menu.
*
* Revision 1.7  2004/11/15 16:51:12  jpm
* Correction bogue de mise à jour de l'ordre des menus.
*
* Revision 1.6  2004/11/10 17:26:07  jpm
* Fin gestion de la traduction.
*
* Revision 1.5  2004/11/09 17:48:35  jpm
* Gestion de différentes interfaces d'administration.
*
* Revision 1.3  2004/09/23 17:45:13  jpm
* Amélioration de la gestion des liens annuler et du selecteur de sites.
*
* Revision 1.2  2004/07/06 17:07:37  jpm
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
*
* Revision 1.1  2004/06/16 15:04:32  jpm
* Changement de nom de Génésia en Papyrus.
* Changement de l'arborescence.
*
* Revision 1.10  2004/05/10 12:13:03  jpm
* Modification des formulaires.
*
* Revision 1.9  2004/05/07 16:31:40  jpm
* Amélioration du formulaire d'un menu commun.
*
* Revision 1.8  2004/05/07 09:56:52  jpm
* Correction des noms de constantes d'images.
*
* Revision 1.7  2004/05/07 07:23:54  jpm
* Amélioration du code, des commentaires et correction de bogues.
*
* Revision 1.6  2004/05/04 16:27:55  jpm
* Amélioration gestion du déplacement des menus.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>