Subversion Repositories Applications.papyrus

Rev

Rev 7 | Rev 110 | 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 library is free software; you can redistribute it and/or                                        |
// | modify it under the terms of the GNU Lesser General Public                                           |
// | License as published by the Free Software Foundation; either                                         |
// | version 2.1 of the License, or (at your option) any later version.                                   |
// |                                                                                                      |
// | This library is distributed in the hope that it will be useful,                                      |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
// | Lesser General Public License for more details.                                                      |
// |                                                                                                      |
// | You should have received a copy of the GNU Lesser General Public                                     |
// | License along with this library; if not, write to the Free Software                                  |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: adme_menu_classique.fonct.php,v 1.2 2004-07-06 17:07:37 jpm 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        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.2 $ $Date: 2004-07-06 17:07:37 $
// +------------------------------------------------------------------------------------------------------+
*/

// +------------------------------------------------------------------------------------------------------+
// |                                            ENTÊTE du PROGRAMME                                       |
// +------------------------------------------------------------------------------------------------------+
                                    /*Mettre ici les inclusions de fichiers*/



// +------------------------------------------------------------------------------------------------------+
// |                                            CORPS du PROGRAMME                                        |
// +------------------------------------------------------------------------------------------------------+
                                       /*Mettre ici le code du programme*/



// +------------------------------------------------------------------------------------------------------+
// |                                           LISTE de FONCTIONS                                         |
// +------------------------------------------------------------------------------------------------------+
                                        /*Mettre ici la liste de fonctions.*/
function lister_menu_racine($db, 
                            $baseURL, $baseURLjs, $baseHidden,
                            $adminProject, $adminLocale, $adminAnnu,
                            $menuid, $upperid,
                            $doccmd, $menuopen, $upperopen, $id_pere)
{
    //----------------------------------------------------------------------------
    // Labels.
    $cancelLabel   = "Annuler";
    $showLabel     = "Modifier le document";
    $deleteLabel   = "Supprimer";
    $addMenu2Label = "Ajouter un menu de niveau 2";
    
    //----------------------------------------------------------------------------
    // Javascript.
    $goMsg = addslashes ("Supprimer");
    $fullURLjs = $baseURLjs.'&menuview=menu';
    
    GEN_stockerFonctionScript('deleteMenu',
        "  function deleteMenu (iMenuId) {"."\n".
        "    var url = '$fullURLjs'+'&doccmd=delmenu&menuid='+iMenuId+'&menuopen=".($menuopen ? 1 : 0)."';"."\n".
        "    if (window.confirm ('$goMsg')) document.location = url;"."\n".
        "  }"."\n"
    );
    
    //----------------------------------------------------------------------------
    // Récupération des informations sur le site à administrer.
    
    $res = "<ul>\n";
    
    $requete =  'SELECT * '.
                'FROM gen_site, gen_site_relation '.
                'WHERE gs_code_alpha = "'.$adminProject.'" '.
                'AND gs_id_site = gsr_id_site_01 '.
                'AND gsr_id_site_01 = gsr_id_site_02 '.
                'AND gsr_id_valeur = 102 ';// 102 = site "principal"
    
    $result = $db->query($requete);
    if (DB::isError($result)) {
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete));
    }
    
    if ($result->numRows() != 1) {
        return '';
    }
    $PRJrow = $result->fetchRow(DB_FETCHMODE_OBJECT);
    $result->free();
    
    //----------------------------------------------------------------------------
    // Liste des menus de niveau 1.
    
    $requete =  'SELECT * '.
                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
                'WHERE gm_ce_site = "'.$PRJrow->gs_id_site.'" '.
                'AND gm_ce_i18n = "'.$adminLocale.'" '.
                '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"
                'AND GMR01.gmr_id_menu_02 = '.$id_pere.' '.
                'AND GMR01.gmr_id_menu_01 = gm_id_menu '.
                'AND GMR01.gmr_id_valeur = 1 '.// 1 = avoir "père"
                'ORDER BY GMR01.gmr_ordre ASC';
    
    $L1result = $db->query($requete);
    (DB::isError($L1result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $L1result->getMessage(), $requete)) : '';
    
    // On recherche quel est le menu de niveau 1 correspondant au menuid courant
    if (isset($menuid)) {
        $menu_id_ancetre = GEN_lireIdentifiantMenuAncetre($menuid);
    } else {
        $menu_id_ancetre = '' ;
    }
    
    while ($L1row = $L1result->fetchRow(DB_FETCHMODE_OBJECT)) {
        // est-ce que $menuid = menuracine
        if ($L1row->gm_id_menu == $menu_id_ancetre) {
            $res .= deployer_menu($L1row->gm_id_menu, $adminProject) ;
        } else {
            $res .= menu_toHTML($L1row->gm_id_menu, false, $adminProject) ;
        }
    }
    
    //----------------------------------------------------------------------------
    // End of menu table.
    $res .= "\n".'</ul>';
    
    //----------------------------------------------------------------------------
    // Cleanup.
    $L1result->free();
    
    return $res;
}

