Subversion Repositories Applications.papyrus

Rev

Rev 1677 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2150 mathias 1
<?php
2
/*vim: set expandtab tabstop=4 shiftwidth=4: */
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
// ----
35
// CVS : $Id: adme_menu_classique.fonct.php,v 1.42 2007-10-25 14:26:56 ddelon Exp $
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
*
43
*@package Admin_menu
44
*@subpackage Fonctions
45
//Auteur original :
46
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
47
//Autres auteurs :
48
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
49
*@copyright     Tela-Botanica 2000-2004
50
*@version       $Revision: 1.42 $ $Date: 2007-10-25 14:26:56 $
51
// +------------------------------------------------------------------------------------------------------+
52
*/
53
 
54
// +------------------------------------------------------------------------------------------------------+
55
// |                                            ENTÊTE du PROGRAMME                                       |
56
// +------------------------------------------------------------------------------------------------------+
57
 
58
 
59
// +------------------------------------------------------------------------------------------------------+
60
// |                                           LISTE de FONCTIONS                                         |
61
// +------------------------------------------------------------------------------------------------------+
62
 
63
/** Fonction ADME_afficherListeMenuClassique () - Affiche un arbre de menu en xhtml
64
*
65
* Elle forme l'arbre des menus classiques à administrer.
66
* Ancien nom : deployer_menu().
67
*
68
* @param  object objet Pear de connection à la base de données.
69
* @param  object objet Pear représentant l'url de base.
70
* @param  integer l'identifiant du menu à administrer.
71
* @param  integer l'identifiant du menu sur lequel on agit.
72
* @param  string le nom de l'action courante.
73
* @param  integer l'identifiant du menu en cours de déploiement.
74
* @param  boolean true indique que l'on a à faire au premier appel de cette fonction récursive.
75
* @return string  le code XHTML constituant l'arbre des menus à administrer.
76
*/
77
function ADME_afficherListeMenuClassique($db, $url, $adme_site_id, $adme_menu_id, $adme_action, $id_menu_a_deployer, $bln_premier_appel = true)
78
{
79
 
80
 
81
    // Initialisation des variables :
82
    $retour = '';
83
 
84
    // Est-ce que ces menus comporte des sous-menus ?
85
    $requete_sous_menu =    'SELECT gm_id_menu '.
86
                            'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
87
                            'WHERE GMR01.gmr_id_menu_02 = '.$id_menu_a_deployer.' '.
88
                            'AND GMR01.gmr_id_menu_01 = gm_id_menu '.
89
                            'AND gm_ce_site = '.$adme_site_id.' '.
90
                            'AND GMR01.gmr_id_valeur = 1 '.// 1 = avoir "père"
91
                            'AND GMR02.gmr_id_menu_02 = gm_id_menu '.
92
                            'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.
93
                            'AND GMR02.gmr_id_valeur = 100 '.// 100 = type "menu classique"
94
                            'ORDER BY GMR01.gmr_ordre ASC';
95
 
96
    $resultat_sous_menu = $db->query($requete_sous_menu) ;
97
    if (DB::isError($resultat_sous_menu)) {
98
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_sous_menu->getMessage(), $requete_sous_menu));
99
    }
100
 
101
    // Gestion du stockage ou déstockage des menus ouverts
102
    if (($adme_action == ADME_LG_ACTION_DEPLIER || $adme_action == ADME_LG_ACTION_CLASSIQUE_AJOUTER) && $id_menu_a_deployer != 0) {
103
        $_SESSION['adme_menus_classiques_ouverts'][$adme_menu_id] = $adme_menu_id;
104
    }
105
    if ($adme_action == ADME_LG_ACTION_PLIER && $id_menu_a_deployer != 0) {
106
        unset($_SESSION['adme_menus_classiques_ouverts'][$adme_menu_id]);
107
        foreach ($_SESSION['adme_menus_classiques_ouverts'] as $val) {
108
            if (GEN_etreAncetre($adme_menu_id, $val)) {
109
                unset($_SESSION['adme_menus_classiques_ouverts'][$val]);
110
            }
111
        }
112
    }
113
 
114
    // Gestion affichage des menus
115
    if ($resultat_sous_menu->numRows() > 0) {
116
        // Ici, on sait qu'un menu a des sous menus, on commence par l'afficher:
117
        if ($bln_premier_appel == false) {
118
            $retour .= '<li>'."\n";
119
 
120
            if (GEN_etreAncetre($id_menu_a_deployer, $adme_menu_id) ||
121
                ($id_menu_a_deployer == $adme_menu_id && $adme_action == ADME_LG_ACTION_DEPLIER) ||
122
                isset($_SESSION['adme_menus_classiques_ouverts'][$id_menu_a_deployer])
123
                ){
124
                // Affiche un -
125
                $retour .= ADME_retournerXhtmlMenuClassique($db, $url, $adme_site_id, $id_menu_a_deployer, 1);
126
            } else if ( !GEN_etreAncetre($id_menu_a_deployer, $adme_menu_id) ||
127
                        ($id_menu_a_deployer == $adme_menu_id && $adme_action == ADME_LG_ACTION_PLIER) ||
128
                        !isset($_SESSION['adme_menus_classiques_ouverts'][$id_menu_a_deployer])
129
                        ){
130
                // Affiche un +
131
                $retour .= ADME_retournerXhtmlMenuClassique($db, $url, $adme_site_id, $id_menu_a_deployer, 2);
132
            }
133
        }
134
        if ($bln_premier_appel == true || GEN_etreAncetre($id_menu_a_deployer, $adme_menu_id) ||
135
            ($id_menu_a_deployer == $adme_menu_id && $adme_action == ADME_LG_ACTION_DEPLIER) ||
136
            isset($_SESSION['adme_menus_classiques_ouverts'][$id_menu_a_deployer])
137
            ){
138
            $retour .= '<ul class="menu_classique">'."\n";
139
            while ($ligne_sous_menu = $resultat_sous_menu->fetchRow(DB_FETCHMODE_OBJECT)) {
140
                $retour .= ADME_afficherListeMenuClassique($db, $url, $adme_site_id, $adme_menu_id, $adme_action, $ligne_sous_menu->gm_id_menu, false);
141
            }
142
            $retour .= '</ul>'."\n";
143
        }
144
        if ($bln_premier_appel == false) {
145
            $retour .= '</li>'."\n";
146
        }
147
    } else if ($resultat_sous_menu->numRows() == 0 && $bln_premier_appel == false) {
148
        $retour .= '<li>'."\n";
149
        $retour .= ADME_retournerXhtmlMenuClassique($db, $url, $adme_site_id, $id_menu_a_deployer, 0);
150
        $retour .= '</li>'."\n";
151
    }
152
 
153
    return $retour;
154
}
155
 
156
/** Fonction ADME_retournerXhtmlMenuClassique() - Effectue une sortie d'un menu en XHTML
157
*
158
* Retourne le XHTML d'une ligne de l'arbre des menus "classiques" permettant de l'administer.
159
* Ancien nom : menu_toHtml().
160
*
161
* @param  object objet Pear de connection à la base de données.
162
* @param  object objet Pear représentant l'url de base.
163
* @param  integer l'identifiant du site à administrer.
164
* @param  integer l'identifiant du menu à administrer.
165
* @param  integer 0 indique que le menu ne possède pas de fils, 1 qu'il faut afficher un - et 2 un +.
166
* @return string une ligne de liste XHTML
167
*/
168
function ADME_retournerXhtmlMenuClassique($db, $url, $adme_site_id, $adme_menu_id, $int_deplier,$est_traduction=false,$menu_traduction_defaut=0)
169
{
170
    //-------------------------------------------------------------------------------------------------------------------
171
    // Initialisation des variables
172
 
173
 
174
    //-------------------------------------------------------------------------------------------------------------------
175
    // Récupération des infos concernant l'administrateur d'un menu
176
    $requete =  'SELECT gen_menu.*, ga_prenom '.
177
                'FROM gen_menu, gen_annuaire '.
178
                'WHERE gm_id_menu = '.$adme_menu_id.' '.
179
                'AND gm_ce_admin = ga_id_administrateur';
180
 
181
    $resultat = $db->query($requete);
182
    if (DB::isError($resultat)) {
183
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
184
    }
185
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
186
    //-------------------------------------------------------------------------------------------------------------------
187
    // Recupération des infos de l'appli du menu courant.
188
    $ligne_app = GEN_retournerInfoAppliMenu($db, $adme_menu_id);
189
 
190
    //-------------------------------------------------------------------------------------------------------------------
191
    // XHTML image plier-déplier
192
 
193
    $url->addQueryString('adme_site_id', $adme_site_id);
194
    $url->addQueryString('adme_menu_id', $adme_menu_id);
195
    $xhtml_pd = '';
196
 
197
    if(!$est_traduction) {
198
        $xhtml_pd .= '<input type="checkbox" name="adme_id_menu_deplacement['.$adme_menu_id.']" id="adme_id_menu_deplacement" value="'.$adme_menu_id.'" />  ' ;
199
    }
200
 
201
    if ($int_deplier != 0) {
202
        if ($int_deplier == 1) {
203
            // Afficher un -
204
            $image_plier_deplier = ADME_IMAGE_MOINS;
205
            $alt = ADME_LG_ACTION_PLIER_ALT;
206
            $url->addQueryString('adme_action', ADME_LG_ACTION_PLIER);
207
            $url_plier_deplier = $url->getURL();
208
        } else if ($int_deplier == 2) {
209
            // Afficher un +
210
            $image_plier_deplier = ADME_IMAGE_PLUS;
211
            $alt = ADME_LG_ACTION_DEPLIER_ALT;
212
            $url->addQueryString('adme_action', ADME_LG_ACTION_DEPLIER);
213
            $url_plier_deplier = $url->getURL();
214
        }
215
        $xhtml_pd .= '<a href="'.$url_plier_deplier.'" title="'.$alt.'">'.
216
                        '<img class="'.ADME_CLASS_IMG_PD.'" src="'.$image_plier_deplier.'" alt="'.$alt.'" />'.
217
                    '</a>'.'&nbsp;'."\n";
218
    }
219
 
220
    //-------------------------------------------------------------------------------------------------------------------
221
    // XHTML du nom du menu et de ses infos
222
    $xhtml_info  = htmlentities(empty($ligne->gm_nom) ? ADME_LG_PARENTHESE_OUVRANTE.$ligne->gm_nom.ADME_LG_PARENTHESE_FERMANTE : $ligne->gm_nom);
223
    $xhtml_info .= '&nbsp;';
224
    if (!isset($ligne_app->gap_nom)) {
225
    	$gap_nom='';
226
    }
227
    else  {
228
    	$gap_nom=$ligne_app->gap_nom;
229
    }
230
    $xhtml_info .= ADME_LG_PARENTHESE_OUVRANTE.$gap_nom.'&nbsp;'.ADME_LG_SLASH.'&nbsp;'.$ligne->ga_prenom.ADME_LG_PARENTHESE_FERMANTE;
231
    $xhtml_info .= '&nbsp;'."\n";
232
 
233
    //-------------------------------------------------------------------------------------------------------------------
234
    // XHTML actions
235
    $url->removeQueryString('adme_action');
236
 
237
    $url->addQueryString('adme_action', ADME_LG_ACTION_CLASSIQUE_MODIFIER);
238
    $xhtml_action = '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_MODIFIER_TITLE.'">'.
239
                        '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_VOIR.'" alt="'.ADME_LG_ACTION_CLASSIQUE_MODIFIER_ALT.'" />'.
240
                    '</a>&nbsp;'."\n";
241
    $url->removeQueryString('adme_action');
242
    if (!$est_traduction) {
243
    	$url->addQueryString('adme_action', ADME_LG_ACTION_CLASSIQUE_MONTER);
244
    	$xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_MONTER_TITLE.'">'.
245
        	                    '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_FLECHE_HAUT.'" alt="'.ADME_LG_ACTION_CLASSIQUE_MONTER_ALT.'" />'.
246
            	            '</a>&nbsp;'."\n";
247
    	$url->removeQueryString('adme_action');
248
    	$url->addQueryString('adme_action', ADME_LG_ACTION_CLASSIQUE_DESCENDRE);
249
    	$xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_DESCENDRE_TITLE.'">'.
250
        	                    '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_FLECHE_BAS.'" alt="'.ADME_LG_ACTION_CLASSIQUE_DESCENDRE_ALT.'" />'.
251
            	            '</a>&nbsp;'."\n";
252
 
253
		$url->addQueryString('adme_action',ADME_LG_ACTION_CLASSIQUE_DIMINUER);
254
    	$xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_DIMINUER_TITLE.'">'.
255
        	                    '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_FLECHE_GAUCHE.'" alt="'.ADME_LG_ACTION_CLASSIQUE_DIMINUER_ALT.'" />'.
256
            	            '</a>&nbsp;'."\n";
257
    	$url->removeQueryString('adme_action');
258
    	$url->addQueryString('adme_action',ADME_LG_ACTION_CLASSIQUE_AUGMENTER);
259
    	$xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_AUGMENTER_TITLE.'">'.
260
        	                    '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_FLECHE_DROITE.'" alt="'.ADME_LG_ACTION_CLASSIQUE_AUGMENTER_ALT.'" />'.
261
            	            '</a>&nbsp;'."\n";
262
    }
263
    $url->removeQueryString('adme_action');
264
    if (!$est_traduction) {
265
    $url->addQueryString('adme_action', ADME_LG_ACTION_CLASSIQUE_SUPPRIMER);
266
    $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_SUPPRIMER_TITLE.'" onclick="javascript:return confirm(\''.ADME_LG_ACTION_SUPPRIMER_CONFIRMATION.'\');">'.
267
                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_SUPPRIMER.'" alt="'.ADME_LG_ACTION_CLASSIQUE_SUPPRIMER_ALT.'" />'.
268
                        '</a>&nbsp;'."\n";
269
    }
270
    else {
271
    	    $url->addQueryString('adme_action', ADME_LG_ACTION_CLASSIQUE_SUPPRIMER_TRADUCTION);
272
    		$xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_SUPPRIMER_TRADUCTION_TITLE.'" onclick="javascript:return confirm(\''.ADME_LG_ACTION_SUPPRIMER_CONFIRMATION.'\');">'.
273
                           		'<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_SUPPRIMER.'" alt="'.ADME_LG_ACTION_CLASSIQUE_SUPPRIMER_TRADUCTION_ALT.'" />'.
274
                        		'</a>&nbsp;'."\n";
275
 
276
    }
277
    $url->removeQueryString('adme_action');
278
 
279
    if (!$est_traduction) {
280
	    $url->addQueryString('adme_action', ADME_LG_ACTION_CLASSIQUE_AJOUTER);
281
	    $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_AJOUTER_TITLE.'">'.
282
	                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_NOUVEAU.'" alt="'.ADME_LG_ACTION_CLASSIQUE_AJOUTER_ALT.'" />'.
283
	                        '</a>'.'&nbsp;'."\n";
284
    }
285
 
286
    $url->removeQueryString('adme_action');
287
 
288
    // Si le menu à une application liée on regarde s'il y a une interface d'administration.
289
    if (!isset($ligne_app->gap_id_application)) {
290
    	$gap_id_application=0;
291
    }
292
    else  {
293
    	$gap_id_application=$ligne_app->gap_id_application;
294
    }
295
 
296
    if ($gap_id_application != 0 && GEN_verifierPresenceInterfaceAdmin($db, $gap_id_application)) {
297
        $url->removeQueryString('adme_action');
298
        $url->addQueryString('adme_action', ADME_LG_ACTION_ADMINISTRER);
299
        $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_ADMINISTRER_TITLE.'">'.
300
                                '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_TEXTE.'" alt="'.ADME_LG_ACTION_ADMINISTRER_ALT.'" />'.
301
                            '</a>'.'&nbsp;'."\n";
302
    }
303
 
304
    if (!$est_traduction) {
305
 
306
 
307
			 $requete_traduction =   'SELECT gmr_id_menu_02,  gm_ce_i18n '.
308
			                                    'FROM  gen_menu_relation, gen_menu '.
309
			                                    'WHERE '.$adme_menu_id.' = gmr_id_menu_01 ' .
310
			                                    'AND  gmr_id_menu_02  = gm_id_menu   '.
311
			                                    'AND  gmr_id_valeur  = 2 ';// 2 = "avoir traduction"
312
 
313
			$resultat_traduction = $db->query($requete_traduction);
314
			 (DB::isError($resultat_traduction))             ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction))
