Subversion Repositories Applications.papyrus

<?php

/*vim: set expandtab tabstop=4 shiftwidth=4: */

// Copyright (C) 1999-2004 Tela Botanica (accueil@tela-botanica.org)

//

// Ce logiciel est un programme informatique servant à gérer du contenu et des

// applications web.

// Ce logiciel est régi par la licence CeCILL soumise au droit français et

// respectant les principes de diffusion des logiciels libres. Vous pouvez

// utiliser, modifier et/ou redistribuer ce programme sous les conditions

// de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA

// sur le site "http://www.cecill.info".

// En contrepartie de l'accessibilité au code source et des droits de copie,

// de modification et de redistribution accordés par cette licence, il n'est

// offert aux utilisateurs qu'une garantie limitée.  Pour les mêmes raisons,

// seule une responsabilité restreinte pèse sur l'auteur du programme,  le

// titulaire des droits patrimoniaux et les concédants successifs.

// A cet égard  l'attention de l'utilisateur est attirée sur les risques

// associés au chargement,  à l'utilisation,  à la modification et/ou au

// développement et à la reproduction du logiciel par l'utilisateur étant

// donné sa spécificité de logiciel libre, qui peut le rendre complexe à

// manipuler et qui le réserve donc à des développeurs et des professionnels

// avertis possédant  des  connaissances  informatiques approfondies.  Les

// utilisateurs sont donc invités à charger  et  tester  l'adéquation  du

// logiciel à leurs besoins dans des conditions permettant d'assurer la

// sécurité de leurs systèmes et ou de leurs données et, plus généralement,

// à l'utiliser et l'exploiter dans les mêmes conditions de sécurité.

// Le fait que vous puissiez accéder à cet en-tête signifie que vous avez

// pris connaissance de la licence CeCILL, et que vous en avez accepté les

// termes.

// ----

// CVS : $Id: adme_menu_classique.fonct.php,v 1.24 2005-09-23 13:58:07 ddelon Exp $

/**

* Fonctions de gestion des menus classiques

*

* Permet de lister, d'ajouter, de modifier, et de déplacer des menus classiques.

* Par menus classiques nous entendons tous les menus devant paraitre dans l'arborescences

* des menus disponibles pour le site courant.

*

*@package Admin_menu

*@subpackage Fonctions

//Auteur original :

*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>

//Autres auteurs :

*@author        Alexandre GRANIER <alexandre@tela-botanica.org>

*@author        Laurent COUDOUNEAU <lc@gsite.org>

*@copyright     Tela-Botanica 2000-2004

*@version       $Revision: 1.24 $ $Date: 2005-09-23 13:58:07 $

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

*/

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

// |                                            ENTÊTE du PROGRAMME                                       |

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

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

// |                                           LISTE de FONCTIONS                                         |

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

