Subversion Repositories Applications.papyrus

Rev

Rev 466 | Rev 877 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
7 jpm 1
<?php
2
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3
// +------------------------------------------------------------------------------------------------------+
4
// | PHP version 4.1                                                                                      |
5
// +------------------------------------------------------------------------------------------------------+
6
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
7
// +------------------------------------------------------------------------------------------------------+
134 jpm 8
// | This file is part of Papyrus.                                                                        |
7 jpm 9
// |                                                                                                      |
134 jpm 10
// | Foobar is free software; you can redistribute it and/or modify                                       |
11
// | it under the terms of the GNU General Public License as published by                                 |
12
// | the Free Software Foundation; either version 2 of the License, or                                    |
13
// | (at your option) any later version.                                                                  |
14
// |                                                                                                      |
15
// | Foobar is distributed in the hope that it will be useful,                                            |
7 jpm 16
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
134 jpm 17
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                                        |
18
// | GNU General Public License for more details.                                                         |
7 jpm 19
// |                                                                                                      |
134 jpm 20
// | You should have received a copy of the GNU General Public License                                    |
21
// | along with Foobar; if not, write to the Free Software                                                |
7 jpm 22
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
23
// +------------------------------------------------------------------------------------------------------+
818 ddelon 24
// CVS : $Id: adme_menu_commun.fonct.php,v 1.20 2006-04-12 21:11:54 ddelon Exp $
7 jpm 25
/**
26
* Application de gestion des menus communs
27
*
28
* Permet de lister, d'ajouter, de modifier, et de déplacer des menus communs.
134 jpm 29
* Par menus communs, nous entendons tous les menus devant paraitre sur l'ensemble des pages de plusieurs site,
7 jpm 30
* comme le lien vers le plan du site, le lien vers la charte d'accessibilité, le flux rss...
31
*
25 jpm 32
*@package Admin_menu
7 jpm 33
*@subpackage Fonctions
34
//Auteur original :
285 jpm 35
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
7 jpm 36
//Autres auteurs :
37
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
410 ddelon 38
*@author        David Delon <david.delon@clapas.net>
285 jpm 39
*@author        Laurent COUDOUNEAU <lc@gsite.org>
7 jpm 40
*@copyright     Tela-Botanica 2000-2004
818 ddelon 41
*@version       $Revision: 1.20 $ $Date: 2006-04-12 21:11:54 $
7 jpm 42
// +------------------------------------------------------------------------------------------------------+
43
*/
44
 
45
// +------------------------------------------------------------------------------------------------------+
46
// |                                            ENTÊTE du PROGRAMME                                       |
47
// +------------------------------------------------------------------------------------------------------+
48
 
49
 
50
// +------------------------------------------------------------------------------------------------------+
51
// |                                            CORPS du PROGRAMME                                        |
52
// +------------------------------------------------------------------------------------------------------+
53
 
54
 
55
// +------------------------------------------------------------------------------------------------------+
56
// |                                           LISTE de FONCTIONS                                         |
57
// +------------------------------------------------------------------------------------------------------+
422 ddelon 58
/** Fonction ADME_afficherListeMenuCommun () - Affiche un arbre de menu en xhtml
134 jpm 59
*
60
* Elle forme l'arbre des menus communs à administrer.
61
* Ancien nom : deployer_menu().
62
*
63
* @param  object objet Pear de connection à la base de données.
64
* @param  object objet Pear représentant l'url de base.
65
* @param  integer l'identifiant du menu à administrer.
66
* @param  integer l'identifiant du menu sur lequel on agit.
67
* @param  string le nom de l'action courante.
68
* @param  integer l'identifiant du menu en cours de déploiement.
69
* @param  boolean true indique que l'on a à faire au premier appel de cette fonction récursive.
70
* @return string  le code XHTML constituant l'arbre des menus à administrer.
71
*/
72
function ADME_afficherListeMenuCommun($db, $url, $adme_site_id, $adme_menu_id, $adme_action, $id_menu_a_deployer, $bln_premier_appel = true)
7 jpm 73
{
134 jpm 74
    // Initialisation des variables :
75
    $retour = '';
7 jpm 76
 
134 jpm 77
    // Est-ce que ces menus comporte des sous-menus ?
78
    $requete_sous_menu =    'SELECT gm_id_menu '.
79
                            'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
80
                            'WHERE GMR01.gmr_id_menu_02 = '.$id_menu_a_deployer.' '.
81
                            'AND GMR01.gmr_id_menu_01 = gm_id_menu '.
82
                            //'AND gm_ce_site = '.$adme_site_id.' '.
83
                            'AND GMR01.gmr_id_valeur = 1 '.// 1 = avoir "père"
84
                            'AND GMR02.gmr_id_menu_02 = gm_id_menu '.
85
                            'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.
86
                            'AND GMR02.gmr_id_valeur = 102 '.// 102 = type "menu commun"
87
                            'ORDER BY GMR01.gmr_ordre ASC';
7 jpm 88
 
134 jpm 89
    $resultat_sous_menu = $db->query($requete_sous_menu) ;
90
    if (DB::isError($resultat_sous_menu)) {
91
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_sous_menu->getMessage(), $requete_sous_menu));
7 jpm 92
    }
93
 
134 jpm 94
    // Gestion du stockage ou déstockage des menus ouverts
150 jpm 95
    if (($adme_action == ADME_LG_ACTION_DEPLIER || $adme_action == ADME_LG_ACTION_COMMUN_AJOUTER) && $id_menu_a_deployer != 0) {
134 jpm 96
        $_SESSION['adme_menus_communs_ouverts'][$adme_menu_id] = $adme_menu_id;
97
    }
150 jpm 98
    if ($adme_action == ADME_LG_ACTION_PLIER && $id_menu_a_deployer != 0) {
134 jpm 99
        unset($_SESSION['adme_menus_communs_ouverts'][$adme_menu_id]);
100
        foreach ($_SESSION['adme_menus_communs_ouverts'] as $val) {
101
            if (GEN_etreAncetre($adme_menu_id, $val)) {
102
                unset($_SESSION['adme_menus_communs_ouverts'][$val]);
103
            }
104
        }
105
    }
7 jpm 106
 
134 jpm 107
    // Gestion affichage des menus
108
    if ($resultat_sous_menu->numRows() > 0) {
109
        // Ici, on sait qu'un menu a des sous menus, on commence par l'afficher:
110
        if ($bln_premier_appel == false) {
111
            $retour .= '<li>'."\n";
112
 
113
            if (GEN_etreAncetre($id_menu_a_deployer, $adme_menu_id) ||
150 jpm 114
                ($id_menu_a_deployer == $adme_menu_id && $adme_action == ADME_LG_ACTION_DEPLIER) ||
134 jpm 115
                isset($_SESSION['adme_menus_communs_ouverts'][$id_menu_a_deployer])
116
                ){
117
                // Affiche un -
118
                $retour .= ADME_retournerXhtmlMenuCommun($db, $url, $adme_site_id, $id_menu_a_deployer, 1);
119
            } else if ( !GEN_etreAncetre($id_menu_a_deployer, $adme_menu_id) ||
150 jpm 120
                        ($id_menu_a_deployer == $adme_menu_id && $adme_action == ADME_LG_ACTION_PLIER) ||
134 jpm 121
                        !isset($_SESSION['adme_menus_communs_ouverts'][$id_menu_a_deployer])
122
                        ){
123
                // Affiche un +
124
                $retour .= ADME_retournerXhtmlMenuCommun($db, $url, $adme_site_id, $id_menu_a_deployer, 2);
125
            }
126
        }
127
        if ($bln_premier_appel == true || GEN_etreAncetre($id_menu_a_deployer, $adme_menu_id) ||
150 jpm 128
            ($id_menu_a_deployer == $adme_menu_id && $adme_action == ADME_LG_ACTION_DEPLIER) ||
134 jpm 129
            isset($_SESSION['adme_menus_communs_ouverts'][$id_menu_a_deployer])
130
            ){
131
            $retour .= '<ul>'."\n";
132
            while ($ligne_sous_menu = $resultat_sous_menu->fetchRow(DB_FETCHMODE_OBJECT)) {
133
                $retour .= ADME_afficherListeMenuCommun($db, $url, $adme_site_id, $adme_menu_id, $adme_action, $ligne_sous_menu->gm_id_menu, false);
134
            }
135
            $retour .= '</ul>'."\n";
136
        }
137
        if ($bln_premier_appel == false) {
138
            $retour .= '</li>'."\n";
139
        }
140
    } else if ($resultat_sous_menu->numRows() == 0 && $bln_premier_appel == false) {
141
        $retour .= '<li>'."\n";
142
        $retour .= ADME_retournerXhtmlMenuCommun($db, $url, $adme_site_id, $id_menu_a_deployer, 0);
143
        $retour .= '</li>'."\n";
144
    }
145
 
146
    return $retour;
147
}
148
 