/** Fonction addMenu() - Ajoute un sous menu au menu courant
*
*   @param  string  Le projet courant
*   @param  string  La langue courante
*   @return void le menu classique est ajouté à la base de données.
*/
function addMenu($adminProject, $adminLocale) 
{
    global $db, $_GEN_commun, $menuid;
    
    //----------------------------------------------------------------------------
    // Récupération d'infos sur le site principal.
    $PRJrow = GEN_lireInfoSitePrincipalCodeAlpha($db, $adminProject);
    if ($PRJrow == false) {
        die('ERREUR Génésia Administrateur de Menus : impossible de lire les infos du site.<br />'.
            'Code alpha du site : '. $adminProject .'<br />'.
            'Ligne n° : '. __LINE__ .'<br />'.
            'Fichier n° : '. __FILE__ .'<br />');
    }
    
    //----------------------------------------------------------------------------
    // Récupération d'infos sur le nouveau menu
    if ($adminLocale == $PRJrow->gs_ce_i18n) {
        $id_site = $PRJrow->gs_id_site;
    } else {
        $ligne_admin_site_i18n = getSiteI18nInfos($db, $adminProject, $adminLocale);// Info du site en cours d'administration
        $id_site = $ligne_admin_site_i18n->gs_id_site;
    }
    $nouveau_id_menu = SQL_obtenirNouveauId($db, 'gen_menu', 'gm_id_menu');
    $auteur = $_GEN_commun['pear_auth']->getAuthData('ga_prenom').' '.$_GEN_commun['pear_auth']->getAuthData('ga_nom');
    
    //----------------------------------------------------------------------------
    // Ajout du nouveau menu
    $requete =  'INSERT INTO gen_menu '.
                'SET gm_id_menu = '.$nouveau_id_menu.', '.
                'gm_ce_site = '.$id_site.', '.
                'gm_ce_i18n = "'.$adminLocale.'", '.
                'gm_ce_application = 0, '.
                'gm_code_num = '.$nouveau_id_menu.', '.
                'gm_code_alpha = "menu_'.$nouveau_id_menu.'", '.
                'gm_nom = "menu_'.$nouveau_id_menu.'", '.
                'gm_auteur = "'.$auteur.'", '.
                'gm_editeur = "'.$PRJrow->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_copyright = "'.date('Y-00-00 00:00:00').'", '.
                'gm_categorie = "menu", '.
                'gm_ce_admin = '.$_GEN_commun['pear_auth']->getAuthData('ga_id_administrateur').' '
                ;
    
    $result = $db->query($requete);
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
    
    //----------------------------------------------------------------------------
    // Ajout de la relation "père"
    
    if (!isset($menuid) && empty($menuid)) {
        $menuid = 0 ;// Identifiant du père
    }
    //----------------------------------------------------------------------------
    // Récupération d'infos sur la hierarchie du menu
    $requete =  'SELECT * '.
                'FROM gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
                'WHERE GMR01.gmr_id_menu_02 = '.$menuid.' '.
                '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';
    
    $result = $db->query($requete);
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
    
    $row = $result->fetchRow(DB_FETCHMODE_OBJECT);
    $nouveau_ordre_menu = $row->gmr_ordre + 1;
    $result->free();
    
    $requete =  'INSERT INTO gen_menu_relation '.
                'SET gmr_id_menu_02 = '.$menuid.', '.
                'gmr_id_menu_01 = '.$nouveau_id_menu.', '.
                'gmr_id_valeur = 1, '.
                'gmr_ordre = '.$nouveau_ordre_menu;
    
    $result = $db->query($requete);
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->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 '.// 10 = type menu "classique"
                'AND gmr_id_menu_01 = gm_id_menu '.
                'AND gm_ce_site = '.$id_site.' '.
                'ORDER BY gmr_ordre DESC';
    
    $result = $db->query($requete);
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
    
    $row = $result->fetchRow(DB_FETCHMODE_OBJECT);
    $nouveau_ordre_menu_classique = $row->gmr_ordre + 1;
    $result->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 showMenu() - Affiche le formulaire de saisie d'un menu
*
*
*   @return  string  Le HTML
*/
function showMenu(  $db, 
                    $adminProject, $adminLocale,
                    $baseURL, $baseURLjs, $baseHidden,
                    $menuid, $docid, $pageid, $menuopen, $docopen, $pageopen)
{
    //----------------------------------------------------------------------------
    // Initialisation de variable
    $closeURL = $baseURL.'&amp;menuid='.$menuid.'&amp;menuopen='.$menuopen;
    
    //----------------------------------------------------------------------------
    // Récupération d'information sur le site de ce menu.
    $PRJrow = GEN_lireInfoSitePrincipalCodeAlpha($db, $adminProject);
    if ($PRJrow == false) {
        die('ERREUR Génésia Administrateur de Menus : impossible de lire les infos du site.<br />'.
            'Code alpha du site : '. $adminProject .'<br />'.
            'Ligne n° : '. __LINE__ .'<br />'.
            'Fichier n° : '. __FILE__ .'<br />');
    }
    
    //----------------------------------------------------------------------------
    // Récupération des informations du menu concerné.
    $ligne_menu = GEN_lireInfoMenu($db, $menuid, DB_FETCHMODE_ASSOC);
    if ($ligne_menu == false) {
        die('ERREUR Génésia Administrateur de Menus : impossible de lire les infos du menu.<br />'.
            'Idenitifiant du menu n° : '. $menuid .'<br />'.
            'Ligne n° : '. __LINE__ .'<br />'.
            'Fichier n° : '. __FILE__ .'<br />');
    }
    
    //----------------------------------------------------------------------------
    // Titre de la page
    $res = '<h1>'.'Modification menu'.'</h1>'."\n";
    //----------------------------------------------------------------------------
    // Création du formulaire
    $form =& new HTML_QuickForm('updform', 'post', $baseURLjs);
    $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">*</span><!-- END required -->'."\n".
                                    '<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n".
                                    '</li>'."\n");
    $squelette->setRequiredNoteTemplate("\n".'<p><span class="symbole_obligatoire">*</span> {requiredNote}</p>'."\n");
    
    $partie_menu_debut = '<fieldset>'."\n".'<legend>Configuration du menu</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.'">'.'Code numérique du menu'.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    $form->addRule($id, 'Un code numérique est requis pour le menu !', 'required', '', 'client');
    
    $id = 'gm_code_alpha';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 20, 'maxlength' => 20);
    $label = '<label for="'.$id.'">'.'Code alphanumérique du menu'.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    $form->addRule($id, 'Un code alphanumérique est requis pour le menu !', 'required', '', 'client');
    
    $id = 'gm_nom';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 50, 'maxlength' => 100);
    $label = '<label for="'.$id.'">'.'Nom du menu'.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    $form->addRule($id, 'Un nom est requis pour le menu !', '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 = 'defaut';
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
    $label = '<label for="'.$id.'">'.'En faire le menu par défaut'.'</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.'">'.'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.'">'.'Contenu info-bulle'.'</label>';
    $form->addElement('textarea', $id, $label, $aso_attributs);
    $form->addRule($id, 'Une description courte pour l\'info-bulle est requise pour ce menu !', '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.'">'.'Application'.'</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.'">'.'Arguments de l\'application'.'</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>Entête des pages du menu</legend>'."\n".'<ul>'."\n";
    $form->addElement('html', $partie_entete_debut);
    
    $id = 'gm_robot';
    $aso_options = array(   'index,follow' => 'Indexer cette page et les suivantes',
                            'index' => 'Indexer seulement cette page',
                            'noindex' => 'Ne pas indexer cette page',
                            'noindex,nofollow' => 'Ne pas indexer cette page et les suivantes',
                            '' => 'Auncune');
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
    $label = '<label for="'.$id.'">'.'Indexation par robots'.'</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.'">'.'Titre de la page'.'</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.'">'.'Titre alternatif de la page'.'</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.'">'.'Mots-clés'.'</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.'">'.'Description du contenu '.'</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.'">'.'Table des matières'.'</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.'">'.'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.'">'.'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.'">'.'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.'">'.'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.'">'.'Date de début de validité'.'</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.'">'.'Date de fin de validité'.'</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.'">'.'Année pour le 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.'">'.'URL de la 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.'">'.'Catégorie'.'</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.'">'.'Public pour la page'.'</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.'">'.'Niveau du public pour la page'.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $id = 'gm_ce_type_portee_spatiale';
    $aso_options = array(   '' => 'Aucun',
                            'iso3166' => 'Code de pays sur deux lettres (iso3166)',
                            'Point' => 'Point géographique',
                            'Box' => 'Représenation des régions géographiques du Dublin Core',
                            'TGN' => 'Noms issus du Getty Thesaurus of Geographic Names');
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
    $label = '<label for="'.$id.'">'.'Type de portée spatiale'.'</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.'">'.'Portée spatiale de la page'.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $id = 'gm_ce_type_portee_temporelle';
    $aso_options = array(   '' => 'Aucun',
                            'W3CDTF' => 'Codage des dates et heures du W3C',
                            'Period' => 'Représentation des intervalles de temps du Dublin Core');
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
    $label = '<label for="'.$id.'">'.'Type de portée temporelle'.'</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.'">'.'Portée temporelle de la page'.'</label>';
    $form->addElement('text', $id, $label, $aso_attributs);
    
    $partie_entete_fin = '</ul>'."\n".'</fieldset>'."\n";
    $form->addElement('html', $partie_entete_fin);
    
    $bouton_validation = '<input type="submit" value="'.'Enregistrer'.'" title="'.'Enregistrer'.'" />';
    $bouton_annuler =   '<a class="bouton" href="'.$closeURL.'" title="'.'Annuler'.'" >'.'Annuler'.'</a>';
    $boutons =  '<p>'."\n".$bouton_validation.' '."\n".$bouton_annuler."\n".'</p>'."\n";
    $form->addElement('html', $boutons);
    
    $partie_cachee_debut = '<p>'."\n";
    $form->addElement('html', $partie_cachee_debut);
    
    $form->addElement('html', $baseHidden);
    $form->addElement('hidden', 'menuid', $menuid);
    $form->addElement('hidden', 'docid', $docid);
    $form->addElement('hidden', 'pageid', $pageid);
    $form->addElement('hidden', 'menuopen', $menuopen);
    $form->addElement('hidden', 'docopen', $docopen);
    $form->addElement('hidden', 'pageopen', $pageopen);
    $form->addElement('hidden', 'doccmd', 'commitupdmenu');
    
    $partie_cachee_fin = '</p>'."\n";
    $form->addElement('html', $partie_cachee_fin);
    
    // Instanciation avec les valeur par défaut
    $form->setDefaults($ligne_menu);
    
    // Javascript pour la validation côté client
    $regles_javascript = $form->getValidationScript();
    // Suppression des balises déjà créées par GEN_stockerCodeScript()
    $regles_javascript = ereg_replace ( '<script type="text\/javascript">', '', $regles_javascript);
    $regles_javascript = ereg_replace ( '<!--', '', $regles_javascript);
    $regles_javascript = ereg_replace ( '\/\/-->', '', $regles_javascript);
    $regles_javascript = ereg_replace ( '<\/script>', '', $regles_javascript);
    GEN_stockerCodeScript($regles_javascript);
    
    // Note de fin de formulaire
    $form->setRequiredNote('Indique les champs obligatoires');
    
    $res .= $form->toHTML()."\n";
    return $res;
}

/** Fonction commitUpdateLevel() - Enregistre les infos du formulaire de saisie d'un menu
*
*
*   @return  void  les données sont enregistrées dans la base de données.
*/
function commitUpdateLevel($db, $adminProject, $adminLocale, $menuid)
{
    global $_GEN_commun;
    
    $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_ce_type_portee_spatiale = "'.$_POST['gm_ce_type_portee_spatiale'].'", '.
                'gm_portee_spatiale = "'.$_POST['gm_portee_spatiale'].'", '.
                'gm_ce_type_portee_temporelle = "'.$_POST['gm_ce_type_portee_temporelle'].'", '.
                'gm_portee_temporelle = "'.$_POST['gm_portee_temporelle'].'", '.
                'gm_ce_admin = "'.$_GEN_commun['pear_auth']->getAuthData('ga_id_administrateur').'" '.
                'WHERE gm_id_menu = '.$menuid;
    
    $result = $db->query($requete);
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
    
    // Gestion de la relation menu par défaut
    if (isset($_POST['defaut']) && $_POST['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 = '.$menuid.' '.
                                        '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);
        if (DB::isError($resultat_menu_supr_defaut)) {
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_menu_supr_defaut->getMessage(), $requete_id_menu_supr_defaut));
        }
        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 = '.$resultat_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));
            }
        }
        // Requete d'insertion de la relation menu par défaut
        $requete =  'INSERT INTO gen_menu_relation '.
                    'SET gmr_id_menu_01 = '.$menuid.', '.
                    'gmr_id_menu_02 = '.$menuid.', '.
                    'gmr_id_valeur = 101, '.
                    'gmr_ordre = NULL ';
        $resultat = $db->query($requete);
        if (DB::isError($resultat)) {
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
        }
    }
}