315
			                : '';
316
 
317
 
318
 
319
			    $url->addQueryString('adme_action',ADME_LG_ACTION_CLASSIQUE_TRADUIRE);
320
			    $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_TRADUIRE_TITLE.'">'.
321
	                        ADME_LG_ACTION_CLASSIQUE_TRADUIRE_ALT.
322
	                        '</a>&nbsp;'."\n";
323
 
324
 
325
// Restriction possible à une langue si pas traduit
326
 
327
				if ($resultat_traduction->numRows() == 0 ) {
328
 
329
		    	$requete_lang =  'SELECT * FROM gen_i18n ';
330
 
331
 
332
		        $resultat_lang = $db->query($requete_lang);
333
		    	(DB::isError($resultat_lang)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_lang->getMessage(), $requete_lang)) : '';
334
 
335
 
336
        		$requete_restriction =    'SELECT gmr_id_menu_02 '.
337
			                                    'FROM  gen_menu_relation '.
338
			                                    'WHERE '.$adme_menu_id.' = gmr_id_menu_01 ' .
339
			                                    'AND  gmr_id_valeur  = 106 ';// 106 restriction de menu
340
				$resultat_restriction = $db->query($requete_restriction);
341
				(DB::isError($resultat_restriction))             ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_restriction->getMessage(), $requete_restriction))
342
				: '';
343
 
344
 
345
				if ($resultat_restriction->numRows() == 0 ) {
346
					$restriction=0;
347
				}
348
				else {
349
					$restriction=1;
350
				}
351
 
352
			   while ($ligne_lang = $resultat_lang->fetchRow(DB_FETCHMODE_OBJECT) ) {
353
			   	  if (($restriction) && ($ligne->gm_ce_i18n==$ligne_lang->gi_id_i18n)) {
354
			   	  	 $url->addQueryString('adme_action',ADME_LG_ACTION_CLASSIQUE_OUVRIR);
355
			   	  	 $url->addQueryString('zone',$ligne_lang->gi_id_i18n);
356
				    $xhtml_action .=    '<i><b><a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_OUVRIR_TITLE.'">'.
357
				    		$ligne_lang->gi_id_i18n.
358
	                        '</a></b></i>&nbsp;'."\n";
359
 
360
			   	  }
361
			   	  else  {
362
	  				    $url->addQueryString('adme_action',ADME_LG_ACTION_CLASSIQUE_LIMITER);
363
  					    $url->addQueryString('zone',$ligne_lang->gi_id_i18n);
364
					    $xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_LIMITER_TITLE.'">'.
365
								$ligne_lang->gi_id_i18n.
366
	            	            '</a>&nbsp;'."\n";
367
 
368
			   	  }
369
		        }
370
 
371
 
372
 
373
			}
374
 
375
 
376
    }
377
	else {
378
		if ($menu_traduction_defaut==$adme_menu_id) {
379
	        $xhtml_action .=    '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_TRADUCTION_DEFAUT_AFFICHAGE.'" alt="'.ADME_LG_ACTION_CLASSIQUE_TRADUCTION_DEFAUT_ALT.'" />'.
380
                            '&nbsp;'."\n";
381
		}
382
		else {
383
				$url->removeQueryString('adme_action');
384
        		$url->addQueryString('adme_action', ADME_LG_ACTION_CLASSIQUE_TRADUCTION_DEFAUT);
385
        		$xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_TRADUCTION_DEFAUT_TITLE.'">'.
386
                                '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_TRADUCTION_DEFAUT.'" alt="'.ADME_LG_ACTION_CLASSIQUE_TRADUCTION_DEFAUT_ALT.'" />'.
387
                            '</a>'.'&nbsp;'."\n";
388
 
389
		}
390
	}
391
 
392
    $xhtml_traduction='';
393
 
394
//    $id_langue = $GLOBALS['_GEN_commun']['i18n'];
395
 
396
    $requete_traduction =   'SELECT gmr_id_menu_02,  gm_ce_i18n '.
397
			                                    'FROM  gen_menu_relation, gen_menu '.
398
			                                    'WHERE '.$adme_menu_id.' = gmr_id_menu_01 ' .
399
			                                    'AND  gmr_id_menu_02  = gm_id_menu   '.
400
			                                    'AND  gmr_id_valeur  = 2 ';// 2 = "avoir traduction"
401
 
402
	$resultat_traduction = $db->query($requete_traduction);
403
			        (DB::isError($resultat_traduction))             ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction))
404
			                : '';
405
 
406
	if ($resultat_traduction->numRows() > 0 ) {
407
 
408
			$requete_traduction_defaut =    'SELECT gmr_id_menu_02 '.
409
			                                    'FROM  gen_menu_relation '.
410
			                                    'WHERE '.$adme_menu_id.' = gmr_id_menu_01 ' .
411
			                                    'AND  gmr_id_valeur  = 105 ';// 105 traduction par defaut
412
			$resultat_traduction_defaut = $db->query($requete_traduction_defaut);
413
			(DB::isError($resultat_traduction_defaut))             ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction_defaut))
414
			: '';
415
 
416
 
417
			if ($resultat_traduction_defaut->numRows() == 0 ) {
418
                $menu_traduction_defaut=0;
419
                $xhtml_action .=    '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_TRADUCTION_DEFAUT_AFFICHAGE.'" alt="'.ADME_LG_ACTION_CLASSIQUE_TRADUCTION_DEFAUT_ALT.'" />'.
420
                            '&nbsp;'."\n";
421
			}
422
			else {
423
 
424
 
425
				$ligne_traduction_defaut = $resultat_traduction_defaut->fetchRow(DB_FETCHMODE_OBJECT);
426
				$menu_traduction_defaut=$ligne_traduction_defaut->gmr_id_menu_02;
427
 
428
				if ($menu_traduction_defaut!=$adme_menu_id) {
429
					$url->removeQueryString('adme_action');
430
        			$url->addQueryString('adme_action', ADME_LG_ACTION_CLASSIQUE_TRADUCTION_DEFAUT);
431
        			$xhtml_action .=    '<a href="'.$url->getURL().'" title="'.ADME_LG_ACTION_CLASSIQUE_TRADUCTION_DEFAUT_TITLE.'">'.
432
                    	            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_TRADUCTION_DEFAUT.'" alt="'.ADME_LG_ACTION_CLASSIQUE_TRADUCTION_DEFAUT_ALT.'" />'.
433
                        	    '</a>'.'&nbsp;'."\n";
434
				}
435
				else {
436
				   $xhtml_action .=    '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_TRADUCTION_DEFAUT_AFFICHAGE.'" alt="'.ADME_LG_ACTION_CLASSIQUE_TRADUCTION_DEFAUT_ALT.'" />'.
437
                            '&nbsp;'."\n";
438
 
439
				}
440
 
441
			}
442
 
443
			while ($ligne_resultat = $resultat_traduction->fetchRow(DB_FETCHMODE_OBJECT)) {
444
					$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,$menu_traduction_defaut)."</em>";
445
 
446
			}
447
 
448
 
449
	}
450
 
451
    //-------------------------------------------------------------------------------------------------------------------
452
    // Envoi du menu.
453
    //-------------------------------------------------------------------------------------------------------------------
454
 
455
 
456
    $retour = $xhtml_pd.$xhtml_info.$xhtml_action.$xhtml_traduction;
457
 
458
    return $retour;
459
}
460
 
461
/** Fonction ADME_ajouterMenuClassique() - Ajoute un sous menu au menu courant
462
*
463
* Cette fonction permet d'ajouter un sous-menu de type "classique" au menu courant.
464
* Ancien nom : addMenu()
465
*
466
* @param  object objet Pear de connection à la base de données.
467
* @param  object objet Pear d'authentification.
468
* @param  integer l'identifiant du site à administrer.
469
* @param  integer l'identifiant du menu à administrer.
470
* @return void le menu classique est ajouté à la base de données.
471
*/
472
function ADME_ajouterMenuClassique($db, $auth, $adme_site_id, $adme_menu_id)
473
{
474
 
475
	$url=$GLOBALS['_GEN_commun']['url'];
476
	$url->removeQueryString('adme_action');
477
 
478
    //----------------------------------------------------------------------------
479
    // Récupération d'infos sur le site principal.
480
    $objet_site = GEN_lireInfoSitePrincipal($db, $adme_site_id);
481
    if ($objet_site == false) {
482
        die('ERREUR Génésia Administrateur de Menus : impossible de lire les infos du site.<br />'.
483
            'ID du site : '.$adme_site_id.'<br />'.
484
            'Ligne n° : '. __LINE__ .'<br />'.
485
            'Fichier n° : '. __FILE__ .'<br />');
486
    }
487
 
488
    $nouveau_id_menu = SQL_obtenirNouveauId($db, 'gen_menu', 'gm_id_menu');
489
    $auteur = $auth->getAuthData('ga_prenom').' '.$auth->getAuthData('ga_nom');
490
 
491
    //----------------------------------------------------------------------------
492
    // Ajout du nouveau menu
493
    $requete =  'INSERT INTO gen_menu '.
494
                'SET gm_id_menu = '.$nouveau_id_menu.', '.
495
                'gm_ce_site = '.$adme_site_id.', '.
496
                'gm_ce_i18n = "'.$objet_site->gs_ce_i18n.'", '.
497
                'gm_ce_application = 0, '.
498
                'gm_code_num = '.$nouveau_id_menu.', '.
499
                'gm_code_alpha = "menu_'.$nouveau_id_menu.'", '.
500
                'gm_nom = "menu_'.$nouveau_id_menu.'", '.
501
                'gm_titre = "menu_'.$nouveau_id_menu.'", '.
502
                'gm_description_resume = "menu_'.$nouveau_id_menu.'", '.
503
                'gm_auteur = "'.$auteur.'", '.
504
                'gm_editeur = "'.$objet_site->gs_auteur.'", '.
505
                'gm_date_creation = "'.date('Y-m-d H:i:s').'", '.
506
                'gm_date_soumission = "'.date('Y-m-d H:i:s').'", '.
507
                'gm_date_acceptation = "'.date('Y-m-d H:i:s').'", '.
508
                'gm_date_publication = "'.date('Y-m-d H:i:s').'", '.
509
                'gm_date_debut_validite = "'.date('Y-m-d H:i:s').'", '.
510
                'gm_date_fin_validite = "0000-00-00 00:00:00", '.
511
                'gm_date_copyright = "'.date('Y-00-00 00:00:00').'", '.
512
                'gm_categorie = "menu", '.
513
                'gm_ce_admin = '.$auth->getAuthData('ga_id_administrateur').' '
514
                ;
515
 
516
    $resultat = $db->query($requete);
517
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
518
 
519
    //----------------------------------------------------------------------------
520
    // Ajout de la relation "père"
521
 
522
    if (!isset($adme_menu_id) && empty($adme_menu_id)) {
523
        $adme_menu_id = 0 ;// Identifiant du père
524
    }
525
    //----------------------------------------------------------------------------
526
    // Récupération d'infos sur la hierarchie du menu
527
    $requete =  'SELECT GMR01.gmr_ordre '.
528
                'FROM gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
529
                'WHERE GMR01.gmr_id_menu_02 = '.$adme_menu_id.' '.
530
                'AND GMR01.gmr_id_valeur = 1 '.// 1 = avoir "père"
531
                'AND GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
532
                'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.
533
                'AND GMR02.gmr_id_valeur = 100 '.// 100 = menu type "classique"
534
                'ORDER BY GMR01.gmr_ordre DESC';
535
 
536
    $resultat = $db->query($requete);
537
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
538
 
539
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
540
    $nouveau_ordre_menu = $ligne->gmr_ordre + 1;
541
    $resultat->free();
542
 
543
    $requete =  'INSERT INTO gen_menu_relation '.
544
                'SET gmr_id_menu_02 = '.$adme_menu_id.', '.
545
                'gmr_id_menu_01 = '.$nouveau_id_menu.', '.
546
                'gmr_id_valeur = 1, '.
547
                'gmr_ordre = '.$nouveau_ordre_menu;
548
 
549
    $resultat = $db->query($requete);
550
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
551
 
552
    //----------------------------------------------------------------------------
553
    // Ajout de la relation-type "menu classique"
554
 
555
    // Récupération d'infos sur la hierarchie du menu
556
    $requete =  'SELECT * '.
557
                'FROM gen_menu_relation, gen_menu '.
558
                'WHERE gmr_id_menu_02 = gmr_id_menu_01 '.
559
                'AND gmr_id_valeur = 100 '.// 100 = type menu "classique"
560
                'AND gmr_id_menu_01 = gm_id_menu '.
561
                'AND gm_ce_site = '.$adme_site_id.' '.
562
                'ORDER BY gmr_ordre DESC';
563
 
564
    $resultat = $db->query($requete);
565
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
566
 
567
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
568
    $nouveau_ordre_menu_classique = $ligne->gmr_ordre + 1;
569
    $resultat->free();
570
 
571
    $requete =  'INSERT INTO gen_menu_relation '.
572
                'SET gmr_id_menu_01 = '.$nouveau_id_menu.', '.
573
                'gmr_id_menu_02 = '.$nouveau_id_menu.', '.
574
                'gmr_id_valeur = 100, '.
575
                'gmr_ordre = '.$nouveau_ordre_menu_classique;
576
 
577
    $result = $db->query($requete);
578
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
579
}
580
 
