Subversion Repositories Applications.papyrus

Rev

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

Rev Author Line No. Line
7 jpm 1
<?php
2
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3
// +------------------------------------------------------------------------------------------------------+
4
// | PHP version 4.1                                                                                      |
5
// +------------------------------------------------------------------------------------------------------+
6
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
7
// +------------------------------------------------------------------------------------------------------+
8
// | This library is free software; you can redistribute it and/or                                        |
9
// | modify it under the terms of the GNU Lesser General Public                                           |
10
// | License as published by the Free Software Foundation; either                                         |
11
// | version 2.1 of the License, or (at your option) any later version.                                   |
12
// |                                                                                                      |
13
// | This library is distributed in the hope that it will be useful,                                      |
14
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
15
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
16
// | Lesser General Public License for more details.                                                      |
17
// |                                                                                                      |
18
// | You should have received a copy of the GNU Lesser General Public                                     |
19
// | License along with this library; if not, write to the Free Software                                  |
20
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21
// +------------------------------------------------------------------------------------------------------+
56 jpm 22
// CVS : $Id: adme_menu_commun.fonct.php,v 1.3 2004-09-23 17:45:13 jpm Exp $
7 jpm 23
/**
24
* Application de gestion des menus communs
25
*
26
* Permet de lister, d'ajouter, de modifier, et de déplacer des menus communs.
27
* Par menus communs nous entendons tous les menus devant paraitre sur l'ensemble des pages d'un site,
28
* comme le lien vers le plan du site, le lien vers la charte d'accessibilité, le flux rss...
29
*
25 jpm 30
*@package Admin_menu
7 jpm 31
*@subpackage Fonctions
32
//Auteur original :
33
*@author        Laurent COUDOUNEAU <lc@gsite.org>
34
//Autres auteurs :
35
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
36
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
37
*@copyright     Tela-Botanica 2000-2004
56 jpm 38
*@version       $Revision: 1.3 $ $Date: 2004-09-23 17:45:13 $
7 jpm 39
// +------------------------------------------------------------------------------------------------------+
40
*/
41
 
42
// +------------------------------------------------------------------------------------------------------+
43
// |                                            ENTÊTE du PROGRAMME                                       |
44
// +------------------------------------------------------------------------------------------------------+
45
                                    /*Mettre ici les inclusions de fichiers*/
46
 
47
 
48
 
49
// +------------------------------------------------------------------------------------------------------+
50
// |                                            CORPS du PROGRAMME                                        |
51
// +------------------------------------------------------------------------------------------------------+
52
                                       /*Mettre ici le code du programme*/
53
 
54
 
55
 
56
// +------------------------------------------------------------------------------------------------------+
57
// |                                           LISTE de FONCTIONS                                         |
58
// +------------------------------------------------------------------------------------------------------+
59
                                        /*Mettre ici la liste de fonctions.*/
60
function listUpper($db,
61
                    $baseURL, $baseURLjs, $baseHidden,
62
                    $adminProject, $adminLocale, $adminAnnu,
63
                    $menu1id, $upperid,
64
                    $doccmd,
65
                    $menu1open)