/** Fonction moveMenu() - Permet de déplacer un menu dans la hiérarchie.
*
* Permet de déplacer un menu dans la hiérarchie des menus classiques.
*
*   @param  mixed  objet Pear DB de connexion à la base de données.
*   @param  string  code du site administré.
*   @param  string  identifiant de l'i18n du site administré.
*   @param  int  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 moveMenu($db, $adminProject, $adminLocale, $menuid, $up)
{
    //----------------------------------------------------------------------------
    // Récupération d'information sur le site de ce menu.
    $PRJrow = GEN_lireInfoSitePrincipalCodeAlpha($db, $adminProject);
    if ($PRJrow == false) {
        die('ERREUR Génésia Administrateur de Menus : impossible de lire les infos du site.<br />'.
            'Code alpha du site : '. $adminProject .'<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, $menuid, '1');
    if ($ligne_menu_courant_relation == false) {
        die('ERREUR Génésia Administrateur de Menus : impossible de lire les infos sur les relations du menu.<br />'.
            'Identifiant menu : '. $menuid .'<br />'.
            'Identifiant valeur relation : 1 <br />'.
            'Ligne n° : '. __LINE__ .'<br />'.
            'Fichier n° : '. __FILE__ .'<br />');
    }
    $id_pere = $ligne_menu_courant_relation->gmr_id_menu_02;
    
    // Il serait mieux d'utiliser la fonction ci-dessous.
    // Mais cela ne semble pas fonctionner!!!
    /*
    $id_pere = GEN_lireIdentifiantMenuPere($menuid);
    if ($id_pere == false) {
        die('ERREUR Génésia Administrateur de Menus : impossible de lire identifiant du menu père.<br />'.
            'Identifiant menu fils : '. $menuid .'<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_relation AS GMR01, gen_menu_relation AS GMR02 '.
                'WHERE GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
                '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 ($up) {
        $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';
    }
    
    $MENUresult = $db->query($requete);
    (DB::isError($MENUresult)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $MENUresult->getMessage(), $requete)) : '';
    
    $MENUrow = $MENUresult->fetchRow(DB_FETCHMODE_OBJECT);
    $MENUresult->free();
    
    //----------------------------------------------------------------------------
    // Si la requete ne retourne rien nous ne faisons rien.
    if (! $MENUrow) {
        return;
    }
    
    //----------------------------------------------------------------------------
    // Mise à jour des relations du menu courant
    $requete =  'UPDATE gen_menu_relation SET '.
                'gmr_ordre = '.$MENUrow->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"
    
    $result = $db->query($requete);
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->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 = '.$MENUrow->id_menu_remplace.' '.
                'AND gmr_id_valeur = 1';// 1 = relation menu "père"
    
    $result = $db->query($requete);
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
}

/** Fonction deleteMenu() - 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.
*
*   @param mixed l'objet Pear DB de connexion à la base de données.
*   @param  string  l'identifiant du menu à supprimer
*   @return  void le menu classique est supprimé de la base de données.
*/
function deleteMenu($objet_pear_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 = $objet_pear_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 "Il reste des menus attachés à ce menu !";
    }
    
    //----------------------------------------------------------------------------
    // 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 = $objet_pear_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 = $objet_pear_db->query($requete);
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
}