581
/** Fonction ADME_afficherFormMenuClassique() - Affiche le formulaire pour un menu classique
582
*
583
* Utilise HTML_QuickForm pour générer le formulaire.
584
* Ancien nom : showMenu()
585
*
586
* @param  object  objet Pear de connection à la base de données.
587
* @param  object objet Pear représentant l'url de base.
588
* @param  integer l'identifiant du site à administrer.
589
* @param  integer l'identifiant du menu à administrer.
590
* @param  array le tableau associatif des valeurs à afficher dans le formulaire.
591
* @return  string  le formulaire XHTML.
592
*/
593
function ADME_afficherFormMenuClassique($db, $url, $adme_site_id, $adme_menu_id, $aso_valeurs,$traduction=FALSE)
594
{
595
    // Initialisation de variable
596
    $url->addQueryString('adme_site_id', $adme_site_id);
597
    $url->addQueryString('adme_menu_id', $adme_menu_id);
598
    $script = 'function switchMenu(obj) {
599
		var el = document.getElementById(obj);
600
		if(el.style.display != "block")
601
		{
602
			el.style.display = "block";
603
		}
604
		else
605
		{
606
			el.style.display = "none";
607
		}
608
	}';
609
    GEN_stockerCodeScript($script);
610
    // Nous sommes toujours en modification car un menu est ajouté automatiquement!
611
    // Récupération des informations du menu concerné.
612
    if (!isset($aso_valeurs[ADME_LG_ACTION_CLASSIQUE_VERIFIER]) && !isset($aso_valeurs[ADME_LG_ACTION_CLASSIQUE_VERIFIER_TRADUCTION])) {
613
        $aso_valeurs = GEN_lireInfoMenu($db, $adme_menu_id, DB_FETCHMODE_ASSOC);
614
        if ($aso_valeurs === false) {
615
            die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_MENU.'<br />'.
616
                'Idenitifiant du menu n° : '. $adme_menu_id .'<br />'.
617
                'Ligne n° : '. __LINE__ .'<br />'.
618
                'Fichier n° : '. __FILE__ .'<br />');
619
        }
620
        // Requete pour récupérer les informations issues des relations du site à modifier
621
        $ligne = GEN_lireInfoMenuRelation($db, $adme_menu_id, $id_valeur = 101);
622
        $aso_valeurs['defaut'] = false;
623
        if (isset($ligne) && !empty($ligne)) {
624
		    if ($ligne->gmr_id_valeur != false) {// 101 = site par défaut
625
		        $aso_valeurs['defaut'] = true;
626
		    }
627
        }
628
    }
629
 
630
    // Titre de la page
631
 
632
    if ($traduction) {
633
    	$retour = '<h1>'.ADME_LG_FORM_MENU_CLASSIQUE_TITRE_GENERAL_TRADUCTION.'</h1>'."\n";
634
    }
635
    else {
636
    	$retour = '<h1>'.ADME_LG_FORM_MENU_CLASSIQUE_TITRE_GENERAL.'</h1>'."\n";
637
    }
638
 
639
	$retour .= '<p class="adme_menu_id" >'.ADME_LG_FORM_MENU_ID.'<span id="adme_menu_id">'.$aso_valeurs['gm_id_menu'].'</span></p>'."\n";
640
 
641
    // Création du formulaire
642
    // Notes : Quickform semble remplacer les & des &amp; à nouveau par des &amp; solution utiliser str_replace()...
643
    $form =& new HTML_QuickForm('form_menu_classique', 'post', str_replace('&amp;', '&', $url->getUrl()));
644
    $tab_index = 1000;
645
    $squelette =& $form->defaultRenderer();
646
    $squelette->setFormTemplate("\n".'<form {attributes}>'."\n".'{content}'."\n".'</form>'."\n");
647
	$squelette->setElementTemplate( '<p class="formulaire_element"><span class="form_label">'."\n".
648
		'{label}'."\n".
649
		'<!-- BEGIN required --><span style="color:red; width:5px; margin:0; padding:0;">*</span><!-- END required -->'."\n".
650
		'</span>'."\n".'{element}'."\n".
651
		'<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n".
652
		'</p>'."\n");
653
	$squelette->setGroupElementTemplate('<p style="display:inline">{element}</p>', 'form_boutons');
654
	$squelette->setRequiredNoteTemplate("\n".'<p class="symbole_obligatoire">*&nbsp;:&nbsp;{requiredNote}</p>'."\n");
655
	//Note pour les erreurs javascript
656
	$form->setJsWarnings('Erreur de saisie', 'Veuillez verifier vos informations saisies');
657
    // Note de fin de formulaire
658
    $form->setRequiredNote(ADME_LG_FORM_TXT_CHP_OBLIGATOIRE);
659
 
660
    $partie_menu_debut = '<fieldset>'."\n".'<legend>'.ADME_LG_FORM_MENU_CLASSIQUE_TITRE_CONFIG.'</legend>'."\n";
661
    $form->addElement('html', $partie_menu_debut);
662
 
663
    $id = 'gm_code_alpha';
664
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 35, 'maxlength' => 50);
665
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_CODE_ALPHA.'</label>';
666
    $form->addElement('text', $id, $label, $aso_attributs);
667
    $form->addRule($id, ADME_LG_FORM_MENU_REGLE_CODE_ALPHA, 'required', '', 'client');
668
 
669
    $id = 'gm_nom';
670
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 35, 'maxlength' => 100);
671
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_NOM.'</label>';
672
    $form->addElement('text', $id, $label, $aso_attributs);
673
    $form->addRule($id, ADME_LG_FORM_MENU_REGLE_NOM, 'required', '', 'client');
674
    $form->applyFilter($id, 'trim');
675
 
676
    $id = 'gm_description_resume';
677
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 2, 'cols' => 50);
678
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_INFO_BULLE.'</label>';
679
    $form->addElement('textarea', $id, $label, $aso_attributs);
680
    $form->addRule($id, ADME_LG_FORM_MENU_REGLE_INFO_BULLE, 'required', '', 'client');
681
 
682
    // Requête sur les applications
683
    $requete =  'SELECT gap_id_application, gap_nom '.
684
                'FROM gen_application '.
685
                'WHERE gap_bool_applette = 0 '.
686
                'ORDER BY gap_nom ASC';// Pour éviter d'afficher les applettes.
687
    $resultat = $db->query($requete);
688
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
689
 
690
    $aso_options = array();
691
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
692
        $aso_options[$ligne->gap_id_application] = $ligne->gap_nom;
693
    }
694
    $resultat->free();
695
    $id = 'gm_ce_application';
696
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
697
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_APPLI.'</label>';
698
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
699
 
700
 
701
    if ($traduction) {
702
 
703
    	// Recherche liste des menu deja traduits
704
 
705
	   	$requete =  'SELECT distinct gm_ce_i18n  '.
706
        	        'FROM gen_menu_relation, gen_menu '.
707
            	    'WHERE gmr_id_menu_01  = ' . $adme_menu_id .' '.
708
                	'AND gm_id_menu  = gmr_id_menu_02  '.
709
                	'AND gmr_id_valeur = 2  '; // 2 = "avoir traduction"
710
 
711
	  	$resultat = $db->query($requete) ;
712
 
713
	    if (DB::isError($resultat)) {
714
	        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
715
	    }
716
 
717
	    $not_in_langue='';
718
	    if ( $resultat->numRows() == 0 ) {
719
			$not_in_langue="gi_id_i18n not in('".$aso_valeurs['gm_ce_i18n']."')";
720
	    }
721
	    else {
722
	    	    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
723
 					$not_in_langue="'".$ligne->gm_ce_i18n."'".",".$not_in_langue;
724
 					$end="'".$ligne->gm_ce_i18n."'";
725
				}
726
	    		if ($not_in_langue) {
727
			    			$not_in_langue="'".$aso_valeurs['gm_ce_i18n']."'".",".$not_in_langue;
728
			    			$not_in_langue=' gi_id_i18n not in('.$not_in_langue.$end.')';
729
			    }
730
	    		else {
731
	    			$not_in_langue="gi_id_i18n not in('".$aso_valeurs['gm_ce_i18n']."')";
732
	    		}
733
	    }
734
 
735
 
736
 
737
		$resultat->free();
738
 
739
    	$requete =  "SELECT * FROM gen_i18n where ".$not_in_langue;
740
 
741
    	/*$requete =  'SELECT * '.
742
        	        'FROM gen_i18n ';*/
743
 
744
        $resultat = $db->query($requete);
745
    	(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
746
 
747
    	$aso_options = array();
748
        while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ) {
749
        	$aso_options[$ligne->gi_id_i18n] = $ligne->gi_id_i18n;
750
        }
751
        $resultat->free();
752
    	$id = 'gs_ce_i18n';
753
    	$aso_attributs = array('id' => $id, 'tabindex' => $tab_index++);
754
    	$label = '<label for="'.$id.'">'.'Langue : '.'</label>';
755
    	$form->addElement('select', $id, $label, $aso_options, $aso_attributs);
756
    }
757
 
758
    $id = 'gm_titre';
759
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 35, 'maxlength' => 255);
760
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_TITRE.'</label>';
761
    $form->addElement('text', $id, $label, $aso_attributs);
762
 
763
    $id = 'gm_mots_cles';
764
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 50);
765
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_MOT_CLE.'</label>';
766
    $form->addElement('textarea', $id, $label, $aso_attributs);
767
 
768
    $id = 'gm_description_libre';
769
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
770
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_DESCRIPTION.'</label>';
771
    $form->addElement('textarea', $id, $label, $aso_attributs);
772
 
773
    $partie_menu_fin = "\n".'</fieldset>'."\n";
774
    $form->addElement('html', $partie_menu_fin);
775
 
776
    //Lien javascript pour cacher les options compliquées
777
    $form->addElement('html', '<a href="#" onclick="switchMenu(\'config_avancee\');" title="'.ADME_VOIR_CONFIG_AVANCEE.'">'.ADME_VOIR_CONFIG_AVANCEE.'</a><br />'."\n");
778
 
779
    //début de la div cachée pour les options compliquées-----------------------------------------------
780
    $form->addElement('html', '<div id="config_avancee" style="display:none;">');
781
    $partie_entete_debut = '<fieldset>'."\n".'<legend>'.ADME_CONFIG_AVANCEE.'</legend>'."\n";
782
    $form->addElement('html', $partie_entete_debut);
783
 
784
    $id = 'gm_code_num';
785
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 5, 'maxlength' => 100);
786
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_CODE_NUM.'</label>';
787
    $form->addElement('text', $id, $label, $aso_attributs);
788
    $form->addRule($id, ADME_LG_FORM_MENU_REGLE_CODE_NUM, 'required', '', 'client');
789
 
790
    $id = 'gm_raccourci_clavier';
791
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 1, 'maxlength' => 1);
792
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_RACCOURCI.'</label>';
793
    $form->addElement('text', $id, $label, $aso_attributs);
794
 
795
    $id = 'defaut';
796
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
797
    if ($aso_valeurs[$id] === true) {
798
        $aso_attributs['checked'] = 'checked';
799
    }
800
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_DEFAUT.'</label>';
801
    $form->addElement('checkbox', $id, $label, '', $aso_attributs);
802
 
803
    $id = 'gm_fichier_squelette';
804
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 35, 'maxlength' => 255);
805
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_FICHIER_SQUELETTE.'</label>';
806
    $form->addElement('text', $id, $label, $aso_attributs);
807
 
808
    $id = 'gm_application_arguments';
809
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 35, 'maxlength' => 255);
810
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_APPLI_ARGUMENT.'</label>';
811
    $form->addElement('text', $id, $label, $aso_attributs);
812
 
813
    $id = 'gm_robot';
814
    $aso_options = array(   'index,follow' => ADME_LG_FORM_MENU_INDEX_FOLLOW,
815
                            'index' => ADME_LG_FORM_MENU_INDEX,
816
                            'noindex' => ADME_LG_FORM_MENU_NOINDEX,
817
                            'noindex,nofollow' => ADME_LG_FORM_MENU_NOINDEX_NOFOLLOW,
818
                            '' => ADME_LG_FORM_MENU_INDEX_VIDE);
819
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
820
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_ROBOT.'</label>';
821
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
822
 