66
{
67
    //----------------------------------------------------------------------------
68
    // Get infos about the project.
69
    $requete =  'SELECT * '.
70
                'FROM gen_site, gen_site_relation '.
71
                'WHERE gs_code_alpha = "'.$adminProject.'" '.
72
                'AND gsr_id_site_01 = gs_id_site '.
73
                'AND gsr_id_site_01 = gsr_id_site_02 '.
74
                'AND gsr_id_valeur = 102 '; // 102 = site "principal"
75
 
76
    $result = $db->query($requete);
77
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
78
 
79
    if ($result->numRows() != 1) {
80
        return '';
81
    }
82
    $PRJrow = $result->fetchRow(DB_FETCHMODE_OBJECT);
83
    $result->free();
84
 
85
    $lookName = $PRJrow->gs_fichier_squelette;
86
 
87
    //----------------------------------------------------------------------------
88
    // Labels.
89
    $etiquette_alt_modifier   = 'Modifier';
90
    $etiquette_title_modifier   = 'Modifier ce menu commun';
91
    $etiquette_alt_supprimer = 'Supprimer';
92
    $etiquette_title_supprimer = 'Supprimer ce menu commun';
93
    $etiquette_alt_monter = 'Monter';
94
    $etiquette_title_monter = 'Monter ce menu commun';
95
    $etiquette_alt_descendre = 'Descendre';
96
    $etiquette_title_descendre = 'Descendre ce menu commun';
97
    $etiquette_alt_redaction = 'Rédiger';
98
    $etiquette_title_redaction = 'Rédiger le contenu de ce menu commun';
99
 
100
    //----------------------------------------------------------------------------
101
    // Javascript.
102
    $goMsg = addslashes('Supprimer');
103
    $fullURLjs = $baseURLjs.'&menuview=upper&menu1open=1';
104
    GEN_stockerFonctionScript(  'deleteUpper',
105
                                "  function deleteUpper (iUpperId) {"."\n".
106
                                "    var url = '$fullURLjs'+'&doccmd=delupper&upperid='+iUpperId;"."\n".
107
                                "    if (window.confirm ('$goMsg')) document.location = url;"."\n".
108
                                "  }"."\n");
109
 
110
    //----------------------------------------------------------------------------
111
    // Début du xhtml
112
    $outputText = '';
113
 
114
    //----------------------------------------------------------------------------
115
    // Liste des menus communs.
116
    $requete =  'SELECT *, gap_nom AS nom_appli, ga_prenom AS prenom '.
117
                'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02, gen_application, gen_annuaire '.
118
                'WHERE gm_ce_site = "'.$PRJrow->gs_id_site.'" '.
119
                'AND gm_ce_i18n = "'.$adminLocale.'" '.
120
                'AND gm_ce_admin = ga_id_administrateur '.
121
                'AND gm_ce_application = gap_id_application '.
122
                'AND GMR02.gmr_id_menu_02 = gm_id_menu '.
123
                'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.
124
                'AND GMR02.gmr_id_valeur = 102 '.// 100 = type "menu classique"
125
                'AND GMR01.gmr_id_menu_01 = gm_id_menu '.
126
                'AND GMR01.gmr_id_valeur = 1 '.// 1 = avoir "père"
127
                'ORDER BY GMR01.gmr_ordre ASC';
128
 
129
    $UPresult = $db->query($requete);
130
    if (DB::isError ($UPresult)) {
131
        die(BOG_afficherErreurSql(__FILE__, __LINE__, $UPresult->getMessage(), $requete));
132
    }
133
 
134
    // Récupération de l'identifiant de la personne administrateur
135
    //global $_GEN_commun;
136
    //$userID = $_GEN_commun['pear_auth']->getAuthData('ga_id_administrateur');
137
 
138
    // Pour chaque menu commun trouvé, nous affichons les commandes.
139
    $outputText .= "\n".'<ul class="text">';
140
    while ($UProw = $UPresult->fetchRow(DB_FETCHMODE_OBJECT)) {
141
        //--------------------------------------------------------------------------
142
        // Nous avons un menu commun
143
        $img = '';
144
 
145
        //--------------------------------------------------------------------------
146
        // Menu text.
147
        $menuText = htmlentities($UProw->gm_nom).'&nbsp;'.
148
                    '('.htmlentities($UProw->nom_appli).'&nbsp;-&nbsp;'.htmlentities($UProw->prenom).')&nbsp;';
149
        $menuText = (empty($menuText) ? '(...)' : $menuText);
150
        $actionIcons  = '&nbsp;';
151
        //$commitIcons  = '&nbsp;';
152
 
153
        //------------------------------------------------------------------------
154
        // Ajout de l'identifiant du menu commun à l'url des boutons d'action.
56 jpm 155
        $pageHREF = $baseURLjs.'&amp;upperid='.$UProw->gm_id_menu ;
7 jpm 156
 
157
        /*if ($doccmd == 'upduppertxt' && $upperid == $UProw->gm_id_menu) {
158
            $cancelLabel = 'Annuler';
159
            $menuText = '<input type="text" name="upper_text" size="32" '.
160
                            'maxlength="64" value="'.$menuText.'" '.
161
                            'class="contentDocument">'.
162
                        '<input type="hidden" name="doccmd" value="commitupduppertxt">';
163
 
164
            $commitIcons .= '<input type="image" src="'.DOCADM_IMAGE_VALIDER.'">'.
165
                            "\n".
166
                            '<a'."\n".'href="'.$pageHREF.'">'.
167
                            '<img src="'.DOCADM_IMAGE_ANNULER.'" alt="'.$cancelLabel.'" width="16" height="16" border="0" />'.
168
                            '</a>';
169
        } else {
170
            $txtHREF  = $pageHREF.'&amp;doccmd=upduppertxt';
171
            $menuText = '<a href="'.$txtHREF.'" class="anchor">'.$menuTextFull.'</a>';
172
        }*/
173
 
174
        //------------------------------------------------------------------------
175
        // Les icones d'action.
176
        $actionIcons =
177
            '<a href="'.$pageHREF.'&amp;doccmd=upduppertxt" title="'.$etiquette_title_modifier.'">'.
178
            '<img src="'.ADME_IMAGE_VOIR.'" alt="'.$etiquette_alt_modifier.'" width="16" height="16" border="0" />'.
179
            '</a>'.
180
            "\n".
181
            '<a'."\n".'href="'.$pageHREF.'&amp;doccmd=upupper" title="'.$etiquette_title_monter.'">'.
182
            '<img src="'.ADME_IMAGE_FLECHE_HAUT.'" alt="'.$etiquette_alt_monter.'" width="16" height="16" border="0" />'.
183
            '</a>'.
184
            "\n".
185
            '<a'."\n".'href="'.$pageHREF.'&amp;doccmd=dnupper" title="'.$etiquette_title_descendre.'">'.
186
            '<img src="'.ADME_IMAGE_FLECHE_BAS.'" alt="'.$etiquette_alt_descendre.'" width="16" height="16" border="0" />'.
187
            '</a>'.
188
            "\n".
189
            '<a'."\n".'href="javascript:deleteUpper('.$UProw->gm_id_menu.')" title="'.$etiquette_title_supprimer.'">'.
190
            '<img src="'.ADME_IMAGE_SUPPRIMER.'" alt="'.$etiquette_alt_supprimer.'" width="16" height="16" border="0" />'.
191
            '</a>';
192
 
193
        // Si l'application liée est "texte simple", on ajoute un icone avec un lien vers
194
        // l'administration de cette application.
195
        if ($UProw->gm_ce_application == 3) {     // l'appli afficheur a pour id 3
196
            //$url_popup = ADME_CHEMIN_APPLICATION."docpopup.php?admproject=$adminProject&locale=$locale&menu=$UProw->gm_id_menu" ;
197
            $icon_vers_texte = "\n&nbsp;&nbsp;".
198
                                '<a href="'.$pageHREF.'&amp;doccmd=contenuredac" title="'.$etiquette_title_redaction.'">'.
199
                                '<img src="'.ADME_IMAGE_TEXTE.'" alt="'.$etiquette_alt_redaction.'"'.' width="16" height="16" border="0" />'.
200
                                '</a>';
201
        } else {
202
            $icon_vers_texte = '';
203
        }
204
 
205
        //--------------------------------------------------------------------------
206
        // Ligne du menu commun.
207
        $outputText .= "\n".'<li class="contentDocument">'.$menuText.$actionIcons.$icon_vers_texte.'</li>';
208
    }
209
    $outputText .= "\n".'</ul>';
210
    //----------------------------------------------------------------------------
211
    // Nettoyage
212
    $UPresult->free();
213
 
214
    return $outputText;
215
}
216
 