/** Fonction ADME_afficherListeMenuClassique () - Affiche un arbre de menu en xhtml

*

* Elle forme l'arbre des menus classiques à 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_afficherListeMenuClassique($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 = 100 '.// 100 = type "menu classique"

                            '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_CLASSIQUE_AJOUTER) && $id_menu_a_deployer != 0) {

        $_SESSION['adme_menus_classiques_ouverts'][$adme_menu_id] = $adme_menu_id;

    }

    if ($adme_action == ADME_LG_ACTION_PLIER && $id_menu_a_deployer != 0) {

        unset($_SESSION['adme_menus_classiques_ouverts'][$adme_menu_id]);

        foreach ($_SESSION['adme_menus_classiques_ouverts'] as $val) {

            if (GEN_etreAncetre($adme_menu_id, $val)) {

                unset($_SESSION['adme_menus_classiques_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_classiques_ouverts'][$id_menu_a_deployer])

                ){

                // Affiche un -

                $retour .= ADME_retournerXhtmlMenuClassique($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_classiques_ouverts'][$id_menu_a_deployer])

                        ){

                // Affiche un +

                $retour .= ADME_retournerXhtmlMenuClassique($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_classiques_ouverts'][$id_menu_a_deployer])

            ){

            $retour .= '<ul>'."\n";

            while ($ligne_sous_menu = $resultat_sous_menu->fetchRow(DB_FETCHMODE_OBJECT)) {

                $retour .= ADME_afficherListeMenuClassique($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_retournerXhtmlMenuClassique($db, $url, $adme_site_id, $id_menu_a_deployer, 0);

        $retour .= '</li>'."\n";

    }

    return $retour;

}

/** Fonction ADME_retournerXhtmlMenuClassique() - Effectue une sortie d'un menu en XHTML

*

* Retourne le XHTML d'une ligne de l'arbre des menus "classiques" 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_retournerXhtmlMenuClassique($db, $url, $adme_site_id, $adme_menu_id, $int_deplier)

{

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

    // Initialisation des variables

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

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

    if (!isset($ligne_app->gap_nom)) {

    	$gap_nom='';

    }

    else  {

    	$gap_nom=$ligne_app->gap_nom;

    }

    $xhtml_info .= ADME_LG_PARENTHESE_OUVRANTE.$gap_nom.' '.ADME_LG_SLASH.' '.$ligne->ga_prenom.ADME_LG_PARENTHESE_FERMANTE;

    $xhtml_info .= ' '."\n";

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

    // XHTML actions

    $url->removeQueryString('adme_action');

    $url->addQueryString('adme_action', ADME_LG_ACTION_CLASSIQUE_MODIFIER);

    $xhtml_action = '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_MODIFIER_TITLE.'">'.

                        '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_VOIR.'" alt="'.ADME_LG_ACTION_CLASSIQUE_MODIFIER_ALT.'" />'.

                    '</a>&nbsp;'."\n";

    $url->removeQueryString('adme_action');

    $url->addQueryString('adme_action', ADME_LG_ACTION_CLASSIQUE_MONTER);

    $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_MONTER_TITLE.'">'.

                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_FLECHE_HAUT.'" alt="'.ADME_LG_ACTION_CLASSIQUE_MONTER_ALT.'" />'.

                        '</a>&nbsp;'."\n";

    $url->removeQueryString('adme_action');

    $url->addQueryString('adme_action', ADME_LG_ACTION_CLASSIQUE_DESCENDRE);

    $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_DESCENDRE_TITLE.'">'.

                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_FLECHE_BAS.'" alt="'.ADME_LG_ACTION_CLASSIQUE_DESCENDRE_ALT.'" />'.

                        '</a>&nbsp;'."\n";

	$url->addQueryString('adme_action',ADME_LG_ACTION_CLASSIQUE_DIMINUER);

    $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_DIMINUER_TITLE.'">'.

                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_FLECHE_GAUCHE.'" alt="'.ADME_LG_ACTION_CLASSIQUE_DIMINUER_ALT.'" />'.

                        '</a>&nbsp;'."\n";

    $url->removeQueryString('adme_action');

    $url->addQueryString('adme_action',ADME_LG_ACTION_CLASSIQUE_AUGMENTER);

    $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_AUGMENTER_TITLE.'">'.

                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_FLECHE_DROITE.'" alt="'.ADME_LG_ACTION_CLASSIQUE_AUGMENTER_ALT.'" />'.

                        '</a>&nbsp;'."\n";

    $url->removeQueryString('adme_action');

    $url->addQueryString('adme_action', ADME_LG_ACTION_CLASSIQUE_SUPPRIMER);

    $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_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_CLASSIQUE_SUPPRIMER_ALT.'" />'.

                        '</a>&nbsp;'."\n";

    $url->removeQueryString('adme_action');

    $url->addQueryString('adme_action', ADME_LG_ACTION_CLASSIQUE_AJOUTER);

    $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_AJOUTER_TITLE.'">'.

                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_NOUVEAU.'" alt="'.ADME_LG_ACTION_CLASSIQUE_AJOUTER_ALT.'" />'.

                        '</a>'.'&nbsp;'."\n";

    $url->removeQueryString('adme_action');

    // Si le menu à une application liée on regarde s'il y a une interface d'administration.

     if (!isset($ligne_app->gap_id_application)) {

    	$gap_id_application=0;

    }

    else  {

    	$gap_id_application=$ligne_app->gap_id_application;

    }

    if ($gap_id_application != 0 && GEN_verifierPresenceInterfaceAdmin($db, $gap_id_application)) {

        $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_ajouterMenuClassique() - Ajoute un sous menu au menu courant

*

* Cette fonction permet d'ajouter un sous-menu de type "classique" au menu courant.

* Ancien nom : addMenu()

*

* @param  object objet Pear de connection à la base de données.

* @param  object objet Pear d'authentification.

* @param  integer l'identifiant du site à administrer.

* @param  integer l'identifiant du menu à administrer.

* @return void le menu classique est ajouté à la base de données.

*/