823
    $id = 'gm_titre_alternatif';
824
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 35, 'maxlength' => 255);
825
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_TITRE_ALTERNATIF.'</label>';
826
    $form->addElement('text', $id, $label, $aso_attributs);
827
 
828
 
829
    $id = 'gm_description_table_matieres';
830
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
831
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_TABLE_MATIERE.'</label>';
832
    $form->addElement('textarea', $id, $label, $aso_attributs);
833
 
834
    $id = 'gm_source';
835
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 35, 'maxlength' => 255);
836
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_SOURCE.'</label>';
837
    $form->addElement('text', $id, $label, $aso_attributs);
838
 
839
    $id = 'gm_auteur';
840
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 35, 'maxlength' => 255);
841
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_AUTEUR.'</label>';
842
    $form->addElement('text', $id, $label, $aso_attributs);
843
 
844
    $id = 'gm_contributeur';
845
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 2, 'cols' => 45);
846
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_CONTRIBUTEUR.'</label>';
847
    $form->addElement('textarea', $id, $label, $aso_attributs);
848
 
849
    $id = 'gm_editeur';
850
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 35, 'maxlength' => 65000);
851
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_EDITEUR.'</label>';
852
    $form->addElement('text', $id, $label, $aso_attributs);
853
 
854
    $id = 'gm_date_creation';
855
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);
856
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_DATE_CREATION.'</label>';
857
    $form->addElement('text', $id, $label, $aso_attributs);
858
 
859
    $id = 'gm_date_debut_validite';
860
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);
861
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_DATE_VALIDITE_DEBUT.'</label>';
862
    $form->addElement('text', $id, $label, $aso_attributs);
863
 
864
    $id = 'gm_date_fin_validite';
865
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);
866
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_DATE_VALIDITE_FIN.'</label>';
867
    $form->addElement('text', $id, $label, $aso_attributs);
868
 
869
    $id = 'gm_date_copyright';
870
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);
871
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_DATE_COPYRIGHT.'</label>';
872
    $form->addElement('text', $id, $label, $aso_attributs);
873
 
874
    $id = 'gm_licence';
875
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 35, 'maxlength' => 255);
876
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_URL_LICENCE.'</label>';
877
    $form->addElement('text', $id, $label, $aso_attributs);
878
 
879
    $id = 'gm_categorie';
880
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 35, 'maxlength' => 100);
881
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_CATEGORIE.'</label>';
882
    $form->addElement('text', $id, $label, $aso_attributs);
883
 
884
    $id = 'gm_public';
885
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 35, 'maxlength' => 255);
886
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_PUBLIC.'</label>';
887
    $form->addElement('text', $id, $label, $aso_attributs);
888
 
889
    $id = 'gm_public_niveau';
890
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 25, 'maxlength' => 45);
891
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_PUBLIC_NIVEAU.'</label>';
892
    $form->addElement('text', $id, $label, $aso_attributs);
893
 
894
    $id = 'gm_ce_type_portee_spatiale';
895
    $aso_options = array(   '' => ADME_LG_FORM_MENU_ZG_VIDE,
896
                            'iso3166' => ADME_LG_FORM_MENU_ZG_ISO,
897
                            'Point' => ADME_LG_FORM_MENU_ZG_POINT,
898
                            'Box' => ADME_LG_FORM_MENU_ZG_DC,
899
                            'TGN' => ADME_LG_FORM_MENU_ZG_GTGN);
900
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
901
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_ZG_TYPE.'</label>';
902
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
903
 
904
    $id = 'gm_portee_spatiale';
905
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 35, 'maxlength' => 100);
906
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_ZG_VALEUR.'</label>';
907
    $form->addElement('text', $id, $label, $aso_attributs);
908
 
909
    $id = 'gm_ce_type_portee_temporelle';
910
    $aso_options = array(   '' => ADME_LG_FORM_MENU_TMP_VIDE,
911
                            'W3CDTF' => ADME_LG_FORM_MENU_TMP_W3C,
912
                            'Period' => ADME_LG_FORM_MENU_TMP_DC);
913
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
914
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_TMP_TYPE.'</label>';
915
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
916
 
917
    $id = 'gm_portee_temporelle';
918
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 35, 'maxlength' => 100);
919
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_MENU_TMP_VALEUR.'</label>';
920
    $form->addElement('text', $id, $label, $aso_attributs);
921
 
922
    // Requete pour connaitre les informations sur l'administrateur ayant fait la dernière modif
923
    if (!isset($aso_valeurs[ADME_LG_ACTION_CLASSIQUE_VERIFIER]) && !isset($aso_valeurs[ADME_LG_ACTION_CLASSIQUE_VERIFIER_TRADUCTION])) {
924
	    $requete_admin =    'SELECT * '.
925
    	                    'FROM gen_annuaire '.
926
        	                'WHERE ga_id_administrateur = '.$aso_valeurs['gm_ce_admin'];
927
    	$resultat_admin = $db->query($requete_admin);
928
    	if (DB::isError($resultat_admin)) {
929
	        die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_admin->getMessage(), $requete_admin));
930
	    }
931
    	$ligne_admin = $resultat_admin->fetchRow(DB_FETCHMODE_OBJECT);
932
    	$info_admin =   '<p class="info">Dernière modification par '.$ligne_admin->ga_prenom.' '.$ligne_admin->ga_nom.'</p>';
933
    	$form->addElement('html', $info_admin);
934
    }
935
 
936
    //fin de la div cachée pour les options compliquées-------------------------------------------------
937
    $form->addElement('html', "\n".'</fieldset>'."\n".'</div>');
938
 
939
 
940
    $buttons[] = &HTML_QuickForm::createElement('link', 'annuler', ADME_LG_FORM_MENU_ANNULER,
941
                 str_replace ("&amp;", "&", $url->getURL()), ADME_LG_FORM_MENU_ANNULER); // Le preg_replace contourne un pb de QuickForm et Net_URL
942
                                                                                         // qui remplacent deux fois les & par des &amp;
943
	//Bouton de validation du formulaire
944
	if ($traduction) {
945
    	$buttons[] = &HTML_QuickForm::createElement('submit', ADME_LG_ACTION_CLASSIQUE_VERIFIER_TRADUCTION, ADME_LG_FORM_MENU_VALIDER);
946
		$form->addElement('hidden', 'adme_site_id', $adme_site_id);
947
    }
948
    else {
949
    	$buttons[] = &HTML_QuickForm::createElement('submit', ADME_LG_ACTION_CLASSIQUE_VERIFIER, ADME_LG_FORM_MENU_VALIDER);
950
    }
951
	$form->addGroup($buttons, 'form_boutons', null, '&nbsp;');
952
 
953
    $form->addElement('hidden', 'gm_id_menu', $aso_valeurs['gm_id_menu']);
954
 
955
    // Instanciation avec les valeur par défaut
956
    $form->setDefaults($aso_valeurs);
957
 
958
    $retour .= $form->toHTML()."\n";
959
    return $retour;
960
}
961
 
962
/** Fonction ADME_validerFormAjouterMenuClassique() - Valide les données issues du formulaire pour gen_menu.
963
*
964
* Cette fonction valide les données à ajouter dans la table gen_menu.
965
*
966
* @param  PEAR::DB   l'objet pear de connexion à la base de données.
967
* @param  string   le tableau contenant les valeurs du formulaire.
968
* @return string   retourne les messages d'erreurs sinon rien.
969
*/
970
function ADME_validerFormAjouterMenuClassique($db, $aso_valeurs)
971
{
972
    $message = '';
973
    if ($aso_valeurs['gm_code_alpha'] == '') {
974
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_CODE_ALPHA.'</p>';
975
    }
976
    if ($aso_valeurs['gm_code_num'] == '') {
977
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_CODE_NUM.'</p>';
978
    }
979
    if ($aso_valeurs['gm_nom'] == '') {
980
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_NOM.'</p>';
981
    }
982
    if ($aso_valeurs['gm_description_resume'] == '') {
983
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_INFO_BULLE.'</p>';
984
    }
985
    return $message;
986
}
987
 
988
 
989
/** Fonction ADME_validerFormTraduireMenuClassique() - Valide les données issues du formulaire de traduction de menu
990
*
991
* Cette fonction valide les données à ajouter dans la table gen_menu.
992
*
993
* @param  PEAR::DB   l'objet pear de connexion à la base de données.
994
* @param  string   le tableau contenant les valeurs du formulaire.
995
* @return string   retourne les messages d'erreurs sinon rien.
996
*/
997
function ADME_validerFormTraduireMenuClassique($db, $aso_valeurs)
998
{
999
    $message = '';
1000
    if ($aso_valeurs['gm_code_alpha'] == '') {
1001
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_CODE_ALPHA.'</p>';
1002
    }
1003
    if ($aso_valeurs['gm_code_num'] == '') {
1004
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_CODE_NUM.'</p>';
1005
    }
1006
    if ($aso_valeurs['gm_nom'] == '') {
1007
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_NOM.'</p>';
1008
    }
1009
    if ($aso_valeurs['gm_description_resume'] == '') {
1010
        $message .= '<p class="pap_erreur">'.ADME_LG_FORM_MENU_REGLE_INFO_BULLE.'</p>';
1011
    }
1012
    return $message;
1013
}
1014
 
1015
 
1016
 
1017
/** Fonction ADME_modifierMenuClassique() - Met à jour les infos d'un menu classique
1018
*
1019
* Fonction modifiant un menu commun à Papyrus.
1020
* Ancien nom : commitUpdateLevel()
1021
*
1022
* @param object objet Pear de connection à la base de données.
1023
* @param object objet Pear représentant l'authentification.
1024
* @param integer l'identifiant du menu à administrer.
1025
* @param array le tableau des valeurs à modifier.
1026
* @return void les changement sont fait dans la base de données.
1027
*/
1028
function ADME_modifierMenuClassique($db, $auth, $adme_menu_id, $aso_valeurs)
1029
{
1030
    $requete =  'UPDATE gen_menu SET '.
1031
                'gm_ce_application = '.$aso_valeurs['gm_ce_application'].', '.
1032
                'gm_application_arguments = "'.$aso_valeurs['gm_application_arguments'].'", '.
1033
                'gm_fichier_squelette = "'.$aso_valeurs['gm_fichier_squelette'].'", '.
1034
                'gm_code_num = '.$aso_valeurs['gm_code_num'].', '.
1035
                'gm_code_alpha = "'.$aso_valeurs['gm_code_alpha'].'", '.
1036
                'gm_nom = "'.$aso_valeurs['gm_nom'].'", '.
1037
                'gm_raccourci_clavier = "'.$aso_valeurs['gm_raccourci_clavier'].'", '.
1038
                'gm_robot = "'.$aso_valeurs['gm_robot'].'", '.
1039
                'gm_titre = "'.$aso_valeurs['gm_titre'].'", '.
1040
                'gm_titre_alternatif = "'.$aso_valeurs['gm_titre_alternatif'].'", '.
1041
                'gm_mots_cles = "'.$aso_valeurs['gm_mots_cles'].'", '.
1042
                'gm_description_libre = "'.$aso_valeurs['gm_description_libre'].'", '.
1043
                'gm_description_resume = "'.$aso_valeurs['gm_description_resume'].'", '.
1044
                'gm_description_table_matieres = "'.$aso_valeurs['gm_description_table_matieres'].'", '.
1045
                'gm_source = "'.$aso_valeurs['gm_source'].'", '.
1046
                'gm_auteur = "'.$aso_valeurs['gm_auteur'].'", '.
1047
                'gm_contributeur = "'.$aso_valeurs['gm_contributeur'].'", '.
1048
                'gm_editeur = "'.$aso_valeurs['gm_editeur'].'", '.
1049
                'gm_date_creation = "'.$aso_valeurs['gm_date_creation'].'", '.
1050
                'gm_date_debut_validite = "'.$aso_valeurs['gm_date_debut_validite'].'", '.
1051
                'gm_date_fin_validite = "'.$aso_valeurs['gm_date_fin_validite'].'", '.
1052
                'gm_date_copyright = "'.$aso_valeurs['gm_date_copyright'].'", '.
1053
                'gm_licence = "'.$aso_valeurs['gm_licence'].'", '.
1054
                'gm_categorie = "'.$aso_valeurs['gm_categorie'].'", '.
1055
                'gm_public = "'.$aso_valeurs['gm_public'].'", '.
1056
                'gm_public_niveau = "'.$aso_valeurs['gm_public_niveau'].'", '.
1057
                'gm_ce_type_portee_spatiale = "'.$aso_valeurs['gm_ce_type_portee_spatiale'].'", '.
1058
                'gm_portee_spatiale = "'.$aso_valeurs['gm_portee_spatiale'].'", '.
1059
                'gm_ce_type_portee_temporelle = "'.$aso_valeurs['gm_ce_type_portee_temporelle'].'", '.
1060
                'gm_portee_temporelle = "'.$aso_valeurs['gm_portee_temporelle'].'", '.
1061
                'gm_ce_admin = "'.$auth->getAuthData('ga_id_administrateur').'" '.
1062
                'WHERE gm_id_menu = '.$adme_menu_id;
1063
 
1064
    $resultat = $db->query($requete);
1065
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1066
 
1067
    // Gestion de la relation menu par défaut
1068
    if (isset($aso_valeurs['defaut']) && $aso_valeurs['defaut'] == 1) {
1069
        $requete_id_menu_supr_defaut =  'SELECT GM01.gm_id_menu AS id_menu_supr_defaut '.
1070
                                        'FROM gen_menu AS GM01, gen_menu AS GM02, gen_menu_relation '.
1071
                                        'WHERE GM02.gm_id_menu = '.$adme_menu_id.' '.
1072
                                        'AND GM02.gm_ce_site = GM01.gm_ce_site '.
1073
                                        'AND GM01.gm_id_menu = gmr_id_menu_01 '.
1074
                                        'AND gmr_id_valeur = 101 ';// 101 = menu par "defaut"
1075
 
1076
        $resultat_menu_supr_defaut = $db->query($requete_id_menu_supr_defaut);
1077
        if (DB::isError($resultat_menu_supr_defaut)) {
1078
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_menu_supr_defaut->getMessage(), $requete_id_menu_supr_defaut));
1079
        }