217
//==============================================================================
218
//==============================================================================
219
 
220
/** Fonction addUpper() - Ajoute un sous menu commun au menu commun courant
221
*
222
*
223
*
224
*   @param  mixed   Une instance de la classse PEAR_DB
225
*   @param  string  Le nom du projet qu'on administre
226
*   @param  string  La langue du projet qu'on administre
227
*   @return void les changement sont fait dans la base de données.
228
*/
229
function addUpper($db, $adminProject, $adminLocale)
230
{
231
    //----------------------------------------------------------------------------
232
    // Get project row.
233
    global $_GEN_commun;
234
 
235
    //----------------------------------------------------------------------------
236
    // Récupération d'infos sur le site principal.
237
    $PRJrow = GEN_lireInfoSitePrincipalCodeAlpha($db, $adminProject);
238
    if ($PRJrow == false) {
239
        die('ERREUR Génésia Administrateur de Menus : impossible de lire les infos du site.<br />'.
240
            'Code alpha du site : '. $adminProject .'<br />'.
241
            'Ligne n° : '. __LINE__ .'<br />'.
242
            'Fichier n° : '. __FILE__ .'<br />');
243
    }
244
 
245
    //----------------------------------------------------------------------------
246
    // Récupération d'infos sur le nouveau menu
247
    if ($adminLocale == $PRJrow->gs_ce_i18n) {
248
        $id_site = $PRJrow->gs_id_site;
249
    } else {
250
        $ligne_admin_site_i18n = getSiteI18nInfos($db, $adminProject, $adminLocale);// Info du site en cours d'administration
251
        $id_site = $ligne_admin_site_i18n->gs_id_site;
252
    }
253
    $nouveau_id_menu = SQL_obtenirNouveauId($db, 'gen_menu', 'gm_id_menu');
254
    $auteur = $_GEN_commun['pear_auth']->getAuthData('ga_prenom').' '.$_GEN_commun['pear_auth']->getAuthData('ga_nom');
255
 
256
    //----------------------------------------------------------------------------
257
    // Ajout du nouveau menu
258
    $requete =  'INSERT INTO gen_menu '.
259
                'SET gm_id_menu = '.$nouveau_id_menu.', '.
260
                'gm_ce_site = '.$id_site.', '.
261
                'gm_ce_i18n = "'.$adminLocale.'", '.
262
                'gm_ce_application = 0, '.
263
                'gm_code_num = '.$nouveau_id_menu.', '.
264
                'gm_code_alpha = "menu_'.$nouveau_id_menu.'", '.
265
                'gm_nom = "menu_'.$nouveau_id_menu.'", '.
266
                'gm_auteur = "'.$auteur.'", '.
267
                'gm_editeur = "'.$PRJrow->gs_auteur.'", '.
268
                'gm_date_creation = "'.date('Y-m-d H:i:s').'", '.
269
                'gm_date_soumission = "'.date('Y-m-d H:i:s').'", '.
270
                'gm_date_acceptation = "'.date('Y-m-d H:i:s').'", '.
271
                'gm_date_publication = "'.date('Y-m-d H:i:s').'", '.
272
                'gm_date_debut_validite = "'.date('Y-m-d H:i:s').'", '.
273
                'gm_date_copyright = "'.date('Y-00-00 00:00:00').'", '.
274
                'gm_categorie = "menu", '.
275
                'gm_ce_admin = '.$_GEN_commun['pear_auth']->getAuthData('ga_id_administrateur').' '
276
                ;
277
 
278
    $result = $db->query($requete);
279
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
280
 
281
    //----------------------------------------------------------------------------
282
    // Ajout de la relation "père"
283
 
284
    if (!isset($menuid) && empty($menuid)) {
285
        $menuid = 0 ;// Identifiant du père
286
    }
287
    //----------------------------------------------------------------------------
288
    // Récupération d'infos sur la hierarchie du menu
289
    $requete =  'SELECT * '.
290
                'FROM gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
291
                'WHERE GMR01.gmr_id_menu_02 = '.$menuid.' '.
292
                'AND GMR01.gmr_id_valeur = 1 '.// 1 = avoir "père"
293
                'AND GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
294
                'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.
295
                'AND GMR02.gmr_id_valeur = 102 '.// 102 = menu type "commun"
296
                'ORDER BY GMR01.gmr_ordre DESC';
297
 
298
    $result = $db->query($requete);
299
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
300
 
301
    $row = $result->fetchRow(DB_FETCHMODE_OBJECT);
302
    $nouveau_ordre_menu = $row->gmr_ordre + 1;
303
    $result->free();
304
 
305
    $requete =  'INSERT INTO gen_menu_relation '.
306
                'SET gmr_id_menu_02 = '.$menuid.', '.
307
                'gmr_id_menu_01 = '.$nouveau_id_menu.', '.
308
                'gmr_id_valeur = 1, '.
309
                'gmr_ordre = '.$nouveau_ordre_menu;
310
 
311
    $result = $db->query($requete);
312
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
313
 
314
    //----------------------------------------------------------------------------
315
    // Ajout de la relation-type "commun"
316
 
317
    // Récupération d'infos sur le n
318
    $requete =  'SELECT * '.
319
                'FROM gen_menu_relation, gen_menu '.
320
                'WHERE gmr_id_menu_02 = gmr_id_menu_01 '.
321
                'AND gmr_id_valeur = 102 '.// 102 = type "commun"
322
                'AND gmr_id_menu_01 = gm_id_menu '.
323
                'AND gm_ce_site = '.$id_site.' '.
324
                'ORDER BY gmr_ordre DESC';
325
 
326
    $result = $db->query($requete);
327
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
328
 
329
    $row = $result->fetchRow(DB_FETCHMODE_OBJECT);
330
    $nouveau_ordre_commun = $row->gmr_ordre + 1;
331
    $result->free();
332
 
333
    $requete =  'INSERT INTO gen_menu_relation '.
334
                'SET gmr_id_menu_01 = '.$nouveau_id_menu.', '.
335
                'gmr_id_menu_02 = '.$nouveau_id_menu.', '.
336
                'gmr_id_valeur = 102, '.
337
                'gmr_ordre = '.$nouveau_ordre_commun;
338
 
339
    $result = $db->query($requete);
340
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
341
}
342
 
