Subversion Repositories Applications.papyrus

Rev

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

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