1080
        $ligne_menu_supr_defaut = $resultat_menu_supr_defaut->fetchRow(DB_FETCHMODE_OBJECT);
1081
        if ($resultat_menu_supr_defaut->numRows() > 0 ) {
1082
            $requete_supr_defaut =  'DELETE FROM gen_menu_relation '.
1083
                                    'WHERE gmr_id_menu_01 = gmr_id_menu_02 '.
1084
                                    'AND gmr_id_valeur = 101 '.// 101 = menu par "defaut"
1085
                                    'AND gmr_id_menu_01 = '.$ligne_menu_supr_defaut->id_menu_supr_defaut;
1086
            $resultat_supr_defaut = $db->query($requete_supr_defaut);
1087
            if (DB::isError($resultat_supr_defaut)) {
1088
                die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_defaut->getMessage(), $requete_supr_defaut));
1089
            }
1090
        }
1091
        $resultat_menu_supr_defaut->free();
1092
 
1093
 
1094
        // Requete d'insertion de la relation menu par défaut
1095
        $requete =  'INSERT INTO gen_menu_relation '.
1096
                    'SET gmr_id_menu_01 = '.$adme_menu_id.', '.
1097
                    'gmr_id_menu_02 = '.$adme_menu_id.', '.
1098
                    'gmr_id_valeur = 101, '.
1099
                    'gmr_ordre = NULL ';
1100
        $resultat = $db->query($requete);
1101
        if (DB::isError($resultat)) {
1102
            die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));
1103
        }
1104
 
1105
    }
1106
}
1107
 
1108
/** Fonction ADME_deplacerMenuClassique() - Permet de déplacer un menu dans la hiérarchie.
1109
*
1110
* Permet de déplacer un menu dans la hiérarchie des menus classiques.
1111
* Ancien nom : moveMenu()
1112
*
1113
* @param  mixed   objet Pear DB de connexion à la base de données.
1114
* @param  integer  identifiant du site administré.
1115
* @param  integer identifiant du menu à déplacer.
1116
* @param  boolean indique si on veut monter le menu (true) ou le descendre (false).
1117
* @return void    modifie la base de données.
1118
*/
1119
function ADME_deplacerMenuClassique($db, $adme_site_id, $adme_menu_id, $bln_monter)
1120
{
1121
    //-------------------------------------------------------------------------------------------------------------------
1122
    // Récupération d'information sur le site de ce menu.
1123
    $objet_site = GEN_lireInfoSitePrincipal($db, $adme_site_id);
1124
    if ($objet_site == false) {
1125
        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_SITE.'<br />'.
1126
            'Id du site : '. $adme_site_id .'<br />'.
1127
            'Ligne n° : '. __LINE__ .'<br />'.
1128
            'Fichier n° : '. __FILE__ .'<br />');
1129
    }
1130
    //-------------------------------------------------------------------------------------------------------------------
1131
    // Récupération d'informations sur les relations du menu courant.
1132
    $ligne_menu_courant_relation = GEN_lireInfoMenuRelation($db, $adme_menu_id, '1');
1133
    if ($ligne_menu_courant_relation == false) {
1134
        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_MENU_RELATION.'<br />'.
1135
            'Identifiant menu : '. $adme_menu_id .'<br />'.
1136
            'Identifiant valeur relation : 1 <br />'.
1137
            'Ligne n° : '. __LINE__ .'<br />'.
1138
            'Fichier n° : '. __FILE__ .'<br />');
1139
    }
1140
    //-------------------------------------------------------------------------------------------------------------------
1141
    // Récupération de l'identifiant du menu pére
1142
    $id_pere = GEN_lireIdentifiantMenuPere($adme_menu_id);
1143
    if ($id_pere === false) {
1144
        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_ID_MENU_PERE.'<br />'.
1145
            'Identifiant menu fils : '. $adme_menu_id .'<br />'.
1146
            'Ligne n° : '. __LINE__ .'<br />'.
1147
            'Fichier n° : '. __FILE__ .'<br />');
1148
    }
1149
    //-------------------------------------------------------------------------------------------------------------------
1150
    // Recherche d'information sur le menu précédent ou suivant le menu courant
1151
    $requete =  'SELECT GMR01.gmr_ordre AS nouvel_ordre, GMR01.gmr_id_menu_01 AS id_menu_remplace '.
1152
                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
1153
                'WHERE GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
1154
                'AND GMR01.gmr_id_menu_01 = gm_id_menu './/jonction avec la table GEN_MENU
1155
                'AND gm_ce_site = '.$objet_site->gs_id_site.' '.
1156
                'AND GMR02.gmr_id_valeur = 100 '.// 100 = menu type "classique"
1157
                'AND GMR01.gmr_id_menu_02 = '.$id_pere.' '.
1158
                'AND GMR01.gmr_id_valeur = 1 ';// 1 = relation menu "père"
1159
    if ($bln_monter) {
1160
        $requete .= 'AND GMR01.gmr_ordre < '.$ligne_menu_courant_relation->gmr_ordre.' '.
1161
                    'ORDER BY GMR01.gmr_ordre DESC';
1162
    } else {
1163
        $requete .= 'AND GMR01.gmr_ordre > '.$ligne_menu_courant_relation->gmr_ordre.' '.
1164
                    'ORDER BY GMR01.gmr_ordre ASC';
1165
    }
1166
 
1167
    $resultat_menu = $db->query($requete);
1168
    (DB::isError($resultat_menu)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_menu->getMessage(), $requete)) : '';
1169
 
1170
    $ligne_menu = $resultat_menu->fetchRow(DB_FETCHMODE_OBJECT);
1171
 
1172
    $resultat_menu->free();
1173
    //-------------------------------------------------------------------------------------------------------------------
1174
    // Si la requete ne retourne rien nous ne faisons rien.
1175
    if (! $ligne_menu) {
1176
        return null;
1177
    }
1178
    //-------------------------------------------------------------------------------------------------------------------
1179
    // Mise à jour des relations du menu courant
1180
    $requete =  'UPDATE gen_menu_relation SET '.
1181
                'gmr_ordre = '.$ligne_menu->nouvel_ordre.' '.
1182
                'WHERE gmr_id_menu_01 = '.$ligne_menu_courant_relation->gmr_id_menu_01.' '.
1183
                'AND gmr_id_valeur = 1';// 1 = relation menu "père"
1184
 
1185
    $resultat_update = $db->query($requete);
1186
    (DB::isError($resultat_update)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_update->getMessage(), $requete)) : '';
1187
    //-------------------------------------------------------------------------------------------------------------------
1188
    // Mise à jour des relations du menu précédent ou suivant
1189
    $requete =  'UPDATE gen_menu_relation SET '.
1190
                'gmr_ordre = '.$ligne_menu_courant_relation->gmr_ordre.' '.
1191
                'WHERE gmr_id_menu_01 = '.$ligne_menu->id_menu_remplace.' '.
1192
                'AND gmr_id_valeur = 1';// 1 = relation menu "père"
1193
 
1194
    $resultat_update = $db->query($requete);
1195
    (DB::isError($resultat_update)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_update->getMessage(), $requete)) : '';
1196
}
1197
 
1198
 
1199
/** Fonction ADME_deplacerMenuClassiqueVersSite() - Permet de deplacer des menus classique vers un autre site principal
1200
*
1201
* Permet de traduire un menu classique
1202
*
1203
* @param  mixed   objet Pear DB de connexion à la base de données.
1204
* @param  integer  identifiant du site de départ.
1205
* @param  integer  identifiant du site d'arrivée.
1206
* @param  mixed identifiant des menus à déplacer.
1207
* @return
1208
*/
1209
function ADME_deplacerMenuClassiqueVersSite($db,$id_site_depart,$id_site_arrivee,$id_menu_a_deplacer) {
1210
 
1211
    // initialisation de l'ordre pour les noeuds à déplacer
1212
    $ordre_max = 0 ;
1213
 
1214
    $id_menu_pour_ordre = reset($id_menu_a_deplacer) ;
1215
 
1216
    // on récupère l'ordre maximum des différents sites pour ajouter les menus déplacés à la fin
1217
    // TODO: rajouter un group by par le type de relation
1218
    $requete_ordre_menu = 'SELECT MAX(gmr_ordre) as ordre_max '.
1219
                          'FROM gen_menu_relation '.
1220
                          'LEFT JOIN gen_menu '.
1221
                          'ON (gen_menu_relation.gmr_id_menu_01 = gen_menu.gm_id_menu '.
1222
                          'AND gen_menu.gm_ce_site = '.$id_site_arrivee.') '.
1223
                          'WHERE gmr_id_valeur = 1 '.
1224
                          'AND gmr_id_menu_02 = 0 ';
1225
 
1226
    $resultat_ordre_menu = $db->query($requete_ordre_menu);
1227
    (DB::isError($resultat_ordre_menu)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_update->getMessage(), $requete_ordre_menu)) : '';
1228
 
1229
    $ligne = $resultat_ordre_menu->fetchRow(DB_FETCHMODE_ORDERED) ;
1230
    $ordre_max = $ligne[0];
1231
 
1232
    $fp = fopen('dump.html','a+');
1233
 
1234
        fwrite($fp,'<pre>'.(print_r($id_menu_a_deplacer,true)).'</pre>');
1235
 
1236
        fclose($fp);
1237
 
1238
    while(count($id_menu_a_deplacer) != 0) {
1239
 
1240
        $ordre_max++ ;
1241
 
1242
        // on extrait et supprime ce premier élément
1243
        $id_menu_en_cours = array_shift($id_menu_a_deplacer) ;
1244
 
1245
        // on déplace le menu dans le nouveau site
1246
        $requete_deplacement = 'UPDATE gen_menu '.
1247
                                'SET gm_ce_site = '.$id_site_arrivee.' '.
1248
                                'WHERE gm_id_menu = '.$id_menu_en_cours.' ' ;
1249
 
1250
        $resultat_deplacement = $db->query($requete_deplacement);
1251
        (DB::isError($resultat_deplacement)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_update->getMessage(), $requete_deplacement)) : '';
1252
 
1253
        // on lui affecte un ordre dans le nouveau site et un père de 0
1254
        $requete_deplacement = 'UPDATE gen_menu_relation '.
1255
                                'SET gmr_ordre = '.$ordre_max.', '.
1256
                                'gmr_id_menu_02 = 0 '.
1257
                                'WHERE gmr_id_menu_01 = '.$id_menu_en_cours.' '.
1258
                                'AND gmr_id_valeur = 1' ;
1259
 
1260
        $resultat_deplacement = $db->query($requete_deplacement);
1261
        (DB::isError($resultat_deplacement)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_update->getMessage(), $requete_deplacement)) : '';
1262
 
1263
        $fp = fopen('dump.html','a+');
1264
 
1265
        fwrite($fp,'id_menu_a_deplacer avant : '.(print_r($id_menu_a_deplacer,true)));
1266
 
1267
        // on fait la différence entre le tableaux des menus à deplacer et le résultat du déplacement des fils pour ne pas déplacer
1268
        // deux fois des mêmes menus
1269
        $id_fils_deplaces = array() ;
1270
        ADME_deplacerFilsEtTraductionsMenuClassique($db,$id_site_arrivee,$id_menu_en_cours,$id_fils_deplaces);
1271
        $id_menu_a_deplacer = array_diff($id_menu_a_deplacer, $id_fils_deplaces) ;
1272
 
1273
        fwrite($fp,'id_fils_deplaces : '.(print_r($id_fils_deplaces,true)));
1274
 
1275
        fwrite($fp,'id_menu_a_deplacer après : '.(print_r($id_menu_a_deplacer,true)));
1276
 
1277
        fclose($fp);
1278
    }
1279
 
1280
}
1281
 
1282
/** Fonction ADME_deplacerFilsMenuClassique() - Permet de traduire un menu classique
1283
*
1284
* Permet de traduire un menu classique
1285
*
1286
* @param  mixed   objet Pear DB de connexion à la base de données.
1287
* @param  integer  identifiant du site d'arrivee.
1288
* @param  integer identifiant du menu pere.
1289
* @param  integer identifiant de la relation (père ou traduction).
1290
* @param  mixed le tableau contenant tous les fils déjà déplacés (attention c'est une référence)
1291
* @return mixed    un tableau contenant les id des fils deplaces.
1292
*/
1293
function ADME_deplacerFilsEtTraductionsMenuClassique($db, $id_site_arrivee, $id_menu_pere, &$tableau_fils) {
1294
 
1295
    // Récupération d'infos sur le site principal d'arrivée.
1296
    $objet_site_arrivee = GEN_lireInfoSitePrincipal($db, $id_site_arrivee);
1297
    if ($objet_site_arrivee == false) {
1298
        return ('ERREUR Papyrus Administrateur de Menus : impossible de lire les infos du site d\'arrivée.<br />'.
1299
            'ID du site : '.$id_site_arrivee.'<br />'.
1300
            'Ligne n° : '. __LINE__ .'<br />'.
1301
            'Fichier n° : '. __FILE__ .'<br />');
1302
    }
1303
 
1304
    // on fait la requete qui selectionne tous les enfants du père passé en paramètre
1305
    $requete_fils = 'SELECT gmr_id_menu_01 '.
1306
                    'FROM gen_menu_relation '.
1307
                    'WHERE gmr_id_menu_02 = '.$id_menu_pere.' '.
1308
                    'AND gmr_id_valeur = 1 '.
1309
                    'ORDER BY gmr_ordre' ;
1310
 
1311
     $resultat_fils = $db->query($requete_fils);
1312
    (DB::isError($resultat_fils)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_fils->getMessage(), $requete_fils)) : '';
1313
 
1314
    $id_fils_tab = array();
1315
    $i = 0 ;
1316
 
1317
    $id_fils_string = '' ;
1318
 
1319
    // pour chacun des fils