343
//==============================================================================
344
//==============================================================================
345
 
346
function commitUpdateUpperText($db, $adminProject, $adminLocale, $upperid)
347
{
348
 
349
    global $_GEN_commun;
350
 
351
    $requete =  'UPDATE gen_menu SET '.
352
                'gm_ce_application = '.$_POST['gm_ce_application'].', '.
353
                'gm_application_arguments = "'.$_POST['gm_application_arguments'].'", '.
354
                'gm_fichier_squelette = "'.$_POST['gm_fichier_squelette'].'", '.
355
                'gm_code_num = '.$_POST['gm_code_num'].', '.
356
                'gm_code_alpha = "'.$_POST['gm_code_alpha'].'", '.
357
                'gm_nom = "'.$_POST['gm_nom'].'", '.
358
                'gm_raccourci_clavier = "'.$_POST['gm_raccourci_clavier'].'", '.
359
                'gm_robot = "'.$_POST['gm_robot'].'", '.
360
                'gm_titre = "'.$_POST['gm_titre'].'", '.
361
                'gm_titre_alternatif = "'.$_POST['gm_titre_alternatif'].'", '.
362
                'gm_mots_cles = "'.$_POST['gm_mots_cles'].'", '.
363
                'gm_description_libre = "'.$_POST['gm_description_libre'].'", '.
364
                'gm_description_resume = "'.$_POST['gm_description_resume'].'", '.
365
                'gm_description_table_matieres = "'.$_POST['gm_description_table_matieres'].'", '.
366
                'gm_source = "'.$_POST['gm_source'].'", '.
367
                'gm_auteur = "'.$_POST['gm_auteur'].'", '.
368
                'gm_contributeur = "'.$_POST['gm_contributeur'].'", '.
369
                'gm_editeur = "'.$_POST['gm_editeur'].'", '.
370
                'gm_date_debut_validite = "'.$_POST['gm_date_debut_validite'].'", '.
371
                'gm_date_fin_validite = "'.$_POST['gm_date_fin_validite'].'", '.
372
                'gm_date_copyright = "'.$_POST['gm_date_copyright'].'", '.
373
                'gm_licence = "'.$_POST['gm_licence'].'", '.
374
                'gm_categorie = "'.$_POST['gm_categorie'].'", '.
375
                'gm_public = "'.$_POST['gm_public'].'", '.
376
                'gm_public_niveau = "'.$_POST['gm_public_niveau'].'", '.
377
                'gm_portee_spatiale = "'.$_POST['gm_portee_spatiale'].'", '.
378
                'gm_portee_temporelle = "'.$_POST['gm_portee_temporelle'].'", '.
379
                'gm_ce_admin = "'.$_GEN_commun['pear_auth']->getAuthData('ga_id_administrateur').'" '.
380
                'WHERE gm_id_menu = '.$upperid;
381
 
382
    $result = $db->query($requete);
383
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
384
}
385
 