function ADME_ajouterMenuClassique($db, $auth, $adme_site_id, $adme_menu_id)

{

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

    // Récupération d'infos sur le site principal.

    $objet_site = GEN_lireInfoSitePrincipal($db, $adme_site_id);

    if ($objet_site == false) {

        die('ERREUR Génésia Administrateur de Menus : impossible de lire les infos du 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 = '.$adme_site_id.', '.

                'gm_ce_i18n = "'.$objet_site->gs_ce_i18n.'", '.

                'gm_ce_application = 0, '.

                'gm_code_num = '.$nouveau_id_menu.', '.

                'gm_code_alpha = "menu_'.$nouveau_id_menu.'", '.

                'gm_nom = "menu_'.$nouveau_id_menu.'", '.

                'gm_titre = "menu_'.$nouveau_id_menu.'", '.

                'gm_description_resume = "menu_'.$nouveau_id_menu.'", '.

                'gm_auteur = "'.$auteur.'", '.

                'gm_editeur = "'.$objet_site->gs_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_fin_validite = "0000-00-00 00:00:00", '.

                '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 = 100 '.// 100 = menu type "classique"

                '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 "menu classique"

    // 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 = 100 '.// 100 = type menu "classique"

                'AND gmr_id_menu_01 = gm_id_menu '.

                'AND gm_ce_site = '.$adme_site_id.' '.

                '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_menu_classique = $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 = 100, '.

                'gmr_ordre = '.$nouveau_ordre_menu_classique;

    $result = $db->query($requete);

    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';

}

/** Fonction ADME_afficherFormMenuClassique() - Affiche le formulaire pour un menu classique

*

* Utilise HTML_QuickForm pour générer le formulaire.

* Ancien nom : showMenu()

*

* @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_afficherFormMenuClassique($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);

    // Nous sommes toujours en modification car un menu est ajouter automatiquement!

    // Récupération des informations du menu concerné.

    if (!isset($aso_valeurs[ADME_LG_ACTION_CLASSIQUE_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 />');

        }

        // Requete pour récupérer les informations issues des relations du site à modifier

        $ligne = GEN_lireInfoMenuRelation($db, $adme_menu_id, $id_valeur = 101);

        $aso_valeurs['defaut'] = false;

        if (isset($ligne) && !empty($ligne)) {

		    if ($ligne->gmr_id_valeur != false) {// 101 = site par défaut

		        $aso_valeurs['defaut'] = true;

		    }

        }

    }

    // Titre de la page

    $retour = '<h1>'.ADME_LG_FORM_MENU_CLASSIQUE_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 & à nouveau par des & solution utiliser str_replace()...

    $form =& new HTML_QuickForm('form_menu_classique', 'post', str_replace('&', '&', $url->getUrl()));

    $tab_index = 1000;

    $squelette =& $form->defaultRenderer();

    $squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'{content}'."\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_CLASSIQUE_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' => 50, 'maxlength' => 50);

    $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.'">'.ADME_LG_FORM_MENU_RACCOURCI.'</label>';

    $form->addElement('text', $id, $label, $aso_attributs);

    $id = 'defaut';

    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);

    if ($aso_valeurs[$id] === true) {

        $aso_attributs['checked'] = 'checked';

    }

    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_DEFAUT.'</label>';

    $form->addElement('checkbox', $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_CLASSIQUE_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++, 'size' => 45, 'maxlength' => 65000);

    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_EDITEUR.'</label>';

    $form->addElement('text', $id, $label, $aso_attributs);

    $id = 'gm_date_creation';

    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);

    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_DATE_CREATION.'</label>';

    $form->addElement('text', $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);

    // Requete pour connaitre les informations sur l'administrateur ayant fait la dernière modif

    $requete_admin =    'SELECT * '.

                        'FROM gen_annuaire '.

                        'WHERE ga_id_administrateur = '.$aso_valeurs['gm_ce_admin'];

    $resultat_admin = $db->query($requete_admin);

    if (DB::isError($resultat_admin)) {

        die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_admin->getMessage(), $requete_admin));

    }

    $ligne_admin = $resultat_admin->fetchRow(DB_FETCHMODE_OBJECT);

    $info_admin =   '<p class="info">Dernière modification par '.$ligne_admin->ga_prenom.' '.$ligne_admin->ga_nom.'</p>';

    $form->addElement('html', $info_admin);

    $liste_bouton_debut = '<ul class="liste_bouton">'."\n";

    $form->addElement('html', $liste_bouton_debut);

    $form->addElement('submit', ADME_LG_ACTION_CLASSIQUE_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']);

    // Instanciation avec les valeur par défaut

    $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_validerFormAjouterMenuClassique() - 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_validerFormAjouterMenuClassique($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_modifierMenuClassique() - Met à jour les infos d'un menu classique

*

* Fonction modifiant un menu commun à Papyrus.

* Ancien nom : commitUpdateLevel()

*

* @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_modifierMenuClassique($db, $auth, $adme_menu_id, $aso_valeurs)

{

    $requete =  'UPDATE gen_menu SET '.

                'gm_ce_application = '.$aso_valeurs['gm_ce_application'].', '.

                'gm_application_arguments = "'.$aso_valeurs['gm_application_arguments'].'", '.

                'gm_fichier_squelette = "'.$aso_valeurs['gm_fichier_squelette'].'", '.

                'gm_code_num = '.$aso_valeurs['gm_code_num'].', '.

                'gm_code_alpha = "'.$aso_valeurs['gm_code_alpha'].'", '.

                'gm_nom = "'.$aso_valeurs['gm_nom'].'", '.

                'gm_raccourci_clavier = "'.$aso_valeurs['gm_raccourci_clavier'].'", '.

                'gm_robot = "'.$aso_valeurs['gm_robot'].'", '.

                'gm_titre = "'.$aso_valeurs['gm_titre'].'", '.

                'gm_titre_alternatif = "'.$aso_valeurs['gm_titre_alternatif'].'", '.

                'gm_mots_cles = "'.$aso_valeurs['gm_mots_cles'].'", '.

                'gm_description_libre = "'.$aso_valeurs['gm_description_libre'].'", '.

                'gm_description_resume = "'.$aso_valeurs['gm_description_resume'].'", '.

                'gm_description_table_matieres = "'.$aso_valeurs['gm_description_table_matieres'].'", '.

                'gm_source = "'.$aso_valeurs['gm_source'].'", '.

                'gm_auteur = "'.$aso_valeurs['gm_auteur'].'", '.

                'gm_contributeur = "'.$aso_valeurs['gm_contributeur'].'", '.

                'gm_editeur = "'.$aso_valeurs['gm_editeur'].'", '.

                'gm_date_creation = "'.$aso_valeurs['gm_date_creation'].'", '.

                'gm_date_debut_validite = "'.$aso_valeurs['gm_date_debut_validite'].'", '.

                'gm_date_fin_validite = "'.$aso_valeurs['gm_date_fin_validite'].'", '.

                'gm_date_copyright = "'.$aso_valeurs['gm_date_copyright'].'", '.

                'gm_licence = "'.$aso_valeurs['gm_licence'].'", '.

                'gm_categorie = "'.$aso_valeurs['gm_categorie'].'", '.

                'gm_public = "'.$aso_valeurs['gm_public'].'", '.

                'gm_public_niveau = "'.$aso_valeurs['gm_public_niveau'].'", '.

                'gm_ce_type_portee_spatiale = "'.$aso_valeurs['gm_ce_type_portee_spatiale'].'", '.

                'gm_portee_spatiale = "'.$aso_valeurs['gm_portee_spatiale'].'", '.

                'gm_ce_type_portee_temporelle = "'.$aso_valeurs['gm_ce_type_portee_temporelle'].'", '.

                'gm_portee_temporelle = "'.$aso_valeurs['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)) : '';

    // Gestion de la relation menu par défaut

    if (isset($aso_valeurs['defaut']) && $aso_valeurs['defaut'] == 1) {

        $requete_id_menu_supr_defaut =  'SELECT GM01.gm_id_menu AS id_menu_supr_defaut '.

                                        'FROM gen_menu AS GM01, gen_menu AS GM02, gen_menu_relation '.

                                        'WHERE GM02.gm_id_menu = '.$adme_menu_id.' '.

                                        'AND GM02.gm_ce_site = GM01.gm_ce_site '.

                                        'AND GM01.gm_id_menu = gmr_id_menu_01 '.

                                        'AND gmr_id_valeur = 101 ';// 101 = menu par "defaut"

        $resultat_menu_supr_defaut = $db->query($requete_id_menu_supr_defaut);

        //echo '<pre>'.print_r($resultat_menu_supr_defaut, true).'</pre>';

        if (DB::isError($resultat_menu_supr_defaut)) {

            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_menu_supr_defaut->getMessage(), $requete_id_menu_supr_defaut));

        }

        $ligne_menu_supr_defaut = $resultat_menu_supr_defaut->fetchRow(DB_FETCHMODE_OBJECT);

        if ($resultat_menu_supr_defaut->numRows() > 0 ) {

            $requete_supr_defaut =  'DELETE FROM gen_menu_relation '.

                                    'WHERE gmr_id_menu_01 = gmr_id_menu_02 '.

                                    'AND gmr_id_valeur = 101 '.// 101 = menu par "defaut"

                                    'AND gmr_id_menu_01 = '.$ligne_menu_supr_defaut->id_menu_supr_defaut;

            $resultat_supr_defaut = $db->query($requete_supr_defaut);

            if (DB::isError($resultat_supr_defaut)) {

                die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_defaut->getMessage(), $requete_supr_defaut));

            }

        }

        $resultat_menu_supr_defaut->free();

        // Requete d'insertion de la relation menu par défaut

        $requete =  'INSERT INTO gen_menu_relation '.

                    'SET gmr_id_menu_01 = '.$adme_menu_id.', '.

                    'gmr_id_menu_02 = '.$adme_menu_id.', '.

                    'gmr_id_valeur = 101, '.

                    'gmr_ordre = NULL ';

        $resultat = $db->query($requete);

        if (DB::isError($resultat)) {

            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));

        }

    }

}

/** Fonction ADME_deplacerMenuClassique() - Permet de déplacer un menu dans la hiérarchie.

*

* Permet de déplacer un menu dans la hiérarchie des menus classiques.

* Ancien nom : moveMenu()

*

* @param  mixed   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_deplacerMenuClassique($db, $adme_site_id, $adme_menu_id, $bln_monter)

{

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

    // Récupération d'information sur le site de ce menu.

    $objet_site = GEN_lireInfoSitePrincipal($db, $adme_site_id);

    if ($objet_site == false) {

        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_SITE.'<br />'.

            'Id du site : '. $adme_site_id .'<br />'.

            'Ligne n° : '. __LINE__ .'<br />'.

            'Fichier n° : '. __FILE__ .'<br />');

    }

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

    // Récupération d'informations sur les relations du menu courant.

    $ligne_menu_courant_relation = GEN_lireInfoMenuRelation($db, $adme_menu_id, '1');

    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 />');

    }

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

    // Récupération de l'identifiant du menu pére

    $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 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 = '.$objet_site->gs_id_site.' '.

                'AND GMR02.gmr_id_valeur = 100 '.// 100 = menu type "classique"

                '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 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_update = $db->query($requete);

    (DB::isError($resultat_update)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_update->getMessage(), $requete)) : '';

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

    // Mise à jour des relations 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_update = $db->query($requete);

    (DB::isError($resultat_update)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_update->getMessage(), $requete)) : '';

}

/** Fonction ADME_indenterMenuClassique() - Permet d'augmenter ou diminuer l'indentation d'un menu dans la

 * hierarchie

*

* Permet d'augmenter ou diminuer l'indentation d'un menu dans la hierarchie

*

* @param  mixed   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 diminuer (gauche) l'indentation (true) ou augmenter (droite) l'indentation (false).

* @return void    modifie la base de données.

*/

function ADME_indenterMenuClassique($db, $adme_site_id, $adme_menu_id, $bln_diminuer) {

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

    // Récupération d'information sur le site de ce menu.

    $objet_site = GEN_lireInfoSitePrincipal($db, $adme_site_id);

    if ($objet_site == false) {

        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_SITE.'<br />'.

            'Id du site : '. $adme_site_id .'<br />'.

            'Ligne n° : '. __LINE__ .'<br />'.

            'Fichier n° : '. __FILE__ .'<br />');

    }

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

    // Récupération d'informations sur les relations du menu courant.

    $ligne_menu_courant_relation = GEN_lireInfoMenuRelation($db, $adme_menu_id, '1');

    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 />');

    }

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