149
/** Fonction ADME_retournerXhtmlMenuCommun() - Effectue une sortie d'un menu en XHTML
150
*
151
* Retourne le XHTML d'une ligne de l'arbre des menus communs permettant de l'administer.
152
* Ancien nom : menu_toHtml().
153
*
154
* @param  object objet Pear de connection à la base de données.
155
* @param  object objet Pear représentant l'url de base.
156
* @param  integer l'identifiant du site à administrer.
157
* @param  integer l'identifiant du menu à administrer.
158
* @param  integer 0 indique que le menu ne possède pas de fils, 1 qu'il faut afficher un - et 2 un +.
159
* @return  string une ligne de liste XHTML
160
*/
818 ddelon 161
function ADME_retournerXhtmlMenuCommun($db, $url, $adme_site_id, $adme_menu_id, $int_deplier,$est_traduction=false)
134 jpm 162
{
141 jpm 163
    //-------------------------------------------------------------------------------------------------------------------
164
    // Récupération des infos concernant l'administrateur d'un menu
134 jpm 165
    $requete =  'SELECT gen_menu.*, ga_prenom '.
166
                'FROM gen_menu, gen_annuaire '.
167
                'WHERE gm_id_menu = '.$adme_menu_id.' '.
168
                'AND gm_ce_admin = ga_id_administrateur';
7 jpm 169
 
134 jpm 170
    $resultat = $db->query($requete);
171
    if (DB::isError($resultat)) {
172
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
173
    }
174
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
7 jpm 175
 
141 jpm 176
    //-------------------------------------------------------------------------------------------------------------------
177
    // Recupération des infos de l'appli du menu courant.
178
    $ligne_app = GEN_retournerInfoAppliMenu($db, $adme_menu_id);
7 jpm 179
 
134 jpm 180
    //-------------------------------------------------------------------------------------------------------------------
181
    // XHTML image plier-déplier
7 jpm 182
 
134 jpm 183
    $url->addQueryString('adme_site_id', $adme_site_id);
184
    $url->addQueryString('adme_menu_id', $ligne->gm_id_menu);
185
    $xhtml_pd = '';
186
    if ($int_deplier != 0) {
187
        if ($int_deplier == 1) {
188
            // Afficher un -
189
            $image_plier_deplier = ADME_IMAGE_MOINS;
150 jpm 190
            $alt = ADME_LG_ACTION_PLIER_ALT;
191
            $url->addQueryString('adme_action', ADME_LG_ACTION_PLIER);
134 jpm 192
            $url_plier_deplier = $url->getURL();
193
        } else if ($int_deplier == 2) {
194
            // Afficher un +
195
            $image_plier_deplier = ADME_IMAGE_PLUS;
150 jpm 196
            $alt = ADME_LG_ACTION_DEPLIER_ALT;
197
            $url->addQueryString('adme_action', ADME_LG_ACTION_DEPLIER);
134 jpm 198
            $url_plier_deplier = $url->getURL();
7 jpm 199
        }
134 jpm 200
        $xhtml_pd = '<a href="'.$url_plier_deplier.'" title="'.$alt.'">'.
201
                        '<img class="'.ADME_CLASS_IMG_PD.'" src="'.$image_plier_deplier.'" alt="'.$alt.'" />'.
202
                    '</a>'.'&nbsp;'."\n";
7 jpm 203
    }
204
 
134 jpm 205
    //-------------------------------------------------------------------------------------------------------------------
206
    // XHTML du nom du menu et de ses infos
150 jpm 207
    $xhtml_info  = htmlentities(empty($ligne->gm_nom) ? ADME_LG_PARENTHESE_OUVRANTE.$ligne->gm_nom.ADME_LG_PARENTHESE_FERMANTE : $ligne->gm_nom);
134 jpm 208
    $xhtml_info .= '&nbsp;';
150 jpm 209
    $xhtml_info .= ADME_LG_PARENTHESE_OUVRANTE.$ligne_app->gap_nom.'&nbsp;'.ADME_LG_SLASH.'&nbsp;'.$ligne->ga_prenom.ADME_LG_PARENTHESE_FERMANTE;
134 jpm 210
    $xhtml_info .= '&nbsp;'."\n";
211
 
212
    //-------------------------------------------------------------------------------------------------------------------
213
    // XHTML actions
214
    $url->removeQueryString('adme_action');
150 jpm 215
    $url->addQueryString('adme_action', ADME_LG_ACTION_COMMUN_MODIFIER);
216
    $xhtml_action = '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_COMMUN_MODIFIER_TITLE.'">'.
217
                        '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_VOIR.'" alt="'.ADME_LG_ACTION_COMMUN_MODIFIER_ALT.'" />'.
134 jpm 218
                    '</a>&nbsp;'."\n";
219
    $url->removeQueryString('adme_action');
818 ddelon 220
    if (!$est_traduction) {
221
    	$url->addQueryString('adme_action', ADME_LG_ACTION_COMMUN_MONTER);
222
    	$xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_COMMUN_MONTER_TITLE.'">'.
150 jpm 223
                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_FLECHE_HAUT.'" alt="'.ADME_LG_ACTION_COMMUN_MONTER_ALT.'" />'.
818 ddelon 224
        	                '</a>&nbsp;'."\n";
225
    	$url->removeQueryString('adme_action');
226
    	$url->addQueryString('adme_action', ADME_LG_ACTION_COMMUN_DESCENDRE);
227
    	$xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_COMMUN_DESCENDRE_TITLE.'">'.
150 jpm 228
                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_FLECHE_BAS.'" alt="'.ADME_LG_ACTION_COMMUN_DESCENDRE_ALT.'" />'.
818 ddelon 229
        	                '</a>&nbsp;'."\n";
422 ddelon 230
 
818 ddelon 231
    	$url->addQueryString('adme_action',ADME_LG_ACTION_COMMUN_DIMINUER);
232
    	$xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_COMMUN_DIMINUER_TITLE.'">'.
422 ddelon 233
                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_FLECHE_GAUCHE.'" alt="'.ADME_LG_ACTION_COMMUN_DIMINUER_ALT.'" />'.
818 ddelon 234
        	                '</a>&nbsp;'."\n";
235
	    $url->removeQueryString('adme_action');
236
	    $url->addQueryString('adme_action',ADME_LG_ACTION_COMMUN_AUGMENTER);
237
    	$xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_COMMUN_AUGMENTER_TITLE.'">'.
238
                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_FLECHE_DROITE.'" alt="'.ADME_LG_ACTION_COMMUN_AUGMENTER_ALT.'" />'.
422 ddelon 239
                        '</a>&nbsp;'."\n";
818 ddelon 240
    }
134 jpm 241
    $url->removeQueryString('adme_action');
422 ddelon 242
 
818 ddelon 243
    if (!$est_traduction) {
244
    	$url->addQueryString('adme_action', ADME_LG_ACTION_COMMUN_SUPPRIMER);
245
    	$xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_COMMUN_SUPPRIMER_TITLE.'" onclick="javascript:return confirm(\''.ADME_LG_ACTION_SUPPRIMER_CONFIRMATION.'\');">'.
150 jpm 246
                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_SUPPRIMER.'" alt="'.ADME_LG_ACTION_COMMUN_SUPPRIMER_ALT.'" />'.
134 jpm 247
                        '</a>&nbsp;'."\n";
818 ddelon 248
    }
249
    else {
250
    	$url->addQueryString('adme_action', ADME_LG_ACTION_COMMUN_SUPPRIMER_TRADUCTION);
251
    	$xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_COMMUN_SUPPRIMER_TRADUCTION_TITLE.'" onclick="javascript:return confirm(\''.ADME_LG_ACTION_SUPPRIMER_CONFIRMATION.'\');">'.
252
                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_SUPPRIMER.'" alt="'.ADME_LG_ACTION_COMMUN_SUPPRIMER_TRADUCTION_ALT.'" />'.
253
                        '</a>&nbsp;'."\n";
254
 
255
    }
256
 
134 jpm 257
    $url->removeQueryString('adme_action');
818 ddelon 258
 
259
    if (!$est_traduction) {
260
	   	$url->addQueryString('adme_action', ADME_LG_ACTION_COMMUN_AJOUTER);
261
	     $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_COMMUN_AJOUTER_TITLE.'">'.
262
	                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_NOUVEAU.'" alt="'.ADME_LG_ACTION_COMMUN_AJOUTER_ALT.'" />'.
263
	                        '</a>'.'&nbsp;'."\n";
264
    }
134 jpm 265
 
818 ddelon 266
    $url->removeQueryString('adme_action');
267
 
134 jpm 268
    // Si l'application liée est "texte simple", on ajoute un icone avec un lien vers
269
    // l'administration de cette application.
141 jpm 270
    if ($ligne_app->gap_id_application != 0 && GEN_verifierPresenceInterfaceAdmin($db, $ligne_app->gap_id_application)) { // l'appli afficheur a pour id 3
134 jpm 271
        $url->removeQueryString('adme_action');
150 jpm 272
        $url->addQueryString('adme_action', ADME_LG_ACTION_ADMINISTRER);
273
        $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_ADMINISTRER_TITLE.'">'.
274
                                '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_TEXTE.'" alt="'.ADME_LG_ACTION_ADMINISTRER_ALT.'" />'.
134 jpm 275
                            '</a>'.'&nbsp;'."\n";
276
    }
277
 
818 ddelon 278
    if (!$est_traduction) {
279
	    $url->addQueryString('adme_action',ADME_LG_ACTION_COMMUN_TRADUIRE);
280
	    $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_COMMUN_TRADUIRE_TITLE.'">'.
281
	                        ADME_LG_ACTION_COMMUN_TRADUIRE_ALT.
282
	                        '</a>&nbsp;'."\n";
283
    }
284
 
285
 
286
    $xhtml_traduction='';
287
 
288
//    $id_langue = $GLOBALS['_GEN_commun']['i18n'];
289
 
290
 
291
    $requete_traduction =   'SELECT gmr_id_menu_02,  gm_ce_i18n '.
292
			                                    'FROM  gen_menu_relation, gen_menu '.
293
			                                    'WHERE '.$adme_menu_id.' = gmr_id_menu_01 ' .
294
			                                    'AND  gmr_id_menu_02  = gm_id_menu   '.
295
			                                    'AND  gmr_id_valeur  = 2 ';// 2 = "avoir traduction"
296
 
297
	$resultat_traduction = $db->query($requete_traduction);
298
			        (DB::isError($resultat_traduction))             ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction))
299
			                : '';
300
 
301
	while ($ligne_resultat = $resultat_traduction->fetchRow(DB_FETCHMODE_OBJECT)) {
302
		$xhtml_traduction.="<br><em>".$ligne_resultat->gm_ce_i18n.":&nbsp;".ADME_retournerXhtmlMenuCommun($db, $url, $adme_site_id, $ligne_resultat->gmr_id_menu_02, 0,true)."</em>";
303
 
304
	}
305
 
306
 
307
 
134 jpm 308
    //-------------------------------------------------------------------------------------------------------------------
309
    // Envoi du menu.
818 ddelon 310
 
311
    $retour = $xhtml_pd.$xhtml_info.$xhtml_action.$xhtml_traduction;
312
 
134 jpm 313
    return $retour;
7 jpm 314
}
315
 