386
/** Fonction moveUpper() - Permet de déplacer un menu commun dans la hiérarchie.
387
*
388
* Permet de déplacer un menu dans la hiérarchie des menus communs.
389
*
390
*   @param  mixed   objet Pear DB de connexion à la base de données.
391
*   @param  string  code alpha du site administré.
392
*   @param  string  identifiant de l'i18n du site administré.
393
*   @param  int     identifiant du menu commun à déplacer.
394
*   @param  boolean indique si on veut monter le menu (true) ou le descendre (false).
395
*   @return void    Modifie la base de données.
396
*/
397
function moveUpper($db, $adminProject, $adminLocale, $upperid, $up)
398
{
399
    //----------------------------------------------------------------------------
400
    // Récupération d'information sur le site de ce menu.
56 jpm 401
    /*
7 jpm 402
    $PRJrow = GEN_lireInfoSitePrincipalCodeAlpha($db, $adminProject);
403
    if ($PRJrow == false) {
404
        die('ERREUR Génésia Administrateur de Menus : impossible de lire les infos du site.<br />'.
405
            'Code alpha du site : '. $adminProject .'<br />'.
406
            'Ligne n° : '. __LINE__ .'<br />'.
407
            'Fichier n° : '. __FILE__ .'<br />');
408
    }
56 jpm 409
    */
7 jpm 410
    //----------------------------------------------------------------------------
411
    // Récupération d'informations sur les relations du menu courant.
412
    $ligne_menu_courant_relation = GEN_lireInfoMenuRelation($db, $upperid, '1'); // 1 = relation "avoir père"
413
    if ($ligne_menu_courant_relation == false) {
414
        die('ERREUR Génésia Administrateur de Menus : impossible de lire les infos sur les relations du menu.<br />'.
415
            'Identifiant menu : '. $upperid .'<br />'.
416
            'Identifiant valeur relation : 1 <br />'.
417
            'Ligne n° : '. __LINE__ .'<br />'.
418
            'Fichier n° : '. __FILE__ .'<br />');
419
    }
420
    $id_pere = $ligne_menu_courant_relation->gmr_id_menu_02;
421
 
422
    // Il serait mieux d'utiliser la fonction ci-dessous.
423
    // Mais cela ne semble pas fonctionner!!!
424
    /*
425
    $id_pere = GEN_lireIdentifiantMenuPere($upperid);
426
    if ($id_pere == false) {
427
        die('ERREUR Génésia Administrateur de Menus : impossible de lire identifiant du menu père.<br />'.
428
            'Identifiant menu fils : '. $upperid .'<br />'.
429
            'Ligne n° : '. __LINE__ .'<br />'.
430
            'Fichier n° : '. __FILE__ .'<br />');
431
    }
432
    */
433
    //----------------------------------------------------------------------------
434
    // Recherche d'information hiérarchiques sur le menu précédent ou suivant le menu courant
435
    $requete =  'SELECT GMR01.gmr_ordre AS nouvel_ordre, GMR01.gmr_id_menu_01 AS id_menu_remplace '.
436
                'FROM gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
437
                'WHERE GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.
438
                'AND GMR02.gmr_id_valeur = 102 '.// 102 = menu type "commun"
439
                'AND GMR01.gmr_id_menu_02 = '.$id_pere.' '.
440
                'AND GMR01.gmr_id_valeur = 1 ';// 1 = relation menu "père"
441
    if ($up) {
442
        $requete .= 'AND GMR01.gmr_ordre < '.$ligne_menu_courant_relation->gmr_ordre.' '.
443
                    'ORDER BY GMR01.gmr_ordre DESC';
444
    } else {
445
        $requete .= 'AND GMR01.gmr_ordre > '.$ligne_menu_courant_relation->gmr_ordre.' '.
446
                    'ORDER BY GMR01.gmr_ordre ASC';
447
    }
448
 
449
    $MENUresult = $db->query($requete);
450
    (DB::isError($MENUresult)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $MENUresult->getMessage(), $requete)) : '';
451
 
452
    $MENUrow = $MENUresult->fetchRow(DB_FETCHMODE_OBJECT);
453
    $MENUresult->free() ;
454
 
455
    //----------------------------------------------------------------------------
456
    // Si la requete ne retourne rien nous ne faisons rien.
457
    if (! $MENUrow) {
458
        return;
459
    }
460
 
461
    //----------------------------------------------------------------------------
462
    // Mise à jour des relations hiérarchiques du menu courant
463
    $requete =  'UPDATE gen_menu_relation SET '.
464
                'gmr_ordre = '.$MENUrow->nouvel_ordre.' '.
465
                'WHERE gmr_id_menu_01 = '.$ligne_menu_courant_relation->gmr_id_menu_01.' '.
466
                'AND gmr_id_valeur = 1';// 1 = relation menu "père"
467
 
468
    $result = $db->query($requete);
469
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
470
 
471
    //----------------------------------------------------------------------------
472
    // Mise à jour des relations hiérarchiques du menu précédent ou suivant
473
    $requete =  'UPDATE gen_menu_relation SET '.
474
                'gmr_ordre = '.$ligne_menu_courant_relation->gmr_ordre.' '.
475
                'WHERE gmr_id_menu_01 = '.$MENUrow->id_menu_remplace.' '.
476
                'AND gmr_id_valeur = 1';// 1 = relation menu "père"
477
 
478
    $result = $db->query($requete);
479
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
480
}
481
 