/** Fonction deployer_menu () - Affiche un menu en html
*
*   @param  integer l'identifiant du menu
*   @param  integer le code (numérique ou alphanumérique) du site administré.
*   @return string  du code HTML
*/
function deployer_menu($id_menu_a_deployer, $adminProject)
{
    global $project, $locale, $db, $menuopen, $menuid;
    
    // 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 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));
    }
    
    if (isset($menuid)) {
        $menu_id_ancetre = GEN_lireIdentifiantMenuAncetre($menuid);
    }
    
    $res = '' ;
    if ($resultat_sous_menu->numRows() > 0) {
        // ici, on sait qu'un menu a des sous menus
        // on commence par l'afficher
        // $afficher_un_moins vaut vrai si :
        // - menuopen vaut 1 ET menuid (de l'url) égale le menu qu'on est en train de déployer
        // - OU  l'identifiant du menu racine du menuid est celui qu'on est en train de déployer
        //   mais n'est pas la racine
        $afficher_un_moins = ($menuopen && $menuid == $id_menu_a_deployer)
                                || (GEN_etreAncetre($id_menu_a_deployer, $menuid)  && $menuid != $menu_id_ancetre);
        $res .= menu_toHTML($id_menu_a_deployer, $afficher_un_moins, $adminProject);
        if ($afficher_un_moins) {
            while ($ligne_sous_menu = $resultat_sous_menu->fetchRow(DB_FETCHMODE_OBJECT)) {
                $res .= '<ul>'."\n" ;
                $res .= deployer_menu($ligne_sous_menu->gm_id_menu, $adminProject);
                $res .= '</ul>';
            }
        }
    } else {
        $res .= menu_toHTML($id_menu_a_deployer, true, $adminProject);
    }
    return $res;
}