134 jpm 316
/** Fonction ADME_ajouterMenuCommun() - Ajoute un sous menu commun au menu commun courant
7 jpm 317
*
134 jpm 318
* Fonction ajoutant un menu commun à Papyrus.
7 jpm 319
*
134 jpm 320
* @param object objet Pear de connection à la base de données.
321
* @param object objet Pear représentant l'authentification.
322
* @param integer l'identifiant du site à administrer.
323
* @param integer l'identifiant du menu à administrer.
324
* @return void les changement sont fait dans la base de données.
7 jpm 325
*/
134 jpm 326
function ADME_ajouterMenuCommun($db, $auth, $adme_site_id, $adme_menu_id)
7 jpm 327
{
328
    //----------------------------------------------------------------------------
134 jpm 329
    // Récupération d'infos sur le nouveau menu
330
    $objet_site = GEN_lireInfoSitePrincipal($db, $adme_site_id);
331
    if ($objet_site == false) {
150 jpm 332
        die('ERREUR Génésia Administrateur de Menus : '.ADME_LG_ERREUR_INFO_SITE.'<br />'.
134 jpm 333
            'ID du site : '.$adme_site_id.'<br />'.
7 jpm 334
            'Ligne n° : '. __LINE__ .'<br />'.
335
            'Fichier n° : '. __FILE__ .'<br />');
336
    }
337
    $nouveau_id_menu = SQL_obtenirNouveauId($db, 'gen_menu', 'gm_id_menu');
134 jpm 338
    $auteur = $auth->getAuthData('ga_prenom').' '.$auth->getAuthData('ga_nom');
7 jpm 339
 
340
    //----------------------------------------------------------------------------
341
    // Ajout du nouveau menu
342
    $requete =  'INSERT INTO gen_menu '.
343
                'SET gm_id_menu = '.$nouveau_id_menu.', '.
134 jpm 344
                'gm_ce_site = 0, '.
345
                'gm_ce_i18n = "'.$objet_site->gs_ce_i18n.'", '.
7 jpm 346
                'gm_ce_application = 0, '.
347
                'gm_code_num = '.$nouveau_id_menu.', '.
134 jpm 348
                'gm_code_alpha = "menu_commun_'.$nouveau_id_menu.'", '.
349
                'gm_nom = "menu_commun_'.$nouveau_id_menu.'", '.
350
                'gm_titre = "menu_commun_'.$nouveau_id_menu.'", '.
351
                'gm_description_resume = "menu_commun_'.$nouveau_id_menu.'", '.
7 jpm 352
                'gm_auteur = "'.$auteur.'", '.
353
                'gm_date_creation = "'.date('Y-m-d H:i:s').'", '.
354
                'gm_date_soumission = "'.date('Y-m-d H:i:s').'", '.
355
                'gm_date_acceptation = "'.date('Y-m-d H:i:s').'", '.
356
                'gm_date_publication = "'.date('Y-m-d H:i:s').'", '.
357
                'gm_date_debut_validite = "'.date('Y-m-d H:i:s').'", '.
346 jpm 358
                'gm_date_fin_validite = "0000-00-00 00:00:00", '.
7 jpm 359
                'gm_date_copyright = "'.date('Y-00-00 00:00:00').'", '.
360
                'gm_categorie = "menu", '.
134 jpm 361
                'gm_ce_admin = '.$auth->getAuthData('ga_id_administrateur').' '
7 jpm 362
                ;
363
 
134 jpm 364
    $resultat = $db->query($requete);
365
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
7 jpm 366
 
367
    //----------------------------------------------------------------------------
368
    // Ajout de la relation "père"
369
 
134 jpm 370
    if (!isset($adme_menu_id) && empty($adme_menu_id)) {
371
        $adme_menu_id = 0 ;// Identifiant du père
7 jpm 372
    }
373
    //----------------------------------------------------------------------------
374
    // Récupération d'infos sur la hierarchie du menu
134 jpm 375
    $requete =  'SELECT GMR01.gmr_ordre '.
7 jpm 376
                'FROM gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
134 jpm 377
                'WHERE GMR01.gmr_id_menu_02 = '.$adme_menu_id.' '.
7 jpm 378
                'AND GMR01.gmr_id_valeur = 1 '.// 1 = avoir "père"
379
                'AND GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
380
                'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.
381
                'AND GMR02.gmr_id_valeur = 102 '.// 102 = menu type "commun"
382
                'ORDER BY GMR01.gmr_ordre DESC';
383
 
134 jpm 384
    $resultat = $db->query($requete);
385
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
7 jpm 386
 
466 ddelon 387
    if ($resultat->numRows()>0) {
388
    	$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
389
    	$nouveau_ordre_menu = $ligne->gmr_ordre + 1;
390
    }
391
    else {
392
    	$nouveau_ordre_menu=1;
393
    }
134 jpm 394
    $resultat->free();
7 jpm 395
 
396
    $requete =  'INSERT INTO gen_menu_relation '.
134 jpm 397
                'SET gmr_id_menu_02 = '.$adme_menu_id.', '.
7 jpm 398
                'gmr_id_menu_01 = '.$nouveau_id_menu.', '.
399
                'gmr_id_valeur = 1, '.
400
                'gmr_ordre = '.$nouveau_ordre_menu;
401
 
134 jpm 402
    $resultat = $db->query($requete);
403
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
7 jpm 404
 
405
    //----------------------------------------------------------------------------
406
    // Ajout de la relation-type "commun"
407
 
134 jpm 408
    // Récupération d'infos sur la hierarchie du menu
7 jpm 409
    $requete =  'SELECT * '.
410
                'FROM gen_menu_relation, gen_menu '.
411
                'WHERE gmr_id_menu_02 = gmr_id_menu_01 '.
412
                'AND gmr_id_valeur = 102 '.// 102 = type "commun"
413
                'AND gmr_id_menu_01 = gm_id_menu '.
134 jpm 414
                'AND gm_ce_site = 0 '.// un menu commun n'a pas de site lié!
7 jpm 415
                'ORDER BY gmr_ordre DESC';
416
 
134 jpm 417
    $resultat = $db->query($requete);
418
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
7 jpm 419
 
466 ddelon 420
    if ($resultat->numRows()>0) {
421
    	$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
422
    	$nouveau_ordre_commun = $ligne->gmr_ordre + 1;
423
    }
424
    else {
425
    	$nouveau_ordre_commun = 0;
426
    }
427
 
134 jpm 428
    $resultat->free();
7 jpm 429
 
430
    $requete =  'INSERT INTO gen_menu_relation '.
431
                'SET gmr_id_menu_01 = '.$nouveau_id_menu.', '.
432
                'gmr_id_menu_02 = '.$nouveau_id_menu.', '.
433
                'gmr_id_valeur = 102, '.
434
                'gmr_ordre = '.$nouveau_ordre_commun;
435
 
134 jpm 436
    $resultat = $db->query($requete);
437
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
7 jpm 438
}
439
 
134 jpm 440
/** Fonction ADME_afficherFormMenuCommun() - Affiche le formulaire pour un menu commun.
7 jpm 441
*
134 jpm 442
* Utilise HTML_QuickForm pour générer le formulaire.
443
* Ancien nom : showUpper().
7 jpm 444
*
134 jpm 445
* @param  object  objet Pear de connection à la base de données.
446
* @param  object  objet Pear représentant l'url de base.
447
* @param  integer l'identifiant du site à administrer.
448
* @param  integer l'identifiant du menu à administrer.
449
* @param  array   le tableau associatif des valeurs à afficher dans le formulaire.
450
* @return string  le formulaire XHTML.
7 jpm 451
*/
818 ddelon 452
function ADME_afficherFormMenuCommun($db, $url, $adme_site_id, $adme_menu_id, $aso_valeurs,$traduction=FALSE)
7 jpm 453
{
134 jpm 454
    // Initialisation de variable
455
    $url->addQueryString('adme_site_id', $adme_site_id);
456
    $url->addQueryString('adme_menu_id', $adme_menu_id);
7 jpm 457
 
458
    // Récupération des informations du menu concerné.
818 ddelon 459
    if (!isset($aso_valeurs[ADME_LG_ACTION_COMMUN_VERIFIER]) && !isset($aso_valeurs[ADME_LG_ACTION_COMMUN_VERIFIER_TRADUCTION])) {
134 jpm 460
        $aso_valeurs = GEN_lireInfoMenu($db, $adme_menu_id, DB_FETCHMODE_ASSOC);
461
 
150 jpm 462
        if ($aso_valeurs === false) {
463
            die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_MENU.'<br />'.
134 jpm 464
                'Idenitifiant du menu n° : '. $adme_menu_id .'<br />'.
465
                'Ligne n° : '. __LINE__ .'<br />'.
466
                'Fichier n° : '. __FILE__ .'<br />');
467
        }
7 jpm 468
    }
818 ddelon 469
 
7 jpm 470
    // Titre de la page
818 ddelon 471
 
472
    if ($traduction) {
473
    	$retour = '<h1>'.ADME_LG_FORM_MENU_COMMUN_TITRE_GENERAL_TRADUCTION.'</h1>'."\n";
474
    }
475
    else {
476
    	$retour = '<h1>'.ADME_LG_FORM_MENU_COMMUN_TITRE_GENERAL.'</h1>'."\n";
477
    }
478
 
150 jpm 479
    $retour .= '<p class="adme_menu_id" >'.ADME_LG_FORM_MENU_ID.'<span id="adme_menu_id">'.$aso_valeurs['gm_id_menu'].'</span></p>'."\n";
7 jpm 480
 
481
    // Création du formulaire
134 jpm 482
    // Notes : Quickform semble remplacer les & des &amp; à nouveau par des &amp; solution utiliser str_replace()...
483
    $form =& new HTML_QuickForm('form_menu_commun', 'post', str_replace('&amp;', '&', $url->getUrl()));
7 jpm 484
    $tab_index = 1000;
485
    $squelette =& $form->defaultRenderer();
486
    $squelette->setFormTemplate("\n".'<form{attributes}>'."\n"."\n".'{content}'."\n"."\n".'</form>'."\n");
487
    $squelette->setElementTemplate(  '<li>'."\n".
488
                                    '{label}'."\n".
489
                                    '{element}'."\n".
150 jpm 490
                                    '<!-- BEGIN required --><span class="symbole_obligatoire">'.ADME_LG_FORM_SYMBOLE_CHP_OBLIGATOIRE.'</span><!-- END required -->'."\n".
7 jpm 491
                                    '<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n".
492
                                    '</li>'."\n");
150 jpm 493
    $squelette->setRequiredNoteTemplate("\n".'<p><span class="symbole_obligatoire">'.ADME_LG_FORM_SYMBOLE_CHP_OBLIGATOIRE.'</span> {requiredNote}</p>'."\n");
7 jpm 494
 
150 jpm 495
    $partie_menu_debut = '<fieldset>'."\n".'<legend>'.ADME_LG_FORM_MENU_COMMUN_TITRE_CONFIG.'</legend>'."\n".'<ul>'."\n";
7 jpm 496
    $form->addElement('html', $partie_menu_debut);
497
 
498
    $id = 'gm_code_num';
380 jpm 499
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 5, 'maxlength' => 5);
150 jpm 500
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_CODE_NUM.'</label>';
7 jpm 501
    $form->addElement('text', $id, $label, $aso_attributs);
150 jpm 502
    $form->addRule($id, ADME_LG_FORM_MENU_REGLE_CODE_NUM, 'required', '', 'client');
7 jpm 503
 
504
    $id = 'gm_code_alpha';