482
/** Fonction deleteUpper() - Détruit un menu commun.
483
*
484
*   Détruit définitivement un menu commun de la base de données.
485
*
486
*   @return  void  le menu commun est supprimé de la base de données.
487
*/
488
function deleteUpper($objet_pear_db, $adminProject, $adminLocale, $id_menu_commun)
489
{
490
    //----------------------------------------------------------------------------
491
    // Y a t'il des sous_menus
492
    $requete =    'SELECT COUNT(gm_id_menu) AS compte '.
493
                'FROM gen_menu, gen_menu_relation '.
494
                'WHERE gmr_id_menu_02 = '.$id_menu_commun.' '.
495
                'AND gmr_id_valeur = 1 '.
496
                'AND gmr_id_menu_01 = gm_id_menu ';
497
 
498
    $result = $objet_pear_db->query($requete);
499
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
500
 
501
    $row = $result->fetchRow(DB_FETCHMODE_OBJECT);
502
 
503
    if ($row && ($row->compte > 0)) {
504
        return "Il reste des menus attachés à ce menu commun !";
505
    }
506
 
507
    //----------------------------------------------------------------------------
508
    // S'il n'y a plus de sous niveau, on supprime le menu
509
    $requete =  'DELETE FROM gen_menu '.
510
                'WHERE gm_id_menu = '.$id_menu_commun;
511
 
512
    $result = $objet_pear_db->query($requete);
513
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
514
 
515
    //----------------------------------------------------------------------------
516
    // Puis on supprime les relations de ce menu
517
    $requete =  'DELETE FROM gen_menu_relation '.
518
                'WHERE gmr_id_menu_01 = '.$id_menu_commun;
519
 
520
    $result = $objet_pear_db->query($requete);
521
    (DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
522
}
523
 
524
/** Fonction showUpper ()   Affiche le formulaire pour un menu commun
525
*
526
*   Utilise HTML_QuickForm pour générer le formulaire
527
*
528
*
529
*   @return  string  Le code HTML du formulaire
530
*/
531
function showUpper( $db,
532
                    $adminProject, $adminLocale,
533
                    $baseURL, $baseURLjs, $baseHidden,
534
                    $upperid, $menuopen, $docopen)
535
{
536
    //----------------------------------------------------------------------------
537
    // Labels.
538
    $cancelLabel = 'Annuler';
56 jpm 539
    $closeURL = $baseURLjs.'&amp;upperid='.$upperid;
7 jpm 540
 
541
    //----------------------------------------------------------------------------
542
    // Récupération des informations du menu concerné.
543
    $ligne_menu = GEN_lireInfoMenu($db, $upperid, DB_FETCHMODE_ASSOC);
544
    if ($ligne_menu == false) {
545
        die('ERREUR Génésia Administrateur de Menus : impossible de lire les infos du menu.<br />'.
546
            'Idenitifiant du menu n° : '. $upperid .'<br />'.
547
            'Ligne n° : '. __LINE__ .'<br />'.
548
            'Fichier n° : '. __FILE__ .'<br />');
549
    }
550
 
551
    //----------------------------------------------------------------------------
552
    // Titre de la page
553
    $res = '<h1>'.'Modification menu commun'.'</h1>'."\n";
554
 
555
    //----------------------------------------------------------------------------
556
    // Création du formulaire
557
    $form =& new HTML_QuickForm('updform', 'post', $baseURLjs);
558
    $tab_index = 1000;
559
    $squelette =& $form->defaultRenderer();
560
    $squelette->setFormTemplate("\n".'<form{attributes}>'."\n"."\n".'{content}'."\n"."\n".'</form>'."\n");
561
    $squelette->setElementTemplate(  '<li>'."\n".
562
                                    '{label}'."\n".
563
                                    '{element}'."\n".
564
                                    '<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".
565
                                    '<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n".
566
                                    '</li>'."\n");
567
    $squelette->setRequiredNoteTemplate("\n".'<p><span class="symbole_obligatoire">*</span> {requiredNote}</p>'."\n");
568
 
569
    $partie_menu_debut = '<fieldset>'."\n".'<legend>Configuration du menu commun</legend>'."\n".'<ul>'."\n";
570
    $form->addElement('html', $partie_menu_debut);
571
 
572
    $id = 'gm_code_num';
573
    $aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 5, 'maxlength' => 100);
574
    $label = '<label for="'.$id.'">'.'Code numérique du menu'.'</label>';
575
    $form->addElement('text', $id, $label, $aso_attributs);
576
    $form->addRule($id, 'Un code numérique est requis pour le menu !', 'required', '', 'client');
577
 
578
    $id = 'gm_code_alpha';
579
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 20, 'maxlength' => 20);
580
    $label = '<label for="'.$id.'">'.'Code alphanumérique du menu'.'</label>';
581
    $form->addElement('text', $id, $label, $aso_attributs);
582
    $form->addRule($id, 'Un code alphanumérique est requis pour le menu !', 'required', '', 'client');
583
 
584
    $id = 'gm_nom';
585
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 50, 'maxlength' => 100);
586
    $label = '<label for="'.$id.'">'.'Nom du menu'.'</label>';
587
    $form->addElement('text', $id, $label, $aso_attributs);
588
    $form->addRule($id, 'Un nom est requis pour le menu !', 'required', '', 'client');
589
    $form->applyFilter($id, 'trim');
590
 
591
    $id = 'gm_raccourci_clavier';
592
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 1, 'maxlength' => 1);
593
    $label = '<label for="'.$id.'">'.'Raccourci clavier'.'</label>';
594
    $form->addElement('text', $id, $label, $aso_attributs);
595
 
596
    $id = 'gm_fichier_squelette';
597
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 50, 'maxlength' => 255);
598
    $label = '<label for="'.$id.'">'.'Fichier squelette'.'</label>';
599
    $form->addElement('text', $id, $label, $aso_attributs);
600
 
601
    $id = 'gm_description_resume';
602
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 2, 'cols' => 50);
603
    $label = '<label for="'.$id.'">'.'Contenu info-bulle'.'</label>';