1320
    while($id_fils = $resultat_fils->fetchRow(DB_FETCHMODE_ORDERED)) {
1321
 
1322
        // on ajoute son id au tableau
1323
        $id_fils_tab[$i] =  $id_fils[0] ;
1324
        $i++;
1325
 
1326
        $tableau_fils[] = $id_fils[0] ;
1327
 
1328
        // on concatère l'id du fils pour la requete de déplacement des fils
1329
        $id_fils_string .= $id_fils[0].',' ;
1330
    }
1331
 
1332
    $id_fils_string = rtrim($id_fils_string,',');
1333
 
1334
    if($id_fils_string != '') {
1335
        // on déplace tous les fils
1336
        $requete_deplacement = 'UPDATE gen_menu SET '.
1337
                        'gm_ce_site = '.$id_site_arrivee.' '.
1338
                        'WHERE gm_id_menu IN ('.$id_fils_string.') ';
1339
 
1340
        $resultat_deplacement = $db->query($requete_deplacement);
1341
        (DB::isError($resultat_deplacement)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_deplacement->getMessage(), $requete_deplacement)) : '';
1342
    }
1343
 
1344
    // pour chacun des fils
1345
    foreach($id_fils_tab as $id_fils_en_cours) {
1346
 
1347
        // et on rajoute le tableau de ses fils à la suite en relançant la fonction récursivement
1348
        ADME_deplacerFilsEtTraductionsMenuClassique($db,$id_site_arrivee,$id_fils_en_cours,$tableau_fils) ;
1349
 
1350
    }
1351
 
1352
    // on déplace toutes les traductions
1353
    $requete_deplacement_traductions = 'UPDATE gen_menu '.
1354
                            'SET gm_ce_site = '.$id_site_arrivee.' '.
1355
                            'WHERE gm_id_menu IN ( '.
1356
                                'SELECT gmr_id_menu_01 '.
1357
                                'FROM gen_menu_relation '.
1358
                                'WHERE gmr_id_menu_02 = '.$id_menu_pere.' '.
1359
                                'AND gmr_id_valeur = 2) ' ;
1360
 
1361
 
1362
    $resultat_deplacement_traductions = $db->query($requete_deplacement_traductions);
1363
    (DB::isError($resultat_deplacement_traductions)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_deplacement_traductions->getMessage(), $requete_deplacement_traductions)) : '';
1364
 
1365
}
1366
 
1367
 
1368
/** Fonction ADME_traduireMenuClassique() - Permet de traduire un menu classique
1369
*
1370
* Permet de traduire un menu classique
1371
*
1372
* @param  mixed   objet Pear DB de connexion à la base de données.
1373
* @param  integer  identifiant du site administré.
1374
* @param  integer identifiant du menu à déplacer.
1375
* @return void    modifie la base de données.
1376
*/
1377
function ADME_traduireMenuClassique($db, $auth, $adme_menu_id, $aso_valeurs) {
1378
 
1379
 
1380
    // Récupération d'infos sur le site principal.
1381
    $objet_site = GEN_lireInfoSitePrincipal($db, $aso_valeurs['adme_site_id']);
1382
    if ($objet_site == false) {
1383
        die('ERREUR Génésia Administrateur de Menus : impossible de lire les infos du site.<br />'.
1384
            'ID du site : '.$aso_valeurs['adme_site_id'].'<br />'.
1385
            'Ligne n° : '. __LINE__ .'<br />'.
1386
            'Fichier n° : '. __FILE__ .'<br />');
1387
    }
1388
 
1389
    $nouveau_id_menu = SQL_obtenirNouveauId($db, 'gen_menu', 'gm_id_menu');
1390
    $auteur = $auth->getAuthData('ga_prenom').' '.$auth->getAuthData('ga_nom');
1391
 
1392
 
1393
 
1394
      $requete =  'INSERT INTO gen_menu '.
1395
                'SET gm_id_menu = '.$nouveau_id_menu.', '.
1396
                'gm_ce_site = '.$aso_valeurs['adme_site_id'].', '.
1397
                'gm_ce_i18n = "'.$aso_valeurs['gs_ce_i18n'].'", '.
1398
                'gm_ce_application = '.$aso_valeurs['gm_ce_application'].', '.
1399
                'gm_application_arguments = "'.$aso_valeurs['gm_application_arguments'].'", '.
1400
                'gm_fichier_squelette = "'.$aso_valeurs['gm_fichier_squelette'].'", '.
1401
                'gm_code_num = '.$aso_valeurs['gm_code_num'].', '.
1402
                'gm_code_alpha = "'.$aso_valeurs['gm_code_alpha'].'", '.
1403
                'gm_nom = "'.$aso_valeurs['gm_nom'].'", '.
1404
                'gm_raccourci_clavier = "'.$aso_valeurs['gm_raccourci_clavier'].'", '.
1405
                'gm_robot = "'.$aso_valeurs['gm_robot'].'", '.
1406
                'gm_titre = "'.$aso_valeurs['gm_titre'].'", '.
1407
                'gm_titre_alternatif = "'.$aso_valeurs['gm_titre_alternatif'].'", '.
1408
                'gm_mots_cles = "'.$aso_valeurs['gm_mots_cles'].'", '.
1409
                'gm_description_libre = "'.$aso_valeurs['gm_description_libre'].'", '.
1410
                'gm_description_resume = "'.$aso_valeurs['gm_description_resume'].'", '.
1411
                'gm_description_table_matieres = "'.$aso_valeurs['gm_description_table_matieres'].'", '.
1412
                'gm_source = "'.$aso_valeurs['gm_source'].'", '.
1413
                'gm_auteur = "'.$aso_valeurs['gm_auteur'].'", '.
1414
                'gm_contributeur = "'.$aso_valeurs['gm_contributeur'].'", '.
1415
                'gm_editeur = "'.$aso_valeurs['gm_editeur'].'", '.
1416
                'gm_date_creation = "'.$aso_valeurs['gm_date_creation'].'", '.
1417
                'gm_date_debut_validite = "'.$aso_valeurs['gm_date_debut_validite'].'", '.
1418
                'gm_date_fin_validite = "'.$aso_valeurs['gm_date_fin_validite'].'", '.
1419
                'gm_date_copyright = "'.$aso_valeurs['gm_date_copyright'].'", '.
1420
                'gm_licence = "'.$aso_valeurs['gm_licence'].'", '.
1421
                'gm_categorie = "'.$aso_valeurs['gm_categorie'].'", '.
1422
                'gm_public = "'.$aso_valeurs['gm_public'].'", '.
1423
                'gm_public_niveau = "'.$aso_valeurs['gm_public_niveau'].'", '.
1424
                'gm_ce_type_portee_spatiale = "'.$aso_valeurs['gm_ce_type_portee_spatiale'].'", '.
1425
                'gm_portee_spatiale = "'.$aso_valeurs['gm_portee_spatiale'].'", '.
1426
                'gm_ce_type_portee_temporelle = "'.$aso_valeurs['gm_ce_type_portee_temporelle'].'", '.
1427
                'gm_portee_temporelle = "'.$aso_valeurs['gm_portee_temporelle'].'", '.
1428
                'gm_ce_admin = "'.$auth->getAuthData('ga_id_administrateur').'" ';
1429
 
1430
    $resultat = $db->query($requete);
1431
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1432
 
1433
    //----------------------------------------------------------------------------
1434
    // Ajout de la relation traduction
1435
 
1436
    if (!isset($adme_menu_id) && empty($adme_menu_id)) {
1437
        $adme_menu_id = 0 ;// Identifiant du père
1438
    }
1439
    //----------------------------------------------------------------------------
1440
    // Récupération d'infos sur la hierarchie du menu
1441
    $requete =  'SELECT GMR01.gmr_ordre '.
1442
                'FROM gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
1443
                'WHERE GMR01.gmr_id_menu_02 = '.$adme_menu_id.' '.
1444
                'AND GMR01.gmr_id_valeur = 1 '.// 1 = avoir "père"
1445
                'AND GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
1446
                'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.
1447
                'AND GMR02.gmr_id_valeur = 100 '.// 100 = menu type "classique"
1448
                'ORDER BY GMR01.gmr_ordre DESC';
1449
 
1450
    $resultat = $db->query($requete);
1451
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1452
 
1453
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
1454
    $nouveau_ordre_menu = $ligne->gmr_ordre + 1;
1455
    $resultat->free();
1456
 
1457
 
1458
    // Traduction :
1459
    $requete =  'INSERT INTO gen_menu_relation '.
1460
                'SET gmr_id_menu_01 = '.$adme_menu_id.', '.
1461
                'gmr_id_menu_02 = '.$nouveau_id_menu.', '.
1462
                'gmr_id_valeur = 2, '. // Avoir traduction
1463
                'gmr_ordre = '.$nouveau_ordre_menu;
1464
 
1465
 
1466
    $resultat = $db->query($requete);
1467
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1468
 
1469
    //----------------------------------------------------------------------------
1470
    // Ajout de la relation-type "menu classique"
1471
 
1472
    // Récupération d'infos sur la hierarchie du menu
1473
    $requete =  'SELECT * '.
1474
                'FROM gen_menu_relation, gen_menu '.
1475
                'WHERE gmr_id_menu_02 = gmr_id_menu_01 '.
1476
                'AND gmr_id_valeur = 100 '.// 100 = type menu "classique"
1477
                'AND gmr_id_menu_01 = gm_id_menu '.
1478
                'AND gm_ce_site = '.$aso_valeurs['adme_site_id'].' '.
1479
                'ORDER BY gmr_ordre DESC';
1480
 
1481
    $resultat = $db->query($requete);
1482
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1483
 
1484
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
1485
    $nouveau_ordre_menu_classique = $ligne->gmr_ordre + 1;
1486
    $resultat->free();
1487
 
1488
    $requete =  'INSERT INTO gen_menu_relation '.
1489
                'SET gmr_id_menu_01 = '.$nouveau_id_menu.', '.
1490
                'gmr_id_menu_02 = '.$nouveau_id_menu.', '.
1491
                'gmr_id_valeur = 100, '.
1492
                'gmr_ordre = '.$nouveau_ordre_menu_classique;
1493
 
1494
    $result = $db->query($requete);
1495
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
1496
 
1497
}
1498
 
1499
/** Fonction ADME_indenterMenuClassique() - Permet d'augmenter ou diminuer l'indentation d'un menu dans la
1500
 * hierarchie
1501
*
1502
* Permet d'augmenter ou diminuer l'indentation d'un menu dans la hierarchie
1503
*
1504
* @param  mixed   objet Pear DB de connexion à la base de données.
1505
* @param  integer  identifiant du site administré.
1506
* @param  integer identifiant du menu à déplacer.
1507
* @param  boolean indique si on veut diminuer (gauche) l'indentation (true) ou augmenter (droite) l'indentation (false).
1508
* @return void    modifie la base de données.
1509
*/
1510
function ADME_indenterMenuClassique($db, $adme_site_id, $adme_menu_id, $bln_diminuer) {
1511
 
1512
    //-------------------------------------------------------------------------------------------------------------------
1513
    // Récupération d'information sur le site de ce menu.
1514
    $objet_site = GEN_lireInfoSitePrincipal($db, $adme_site_id);
1515
 
1516
    if ($objet_site == false) {
1517
        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_SITE.'<br />'.
1518
            'Id du site : '. $adme_site_id .'<br />'.
1519
            'Ligne n° : '. __LINE__ .'<br />'.
1520
            'Fichier n° : '. __FILE__ .'<br />');
1521
    }
1522
 
1523
    //-------------------------------------------------------------------------------------------------------------------
1524
    // Récupération d'informations sur les relations du menu courant.
1525
    $ligne_menu_courant_relation = GEN_lireInfoMenuRelation($db, $adme_menu_id, '1');
1526
    if ($ligne_menu_courant_relation == false) {
1527
        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_MENU_RELATION.'<br />'.
1528
            'Identifiant menu : '. $adme_menu_id .'<br />'.
1529
            'Identifiant valeur relation : 1 <br />'.
1530
            'Ligne n° : '. __LINE__ .'<br />'.
1531
            'Fichier n° : '. __FILE__ .'<br />');
1532
    }
1533
 
1534
 
1535
 
1536
    //-------------------------------------------------------------------------------------------------------------------
1537
    // Récupération de l'identifiant du menu pére
1538
 
1539
    $id_pere = GEN_lireIdentifiantMenuPere($adme_menu_id);
1540
    if ($id_pere === false) {
1541
        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_ID_MENU_PERE.'<br />'.
1542
            'Identifiant menu fils : '. $adme_menu_id .'<br />'.
1543
            'Ligne n° : '. __LINE__ .'<br />'.
1544
            'Fichier n° : '. __FILE__ .'<br />');
1545
    }
1546
 
1547
	if ($bln_diminuer) {
1548
 
1549
	    // Diminution d'un niveau
1550
 
1551
	    if ($id_pere) {
1552
 
1553
			 // Récupération de l'identifiant du menu grand pére, sera le nouveau pere
1554
 
1555
		    $id_grand_pere = GEN_lireIdentifiantMenuPere($id_pere);
1556
 
1557
		    if ($id_grand_pere === false) {
1558
		        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_ID_MENU_PERE.'<br />'.
1559
		            'Identifiant menu fils : '. $adme_menu_id .'<br />'.
1560
		            'Ligne n° : '. __LINE__ .'<br />'.
1561
		            'Fichier n° : '. __FILE__ .'<br />');
1562
		    }
1563
 
1564
		    // Récupération d'informations sur les relations du menu pere
1565
 
1566
		    $ligne_menu_pere_relation = GEN_lireInfoMenuRelation($db, $id_pere, '1');
1567
 
1568
	    	if ($ligne_menu_pere_relation == false) {
1569
		        die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_MENU_RELATION.'<br />'.
1570
		            'Identifiant menu : '. $adme_menu_id .'<br />'.
1571
		            'Identifiant valeur relation : 1 <br />'.
1572
		            'Ligne n° : '. __LINE__ .'<br />'.
1573
		            'Fichier n° : '. __FILE__ .'<br />');
1574
		    }