380 jpm 505
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 50, 'maxlength' => 50);
150 jpm 506
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_CODE_ALPHA.'</label>';
7 jpm 507
    $form->addElement('text', $id, $label, $aso_attributs);
150 jpm 508
    $form->addRule($id, ADME_LG_FORM_MENU_REGLE_CODE_ALPHA, 'required', '', 'client');
7 jpm 509
 
510
    $id = 'gm_nom';
511
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 50, 'maxlength' => 100);
150 jpm 512
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_NOM.'</label>';
7 jpm 513
    $form->addElement('text', $id, $label, $aso_attributs);
150 jpm 514
    $form->addRule($id, ADME_LG_FORM_MENU_REGLE_NOM, 'required', '', 'client');
7 jpm 515
    $form->applyFilter($id, 'trim');
516
 
517
    $id = 'gm_raccourci_clavier';
518
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 1, 'maxlength' => 1);
519
    $label = '<label for="'.$id.'">'.'Raccourci clavier'.'</label>';
520
    $form->addElement('text', $id, $label, $aso_attributs);
521
 
522
    $id = 'gm_fichier_squelette';
523
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 50, 'maxlength' => 255);
150 jpm 524
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_FICHIER_SQUELETTE.'</label>';
7 jpm 525
    $form->addElement('text', $id, $label, $aso_attributs);
526
 
527
    $id = 'gm_description_resume';
528
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 2, 'cols' => 50);
150 jpm 529
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_INFO_BULLE.'</label>';
7 jpm 530
    $form->addElement('textarea', $id, $label, $aso_attributs);
150 jpm 531
    $form->addRule($id, ADME_LG_FORM_MENU_REGLE_INFO_BULLE, 'required', '', 'client');
7 jpm 532
 
533
    // Requête sur les applications
534
    $requete =  'SELECT gap_id_application, gap_nom '.
535
                'FROM gen_application '.
536
                'WHERE gap_bool_applette = 0';// Pour éviter d'afficher les applettes.
537
    $resultat = $db->query($requete);
538
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
539
 
540
    $aso_options = array();
541
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
542
        $aso_options[$ligne->gap_id_application] = $ligne->gap_nom;
543
    }
544
    $resultat->free();
545
    $id = 'gm_ce_application';
546
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
150 jpm 547
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_APPLI.'</label>';
7 jpm 548
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
549
 
818 ddelon 550
 
551
        if ($traduction) {
552
 
553
    	// Recherche liste des menu deja traduits
554
 
555
	   	$requete =  'SELECT distinct gm_ce_i18n  '.
556
        	        'FROM gen_menu_relation, gen_menu '.
557
            	    'WHERE gmr_id_menu_01  = ' . $adme_menu_id .' '.
558
                	'AND gm_id_menu  = gmr_id_menu_02  '.
559
                	'AND gmr_id_valeur = 2  '; // 2 = "avoir traduction"
560
 
561
	  	$resultat = $db->query($requete) ;
562
 
563
	    if (DB::isError($resultat)) {
564
	        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
565
	    }
566
 
567
	    $not_in_langue='';
568
	    if ( $resultat->numRows() == 0 ) {
569
			$not_in_langue="gi_id_i18n not in('".$aso_valeurs['gm_ce_i18n']."')";
570
	    }
571
	    else {
572
	    	    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
573
 					$not_in_langue="'".$ligne->gm_ce_i18n."'".",".$not_in_langue;
574
 					$end="'".$ligne->gm_ce_i18n."'";
575
				}
576
	    		if ($not_in_langue) {
577
			    			$not_in_langue="'".$aso_valeurs['gm_ce_i18n']."'".",".$not_in_langue;
578
			    			$not_in_langue=' gi_id_i18n not in('.$not_in_langue.$end.')';
579
			    }
580
	    		else {
581
	    			$not_in_langue="gi_id_i18n not in('".$aso_valeurs['gm_ce_i18n']."')";
582
	    		}
583
	    }
584
 
585
 
586
		$resultat->free();
587
 
588
    	$requete =  "SELECT * FROM gen_i18n where ".$not_in_langue;
589
 
590
    	/*$requete =  'SELECT * '.
591
        	        'FROM gen_i18n ';*/
592
 
593
        $resultat = $db->query($requete);
594
    	(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
595
 
596
    	$aso_options = array();
597
        while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {
598
        	$aso_options[$ligne->gi_id_i18n] = $ligne->gi_id_i18n;
599
        }
600
        $resultat->free();
601
    	$id = 'gs_ce_i18n';
602
    	$aso_attributs = array('id' => $id, 'tabindex' => $tab_index++);
603
    	$label = '<label for="'.$id.'">'.'Langue : '.'</label>';
604
    	$form->addElement('select', $id, $label, $aso_options, $aso_attributs);
605
    }
606
 
607
 
608
 
609
 
610
 
7 jpm 611
    $id = 'gm_application_arguments';
612
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
150 jpm 613
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_APPLI_ARGUMENT.'</label>';
7 jpm 614
    $form->addElement('text', $id, $label, $aso_attributs);
615
 
616
    $partie_menu_fin = '</ul>'."\n".'</fieldset>'."\n";
617
    $form->addElement('html', $partie_menu_fin);
618
 
150 jpm 619
    $partie_entete_debut = '<fieldset>'."\n".'<legend>'.ADME_LG_FORM_MENU_COMMUN_TITRE_ENTETE.'</legend>'."\n".'<ul>'."\n";
7 jpm 620
    $form->addElement('html', $partie_entete_debut);
621
 
622
    $id = 'gm_robot';
150 jpm 623
    $aso_options = array(   'index,follow' => ADME_LG_FORM_MENU_INDEX_FOLLOW,
624
                            'index' => ADME_LG_FORM_MENU_INDEX,
625
                            'noindex' => ADME_LG_FORM_MENU_NOINDEX,
626
                            'noindex,nofollow' => ADME_LG_FORM_MENU_NOINDEX_NOFOLLOW,
627
                            '' => ADME_LG_FORM_MENU_INDEX_VIDE);
7 jpm 628
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
150 jpm 629
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_ROBOT.'</label>';
7 jpm 630
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
631
 
632
    $id = 'gm_titre';
633
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
150 jpm 634
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_TITRE.'</label>';
7 jpm 635
    $form->addElement('text', $id, $label, $aso_attributs);
636
 
637
    $id = 'gm_titre_alternatif';
638
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
150 jpm 639
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_TITRE_ALTERNATIF.'</label>';
7 jpm 640
    $form->addElement('text', $id, $label, $aso_attributs);
641
 
642
    $id = 'gm_mots_cles';
643
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 50);
150 jpm 644
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_MOT_CLE.'</label>';
7 jpm 645
    $form->addElement('textarea', $id, $label, $aso_attributs);
646
 
647
    $id = 'gm_description_libre';
648
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
150 jpm 649
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_DESCRIPTION.'</label>';
7 jpm 650
    $form->addElement('textarea', $id, $label, $aso_attributs);
651
 
652
    $id = 'gm_description_table_matieres';
653
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
150 jpm 654
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_TABLE_MATIERE.'</label>';
7 jpm 655
    $form->addElement('textarea', $id, $label, $aso_attributs);
656
 
657
    $id = 'gm_source';
658
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
150 jpm 659
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_SOURCE.'</label>';
7 jpm 660
    $form->addElement('text', $id, $label, $aso_attributs);
661
 
662
    $id = 'gm_auteur';
663
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
150 jpm 664
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_AUTEUR.'</label>';
7 jpm 665
    $form->addElement('text', $id, $label, $aso_attributs);
666
 
667
    $id = 'gm_contributeur';
668
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 2, 'cols' => 45);
150 jpm 669
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_CONTRIBUTEUR.'</label>';
7 jpm 670
    $form->addElement('textarea', $id, $label, $aso_attributs);
671
 
672
    $id = 'gm_editeur';
382 jpm 673
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 65000);
150 jpm 674
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_EDITEUR.'</label>';
382 jpm 675
    $form->addElement('text', $id, $label, $aso_attributs);
7 jpm 676
 
317 jpm 677
    $id = 'gm_date_creation';
678
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);
679
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_DATE_CREATION.'</label>';
680
    $form->addElement('text', $id, $label, $aso_attributs);
681
 
7 jpm 682
    $id = 'gm_date_debut_validite';
683
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);
150 jpm 684
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_DATE_VALIDITE_DEBUT.'</label>';
7 jpm 685
    $form->addElement('text', $id, $label, $aso_attributs);
686
 
687
    $id = 'gm_date_fin_validite';
688
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);
150 jpm 689
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_DATE_VALIDITE_FIN.'</label>';
7 jpm 690
    $form->addElement('text', $id, $label, $aso_attributs);
691
 
692
    $id = 'gm_date_copyright';
693
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);
150 jpm 694
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_DATE_COPYRIGHT.'</label>';
7 jpm 695
    $form->addElement('text', $id, $label, $aso_attributs);
696
 
697
    $id = 'gm_licence';
698
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
150 jpm 699
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_URL_LICENCE.'</label>';
7 jpm 700
    $form->addElement('text', $id, $label, $aso_attributs);
701
 
702
    $id = 'gm_categorie';
703
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 100);
150 jpm 704
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_CATEGORIE.'</label>';
7 jpm 705
    $form->addElement('text', $id, $label, $aso_attributs);
706
 
707
    $id = 'gm_public';
708
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
150 jpm 709
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_PUBLIC.'</label>';
7 jpm 710
    $form->addElement('text', $id, $label, $aso_attributs);
711
 
712
    $id = 'gm_public_niveau';
713
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 25, 'maxlength' => 45);
150 jpm 714
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_PUBLIC_NIVEAU.'</label>';
7 jpm 715
    $form->addElement('text', $id, $label, $aso_attributs);
716
 
717
    $id = 'gm_ce_type_portee_spatiale';
150 jpm 718
    $aso_options = array(   '' => ADME_LG_FORM_MENU_ZG_VIDE,
719
                            'iso3166' => ADME_LG_FORM_MENU_ZG_ISO,
720
                            'Point' => ADME_LG_FORM_MENU_ZG_POINT,
721
                            'Box' => ADME_LG_FORM_MENU_ZG_DC,
722
                            'TGN' => ADME_LG_FORM_MENU_ZG_GTGN);
7 jpm 723
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
150 jpm 724
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_ZG_TYPE.'</label>';
7 jpm 725
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
726
 
727
    $id = 'gm_portee_spatiale';
728
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 100);
150 jpm 729
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_ZG_VALEUR.'</label>';
7 jpm 730
    $form->addElement('text', $id, $label, $aso_attributs);
731
 
732
    $id = 'gm_ce_type_portee_temporelle';