604
    $form->addElement('textarea', $id, $label, $aso_attributs);
605
    $form->addRule($id, 'Une description courte pour l\'info-bulle est requise pour ce menu !', 'required', '', 'client');
606
 
607
    // Requête sur les applications
608
    $requete =  'SELECT gap_id_application, gap_nom '.
609
                'FROM gen_application '.
610
                'WHERE gap_bool_applette = 0';// Pour éviter d'afficher les applettes.
611
    $resultat = $db->query($requete);
612
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
613
 
614
    $aso_options = array();
615
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
616
        $aso_options[$ligne->gap_id_application] = $ligne->gap_nom;
617
    }
618
    $resultat->free();
619
    $id = 'gm_ce_application';
620
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
621
    $label = '<label for="'.$id.'">'.'Application'.'</label>';
622
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
623
 
624
    $id = 'gm_application_arguments';
625
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
626
    $label = '<label for="'.$id.'">'.'Arguments de l\'application'.'</label>';
627
    $form->addElement('text', $id, $label, $aso_attributs);
628
 
629
    $partie_menu_fin = '</ul>'."\n".'</fieldset>'."\n";
630
    $form->addElement('html', $partie_menu_fin);
631
 
632
    $partie_entete_debut = '<fieldset>'."\n".'<legend>Entête des pages du menu commun</legend>'."\n".'<ul>'."\n";
633
    $form->addElement('html', $partie_entete_debut);
634
 
635
    $id = 'gm_robot';
636
    $aso_options = array(   'index,follow' => 'Indexer cette page et les suivantes',
637
                            'index' => 'Indexer seulement cette page',
638
                            'noindex' => 'Ne pas indexer cette page',
639
                            'noindex,nofollow' => 'Ne pas indexer cette page et les suivantes',
640
                            '' => 'Auncune');
641
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
642
    $label = '<label for="'.$id.'">'.'Indexation par robots'.'</label>';
643
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
644
 
645
    $id = 'gm_titre';
646
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
647
    $label = '<label for="'.$id.'">'.'Titre de la page'.'</label>';
648
    $form->addElement('text', $id, $label, $aso_attributs);
649
 
650
    $id = 'gm_titre_alternatif';
651
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
652
    $label = '<label for="'.$id.'">'.'Titre alternatif de la page'.'</label>';
653
    $form->addElement('text', $id, $label, $aso_attributs);
654
 
655
    $id = 'gm_mots_cles';
656
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 50);
657
    $label = '<label for="'.$id.'">'.'Mots-clés'.'</label>';
658
    $form->addElement('textarea', $id, $label, $aso_attributs);
659
 
660
    $id = 'gm_description_libre';
661
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
662
    $label = '<label for="'.$id.'">'.'Description du contenu '.'</label>';
663
    $form->addElement('textarea', $id, $label, $aso_attributs);
664
 
665
    $id = 'gm_description_table_matieres';
666
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);
667
    $label = '<label for="'.$id.'">'.'Table des matières'.'</label>';
668
    $form->addElement('textarea', $id, $label, $aso_attributs);
669
 
670
    $id = 'gm_source';
671
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
672
    $label = '<label for="'.$id.'">'.'Source'.'</label>';
673
    $form->addElement('text', $id, $label, $aso_attributs);
674
 
675
    $id = 'gm_auteur';
676
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
677
    $label = '<label for="'.$id.'">'.'Auteur'.'</label>';
678
    $form->addElement('text', $id, $label, $aso_attributs);
679
 
680
    $id = 'gm_contributeur';
681
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 2, 'cols' => 45);
682
    $label = '<label for="'.$id.'">'.'Contributeur'.'</label>';
683
    $form->addElement('textarea', $id, $label, $aso_attributs);
684
 
685
    $id = 'gm_editeur';
686
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 2, 'cols' => 45);
687
    $label = '<label for="'.$id.'">'.'Editeur'.'</label>';
688
    $form->addElement('textarea', $id, $label, $aso_attributs);
689
 
690
    $id = 'gm_date_debut_validite';
691
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);
692
    $label = '<label for="'.$id.'">'.'Date de début de validité'.'</label>';
693
    $form->addElement('text', $id, $label, $aso_attributs);
694
 
695
    $id = 'gm_date_fin_validite';
696
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);
697
    $label = '<label for="'.$id.'">'.'Date de fin de validité'.'</label>';
698
    $form->addElement('text', $id, $label, $aso_attributs);
699
 
700
    $id = 'gm_date_copyright';
701
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);
702
    $label = '<label for="'.$id.'">'.'Année pour le copyright'.'</label>';
703
    $form->addElement('text', $id, $label, $aso_attributs);
704
 
705
    $id = 'gm_licence';
706
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
707
    $label = '<label for="'.$id.'">'.'URL de la licence'.'</label>';
708
    $form->addElement('text', $id, $label, $aso_attributs);
709
 
710
    $id = 'gm_categorie';
711
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 100);
712
    $label = '<label for="'.$id.'">'.'Catégorie'.'</label>';
713
    $form->addElement('text', $id, $label, $aso_attributs);
714
 
715
    $id = 'gm_public';
716
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);
717
    $label = '<label for="'.$id.'">'.'Public pour la page'.'</label>';
718
    $form->addElement('text', $id, $label, $aso_attributs);
719
 
720
    $id = 'gm_public_niveau';