/** Fonction menu_toHTML () Effectue une sortie d'un menu en HTML
*
*
*   @return  string  Une liste HTML
*/
function menu_toHTML($menuid, $deplier, $adminProject)
{
    global $db, $_GEN_commun, $menu, $locale, $menuopen, $doccmd ;
    $cancelLabel   = 'Annuler';
    $etiquette_alt_modifier     = 'Modifier';
    $etiquette_title_modifier     = 'Modifier ce menu';
    $etiquette_alt_supprimer   = 'Supprimer';
    $etiquette_title_supprimer   = 'Supprimer ce menu';
    $etiquette_alt_ajouter = 'Ajouter';
    $etiquette_title_ajouter = 'Ajouter un menu inférieur';
    $etiquette_alt_monter = 'Monter';
    $etiquette_title_monter = 'Monter ce menu';
    $etiquette_alt_descendre = 'Descendre';
    $etiquette_title_descendre = 'Descendre ce menu';
    $etiquette_alt_redaction = 'Rédiger';
    $etiquette_title_redaction = 'Rédiger le contenu de ce menu';
    
    $label_deplier = "Déplier" ;
    $label_plier = "Plier" ;
    
    $baseURL =  'papyrus.php?'.
                'site='.$_GEN_commun['url_site'].
                '&menu='.$_GEN_commun['url_menu'].
                '&langue='.$_GEN_commun['url_i18n'].
                '&adminProject='.$adminProject;
    
    $requete =  'SELECT *, ga_prenom '.
                'FROM gen_menu, gen_annuaire '.
                'WHERE gm_id_menu = '.$menuid.' '.
                '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);
    
    // recherche de l'application liée
    $requete_app =  'SELECT gap_nom '.
                    'FROM gen_application '.
                    'WHERE gap_id_application = '.$ligne->gm_ce_application;
    
    $resultat_app = $db->query($requete_app);
    if (DB::isError($resultat_app)) {
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_app->getMessage(), $requete_app));
    }
    $ligne_app = $resultat_app->fetchRow(DB_FETCHMODE_OBJECT);
    $resultat_app->free();
    
    if ($deplier) {
      $imgURL  = ADME_IMAGE_MOINS;
      $imgHREF = $baseURL.'&amp;menuid='.$ligne->gm_id_menu;
      $alt = $label_plier ;
    } else {
        $imgURL  = ADME_IMAGE_PLUS;
        $imgHREF = $baseURL.'&amp;menuid='.$ligne->gm_id_menu.'&amp;menuopen=1';
        $alt = $label_deplier ;
    }
    
    if (isset($imgURL) && $imgURL != '') {
        $img = '<a href="'.$imgHREF.'" class="anchor" title="'.$alt.'">'.
          '<img src="'.$imgURL.'" alt="'.$alt.'" width="9" height="9" border="0" />'.
          '</a>'.'&nbsp;';
    } else {
        $img = '';
    }
    
    //------------------------------------------------------------------------
    // Url de base
    $pageHREF = $baseURL.'&amp;menuid='.$ligne->gm_id_menu.'&amp;menuopen='.($menuopen ? 1 : 0);
    
    //------------------------------------------------------------------------
    // Affichage du nom du menu et de ses infos
    $menuText  = htmlentities(empty($ligne->gm_nom) ? "($ligne->gm_nom)" : $ligne->gm_nom);
    $menuText .= '&nbsp;';
    $menuText .= '('.$ligne_app->gap_nom.' / '.$ligne->ga_prenom.')';
    $menuText .= '&nbsp;';
    //------------------------------------------------------------------------
    // Icones d'actions
    $actionIcons = 
        '<a href="'.$pageHREF.'&amp;doccmd=showmenu" title="'.$etiquette_title_modifier.'">'.
        '<img src="'.ADME_IMAGE_VOIR.'" alt="'.$etiquette_alt_modifier.'" width="16" height="16" border="0" />'.
        '</a>'.
        '&nbsp;'.
        '<a href="'.$pageHREF.'&amp;doccmd=upmenu" title="'.$etiquette_title_monter.'">'.
        '<img src="'.ADME_IMAGE_FLECHE_HAUT.'" alt="'.$etiquette_alt_monter.'" width="16" height="16" border="0" />'.
        '</a>'.
        '&nbsp;'.
        '<a href="'.$pageHREF.'&amp;doccmd=dnmenu" title="'.$etiquette_title_descendre.'">'.
        '<img src="'.ADME_IMAGE_FLECHE_BAS.'" alt="'.$etiquette_alt_descendre.'" width="16" height="16" border="0" />'.
        '</a>'.
        '&nbsp;'.
        '<a href="javascript:deleteMenu ('.$ligne->gm_id_menu.')" title="'.$etiquette_title_supprimer.'">'.
        '<img src="'.ADME_IMAGE_SUPPRIMER.'" alt="'.$etiquette_alt_supprimer.'" width="16" height="16" border="0" />'.
        '</a>'.
        '&nbsp;'.
        '<a href="'.$baseURL.'&amp;menuview=menu&amp;menuid='.$ligne->gm_id_menu.'&amp;menuopen=1&amp;doccmd=addmenu" title="'.$etiquette_title_ajouter.'">'.
        '<img src="'.ADME_IMAGE_NOUVEAU.'" alt="'.$etiquette_alt_ajouter.'" width="16" height="16" border="0" />'.
        '</a>'.'&nbsp;';
    
    // Si l'application liée est "texte simple", on ajoute un icone avec un lien vers
    // l'administration de cette application.
    if ($ligne->gm_ce_application == 3) {     // l'appli afficheur a pour id 3
        //$url_popup = DOCADM_CHEMIN_APPLICATION."docpopup.php?admproject=$adminProject&locale=$locale&menu=$menuid" ;
        $actionIcons .= '<a href="'.$pageHREF.'&amp;doccmd=contenuredac" title="'.$etiquette_title_redaction.'">'.
                            '<img src="'.ADME_IMAGE_TEXTE.'" alt="'.$etiquette_alt_redaction.'" width="16" height="16" border="0" />'.
                        '</a>'.'&nbsp;';
    }
    
    //--------------------------------------------------------------------------
    // Envoi du menu.
    $res = '<li class="text">'.$img.$menuText.$actionIcons.'</li>'."\n";
    return $res;
}

// +------------------------------------------------------------------------------------------------------+
// |                                            PIED du PROGRAMME                                         |
// +------------------------------------------------------------------------------------------------------+
                                           /*Partie non obligatoire*/                                     


/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* 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.27  2004/05/10 12:13:03  jpm
* Modification des formulaires.
*
* Revision 1.26  2004/05/07 16:31:20  jpm
* Amélioration du formulaire d'un menu classique.
*
* Revision 1.25  2004/05/07 07:23:53  jpm
* Amélioration du code, des commentaires et correction de bogues.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>