150 jpm 733
    $aso_options = array(   '' => ADME_LG_FORM_MENU_TMP_VIDE,
734
                            'W3CDTF' => ADME_LG_FORM_MENU_TMP_W3C,
735
                            'Period' => ADME_LG_FORM_MENU_TMP_DC);
7 jpm 736
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
150 jpm 737
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_TMP_TYPE.'</label>';
7 jpm 738
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
739
 
740
    $id = 'gm_portee_temporelle';
741
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 100);
150 jpm 742
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_TMP_VALEUR.'</label>';
7 jpm 743
    $form->addElement('text', $id, $label, $aso_attributs);
744
 
745
    $partie_entete_fin = '</ul>'."\n".'</fieldset>'."\n";
746
    $form->addElement('html', $partie_entete_fin);
818 ddelon 747
 
748
	if (!isset($aso_valeurs[ADME_LG_ACTION_COMMUN_VERIFIER]) && !isset($aso_valeurs[ADME_LG_ACTION_COMMUN_VERIFIER_TRADUCTION])) {
7 jpm 749
 
818 ddelon 750
    	// Requete pour connaitre les informations sur l'administrateur ayant fait la dernière modif
751
    	$requete_admin =    'SELECT * '.
752
        	                'FROM gen_annuaire '.
753
            	            'WHERE ga_id_administrateur = '.$aso_valeurs['gm_ce_admin'];
754
    	$resultat_admin = $db->query($requete_admin);
755
    	if (DB::isError($resultat_admin)) {
756
        	die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_admin->getMessage(), $requete_admin));
757
    	}
758
    	$ligne_admin = $resultat_admin->fetchRow(DB_FETCHMODE_OBJECT);
759
    	$info_admin =   '<p class="info">Dernière modification par '.$ligne_admin->ga_prenom.' '.$ligne_admin->ga_nom.'</p>';
760
    	$form->addElement('html', $info_admin);
761
	}
378 jpm 762
 
7 jpm 763
    $liste_bouton_debut = '<ul class="liste_bouton">'."\n";
764
    $form->addElement('html', $liste_bouton_debut);
765
 
818 ddelon 766
    if ($traduction) {
767
    	$form->addElement('submit', ADME_LG_ACTION_COMMUN_VERIFIER_TRADUCTION, ADME_LG_FORM_MENU_VALIDER);
768
		$form->addElement('hidden', 'adme_site_id', $adme_site_id);
769
    }
770
    else {
771
    	$form->addElement('submit', ADME_LG_ACTION_COMMUN_VERIFIER, ADME_LG_FORM_MENU_VALIDER);
772
    }
773
 
150 jpm 774
    $bouton_annuler = '<li><a class="bouton" href="'.$url->getURL().'" title="'.ADME_LG_FORM_MENU_ANNULER.'" >'.ADME_LG_FORM_MENU_ANNULER.'</a>'.'</li>'."\n";
7 jpm 775
    $form->addElement('html', $bouton_annuler);
776
 
777
    $liste_bouton_fin = '</ul>'."\n";
778
    $form->addElement('html', $liste_bouton_fin);
779
 
150 jpm 780
    $form->addElement('hidden', 'gm_id_menu', $aso_valeurs['gm_id_menu']);
781
 
134 jpm 782
    $form->setDefaults($aso_valeurs);
7 jpm 783
 
784
    // Note de fin de formulaire
150 jpm 785
    $form->setRequiredNote(ADME_LG_FORM_TXT_CHP_OBLIGATOIRE);
7 jpm 786
 
134 jpm 787
    $retour .= $form->toHTML()."\n";
788
    return $retour;
7 jpm 789
}
790
 
134 jpm 791
/** Fonction ADME_validerFormAjouterMenuCommun() - Valide les données issues du formulaire pour gen_menu.
792
*
793
* Cette fonction valide les données à ajouter dans la table gen_menu.
794
*
155 jpm 795
* @param  PEAR:DB   l'objet pear de connexion à la base de données.
134 jpm 796
* @param  string   le tableau contenant les valeurs du formulaire.
797
* @return string   retourne les messages d'erreurs sinon rien.
798
*/
799
function ADME_validerFormAjouterMenuCommun($db, $aso_valeurs)
800
{
801
    $message = '';
150 jpm 802
    if ($aso_valeurs['gm_code_alpha'] == '') {
803
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_CODE_ALPHA.'</p>';
134 jpm 804
    }
150 jpm 805
    if ($aso_valeurs['gm_code_num'] == '') {
806
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_CODE_NUM.'</p>';
134 jpm 807
    }
150 jpm 808
    if ($aso_valeurs['gm_nom'] == '') {
809
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_NOM.'</p>';
810
    }
811
    if ($aso_valeurs['gm_description_resume'] == '') {
812
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_INFO_BULLE.'</p>';
813
    }
134 jpm 814
    return $message;
815
}
816
 
818 ddelon 817
 
818
/** Fonction ADME_validerFormTraduireMenuCommun() - Valide les données issues du formulaire de traduction de menu
819
*
820
* Cette fonction valide les données à ajouter dans la table gen_menu.
821
*
822
* @param  PEAR::DB   l'objet pear de connexion à la base de données.
823
* @param  string   le tableau contenant les valeurs du formulaire.
824
* @return string   retourne les messages d'erreurs sinon rien.
825
*/
826
function ADME_validerFormTraduireMenuCommun($db, $aso_valeurs)
827
{
828
    $message = '';
829
    if ($aso_valeurs['gm_code_alpha'] == '') {
830
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_CODE_ALPHA.'</p>';
831
    }
832
    if ($aso_valeurs['gm_code_num'] == '') {
833
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_CODE_NUM.'</p>';
834
    }
835
    if ($aso_valeurs['gm_nom'] == '') {
836
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_NOM.'</p>';
837
    }
838
    if ($aso_valeurs['gm_description_resume'] == '') {
839
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_INFO_BULLE.'</p>';
840
    }
841
    return $message;
842
}
843
 
844
 
134 jpm 845
/** Fonction ADME_modifierMenuCommun() - Met à jour les infos d'un menu commun
846
*
847
* Fonction modifiant un menu commun à Papyrus.
848
*
849
* @param object objet Pear de connection à la base de données.
850
* @param object objet Pear représentant l'authentification.
851
* @param integer l'identifiant du menu à administrer.
852
* @param array le tableau des valeurs à modifier.
853
* @return void les changement sont fait dans la base de données.
854
*/
150 jpm 855
function ADME_modifierMenuCommun($db, $auth, $adme_menu_id, $aso_valeurs)
134 jpm 856
{
857
    $requete =  'UPDATE gen_menu SET '.
317 jpm 858
                'gm_ce_application = '.$aso_valeurs['gm_ce_application'].', '.
859
                'gm_application_arguments = "'.$aso_valeurs['gm_application_arguments'].'", '.
860
                'gm_fichier_squelette = "'.$aso_valeurs['gm_fichier_squelette'].'", '.
861
                'gm_code_num = '.$aso_valeurs['gm_code_num'].', '.
862
                'gm_code_alpha = "'.$aso_valeurs['gm_code_alpha'].'", '.
863
                'gm_nom = "'.$aso_valeurs['gm_nom'].'", '.
864
                'gm_raccourci_clavier = "'.$aso_valeurs['gm_raccourci_clavier'].'", '.
865
                'gm_robot = "'.$aso_valeurs['gm_robot'].'", '.
866
                'gm_titre = "'.$aso_valeurs['gm_titre'].'", '.
867
                'gm_titre_alternatif = "'.$aso_valeurs['gm_titre_alternatif'].'", '.
868
                'gm_mots_cles = "'.$aso_valeurs['gm_mots_cles'].'", '.
869
                'gm_description_libre = "'.$aso_valeurs['gm_description_libre'].'", '.
870
                'gm_description_resume = "'.$aso_valeurs['gm_description_resume'].'", '.
871
                'gm_description_table_matieres = "'.$aso_valeurs['gm_description_table_matieres'].'", '.
872
                'gm_source = "'.$aso_valeurs['gm_source'].'", '.
873
                'gm_auteur = "'.$aso_valeurs['gm_auteur'].'", '.
874
                'gm_contributeur = "'.$aso_valeurs['gm_contributeur'].'", '.
875
                'gm_editeur = "'.$aso_valeurs['gm_editeur'].'", '.
876
                'gm_date_creation = "'.$aso_valeurs['gm_date_creation'].'", '.
877
                'gm_date_debut_validite = "'.$aso_valeurs['gm_date_debut_validite'].'", '.
878
                'gm_date_fin_validite = "'.$aso_valeurs['gm_date_fin_validite'].'", '.
879
                'gm_date_copyright = "'.$aso_valeurs['gm_date_copyright'].'", '.
880
                'gm_licence = "'.$aso_valeurs['gm_licence'].'", '.
881
                'gm_categorie = "'.$aso_valeurs['gm_categorie'].'", '.
882
                'gm_public = "'.$aso_valeurs['gm_public'].'", '.
883
                'gm_public_niveau = "'.$aso_valeurs['gm_public_niveau'].'", '.
884
                'gm_portee_spatiale = "'.$aso_valeurs['gm_portee_spatiale'].'", '.
885
                'gm_portee_temporelle = "'.$aso_valeurs['gm_portee_temporelle'].'", '.
134 jpm 886
                'gm_ce_admin = "'.$auth->getAuthData('ga_id_administrateur').'" '.
887
                'WHERE gm_id_menu = '.$adme_menu_id;
888
 
889
    $resultat = $db->query($requete);
890
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
891
}
892
 
893
/** Fonction ADME_deplacerMenuCommun() - Permet de déplacer un menu dans la hiérarchie.
894
*
895
* Permet de déplacer un menu dans la hiérarchie des menus communs.
896
* Ancien nom : moveUpper()
897
*
898
* @param  PEAR::DB objet Pear DB de connexion à la base de données.
155 jpm 899
* @param  integer   identifiant du site administré.
134 jpm 900
* @param  integer  identifiant du menu à déplacer.
901
* @param  boolean  indique si on veut monter le menu (true) ou le descendre (false).
902
* @return void     modifie la base de données.
903
*/
904
function ADME_deplacerMenuCommun($db, $adme_site_id, $adme_menu_id, $bln_monter)
905
{
906
    //-------------------------------------------------------------------------------------------------------------------
907
    // Récupération d'informations sur les relations du menu courant.
908
    $ligne_menu_courant_relation = GEN_lireInfoMenuRelation($db, $adme_menu_id, '1'); // 1 = relation "avoir père"
909
    if ($ligne_menu_courant_relation == false) {
150 jpm 910
        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_MENU_RELATION.'<br />'.
134 jpm 911
            'Identifiant menu : '. $adme_menu_id .'<br />'.
912
            'Identifiant valeur relation : 1 <br />'.
913
            'Ligne n° : '. __LINE__ .'<br />'.
914
            'Fichier n° : '. __FILE__ .'<br />');
915
    }