1575
 
1576
 
1577
		    //-------------------------------------------------------------------------------------------------------------------
1578
		    // Recherche d'information sur le menu suivant le menu pere
1579
		    //-------------------------------------------------------------------------------------------------------------------
1580
 
1581
		    $requete =  'SELECT GMR01.gmr_ordre AS nouvel_ordre, GMR01.gmr_id_menu_01 AS id_menu_remplace '.
1582
	                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
1583
	                'WHERE GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
1584
	                'AND GMR01.gmr_id_menu_01 = gm_id_menu './/jonction avec la table GEN_MENU
1585
	                'AND gm_ce_site = '.$objet_site->gs_id_site.' '.
1586
	                'AND GMR02.gmr_id_valeur = 100 '.// 100 = menu type "classique"
1587
	                'AND GMR01.gmr_id_menu_02 = '.$id_grand_pere.' '.
1588
	                'AND GMR01.gmr_id_valeur = 1 '.// 1 = relation menu "père"
1589
				    'AND GMR01.gmr_ordre > '.$ligne_menu_pere_relation->gmr_ordre.' '.
1590
				    'ORDER BY GMR01.gmr_ordre DESC';
1591
 
1592
 
1593
		    $resultat_menu = $db->query($requete);
1594
 
1595
		    (DB::isError($resultat_menu)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_menu->getMessage(), $requete)) : '';
1596
 
1597
		    $ligne_menu = $resultat_menu->fetchRow(DB_FETCHMODE_OBJECT);
1598
		    $resultat_menu->free();
1599
 
1600
		    //-------------------------------------------------------------------------------------------------------------------
1601
		    // Si la requete ne retourne rien nous ne faisons rien.
1602
		    if (! $ligne_menu) {
1603
		        $no=$ligne_menu_pere_relation->gmr_ordre+1;
1604
		    }
1605
		    else {
1606
		    	$no=$ligne_menu->nouvel_ordre+1;
1607
		    }
1608
 
1609
			// Mise à jour pere menu courant
1610
		   	$requete =  'UPDATE gen_menu_relation SET '.
1611
		                'gmr_id_menu_02 =  '.$id_grand_pere.' ,'.
1612
		                'gmr_ordre = '.$no.' '.
1613
		                'WHERE gmr_id_menu_01 = '.$ligne_menu_courant_relation->gmr_id_menu_01.' '.
1614
		                'AND gmr_id_valeur = 1';// 1 = relation menu "père"
1615
 
1616
			$resultat_update = $db->query($requete);
1617
		    (DB::isError($resultat_update)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_update->getMessage(), $requete)) : '';
1618
 
1619
 
1620
 
1621
	    }
1622
	}
1623
	else {
1624
 
1625
	    $requete =  'SELECT GMR01.gmr_id_menu_01 '.
1626
	                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
1627
	                'WHERE GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
1628
	                'AND GMR01.gmr_id_menu_01 = gm_id_menu './/jonction avec la table GEN_MENU
1629
	                'AND gm_ce_site = '.$objet_site->gs_id_site.' '.
1630
	                'AND GMR02.gmr_id_valeur = 100 '.// 100 = menu type "classique"
1631
	                'AND GMR01.gmr_id_menu_02 = '.$id_pere.' '.
1632
	                'AND GMR01.gmr_id_valeur = 1 '.// 1 = relation menu "père"
1633
        			'AND GMR01.gmr_ordre < '.$ligne_menu_courant_relation->gmr_ordre.' '.
1634
                    'ORDER BY GMR01.gmr_ordre DESC';
1635
 
1636
	    $resultat_menu = $db->query($requete);
1637
    	(DB::isError($resultat_menu)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_menu->getMessage(), $requete)) : '';
1638
 
1639
	    $ligne_menu = $resultat_menu->fetchRow(DB_FETCHMODE_OBJECT);
1640
	    $resultat_menu->free();
1641
	    //-------------------------------------------------------------------------------------------------------------------
1642
	    // Si la requete ne retourne rien nous ne faisons rien.
1643
	    if (! $ligne_menu) {
1644
	        return null;
1645
	    }
1646
 
1647
    	//----------------------------------------------------------------------------
1648
		// Recherche dernier fils
1649
 
1650
		$requete =  'SELECT GMR01.gmr_ordre '.
1651
                'FROM gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
1652
                'WHERE GMR01.gmr_id_menu_02 = '.$ligne_menu->gmr_id_menu_01.' '.
1653
                'AND GMR01.gmr_id_valeur = 1 '.// 1 = avoir "père"
1654
                'AND GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
1655
                'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.
1656
                'AND GMR02.gmr_id_valeur = 100 '.// 100 = menu type "classique"
1657
                'ORDER BY GMR01.gmr_ordre DESC';
1658
 
1659
		$resultat = $db->query($requete);
1660
		(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1661
 
1662
		$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
1663
 
1664
		$resultat->free();
1665
 
1666
	    if (isset($ligne)) {
1667
	    	$no = $ligne->gmr_ordre + 1;
1668
	    }
1669
	    else  {
1670
	    	$no = 1;
1671
	    }
1672
		// Mise à jour pere menu courant
1673
	   	$requete =  'UPDATE gen_menu_relation SET '.
1674
	                'gmr_id_menu_02 =  '.$ligne_menu->gmr_id_menu_01.' ,'.
1675
	                'gmr_ordre = '.$no.' '.
1676
	                'WHERE gmr_id_menu_01 = '.$ligne_menu_courant_relation->gmr_id_menu_01.' '.
1677
	                'AND gmr_id_valeur = 1';// 1 = relation menu "père"
1678
 
1679
		$resultat_update = $db->query($requete);
1680
	    (DB::isError($resultat_update)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_update->getMessage(), $requete)) : '';
1681
    }
1682
}
1683
 
1684
 
1685
/** Fonction ADME_supprimerMenuClassique() - Supprime un menu classique.
1686
*
1687
* Supprime de la base de données de Papyrus toutes les traces du menu classiques
1688
* passé en paramètre.
1689
* Ancien nom : deleteMenu()
1690
*
1691
* @param  mixed  l'objet Pear DB de connexion à la base de données.
1692
* @param  integer l'identifiant du site du menu à supprimer
1693
* @param  integer l'identifiant du menu à supprimer
1694
* @return void   le menu classique est supprimé de la base de données.
1695
*/
1696
function ADME_supprimerMenuClassique($db, $adme_id_site, $id_menu_a_supprimer)
1697
{
1698
 
1699
	$code_menu = GEN_lireInfoMenu($db, $id_menu_a_supprimer, DB_FETCHMODE_ASSOC);
1700
 
1701
    //----------------------------------------------------------------------------
1702
    // Y a t'il des sous_menus
1703
    $requete =  'SELECT COUNT(gm_id_menu) AS compte '.
1704
                'FROM gen_menu, gen_menu_relation '.
1705
                'WHERE gmr_id_menu_02 = '.$id_menu_a_supprimer.' '.
1706
                'AND gmr_id_valeur = 1 '.
1707
                'AND gmr_id_menu_01 = gm_id_menu ';
1708
 
1709
    $resultat = $db->query($requete);
1710
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1711
 
1712
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
1713
 
1714
    if ($ligne && ($ligne->compte > 0)) {
1715
        return ADME_LG_ERREUR_EXISTE_SOUS_MENU;
1716
    }
1717
 
1718
    //-------------------------------------------------------------------------------------------------------------------
1719
    // Mise à jour de l'ordre des menus
1720
    $ligne_menu_supr_relation = GEN_lireInfoMenuRelation($db, $id_menu_a_supprimer, '1'); // 1 = relation "avoir père"
1721
    $requete =  'SELECT GMR01.gmr_id_menu_01, GMR01.gmr_ordre '.
1722
                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
1723
                'WHERE GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
1724
                'AND GMR01.gmr_id_menu_01 = gm_id_menu './/jonction avec la table GEN_MENU
1725
                'AND gm_ce_site = '.$adme_id_site.' '.// le site du menu!
1726
                'AND GMR02.gmr_id_valeur = 100 '.// 100 = menu type "classique"
1727
                'AND GMR01.gmr_id_menu_02 = '.$ligne_menu_supr_relation->gmr_id_menu_02.' '.
1728
                'AND GMR01.gmr_id_valeur = 1 '.// 1 = relation menu "père"
1729
                'AND GMR01.gmr_ordre > '.$ligne_menu_supr_relation->gmr_ordre.' '.
1730
                'ORDER BY GMR01.gmr_ordre ASC';
1731
    $resultat = $db->query($requete);
1732
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
1733
        // Mise à jour des relations hiérarchiques du menu courant
1734
        $requete_maj =  'UPDATE gen_menu_relation SET '.
1735
                        'gmr_ordre = '.($ligne->gmr_ordre - 1).' '.
1736
                        'WHERE gmr_id_menu_01 = '.$ligne->gmr_id_menu_01.' '.
1737
                        'AND gmr_id_valeur = 1';// 1 = relation menu "père"
1738
 
1739
        $resultat_maj = $db->query($requete_maj);
1740
        (DB::isError($resultat_maj)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_maj->getMessage(), $requete_maj)) : '';
1741
    }
1742
    $resultat->free();
1743
 
1744
    //----------------------------------------------------------------------------
1745
    // S'il n'y a plus de sous niveau, on supprime le menu
1746
    $requete =  'DELETE FROM gen_menu '.
1747
                'WHERE gm_id_menu = '.$id_menu_a_supprimer;
1748
 
1749
    $resultat = $db->query($requete);
1750
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1751
 
1752
    //----------------------------------------------------------------------------
1753
    // Puis on supprime les relations de ce menu
1754
    $requete =  'DELETE FROM gen_menu_relation '.
1755
                'WHERE gmr_id_menu_01 = '.$id_menu_a_supprimer;
1756
 
1757
 
1758
 
1759
 
1760
    $resultat = $db->query($requete);
1761
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1762
 
1763
 
1764
 
1765
	 // Suppression du contenu !!!!
1766
 
1767
    $requete =  'DELETE FROM gen_menu_contenu '.
1768
                'WHERE gmc_ce_menu= '.$id_menu_a_supprimer.' ';
1769
 
1770
    $resultat = $db->query($requete);
1771
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1772
 
1773
 
1774
 
1775
}
1776
 
1777
/** Fonction ADME_supprimerMenuClassiqueTraduction() - Supprime une traduction de menu classique.
1778
*
1779
* Supprime de la base de données de Papyrus toutes les traces du menu classiques
1780
* passé en paramètre.
1781
* Ancien nom : deleteMenu()
1782
*
1783
* @param  mixed  l'objet Pear DB de connexion à la base de données.
1784
* @param  integer l'identifiant du site du menu à supprimer
1785
* @param  integer l'identifiant du menu à supprimer
1786
* @return void   le menu classique est supprimé de la base de données.
1787
*/
1788
function ADME_supprimerMenuClassiqueTraduction($db, $adme_id_site, $id_menu_a_supprimer)
1789
{
1790
 
1791
 
1792
	$code_menu = GEN_lireInfoMenu($db, $id_menu_a_supprimer, DB_FETCHMODE_ASSOC);
1793
 
1794
 
1795
    if ($code_menu === false) {
1796
            die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_MENU.'<br />'.
1797
                'Idenitifiant du menu n° : '. $id_menu_a_supprimer .'<br />'.
1798
                'Ligne n° : '. __LINE__ .'<br />'.
1799
                'Fichier n° : '. __FILE__ .'<br />');
1800
     }
1801
 
1802
 
1803
 
1804
    $requete =  'DELETE FROM gen_menu '.
1805
                'WHERE gm_id_menu = '.$id_menu_a_supprimer;
1806
 
1807
    $resultat = $db->query($requete);
1808
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1809
 
1810
    //----------------------------------------------------------------------------
1811
    // Puis on supprime les relations de ce menu
1812
    $requete =  'DELETE FROM gen_menu_relation '.
1813
                'WHERE gmr_id_menu_01 = '.$id_menu_a_supprimer;
1814
 
1815
    $resultat = $db->query($requete);
1816
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1817
 
1818
        //----------------------------------------------------------------------------
1819
    // Puis on supprime les relations de ce menu
1820
    $requete =  'DELETE FROM gen_menu_relation '.
1821
                'WHERE gmr_id_menu_02 = '.$id_menu_a_supprimer;
1822
 
1823
    $resultat = $db->query($requete);
1824
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1825
 
1826
 
1827
 
1828
	 // Suppression du contenu !!!!
1829
 
1830
    $requete =  'DELETE FROM gen_menu_contenu '.
1831
                'WHERE gmc_ce_menu =  '.$id_menu_a_supprimer.' ';
1832
 
1833
 
1834
 
1835
    $resultat = $db->query($requete);
1836
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1837
 
1838
 
1839
}
1840
 
1841
function ADME_verifier_traduction_possible($db, $url, $adme_site_id, $adme_menu_id) {
1842
 
1843
 
1844
		$aso_valeurs = GEN_lireInfoMenu($db, $adme_menu_id, DB_FETCHMODE_ASSOC);
1845
        if ($aso_valeurs === false) {
1846
            die('ERREUR Papyrus Administrateur de Menus : '.ADME_LG_ERREUR_INFO_MENU.'<br />'.
1847
                'Idenitifiant du menu n° : '. $adme_menu_id .'<br />'.
1848
                'Ligne n° : '. __LINE__ .'<br />'.
1849
                'Fichier n° : '. __FILE__ .'<br />');
1850
        }
1851
 
1852
	    	// Recherche liste des menu deja traduits
1853
 
1854
	   	$requete =  'SELECT distinct gm_ce_i18n  '.
1855
        	        'FROM gen_menu_relation, gen_menu '.
1856
            	    'WHERE gmr_id_menu_01  = ' . $adme_menu_id .' '.
1857
                	'AND gm_id_menu  = gmr_id_menu_02  '.
1858
                	'AND gmr_id_valeur = 2  '; // 2 = "avoir traduction"
1859
 
1860
	  	$resultat = $db->query($requete) ;
1861
 
1862
	    if (DB::isError($resultat)) {
1863
	        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
1864
	    }
1865
 
1866
	    $not_in_langue='';
1867
	    if ( $resultat->numRows() == 0 ) {
1868
			$not_in_langue="gi_id_i18n not in('".$aso_valeurs['gm_ce_i18n']."')";
1869
	    }
1870
	    else {
1871
	    	    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
1872
 					$not_in_langue="'".$ligne->gm_ce_i18n."'".",".$not_in_langue;
1873
 					$end="'".$ligne->gm_ce_i18n."'";
1874
				}
1875
	    		if ($not_in_langue) {
1876
			    			$not_in_langue="'".$aso_valeurs['gm_ce_i18n']."'".",".$not_in_langue;
1877
			    			$not_in_langue=' gi_id_i18n not in('.$not_in_langue.$end.')';
1878
			    }
1879
	    		else {
1880
	    			$not_in_langue="gi_id_i18n not in('".$aso_valeurs['gm_ce_i18n']."')";
1881
	    		}
1882
	    }
