Subversion Repositories Applications.papyrus

Rev

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