721
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 25, 'maxlength' => 45);
722
    $label = '<label for="'.$id.'">'.'Niveau du public pour la page'.'</label>';
723
    $form->addElement('text', $id, $label, $aso_attributs);
724
 
725
    $id = 'gm_ce_type_portee_spatiale';
726
    $aso_options = array(   '' => 'Aucun',
727
                            'iso3166' => 'Code de pays sur deux lettres (iso3166)',
728
                            'Point' => 'Point géographique',
729
                            'Box' => 'Représenation des régions géographiques du Dublin Core',
730
                            'TGN' => 'Noms issus du Getty Thesaurus of Geographic Names');
731
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
732
    $label = '<label for="'.$id.'">'.'Type de portée spatiale'.'</label>';
733
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
734
 
735
    $id = 'gm_portee_spatiale';
736
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 100);
737
    $label = '<label for="'.$id.'">'.'Portée spatiale de la page'.'</label>';
738
    $form->addElement('text', $id, $label, $aso_attributs);
739
 
740
    $id = 'gm_ce_type_portee_temporelle';
741
    $aso_options = array(   '' => 'Aucun',
742
                            'W3CDTF' => 'Codage des dates et heures du W3C',
743
                            'Period' => 'Représentation des intervalles de temps du Dublin Core');
744
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);
745
    $label = '<label for="'.$id.'">'.'Type de portée temporelle'.'</label>';
746
    $form->addElement('select', $id, $label, $aso_options, $aso_attributs);
747
 
748
    $id = 'gm_portee_temporelle';
749
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 100);
750
    $label = '<label for="'.$id.'">'.'Portée temporelle de la page'.'</label>';
751
    $form->addElement('text', $id, $label, $aso_attributs);
752
 
753
    $partie_entete_fin = '</ul>'."\n".'</fieldset>'."\n";
754
    $form->addElement('html', $partie_entete_fin);
755
 
756
    $liste_bouton_debut = '<ul class="liste_bouton">'."\n";
757
    $form->addElement('html', $liste_bouton_debut);
758
 
759
    $form->addElement('submit', 'menu_commun_enregistrer', 'Enregistrer');
760
    $bouton_annuler =   '<li><a class="bouton" href="'.$closeURL.'" title="'.'Annuler'.'" >'.'Annuler'.'</a>'.'</li>'."\n";
761
    $form->addElement('html', $bouton_annuler);
762
 
763
    $liste_bouton_fin = '</ul>'."\n";
764
    $form->addElement('html', $liste_bouton_fin);
765
 
766
    $partie_cachee_debut = '<p>'."\n";
767
    $form->addElement('html', $partie_cachee_debut);
768
 
769
    $form->addElement('html', $baseHidden);
770
    $form->addElement('hidden', 'upperid', $upperid);
771
    $form->addElement('hidden', 'menuopen', $menuopen);
772
    $form->addElement('hidden', 'docopen', $docopen);
773
    $form->addElement('hidden', 'doccmd', 'commitupduppertxt');
774
    $form->setDefaults($ligne_menu);
775
 
776
    $partie_cachee_fin = '</p>'."\n";
777
    $form->addElement('html', $partie_cachee_fin);
778
 
779
    // Javascript pour la validation côté client
780
    $regles_javascript = $form->getValidationScript();
781
    // Suppression des balises déjà créées par GEN_stockerCodeScript()
782
    $regles_javascript = ereg_replace ( '<script type="text\/javascript">', '', $regles_javascript);
783
    $regles_javascript = ereg_replace ( '<!--', '', $regles_javascript);
784
    $regles_javascript = ereg_replace ( '\/\/-->', '', $regles_javascript);
785
    $regles_javascript = ereg_replace ( '<\/script>', '', $regles_javascript);
786
    GEN_stockerCodeScript($regles_javascript);
787
 
788
    // Note de fin de formulaire
789
    $form->setRequiredNote('Indique les champs obligatoires');
790
 
791
    $res .= $form->toHTML()."\n";
792
    return $res;
793
}
794
 
795
// +------------------------------------------------------------------------------------------------------+
796
// |                                            PIED du PROGRAMME                                         |
797
// +------------------------------------------------------------------------------------------------------+
798
                                           /*Partie non obligatoire*/
799
 
800
 
801
/* +--Fin du code ----------------------------------------------------------------------------------------+
802
*
803
* $Log: not supported by cvs2svn $
56 jpm 804
* Revision 1.2  2004/07/06 17:07:37  jpm
805
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
806
*
25 jpm 807
* Revision 1.1  2004/06/16 15:04:32  jpm
808
* Changement de nom de Génésia en Papyrus.
809
* Changement de l'arborescence.
810
*
7 jpm 811
* Revision 1.10  2004/05/10 12:13:03  jpm
812
* Modification des formulaires.
813
*
814
* Revision 1.9  2004/05/07 16:31:40  jpm
815
* Amélioration du formulaire d'un menu commun.
816
*
817
* Revision 1.8  2004/05/07 09:56:52  jpm
818
* Correction des noms de constantes d'images.
819
*
820
* Revision 1.7  2004/05/07 07:23:54  jpm
821
* Amélioration du code, des commentaires et correction de bogues.
822
*
823
* Revision 1.6  2004/05/04 16:27:55  jpm
824
* Amélioration gestion du déplacement des menus.
825
*
826
*
827
* +-- Fin du code ----------------------------------------------------------------------------------------+
828
*/
829
?>