Subversion Repositories Applications.papyrus

Rev

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