916
 
917
    $id_pere = GEN_lireIdentifiantMenuPere($adme_menu_id);
249 jpm 918
    if ($id_pere === false) {
150 jpm 919
        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_ID_MENU_PERE.'<br />'.
134 jpm 920
            'Identifiant menu fils : '. $adme_menu_id .'<br />'.
921
            'Ligne n° : '. __LINE__ .'<br />'.
922
            'Fichier n° : '. __FILE__ .'<br />');
923
    }
924
 
925
    //-------------------------------------------------------------------------------------------------------------------
926
    // Recherche d'information hiérarchiques sur le menu précédent ou suivant le menu courant
927
    $requete =  'SELECT GMR01.gmr_ordre AS nouvel_ordre, GMR01.gmr_id_menu_01 AS id_menu_remplace '.
928
                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
929
                'WHERE GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
930
                'AND GMR01.gmr_id_menu_01 = gm_id_menu './/jonction avec la table GEN_MENU
931
                'AND gm_ce_site = 0 '.// les menus communs ne sont pas liés à un site!
932
                'AND GMR02.gmr_id_valeur = 102 '.// 102 = menu type "commun"
933
                'AND GMR01.gmr_id_menu_02 = '.$id_pere.' '.
934
                'AND GMR01.gmr_id_valeur = 1 ';// 1 = relation menu "père"
935
    if ($bln_monter) {
936
        $requete .= 'AND GMR01.gmr_ordre < '.$ligne_menu_courant_relation->gmr_ordre.' '.
937
                    'ORDER BY GMR01.gmr_ordre DESC';
938
    } else {
939
        $requete .= 'AND GMR01.gmr_ordre > '.$ligne_menu_courant_relation->gmr_ordre.' '.
940
                    'ORDER BY GMR01.gmr_ordre ASC';
941
    }
942
 
943
    $resultat_menu = $db->query($requete);
944
    (DB::isError($resultat_menu)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_menu->getMessage(), $requete)) : '';
945
 
946
    $ligne_menu = $resultat_menu->fetchRow(DB_FETCHMODE_OBJECT);
947
    $resultat_menu->free();
948
 
949
    //-------------------------------------------------------------------------------------------------------------------
950
    // Si la requete ne retourne rien nous ne faisons rien.
951
    if (! $ligne_menu) {
952
        return null;
953
    }
954
 
955
    //-------------------------------------------------------------------------------------------------------------------
956
    // Mise à jour des relations hiérarchiques du menu courant
957
    $requete =  'UPDATE gen_menu_relation SET '.
958
                'gmr_ordre = '.$ligne_menu->nouvel_ordre.' '.
959
                'WHERE gmr_id_menu_01 = '.$ligne_menu_courant_relation->gmr_id_menu_01.' '.
960
                'AND gmr_id_valeur = 1';// 1 = relation menu "père"
961
 
962
    $resultat = $db->query($requete);
963
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
964
 
965
    //-------------------------------------------------------------------------------------------------------------------
966
    // Mise à jour des relations hiérarchiques du menu précédent ou suivant
967
    $requete =  'UPDATE gen_menu_relation SET '.
968
                'gmr_ordre = '.$ligne_menu_courant_relation->gmr_ordre.' '.
969
                'WHERE gmr_id_menu_01 = '.$ligne_menu->id_menu_remplace.' '.
970
                'AND gmr_id_valeur = 1';// 1 = relation menu "père"
971
 
972
    $resultat = $db->query($requete);
973
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
974
}
975
 
818 ddelon 976
/** Fonction ADME_traduireMenuCommun() - Permet de traduire un menu commin
977
*
978
* Permet de traduire un menu commun
979
*
980
* @param  mixed   objet Pear DB de connexion à la base de données.
981
* @param  integer  identifiant du site administré.
982
* @param  integer identifiant du menu à déplacer.
983
* @return void    modifie la base de données.
984
*/
985
function ADME_traduireMenuCommun($db, $auth, $adme_menu_id, $aso_valeurs) {
986
 
987
 
988
    // Récupération d'infos sur le site principal.
989
    $objet_site = GEN_lireInfoSitePrincipal($db, $aso_valeurs['adme_site_id']);
990
    if ($objet_site == false) {
991
        die('ERREUR Génésia Administrateur de Menus : impossible de lire les infos du site.<br />'.
992
            'ID du site : '.$aso_valeurs['adme_site_id'].'<br />'.
993
            'Ligne n° : '. __LINE__ .'<br />'.
994
            'Fichier n° : '. __FILE__ .'<br />');
995
    }
996
 
997
    $nouveau_id_menu = SQL_obtenirNouveauId($db, 'gen_menu', 'gm_id_menu');
998
    $auteur = $auth->getAuthData('ga_prenom').' '.$auth->getAuthData('ga_nom');
999
 
1000
 
1001
 
1002
      $requete =  'INSERT INTO gen_menu '.
1003
                'SET gm_id_menu = '.$nouveau_id_menu.', '.
1004
                'gm_ce_site = '.$aso_valeurs['adme_site_id'].', '.
1005
                'gm_ce_i18n = "'.$aso_valeurs['gs_ce_i18n'].'", '.
1006
                'gm_ce_application = '.$aso_valeurs['gm_ce_application'].', '.
1007
                'gm_application_arguments = "'.$aso_valeurs['gm_application_arguments'].'", '.
1008
                'gm_fichier_squelette = "'.$aso_valeurs['gm_fichier_squelette'].'", '.
1009
                'gm_code_num = '.$aso_valeurs['gm_code_num'].', '.
1010
                'gm_code_alpha = "'.$aso_valeurs['gm_code_alpha'].'", '.
1011
                'gm_nom = "'.$aso_valeurs['gm_nom'].'", '.
1012
                'gm_raccourci_clavier = "'.$aso_valeurs['gm_raccourci_clavier'].'", '.
1013
                'gm_robot = "'.$aso_valeurs['gm_robot'].'", '.
1014
                'gm_titre = "'.$aso_valeurs['gm_titre'].'", '.
1015
                'gm_titre_alternatif = "'.$aso_valeurs['gm_titre_alternatif'].'", '.
1016
                'gm_mots_cles = "'.$aso_valeurs['gm_mots_cles'].'", '.
1017
                'gm_description_libre = "'.$aso_valeurs['gm_description_libre'].'", '.
1018
                'gm_description_resume = "'.$aso_valeurs['gm_description_resume'].'", '.
1019
                'gm_description_table_matieres = "'.$aso_valeurs['gm_description_table_matieres'].'", '.
1020
                'gm_source = "'.$aso_valeurs['gm_source'].'", '.
1021
                'gm_auteur = "'.$aso_valeurs['gm_auteur'].'", '.
1022
                'gm_contributeur = "'.$aso_valeurs['gm_contributeur'].'", '.
1023
                'gm_editeur = "'.$aso_valeurs['gm_editeur'].'", '.
1024
                'gm_date_creation = "'.$aso_valeurs['gm_date_creation'].'", '.
1025
                'gm_date_debut_validite = "'.$aso_valeurs['gm_date_debut_validite'].'", '.
1026
                'gm_date_fin_validite = "'.$aso_valeurs['gm_date_fin_validite'].'", '.
1027
                'gm_date_copyright = "'.$aso_valeurs['gm_date_copyright'].'", '.
1028
                'gm_licence = "'.$aso_valeurs['gm_licence'].'", '.
1029
                'gm_categorie = "'.$aso_valeurs['gm_categorie'].'", '.
1030
                'gm_public = "'.$aso_valeurs['gm_public'].'", '.
1031
                'gm_public_niveau = "'.$aso_valeurs['gm_public_niveau'].'", '.
1032
                'gm_ce_type_portee_spatiale = "'.$aso_valeurs['gm_ce_type_portee_spatiale'].'", '.
1033
                'gm_portee_spatiale = "'.$aso_valeurs['gm_portee_spatiale'].'", '.
1034
                'gm_ce_type_portee_temporelle = "'.$aso_valeurs['gm_ce_type_portee_temporelle'].'", '.
1035
                'gm_portee_temporelle = "'.$aso_valeurs['gm_portee_temporelle'].'", '.
1036
                'gm_ce_admin = "'.$auth->getAuthData('ga_id_administrateur').'" ';
1037
 
1038
    $resultat = $db->query($requete);
1039
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1040
 
1041
    //----------------------------------------------------------------------------
1042
    // Ajout de la relation traduction
1043
 
1044
    if (!isset($adme_menu_id) && empty($adme_menu_id)) {
1045
        $adme_menu_id = 0 ;// Identifiant du père
1046
    }
1047
    //----------------------------------------------------------------------------
1048
    // Récupération d'infos sur la hierarchie du menu
1049
    $requete =  'SELECT GMR01.gmr_ordre '.
1050
                'FROM gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
1051
                'WHERE GMR01.gmr_id_menu_02 = '.$adme_menu_id.' '.
1052
                'AND GMR01.gmr_id_valeur = 1 '.// 1 = avoir "père"
1053
                'AND GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
1054
                'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.
1055
                'AND GMR02.gmr_id_valeur = 102 '.// 102 = menu type "commun"
1056
                'ORDER BY GMR01.gmr_ordre DESC';
1057
 
1058
    $resultat = $db->query($requete);
1059
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1060
 
1061
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
1062
    $nouveau_ordre_menu = $ligne->gmr_ordre + 1;
1063
    $resultat->free();
1064
 
1065
 
1066
    // Traduction :
1067
    $requete =  'INSERT INTO gen_menu_relation '.
1068
                'SET gmr_id_menu_01 = '.$adme_menu_id.', '.
1069
                'gmr_id_menu_02 = '.$nouveau_id_menu.', '.
1070
                'gmr_id_valeur = 2, '. // Avoir traduction
1071
                'gmr_ordre = '.$nouveau_ordre_menu;
1072
 
1073
 
1074
    $resultat = $db->query($requete);
1075
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1076
 
1077
    //----------------------------------------------------------------------------
1078
    // Ajout de la relation-type "menu commun"
1079
 
1080
    // Récupération d'infos sur la hierarchie du menu
1081
    $requete =  'SELECT * '.
1082
                'FROM gen_menu_relation, gen_menu '.
1083
                'WHERE gmr_id_menu_02 = gmr_id_menu_01 '.
1084
                'AND gmr_id_valeur = 102 '.// 102 = type menu "commun"
1085
                'AND gmr_id_menu_01 = gm_id_menu '.
1086
                'AND gm_ce_site = '.$aso_valeurs['adme_site_id'].' '.
1087
                'ORDER BY gmr_ordre DESC';
1088
 
1089
    $resultat = $db->query($requete);
1090
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1091
 
1092
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
1093
    $nouveau_ordre_menu_commun = $ligne->gmr_ordre + 1;
1094
    $resultat->free();
1095
 
1096
    $requete =  'INSERT INTO gen_menu_relation '.
1097
                'SET gmr_id_menu_01 = '.$nouveau_id_menu.', '.
1098
                'gmr_id_menu_02 = '.$nouveau_id_menu.', '.
1099
                'gmr_id_valeur = 102, '.
1100
                'gmr_ordre = '.$nouveau_ordre_menu_commun;
1101
 
1102
    $result = $db->query($requete);
1103
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
1104
 
1105
}
1106
 