1883
 
1884
 
1885
    	$requete =  "SELECT * FROM gen_i18n where ".$not_in_langue;
1886
 
1887
		$resultat = $db->query($requete) ;
1888
	    if (DB::isError($resultat)) {
1889
    	    die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
1890
    	}
1891
 
1892
 
1893
    $retour = $resultat->numRows();
1894
    $resultat->free();
1895
 
1896
    $message='';
1897
    if ($retour == 0) {
1898
    	  $message = '<p class="pap_erreur">Plus de traduction possible pour ce menu </p>';
1899
    }
1900
    return  $message;
1901
}
1902
 
1903
 
1904
 
1905
/** Fonction ADME_selectionnerMenuClassiqueTraduction()() Selection un menu classique comme traduction par defaut
1906
*
1907
*
1908
* @param  mixed  l'objet Pear DB de connexion à la base de données.
1909
* @param  integer l'identifiant du site du menu à supprimer
1910
* @param  integer l'identifiant du menu à supprimer
1911
* @return void   le menu classique est supprimé de la base de données.
1912
*/
1913
function ADME_selectionnerMenuClassiqueTraduction($db, $adme_id_site, $id_menu)
1914
{
1915
 
1916
	// 1 : Rechercher traduction parente : si presente on est dans une traduc. si absente on
1917
	// est dans un menu en version originale
1918
 
1919
 
1920
	$requete_origine_traduction  =  'SELECT gmr_id_menu_01 '.
1921
        	        				'FROM gen_menu_relation, gen_menu '.
1922
            	    				'WHERE gmr_id_menu_02  = ' . $id_menu .' '.
1923
				                	'AND gmr_id_valeur = 2  '; // 2 = "avoir traduction"
1924
 
1925
	$resultat_origine_traduction = $db->query($requete_origine_traduction) ;
1926
 
1927
	if (DB::isError($resultat_origine_traduction)) {
1928
	    die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete_origine_traduction) );
1929
	}
1930
 
1931
 
1932
	if ($resultat_origine_traduction->numRows() > 0) {
1933
		$ligne_origine_traduction = $resultat_origine_traduction->fetchRow(DB_FETCHMODE_OBJECT);
1934
		$id_menu_origine=$ligne_origine_traduction->gmr_id_menu_01;
1935
	}
1936
	else {
1937
		$id_menu_origine=$id_menu;
1938
	}
1939
 
1940
	$requete_suppression   = 'DELETE from gen_menu_relation '.
1941
						     'WHERE gmr_id_menu_01 = ' . $id_menu_origine . ' ' .
1942
						     'AND gmr_id_valeur=105 '; // 105  Traduction par defaut
1943
 
1944
    $resultat_suppression = $db->query($requete_suppression);
1945
    (DB::isError($resultat_suppression)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_suppression->getMessage(), $requete_suppression)) : '';
1946
 
1947
 
1948
	$requete_insertion   = 'INSERT into gen_menu_relation '.
1949
						     ' SET gmr_id_menu_01 = ' . $id_menu_origine . ', ' .
1950
						     ' gmr_id_menu_02 = ' . $id_menu . ', ' .
1951
						     ' gmr_id_valeur = 105' ;
1952
 
1953
    $resultat_insertion = $db->query($requete_insertion);
1954
    (DB::isError($resultat_insertion)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_insertion->getMessage(), $requete_insertion)) : '';
1955
 
1956
 
1957
 
1958
 
1959
}
1960
 
1961
 
1962
/** Fonction ADME_limiterMenuClassique() (limiter) un menu classique à la langue selectionne
1963
*
1964
*
1965
* @param  mixed  l'objet Pear DB de connexion à la base de données.
1966
* @param  integer l'identifiant du site du menu à supprimer
1967
* @param  integer l'identifiant du menu à supprimer
1968
* @return void   le menu classique est supprimé de la base de données.
1969
*/
1970
function ADME_limiterMenuClassique($db, $adme_id_site, $id_menu, $zone)
1971
{
1972
 
1973
 
1974
		$requete_insertion   = 'INSERT into gen_menu_relation '.
1975
						     ' SET gmr_id_menu_01 = ' . $id_menu . ', ' .
1976
						     ' gmr_id_menu_02 = ' . $id_menu . ', ' .
1977
						     ' gmr_id_valeur = 106' ;
1978
 
1979
	    $resultat_insertion = $db->query($requete_insertion);
1980
 
1981
 
1982
 
1983
    $requete_mise_a_jour =  'UPDATE gen_menu SET '.
1984
                'gm_ce_i18n = "'.$zone.'" '.
1985
                'WHERE gm_id_menu = '.$id_menu;
1986
 
1987
    $resultat_mise_a_jour = $db->query($requete_mise_a_jour);
1988
    (DB::isError($resultat_mise_a_jour)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_mise_a_jour->getMessage(), $requete_mise_a_jour)) : '';
1989
 
1990
 
1991
}
1992
 
1993
 
1994
/** Fonction ADME_ouvrirMenuClassique() Ouvrir un menu classique à toutes les langues (suite à une fermeture)
1995
*
1996
*
1997
* @param  mixed  l'objet Pear DB de connexion à la base de données.
1998
* @param  integer l'identifiant du site du menu à supprimer
1999
* @param  integer l'identifiant du menu à supprimer
2000
* @return void   le menu classique est supprimé de la base de données.
2001
*/
2002
function ADME_ouvrirMenuClassique($db, $adme_id_site, $id_menu)
2003
{
2004
 
2005
 
2006
	$requete_suppression   = 'DELETE from gen_menu_relation '.
2007
						     'WHERE gmr_id_menu_01 = ' . $id_menu . ' ' .
2008
						     'AND gmr_id_valeur=106 '; // 106  fermeture du menu
2009
 
2010
    $resultat_suppression = $db->query($requete_suppression);
2011
 
2012
 
2013
    $requete_mise_a_jour =  'UPDATE gen_menu SET '.
2014
                'gm_ce_i18n = "'.GEN_I18N_ID_DEFAUT.'" '.
2015
                'WHERE gm_id_menu = '.$id_menu;
2016
 
2017
    $resultat_mise_a_jour = $db->query($requete_mise_a_jour);
2018
    (DB::isError($resultat_mise_a_jour)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_mise_a_jour->getMessage(), $requete_mise_a_jour)) : '';
2019
 
2020
 
2021
}
2022
 
2023
 
2024
 
2025
// +------------------------------------------------------------------------------------------------------+
2026
// |                                            PIED du PROGRAMME                                         |
2027
// +------------------------------------------------------------------------------------------------------+
2028
 
2029
 
2030
/* +--Fin du code ----------------------------------------------------------------------------------------+
2031
*
2032
* $Log: not supported by cvs2svn $
2033
* Revision 1.41  2007-10-24 14:43:02  ddelon
2034
* Gestion des menus reservés à une langue
2035
*
2036
* Revision 1.40  2007-07-03 14:35:11  florian
2037
* correction bug maj non prise en charge
2038
*
2039
* Revision 1.39  2007-07-03 14:07:02  florian
2040
* correction bug maj non prise en charge
2041
*
2042
* Revision 1.38  2007-06-26 14:18:53  florian
2043
* amélioration des formulaires des différentes applis de l'interface d'administration afin de les simplifier
2044
*
2045
* Revision 1.37  2006/10/16 15:49:07  ddelon
2046
* Refactorisation code mulitlinguisme et gestion menu invisibles
2047
*
2048
* Revision 1.36  2006/10/06 13:38:45  florian
2049
* ergonomie amélioree
2050
*
2051
* Revision 1.35  2006/09/07 13:45:56  jp_milcent
2052
* Trie par ordre alphabétique des appli.
2053
*
2054
* Revision 1.34  2006/06/29 23:04:01  ddelon
2055
* Bug defaut traduction sur menu commun
2056
*
2057
* Revision 1.33  2006/06/29 18:58:57  ddelon
2058
* Multilinguisme : menu par defaut pour les menu commun
2059
*
2060
* Revision 1.32  2006/06/28 12:53:34  ddelon
2061
* Multilinguisme : menu par defaut
2062
*
2063
* Revision 1.31  2006/04/12 21:11:54  ddelon
2064
* Multilinguisme menus communs
2065
*
2066
* Revision 1.30  2006/03/27 14:33:04  ddelon
2067
* Gestion suppression de contenu menu afficheur
2068
*
2069
* Revision 1.29  2006/03/23 20:24:59  ddelon
2070
* *** empty log message ***
2071
*
2072
* Revision 1.28  2006/03/15 09:30:50  florian
2073
* suppression des echos, qui entrainaient des problemes d'affichages
2074
*
2075
* Revision 1.27  2006/03/13 21:00:20  ddelon
2076
* Suppression messages d'erreur multilinguisme
2077
*
2078
* Revision 1.26  2006/03/10 11:02:36  alexandre_tb
2079
* remplacement de l'image "Traduire" par un texte "traduire" vu qu'on a pas d'image pour la notion de traduire...
2080
*
2081
* Revision 1.25  2006/03/02 10:49:49  ddelon
2082
* Fusion branche multilinguisme dans branche principale
2083
*
2084
* Revision 1.24.2.1  2006/02/28 14:02:11  ddelon
2085
* Finition multilinguisme
2086
*
2087
* Revision 1.24  2005/09/23 13:58:07  ddelon
2088
* Php5, Projet et Redirection
2089
*
2090
* Revision 1.23  2005/09/20 17:01:22  ddelon
2091
* php5 et bugs divers
2092
*
2093
* Revision 1.22  2005/07/08 21:13:15  ddelon
2094
* Gestion indentation menu
2095
*
2096
* Revision 1.21  2005/05/26 16:13:08  jpm
2097
* Correction taille éditeur: passage en text
2098
*
2099
* Revision 1.19  2005/05/26 15:34:46  jpm
2100
* Ajout d'un espace.
2101
*
2102
* Revision 1.18  2005/05/26 08:54:20  jpm
2103
* Ajout info admin ayant fait la dernière modif.
2104
*
2105
* Revision 1.17  2005/04/19 16:47:16  jpm
2106
* Gestion des dates  de fin de validité des menus.
2107
*
2108
* Revision 1.16  2005/03/29 15:49:12  jpm
2109
* Ajout de la date de création dans le formulaire des menus.
2110
*
2111
* Revision 1.15  2005/02/28 11:05:06  jpm
2112
* Modification des auteurs.
2113
*
2114
* Revision 1.14  2004/12/01 16:47:28  jpm
2115
* Ajout d'une boite javascript de confirmation de suppression d'un menu.
2116
*
2117
* Revision 1.13  2004/11/29 18:34:51  jpm
2118
* Correction bogue checkbox.
2119
*
2120
* Revision 1.12  2004/11/15 16:51:12  jpm
2121
* Correction bogue de mise à jour de l'ordre des menus.
2122
*
2123
* Revision 1.11  2004/11/10 19:41:14  jpm
2124
* Correction bogue.
2125
*
2126
* Revision 1.10  2004/11/10 17:26:07  jpm
2127
* Fin gestion de la traduction.
2128
*
2129
* Revision 1.9  2004/11/09 17:53:00  jpm
2130
* Changement des noms des actions sur les menus classiques.
2131
*
2132
* Revision 1.8  2004/11/09 17:48:35  jpm
2133
* Gestion de différentes interfaces d'administration.
2134
*
2135
* Revision 1.7  2004/11/09 12:37:34  jpm
2136
* Fin de gestion des menus et mise en conformité avec la convention de codage.
2137
*
2138
* Revision 1.6  2004/11/08 17:40:07  jpm
2139
* Gestion correcte de l'ouverture et fermeture des menus.
2140
* Utilisation des sessions.
2141
*
2142
* Revision 1.5  2004/11/04 19:11:38  jpm
2143
* Mise en conformité vis à vis de la convention de codage.
2144
* Amélioration de la récursivité de la gestion de l'affichage des menus.
2145
*
2146
* Revision 1.4  2004/10/25 16:27:42  jpm
2147
* Correction d'un bogue dans la gestion du déplacement des menus.
2148
*
2149
* Revision 1.3  2004/09/23 17:45:13  jpm
2150
* Amélioration de la gestion des liens annuler et du selecteur de sites.
2151
*
2152
* Revision 1.2  2004/07/06 17:07:37  jpm
2153
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
2154
*
2155
* Revision 1.1  2004/06/16 15:04:32  jpm
2156
* Changement de nom de Génésia en Papyrus.
2157
* Changement de l'arborescence.
2158
*
2159
* Revision 1.27  2004/05/10 12:13:03  jpm
2160
* Modification des formulaires.
2161
*
2162
* Revision 1.26  2004/05/07 16:31:20  jpm
2163
* Amélioration du formulaire d'un menu classique.
2164
*
2165
* Revision 1.25  2004/05/07 07:23:53  jpm
2166
* Amélioration du code, des commentaires et correction de bogues.
2167
*
2168
*
2169
* +-- Fin du code ----------------------------------------------------------------------------------------+
2170
*/
7 jpm 2171
?>