Subversion Repositories Applications.papyrus

Rev

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

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