1107
 
422 ddelon 1108
function ADME_indenterMenuCommun($db, $adme_site_id, $adme_menu_id, $bln_diminuer) {
1109
 
1110
    //-------------------------------------------------------------------------------------------------------------------
1111
    // Récupération d'information sur le site de ce menu.
1112
    $objet_site = GEN_lireInfoSitePrincipal($db, $adme_site_id);
1113
 
1114
    if ($objet_site == false) {
1115
        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_SITE.'<br />'.
1116
            'Id du site : '. $adme_site_id .'<br />'.
1117
            'Ligne n° : '. __LINE__ .'<br />'.
1118
            'Fichier n° : '. __FILE__ .'<br />');
1119
    }
1120
 
1121
    //-------------------------------------------------------------------------------------------------------------------
1122
    // Récupération d'informations sur les relations du menu courant.
1123
    $ligne_menu_courant_relation = GEN_lireInfoMenuRelation($db, $adme_menu_id, '1');
1124
    if ($ligne_menu_courant_relation == false) {
1125
        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_MENU_RELATION.'<br />'.
1126
            'Identifiant menu : '. $adme_menu_id .'<br />'.
1127
            'Identifiant valeur relation : 1 <br />'.
1128
            'Ligne n° : '. __LINE__ .'<br />'.
1129
            'Fichier n° : '. __FILE__ .'<br />');
1130
    }
1131
 
1132
 
1133
 
1134
    //-------------------------------------------------------------------------------------------------------------------
1135
    // Récupération de l'identifiant du menu pére
1136
 
1137
    $id_pere = GEN_lireIdentifiantMenuPere($adme_menu_id);
1138
    if ($id_pere === false) {
1139
        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_ID_MENU_PERE.'<br />'.
1140
            'Identifiant menu fils : '. $adme_menu_id .'<br />'.
1141
            'Ligne n° : '. __LINE__ .'<br />'.
1142
            'Fichier n° : '. __FILE__ .'<br />');
1143
    }
1144
 
1145
	if ($bln_diminuer) {
1146
 
1147
	    // Diminution d'un niveau
1148
 
1149
	    if ($id_pere) {
1150
 
1151
			 // Récupération de l'identifiant du menu grand pére, sera le nouveau pere
1152
 
1153
		    $id_grand_pere = GEN_lireIdentifiantMenuPere($id_pere);
1154
 
1155
		    if ($id_grand_pere === false) {
1156
		        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_ID_MENU_PERE.'<br />'.
1157
		            'Identifiant menu fils : '. $adme_menu_id .'<br />'.
1158
		            'Ligne n° : '. __LINE__ .'<br />'.
1159
		            'Fichier n° : '. __FILE__ .'<br />');
1160
		    }
1161
 
1162
		    // Récupération d'informations sur les relations du menu pere
1163
 
1164
		    $ligne_menu_pere_relation = GEN_lireInfoMenuRelation($db, $id_pere, '1');
1165
 
1166
	    	if ($ligne_menu_pere_relation == false) {
1167
		        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_MENU_RELATION.'<br />'.
1168
		            'Identifiant menu : '. $adme_menu_id .'<br />'.
1169
		            'Identifiant valeur relation : 1 <br />'.
1170
		            'Ligne n° : '. __LINE__ .'<br />'.
1171
		            'Fichier n° : '. __FILE__ .'<br />');
1172
		    }
1173
 
1174
 
1175
		    //-------------------------------------------------------------------------------------------------------------------
1176
		    // Recherche d'information sur le menu suivant le menu pere
1177
		    //-------------------------------------------------------------------------------------------------------------------
1178
 
1179
		    $requete =  'SELECT GMR01.gmr_ordre AS nouvel_ordre, GMR01.gmr_id_menu_01 AS id_menu_remplace '.
1180
	                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
1181
	                'WHERE GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
1182
	                'AND GMR01.gmr_id_menu_01 = gm_id_menu './/jonction avec la table GEN_MENU
1183
	                'AND gm_ce_site = 0 '.// les menus communs ne sont pas liés à un site!
1184
	                'AND GMR02.gmr_id_valeur = 102 '.// 102 = menu type "commun""
1185
	                'AND GMR01.gmr_id_menu_02 = '.$id_grand_pere.' '.
1186
	                'AND GMR01.gmr_id_valeur = 1 '.// 1 = relation menu "père"
1187
				    'AND GMR01.gmr_ordre > '.$ligne_menu_pere_relation->gmr_ordre.' '.
1188
				    'ORDER BY GMR01.gmr_ordre DESC';
1189
 
1190
 
1191
		    $resultat_menu = $db->query($requete);
1192
 
1193
		    (DB::isError($resultat_menu)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_menu->getMessage(), $requete)) : '';
1194
 
1195
		    $ligne_menu = $resultat_menu->fetchRow(DB_FETCHMODE_OBJECT);
1196
		    $resultat_menu->free();
1197
 
1198
		    //-------------------------------------------------------------------------------------------------------------------
1199
		    // Si la requete ne retourne rien nous ne faisons rien.
1200
		    if (! $ligne_menu) {
1201
		        $no=$ligne_menu_pere_relation->gmr_ordre+1;
1202
		    }
1203
		    else {
1204
		    	$no=$ligne_menu->nouvel_ordre+1;
1205
		    }
1206
 
1207
			// Mise à jour pere menu courant
1208
		   	$requete =  'UPDATE gen_menu_relation SET '.
1209
		                'gmr_id_menu_02 =  '.$id_grand_pere.' ,'.
1210
		                'gmr_ordre = '.$no.' '.
1211
		                'WHERE gmr_id_menu_01 = '.$ligne_menu_courant_relation->gmr_id_menu_01.' '.
1212
		                'AND gmr_id_valeur = 1';// 1 = relation menu "père"
1213
 
1214
			$resultat_update = $db->query($requete);
1215
		    (DB::isError($resultat_update)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_update->getMessage(), $requete)) : '';
1216
 
1217
 
1218
 
1219
	    }
1220
	}
1221
	else {
1222
 
1223
	    $requete =  'SELECT GMR01.gmr_id_menu_01 '.
1224
	                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
1225
	                'WHERE GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
1226
	                'AND GMR01.gmr_id_menu_01 = gm_id_menu './/jonction avec la table GEN_MENU
1227
	                'AND gm_ce_site = 0 '.// les menus communs ne sont pas liés à un site!
1228
	                'AND GMR02.gmr_id_valeur = 102 '.// 102 = menu type "commun"
1229
	                'AND GMR01.gmr_id_menu_02 = '.$id_pere.' '.
1230
	                'AND GMR01.gmr_id_valeur = 1 '.// 1 = relation menu "père"
1231
        			'AND GMR01.gmr_ordre < '.$ligne_menu_courant_relation->gmr_ordre.' '.
1232
                    'ORDER BY GMR01.gmr_ordre DESC';
1233
 
1234
	    $resultat_menu = $db->query($requete);
1235
    	(DB::isError($resultat_menu)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_menu->getMessage(), $requete)) : '';
1236
 
1237
	    $ligne_menu = $resultat_menu->fetchRow(DB_FETCHMODE_OBJECT);
1238
	    $resultat_menu->free();
1239
	    //-------------------------------------------------------------------------------------------------------------------
1240
	    // Si la requete ne retourne rien nous ne faisons rien.
1241
	    if (! $ligne_menu) {
1242
	        return null;
1243
	    }
1244
 
1245
    	//----------------------------------------------------------------------------
1246
		// Recherche dernier fils
1247
 
1248
		$requete =  'SELECT GMR01.gmr_ordre '.
1249
                'FROM gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
1250
                'WHERE GMR01.gmr_id_menu_02 = '.$ligne_menu->gmr_id_menu_01.' '.
1251
                'AND GMR01.gmr_id_valeur = 1 '.// 1 = avoir "père"
1252
                'AND GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
1253
                'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.
818 ddelon 1254
                'AND GMR02.gmr_id_valeur = 102 '.// 102 = menu type "commun"
422 ddelon 1255
                'ORDER BY GMR01.gmr_ordre DESC';
1256
 
1257
		$resultat = $db->query($requete);
1258
		(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1259
 
1260
		$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
1261
		$no = $ligne->gmr_ordre + 1;
1262
		$resultat->free();
1263
 
1264
 
1265
		// Mise à jour pere menu courant
1266
	   	$requete =  'UPDATE gen_menu_relation SET '.
1267
	                'gmr_id_menu_02 =  '.$ligne_menu->gmr_id_menu_01.' ,'.
1268
	                'gmr_ordre = '.$no.' '.
1269
	                'WHERE gmr_id_menu_01 = '.$ligne_menu_courant_relation->gmr_id_menu_01.' '.
1270
	                'AND gmr_id_valeur = 1';// 1 = relation menu "père"
1271
 
1272
		$resultat_update = $db->query($requete);
1273
	    (DB::isError($resultat_update)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_update->getMessage(), $requete)) : '';
1274
 
1275
 
1276
    }
1277
}
1278
 
1279
 
1280
 
1281
/** Fonction ADME_supprimerMenuCommun() - Supprime un menu commun.
134 jpm 1282
*
422 ddelon 1283
* Supprime de la base de données de Génésia toutes les traces du menu commun
134 jpm 1284
* passé en paramètre.
1285
* Ancien nom : deleteUpper()
1286
*
1287
* @param  PEAR::DB l'objet Pear DB de connexion à la base de données.
155 jpm 1288
* @param  integer   l'identifiant du menu à supprimer
422 ddelon 1289
* @return void     le menu commun est supprimé de la base de données.
134 jpm 1290
*/
1291
function ADME_supprimerMenuCommun($db, $id_menu_a_supprimer)
1292
{
1293
    //-------------------------------------------------------------------------------------------------------------------
1294
    // Y a t'il des sous_menus ?
1295
    $requete =    'SELECT COUNT(gm_id_menu) AS compte '.
1296
                'FROM gen_menu, gen_menu_relation '.
1297
                'WHERE gmr_id_menu_02 = '.$id_menu_a_supprimer.' '.
1298
                'AND gmr_id_valeur = 1 '.
1299
                'AND gmr_id_menu_01 = gm_id_menu ';
1300
 
1301
    $resultat = $db->query($requete);
1302
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1303
 
1304
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
1305
 
1306
    if ($ligne && ($ligne->compte > 0)) {
150 jpm 1307
        return ADME_LG_ERREUR_EXISTE_SOUS_MENU;
134 jpm 1308
    }
1309
 
1310
    //-------------------------------------------------------------------------------------------------------------------
155 jpm 1311
    // Mise à jour de l'ordre des menus
1312
    $ligne_menu_supr_relation = GEN_lireInfoMenuRelation($db, $id_menu_a_supprimer, '1'); // 1 = relation "avoir père"
1313
    $requete =  'SELECT GMR01.gmr_id_menu_01, GMR01.gmr_ordre '.
1314
                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
1315
                'WHERE GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
1316
                'AND GMR01.gmr_id_menu_01 = gm_id_menu './/jonction avec la table GEN_MENU
1317
                'AND gm_ce_site = 0 '.// les menus communs ne sont pas liés à un site!
1318
                'AND GMR02.gmr_id_valeur = 102 '.// 102 = menu type "commun"
1319
                'AND GMR01.gmr_id_menu_02 = '.$ligne_menu_supr_relation->gmr_id_menu_02.' '.
1320
                'AND GMR01.gmr_id_valeur = 1 '.// 1 = relation menu "père"
1321
                'AND GMR01.gmr_ordre > '.$ligne_menu_supr_relation->gmr_ordre.' '.
1322
                'ORDER BY GMR01.gmr_ordre ASC';
1323
    $resultat = $db->query($requete);
1324
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
1325
        // Mise à jour des relations hiérarchiques du menu courant
1326
        $requete_maj =  'UPDATE gen_menu_relation SET '.
1327
                        'gmr_ordre = '.($ligne->gmr_ordre - 1).' '.
1328
                        'WHERE gmr_id_menu_01 = '.$ligne->gmr_id_menu_01.' '.
1329
                        'AND gmr_id_valeur = 1';// 1 = relation menu "père"
1330
 
1331
        $resultat_maj = $db->query($requete_maj);
1332
        (DB::isError($resultat_maj)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_maj->getMessage(), $requete_maj)) : '';
1333
    }
1334
    $resultat->free();
1335
 
1336
    //-------------------------------------------------------------------------------------------------------------------
134 jpm 1337
    // S'il n'y a plus de sous niveau, on supprime le menu
1338
    $requete =  'DELETE FROM gen_menu '.
1339
                'WHERE gm_id_menu = '.$id_menu_a_supprimer;
1340
 
1341
    $resultat = $db->query($requete);
1342
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1343
 
1344
    //-------------------------------------------------------------------------------------------------------------------
1345
    // Puis on supprime les relations de ce menu
1346
    $requete =  'DELETE FROM gen_menu_relation '.
1347
                'WHERE gmr_id_menu_01 = '.$id_menu_a_supprimer;
1348
 
1349
    $resultat = $db->query($requete);
1350
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
155 jpm 1351
 
818 ddelon 1352
 
1353
 
1354
	 // Suppression du contenu !!!!
1355
 
1356
    $requete =  'DELETE FROM gen_menu_contenu '.
1357
                'WHERE truncate((gmc_ce_type_contenu/10),0)= '.$id_menu_a_supprimer.' '.
1358
                'AND gmc_ce_menu = '.$code_menu['gm_code_num'];
1359
 
1360
    $resultat = $db->query($requete);
1361
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1362
 
1363
 
1364
 
134 jpm 1365
}
1366
 
1367
 
818 ddelon 1368
/** Fonction ADME_supprimerMenuCommunTraduction() - Supprime une traduction de menu commun.
1369
*
1370
* Supprime de la base de données de Papyrus toutes les traces du menu commun
1371
* passé en paramètre.
1372
* Ancien nom : deleteMenu()
1373
*
1374
* @param  mixed  l'objet Pear DB de connexion à la base de données.
1375
* @param  integer l'identifiant du site du menu à supprimer
1376
* @param  integer l'identifiant du menu à supprimer
1377
* @return void   le menu commun est supprimé de la base de données.
1378
*/
1379
function ADME_supprimerMenuCommunTraduction($db, $adme_id_site, $id_menu_a_supprimer)
1380
{
1381
 
1382
 
1383
	$code_menu = GEN_lireInfoMenu($db, $id_menu_a_supprimer, DB_FETCHMODE_ASSOC);
1384
 
1385
 
1386
    if ($code_menu === false) {
1387
            die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_MENU.'<br />'.
1388
                'Idenitifiant du menu n° : '. $id_menu_a_supprimer .'<br />'.
1389
                'Ligne n° : '. __LINE__ .'<br />'.
1390
                'Fichier n° : '. __FILE__ .'<br />');
1391
     }
1392
 
1393
 
1394
 
1395
    $requete =  'DELETE FROM gen_menu '.
1396
                'WHERE gm_id_menu = '.$id_menu_a_supprimer;
1397
 
1398
    $resultat = $db->query($requete);
1399
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1400
 
1401
    //----------------------------------------------------------------------------
1402
    // Puis on supprime les relations de ce menu
1403
    $requete =  'DELETE FROM gen_menu_relation '.
1404
                'WHERE gmr_id_menu_01 = '.$id_menu_a_supprimer;
1405
 
1406
    $resultat = $db->query($requete);
1407
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1408
 
1409
        //----------------------------------------------------------------------------
1410
    // Puis on supprime les relations de ce menu
1411
    $requete =  'DELETE FROM gen_menu_relation '.
1412
                'WHERE gmr_id_menu_02 = '.$id_menu_a_supprimer;
1413
 
1414
    $resultat = $db->query($requete);
1415
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1416
 
1417
 
1418
 
1419
	 // Suppression du contenu !!!!
1420
 
1421
    $requete =  'DELETE FROM gen_menu_contenu '.
1422
                'WHERE truncate((gmc_ce_type_contenu/10),0)= '.$id_menu_a_supprimer.' '.
1423
                'AND gmc_ce_menu = '.$code_menu['gm_code_num'];
134 jpm 1424
 
818 ddelon 1425
 
1426
 
1427
    $resultat = $db->query($requete);
1428
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1429
 
1430
 
1431
}
1432
 
1433
 
1434
 
1435
 
7 jpm 1436
// +------------------------------------------------------------------------------------------------------+
1437
// |                                            PIED du PROGRAMME                                         |
1438
// +------------------------------------------------------------------------------------------------------+
1439
 
1440
 
134 jpm 1441
 
7 jpm 1442
/* +--Fin du code ----------------------------------------------------------------------------------------+
1443
*
1444
* $Log: not supported by cvs2svn $
818 ddelon 1445
* Revision 1.19  2005/09/27 08:42:49  ddelon
1446
* Menu et Squelette
1447
*
466 ddelon 1448
* Revision 1.18  2005/07/18 16:14:32  ddelon
1449
* css admin + menu communs
1450
*
422 ddelon 1451
* Revision 1.17  2005/07/08 22:01:25  ddelon
1452
* Copyright
1453
*
410 ddelon 1454
* Revision 1.16  2005/05/26 16:13:08  jpm
1455
* Correction taille éditeur: passage en text
1456
*
380 jpm 1457
* Revision 1.14  2005/05/26 15:34:46  jpm
1458
* Ajout d'un espace.
1459
*
379 jpm 1460
* Revision 1.13  2005/05/26 08:54:20  jpm
1461
* Ajout info admin ayant fait la dernière modif.
1462
*
378 jpm 1463
* Revision 1.12  2005/04/19 16:47:16  jpm
1464
* Gestion des dates  de fin de validité des menus.
1465
*
346 jpm 1466
* Revision 1.11  2005/03/29 15:49:12  jpm
1467
* Ajout de la date de création dans le formulaire des menus.
1468
*
317 jpm 1469
* Revision 1.10  2005/02/28 11:05:06  jpm
1470
* Modification des auteurs.
1471
*
285 jpm 1472
* Revision 1.9  2005/01/24 11:28:09  jpm
1473
* Correction bogue.
1474
* Ajout d'un troisième = pour comparer le type.
1475
*
249 jpm 1476
* Revision 1.8  2004/12/01 16:47:28  jpm
1477
* Ajout d'une boite javascript de confirmation de suppression d'un menu.
1478
*
197 jpm 1479
* Revision 1.7  2004/11/15 16:51:12  jpm
1480
* Correction bogue de mise à jour de l'ordre des menus.
1481
*
155 jpm 1482
* Revision 1.6  2004/11/10 17:26:07  jpm
1483
* Fin gestion de la traduction.
1484
*
150 jpm 1485
* Revision 1.5  2004/11/09 17:48:35  jpm
1486
* Gestion de différentes interfaces d'administration.
1487
*
134 jpm 1488
* Revision 1.3  2004/09/23 17:45:13  jpm
1489
* Amélioration de la gestion des liens annuler et du selecteur de sites.
1490
*
56 jpm 1491
* Revision 1.2  2004/07/06 17:07:37  jpm
1492
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
1493
*
25 jpm 1494
* Revision 1.1  2004/06/16 15:04:32  jpm
1495
* Changement de nom de Génésia en Papyrus.
1496
* Changement de l'arborescence.
1497
*
7 jpm 1498
* Revision 1.10  2004/05/10 12:13:03  jpm
1499
* Modification des formulaires.
1500
*
1501
* Revision 1.9  2004/05/07 16:31:40  jpm
1502
* Amélioration du formulaire d'un menu commun.
1503
*
1504
* Revision 1.8  2004/05/07 09:56:52  jpm
1505
* Correction des noms de constantes d'images.
1506
*
1507
* Revision 1.7  2004/05/07 07:23:54  jpm
1508
* Amélioration du code, des commentaires et correction de bogues.
1509
*
1510
* Revision 1.6  2004/05/04 16:27:55  jpm
1511
* Amélioration gestion du déplacement des menus.
1512
*
1513
*
1514
* +-- Fin du code ----------------------------------------------------------------------------------------+
1515
*/
1516
?>