Subversion Repositories Applications.papyrus

Rev

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

Rev Author Line No. Line
5 jpm 1
<?php
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
// ----
557 ddelon 35
// CVS : $Id: pap_rendu.inc.php,v 1.23 2005-10-20 13:12:18 ddelon Exp $
5 jpm 36
/**
37
* Rendu : programme traitant l'url demandée et retournant la page compressé au navigateur.
38
*
39
* Ce programme contient la partie collectant les informations sur la page demandée par le navigateur client.
40
* Elle vérifie que la page ne soit pas déjà présente en cache et la renvoie si elle est disponible.
41
* Elle recherche ensuite l'application liée à la page demandée. Elle exécute cette application et récupère le
42
* contenu XHTML à afficher, le stocke en cache, le compresse et le renvoi au navigateur client.
43
*
44
*@package Papyrus
45
//Auteur original :
286 jpm 46
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
5 jpm 47
//Autres auteurs :
414 alexandre_ 48
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
286 jpm 49
*@author        Laurent COUDOUNEAU <laurent.coudouneau@ema.fr>
5 jpm 50
*@copyright     Tela-Botanica 2000-2004
557 ddelon 51
*@version       $Revision: 1.23 $ $Date: 2005-10-20 13:12:18 $
5 jpm 52
// +------------------------------------------------------------------------------------------------------+
53
*/
54
 
448 ddelon 55
// TODO : revoir les initialisation en l'absence de menu par defaut
56
 
5 jpm 57
// +------------------------------------------------------------------------------------------------------+
58
// |                                            ENTÊTE du PROGRAMME                                       |
59
// +------------------------------------------------------------------------------------------------------+
60
 
352 jpm 61
/** Inclusion de la bibliothèque de fonctions servant à l'insertion de meta informations pour une page donnée.*/
14 jpm 62
include_once GEN_CHEMIN_BIBLIO.'pap_meta.fonct.php';
5 jpm 63
 
352 jpm 64
/** Inclusion de la bibliothèque de fonctions servant à l'insertion de styles pour une page donnée.*/
14 jpm 65
include_once GEN_CHEMIN_BIBLIO.'pap_style.fonct.php';
5 jpm 66
 
352 jpm 67
/** Inclusion de la bibliothèque de fonctions servant à l'insertion de scripts pour une page donnée.*/
14 jpm 68
include_once GEN_CHEMIN_BIBLIO.'pap_script.fonct.php';
5 jpm 69
 
352 jpm 70
/** Inclusion de la bibliothèque PEAR Text_Wiki.*/
71
include_once PAP_CHEMIN_API_PEAR.'Text/Wiki.php';
72
 
73
/** Inclusion de la bibliothèque Text_Wiki_Papyrus.*/
74
include_once GEN_CHEMIN_API.'text/wiki_papyrus/Papyrus.class.php';
75
 
5 jpm 76
// +------------------------------------------------------------------------------------------------------+
77
// |                                            CORPS du PROGRAMME                                        |
78
// +------------------------------------------------------------------------------------------------------+
79
 
80
// Recherche du squelette de la page demandée.
81
 
545 ddelon 82
 
5 jpm 83
// Ouverture du squelette
290 jpm 84
if (empty($GLOBALS['_GEN_commun']['info_menu']->gm_fichier_squelette)) {
85
    if (isset($GLOBALS['_GEN_commun']['traduction_info_site'])) {
86
        $GLOBALS['_PAPYRUS_']['general']['chemin_squelette'] = $GLOBALS['_GEN_commun']['traduction_info_site']->gs_fichier_squelette;
5 jpm 87
    } else {
290 jpm 88
        $GLOBALS['_PAPYRUS_']['general']['chemin_squelette'] = $GLOBALS['_GEN_commun']['info_site']->gs_fichier_squelette;
5 jpm 89
    }
90
} else {
290 jpm 91
    if (isset($GLOBALS['_GEN_commun']['traduction_info_menu'])) {
92
        $GLOBALS['_PAPYRUS_']['general']['chemin_squelette'] = $GLOBALS['_GEN_commun']['traduction_info_menu']->gs_fichier_squelette;
5 jpm 93
    } else {
290 jpm 94
        $GLOBALS['_PAPYRUS_']['general']['chemin_squelette'] = $GLOBALS['_GEN_commun']['info_menu']->gm_fichier_squelette;
5 jpm 95
    }
96
}
545 ddelon 97
 
5 jpm 98
// Si l'information concernant le chemin est réellement un chemin
169 jpm 99
if (! file_exists($GLOBALS['_PAPYRUS_']['general']['chemin_squelette'])) {
5 jpm 100
    //Si ce n'est qu'un nom de fichier squelette
169 jpm 101
    $GLOBALS['_PAPYRUS_']['general']['chemin_test'] =  GEN_CHEMIN_SITES.
290 jpm 102
                    $GLOBALS['_GEN_commun']['info_site']->gs_code_alpha.'/'.
103
                    $GLOBALS['_GEN_commun']['i18n'].'/'.GEN_DOSSIER_SQUELETTE.'/'.$GLOBALS['_PAPYRUS_']['general']['chemin_squelette'];
169 jpm 104
    if (! file_exists($GLOBALS['_PAPYRUS_']['general']['chemin_test'])) {
105
        die('ERREUR Papyrus : Impossible de trouver de fichier de squelette. <br />'.
106
            'Chemin fichier squelette : '.$GLOBALS['_PAPYRUS_']['general']['chemin_squelette'].' <br />'.
5 jpm 107
            'Ligne n° : '. __LINE__ .'<br />'.
108
            'Fichier : '. __FILE__ );
109
    } else {
169 jpm 110
        $GLOBALS['_PAPYRUS_']['general']['chemin_squelette'] = $GLOBALS['_PAPYRUS_']['general']['chemin_test'];
5 jpm 111
    }
112
}
113
 
114
// +------------------------------------------------------------------------------------------------------+
115
// Récupération du contenu du fichier de squelette de la page demandée.
159 jpm 116
/*
5 jpm 117
// Lecture du fichier de squelette XHTML en PHP 4.1.2
118
$tab_fichier_squelette = file($chemin_squelette);
119
$contenu_squelette = '';
120
for ($i = 0; $i < count($tab_fichier_squelette); $i++) {
121
    $contenu_squelette .= $tab_fichier_squelette[$i];
122
}
159 jpm 123
*/
5 jpm 124
// Lecture du fichier de squelette XHTML en PHP 4.3
169 jpm 125
$GLOBALS['_PAPYRUS_']['general']['contenu_squelette'] = file_get_contents($GLOBALS['_PAPYRUS_']['general']['chemin_squelette']);
5 jpm 126
 
159 jpm 127
 
545 ddelon 128
 
5 jpm 129
// +------------------------------------------------------------------------------------------------------+
130
// Recherche des informations pour la complétion de l'entête du squelette de la page demandée.
131
 
448 ddelon 132
if (isset($GLOBALS['_GEN_commun']['info_menu'])) {
133
	// Construction du titre.
134
	if (! empty($GLOBALS['_GEN_commun']['info_menu']->gm_titre)) {
135
	    $GLOBALS['_PAPYRUS_']['page']['titre'] = htmlentities($GLOBALS['_GEN_commun']['info_menu']->gm_titre);
136
	} else if (! empty($GLOBALS['_GEN_commun']['info_menu']->gm_titre_alternatif)) {
137
	    $GLOBALS['_PAPYRUS_']['page']['titre'] = htmlentities($GLOBALS['_GEN_commun']['info_menu']->gm_titre_alternatif);
138
	} else {
139
	    $GLOBALS['_PAPYRUS_']['page']['titre'] = htmlentities($GLOBALS['_GEN_commun']['info_menu']->gm_nom);
140
	}
141
 
5 jpm 142
}
448 ddelon 143
else {
144
	$GLOBALS['_PAPYRUS_']['page']['titre']='';
145
}
146
 
545 ddelon 147
 
169 jpm 148
$GLOBALS['_PAPYRUS_']['rendu']['TITRE_PAGE'] = $GLOBALS['_PAPYRUS_']['page']['titre'];
5 jpm 149
 
112 jpm 150
// Construction des infos sur le site
290 jpm 151
$GLOBALS['_PAPYRUS_']['page']['nom_site'] = htmlentities($GLOBALS['_GEN_commun']['info_site']->gs_nom);
169 jpm 152
$GLOBALS['_PAPYRUS_']['rendu']['SITE_NOM'] = $GLOBALS['_PAPYRUS_']['page']['nom_site'];
290 jpm 153
$GLOBALS['_PAPYRUS_']['page']['langue_site'] = htmlentities($GLOBALS['_GEN_commun']['i18n']);
169 jpm 154
$GLOBALS['_PAPYRUS_']['rendu']['SITE_LANGUE'] = $GLOBALS['_PAPYRUS_']['page']['langue_site'];
290 jpm 155
$GLOBALS['_PAPYRUS_']['page']['code_alpha_site'] = htmlentities($GLOBALS['_GEN_commun']['info_site']->gs_code_alpha);
169 jpm 156
$GLOBALS['_PAPYRUS_']['rendu']['SITE_CODE_ALPHA'] = $GLOBALS['_PAPYRUS_']['page']['code_alpha_site'];
5 jpm 157
 
158
// Construction des Meta "http-equiv".
159
$_GEN_commun['meta_http_equiv'] = array();
544 jp_milcent 160
$GLOBALS['_PAPYRUS_']['page']['jeu_de_caracteres'] = htmlentities(strtoupper($_GEN_commun['info_i18n']->gi_jeu_de_caracteres));
169 jpm 161
$GLOBALS['_PAPYRUS_']['rendu']['SITE_JEU_DE_CARACTERES'] = $GLOBALS['_PAPYRUS_']['page']['jeu_de_caracteres'];
162
$GLOBALS['_PAPYRUS_']['page']['langue'] = htmlentities($_GEN_commun['info_i18n_langue']->gil_id_langue);
163
$GLOBALS['_PAPYRUS_']['rendu']['SITE_LANGUE'] = $GLOBALS['_PAPYRUS_']['page']['langue'];
164
GEN_stockerMetaHttpEquiv('Content-Type', 'text/html; charset='.$GLOBALS['_PAPYRUS_']['page']['jeu_de_caracteres']);
5 jpm 165
GEN_stockerMetaHttpEquiv('Content-style-type', 'text/css');
166
GEN_stockerMetaHttpEquiv('Content-script-type', 'text/javascript');
169 jpm 167
GEN_stockerMetaHttpEquiv('Content-language', $GLOBALS['_PAPYRUS_']['page']['langue']);
5 jpm 168
 
169
// Construction des Meta "name".
170
$_GEN_commun['meta_name'] = array();
448 ddelon 171
if (isset($GLOBALS['_GEN_commun']['info_menu'])) {
172
	$GLOBALS['_PAPYRUS_']['page']['robot'] = htmlentities($_GEN_commun['info_menu']->gm_robot);
173
	$GLOBALS['_PAPYRUS_']['page']['auteur'] = htmlentities($_GEN_commun['info_menu']->gm_auteur);
174
}
175
else {
176
	$GLOBALS['_PAPYRUS_']['page']['robot'] = '';
177
	$GLOBALS['_PAPYRUS_']['page']['auteur'] = '';
178
}
179
 
252 jpm 180
if (empty($GLOBALS['_PAPYRUS_']['page']['auteur'])) {
169 jpm 181
    $GLOBALS['_PAPYRUS_']['page']['auteur'] = htmlentities($_GEN_commun['info_site']->gs_auteur);
5 jpm 182
}
448 ddelon 183
if (isset($GLOBALS['_GEN_commun']['info_menu'])) {
184
	$GLOBALS['_PAPYRUS_']['page']['mots_cles'] = htmlentities($_GEN_commun['info_menu']->gm_mots_cles);
185
}
169 jpm 186
if (empty($GLOBALS['_PAPYRUS_']['page']['mots_cles'])) {
252 jpm 187
    $GLOBALS['_PAPYRUS_']['page']['mots_cles'] = htmlentities($_GEN_commun['info_site']->gs_mots_cles);
5 jpm 188
}
448 ddelon 189
if (isset($GLOBALS['_GEN_commun']['info_menu'])) {
190
	$GLOBALS['_PAPYRUS_']['page']['description_libre'] = htmlentities($_GEN_commun['info_menu']->gm_description_libre);
191
}
252 jpm 192
if (empty($GLOBALS['_PAPYRUS_']['page']['description_libre'])) {
169 jpm 193
    $GLOBALS['_PAPYRUS_']['page']['description_libre'] = htmlentities($_GEN_commun['info_site']->gs_description);
5 jpm 194
}
448 ddelon 195
 
196
 
5 jpm 197
GEN_stockerMetaName('revisit-after', '15 days');
169 jpm 198
GEN_stockerMetaName('robots', $GLOBALS['_PAPYRUS_']['page']['robot']);
199
GEN_stockerMetaName('author', $GLOBALS['_PAPYRUS_']['page']['auteur']);
200
GEN_stockerMetaName('keywords', $GLOBALS['_PAPYRUS_']['page']['mots_cles']);
201
GEN_stockerMetaName('description', $GLOBALS['_PAPYRUS_']['page']['description_libre']);
5 jpm 202
 
203
// Construction des Meta Meta "name" du Dublin Core.
443 ddelon 204
 
448 ddelon 205
if (isset($GLOBALS['_GEN_commun']['info_menu'])) {
206
	$GLOBALS['_PAPYRUS_']['page']['titre_alternatif'] = htmlentities($_GEN_commun['info_menu']->gm_titre_alternatif);
207
	$GLOBALS['_PAPYRUS_']['page']['auteur'] = htmlentities($_GEN_commun['info_menu']->gm_auteur);
208
	$GLOBALS['_PAPYRUS_']['page']['description_resume'] = htmlentities($_GEN_commun['info_menu']->gm_description_resume);
209
	$GLOBALS['_PAPYRUS_']['page']['description_table_matieres'] = htmlentities($_GEN_commun['info_menu']->gm_description_table_matieres);
210
	$GLOBALS['_PAPYRUS_']['page']['publieur'] = htmlentities($_GEN_commun['info_menu']->gm_editeur);
211
	$GLOBALS['_PAPYRUS_']['page']['contributeur'] = htmlentities($_GEN_commun['info_menu']->gm_contributeur);
212
	$GLOBALS['_PAPYRUS_']['page']['date_creation'] = htmlentities($_GEN_commun['info_menu']->gm_date_creation);
213
	$GLOBALS['_PAPYRUS_']['page']['date_soumission'] = htmlentities($_GEN_commun['info_menu']->gm_date_soumission);
214
	$GLOBALS['_PAPYRUS_']['page']['date_acceptation'] = htmlentities($_GEN_commun['info_menu']->gm_date_acceptation);
215
	$GLOBALS['_PAPYRUS_']['page']['periode_validite'] = htmlentities($_GEN_commun['info_menu']->gm_date_debut_validite);
216
	$GLOBALS['_PAPYRUS_']['page']['date_copyright'] = htmlentities($_GEN_commun['info_menu']->gm_date_copyright);
217
	$GLOBALS['_PAPYRUS_']['page']['source'] = htmlentities($_GEN_commun['info_menu']->gm_source);
218
}
219
else {
220
	$GLOBALS['_PAPYRUS_']['page']['titre_alternatif'] = '';
221
	$GLOBALS['_PAPYRUS_']['page']['auteur'] = '';
222
	$GLOBALS['_PAPYRUS_']['page']['description_resume'] = '';
223
	$GLOBALS['_PAPYRUS_']['page']['description_table_matieres'] = '';
224
	$GLOBALS['_PAPYRUS_']['page']['publieur'] = '';
225
	$GLOBALS['_PAPYRUS_']['page']['contributeur'] = '';
226
	$GLOBALS['_PAPYRUS_']['page']['date_creation'] = '';
227
	$GLOBALS['_PAPYRUS_']['page']['date_soumission'] = '';
228
	$GLOBALS['_PAPYRUS_']['page']['date_acceptation'] = '';
229
	$GLOBALS['_PAPYRUS_']['page']['periode_validite'] = '';
230
	$GLOBALS['_PAPYRUS_']['page']['date_copyright'] = '';
231
	$GLOBALS['_PAPYRUS_']['page']['source'] = '';
232
}
233
 
213 jpm 234
if ($_GEN_commun['info_i18n_pays']->gip_id_pays != '') {
235
    $GLOBALS['_PAPYRUS_']['page']['langue_rfc_3066'] = $GLOBALS['_PAPYRUS_']['page']['langue'].'-'.htmlentities($_GEN_commun['info_i18n_pays']->gip_id_pays);
236
} else {
237
    $GLOBALS['_PAPYRUS_']['page']['langue_rfc_3066'] = $GLOBALS['_PAPYRUS_']['page']['langue'];
238
}
448 ddelon 239
if (isset($GLOBALS['_GEN_commun']['info_menu'])) {
240
	$GLOBALS['_PAPYRUS_']['page']['type_portee_spatiale'] = htmlentities($_GEN_commun['info_menu']->gm_ce_type_portee_spatiale);
241
	$GLOBALS['_PAPYRUS_']['page']['portee_spatiale'] = htmlentities($_GEN_commun['info_menu']->gm_portee_spatiale);
242
	$GLOBALS['_PAPYRUS_']['page']['type_portee_temporelle'] = htmlentities($_GEN_commun['info_menu']->gm_ce_type_portee_temporelle);
243
	$GLOBALS['_PAPYRUS_']['page']['portee_temporelle'] = htmlentities($_GEN_commun['info_menu']->gm_portee_temporelle);
244
	$GLOBALS['_PAPYRUS_']['page']['licence'] = htmlentities($_GEN_commun['info_menu']->gm_licence);
245
	$GLOBALS['_PAPYRUS_']['page']['public'] = htmlentities($_GEN_commun['info_menu']->gm_public);
246
	$GLOBALS['_PAPYRUS_']['page']['public_niveau'] = htmlentities($_GEN_commun['info_menu']->gm_public_niveau);
247
}
248
else {
249
	$GLOBALS['_PAPYRUS_']['page']['type_portee_spatiale'] = '';
250
	$GLOBALS['_PAPYRUS_']['page']['portee_spatiale'] = '';
251
	$GLOBALS['_PAPYRUS_']['page']['type_portee_temporelle'] = '';
252
	$GLOBALS['_PAPYRUS_']['page']['portee_temporelle'] = '';
253
	$GLOBALS['_PAPYRUS_']['page']['licence'] = '';
254
	$GLOBALS['_PAPYRUS_']['page']['public'] = '';
255
	$GLOBALS['_PAPYRUS_']['page']['public_niveau'] = '';
256
 
257
}
258
 
169 jpm 259
GEN_stockerMetaNameDC('DC.Title', $GLOBALS['_PAPYRUS_']['page']['titre'], $GLOBALS['_PAPYRUS_']['page']['langue']);
260
GEN_stockerMetaNameDC('DC.Title.alternative', $GLOBALS['_PAPYRUS_']['page']['titre_alternatif'], $GLOBALS['_PAPYRUS_']['page']['langue']);
261
GEN_stockerMetaNameDC('DC.Creator', $GLOBALS['_PAPYRUS_']['page']['auteur']);
262
GEN_stockerMetaNameDC('DC.Subject', $GLOBALS['_PAPYRUS_']['page']['mots_cles'], $GLOBALS['_PAPYRUS_']['page']['langue']);
263
GEN_stockerMetaNameDC('DC.Description', $GLOBALS['_PAPYRUS_']['page']['description_libre'], $GLOBALS['_PAPYRUS_']['page']['langue']);
264
GEN_stockerMetaNameDC('DC.Description.abstract', $GLOBALS['_PAPYRUS_']['page']['description_resume'], $GLOBALS['_PAPYRUS_']['page']['langue']);
265
GEN_stockerMetaNameDC('DC.Description.tableOfContents', $GLOBALS['_PAPYRUS_']['page']['description_table_matieres'], $GLOBALS['_PAPYRUS_']['page']['langue']);
266
GEN_stockerMetaNameDC('DC.Publisher', $GLOBALS['_PAPYRUS_']['page']['publieur']);
267
GEN_stockerMetaNameDC('DC.Contributor', $GLOBALS['_PAPYRUS_']['page']['contributeur']);
268
GEN_stockerMetaNameDC('DC.Date.created', $GLOBALS['_PAPYRUS_']['page']['date_creation'], '', 'W3CDTF');
269
GEN_stockerMetaNameDC('DC.Date.valid', $GLOBALS['_PAPYRUS_']['page']['periode_validite'], '', 'W3CDTF');
5 jpm 270
//Ajouter la gestion des dates valid et available en utilisant les dates de la table gen_page_contenu.
169 jpm 271
GEN_stockerMetaNameDC('DC.Date.dateSubmitted', $GLOBALS['_PAPYRUS_']['page']['date_soumission'], '', 'W3CDTF');
272
GEN_stockerMetaNameDC('DC.Date.dateCopyrighted', $GLOBALS['_PAPYRUS_']['page']['date_copyright'], '', 'W3CDTF');
273
GEN_stockerMetaNameDC('DC.Date.dateAccepted', $GLOBALS['_PAPYRUS_']['page']['date_acceptation'], '', 'W3CDTF');
274
GEN_stockerMetaNameDC('DC.Source', $GLOBALS['_PAPYRUS_']['page']['source'], '', 'URI');
275
GEN_stockerMetaNameDC('DC.Language', $GLOBALS['_PAPYRUS_']['page']['langue_rfc_3066'], '', 'RFC3066');
276
GEN_stockerMetaNameDC('DC.Coverage.spatial', $GLOBALS['_PAPYRUS_']['page']['portee_spatiale'], '', $GLOBALS['_PAPYRUS_']['page']['type_portee_spatiale']);
277
GEN_stockerMetaNameDC('DC.Coverage.temporal', $GLOBALS['_PAPYRUS_']['page']['portee_temporelle'], '', $GLOBALS['_PAPYRUS_']['page']['type_portee_temporelle']);
278
GEN_stockerMetaNameDC('DC.Rights', $GLOBALS['_PAPYRUS_']['page']['licence'], '', 'URI');
279
GEN_stockerMetaNameDC('DC.Audience', $GLOBALS['_PAPYRUS_']['page']['public']);
280
GEN_stockerMetaNameDC('DC.Audience.educationLevel', $GLOBALS['_PAPYRUS_']['page']['public_niveau']);
5 jpm 281
 
282
// Construction des CSS
283
// Déclaration des constantes contenant les CSS à afficher sur la page.
290 jpm 284
$GLOBALS['_GEN_commun']['style_type']  = 'text/css';
285
$GLOBALS['_GEN_commun']['style_integree']  = '';
286
$GLOBALS['_GEN_commun']['style_externe']   = array();
5 jpm 287
if (GEN_DEBOGAGE) {
288
    GEN_stockerStyleExterne('Débogage', GEN_CHEMIN_PAP.'presentations/css/debogage.css');
289
}
290
 
291
// Construction du Javascript
292
// Déclaration des constantes contenant le Javascript à afficher sur la page.
290 jpm 293
$GLOBALS['_GEN_commun']['script_type']    = 'text/javascript';
294
$GLOBALS['_GEN_commun']['script_code']     = '';
295
$GLOBALS['_GEN_commun']['script_fonction'] = array();
296
$GLOBALS['_GEN_commun']['script_fichier']  = array();
5 jpm 297
 
298
// +------------------------------------------------------------------------------------------------------+
299
// Gestion des inclusions des fichiers d'applettes
556 ddelon 300
// PERF : on inclus des applettes meme s'il elle ne sont pas utilisées, les initialisations peuvent etre
301
// longue et c'est source de bug ...
5 jpm 302
 
303
for ($i = 0; $i < count($_GEN_commun['info_applette']); $i++) {
304
    // Nous vérifions que le chemin vers l'applette existe.
305
    if (file_exists($_GEN_commun['info_applette'][$i]->gap_chemin)) {
306
        include_once($_GEN_commun['info_applette'][$i]->gap_chemin);
307
        // Nous récupérons l'expression régulière de la balise pour l'utiliser lors de l'appel
308
        // de la fonction de l'applette. L'appel des fonctions des applettes à lieu aprés l'appel
309
        // de l'application pour permettre à l'appli de modifier certains paramêtres (identification, ordre des menus).
290 jpm 310
        $GLOBALS['_GEN_commun']['info_applette'][$i]->applette_balise = $GLOBALS['_GEN_commun']['info_applette_balise'];
311
        $GLOBALS['_GEN_commun']['info_applette'][$i]->applette_fonction = $GLOBALS['_GEN_commun']['info_applette_nom_fonction'];
5 jpm 312
    } else {
313
        // Ne devrait pas arréter le programme! Mais instancier le gestionnaire de déboguage.
530 ddelon 314
        echo('ERREUR Papyrus : Impossible de trouver le fichier de l\'applette. <br />'.
290 jpm 315
            'Nom applette : '.$GLOBALS['_GEN_commun']['info_applette'][$i]->gap_nom.' <br />'.
316
            'Chemin fichier applette : '.$GLOBALS['_GEN_commun']['info_applette'][$i]->gap_chemin.' <br />'.
5 jpm 317
            'Ligne n° : '. __LINE__ .'<br />'.
318
            'Fichier : '. __FILE__ );
319
    }
320
}
321
 
322
// +------------------------------------------------------------------------------------------------------+
323
// Gestion de l'intégration de l'application liée au menu
324
 
557 ddelon 325
// Une fois les applettes appelées et executées nous appelons l'application qui peut avoir
5 jpm 326
// besoins des infos des applettes (c'est le cas, pour l'applette IDENTIFICATION).
169 jpm 327
$GLOBALS['_PAPYRUS_']['general']['application_chemin'] = '';
290 jpm 328
if (isset($GLOBALS['_GEN_commun']['info_application']->gap_chemin)) {
329
    $GLOBALS['_PAPYRUS_']['general']['application_chemin'] = $GLOBALS['_GEN_commun']['info_application']->gap_chemin;
92 jpm 330
}
5 jpm 331
 
557 ddelon 332
// Affichage contenu si identifié (parametre : lecture = + )
333
 
334
$lecture=0;
335
if ((isset($GLOBALS['_GEN_commun']['info_application']->lecture)) && ($GLOBALS['_GEN_commun']['info_application']->lecture=="+")) {
336
	if ($GLOBALS['_GEN_commun']['pear_auth']->getAuth()) {
337
		$lecture=1;
338
	}
339
}
340
// Emplacement pour traiter les futurs cas :
341
else {
342
	$lecture=1;
343
}
344
 
345
if (!$lecture) {
346
	function afficherContenuCorps()
347
    {
348
        return '<p class="pap_erreur">'.'Pas autorisé, veuillez vous identifier.'.'</p>';
349
    }
350
}
351
 
5 jpm 352
// $application_chemin contient le chemin de l'application
353
// Si $application_chemin est vide, on défini putFrame comme ne retournant rien.
354
 
169 jpm 355
if (empty($GLOBALS['_PAPYRUS_']['general']['application_chemin']) ) {
5 jpm 356
    function afficherContenuCorps()
357
    {
92 jpm 358
        return '<p class="pap_erreur">'.'Pas d\'application.'.'</p>';
5 jpm 359
    }
360
} else {
169 jpm 361
    if (file_exists($GLOBALS['_PAPYRUS_']['general']['application_chemin'])) {
557 ddelon 362
    	if (!function_exists('afficherContenuCorps')) {
363
        	include_once($GLOBALS['_PAPYRUS_']['general']['application_chemin']);
364
    	}
5 jpm 365
    } else {
169 jpm 366
        die('ERREUR Papyrus : application impossible à charger. <br />'.
367
            'Chemin application : '.$GLOBALS['_PAPYRUS_']['general']['application_chemin'].' <br />'.
5 jpm 368
            'Ligne n° : '. __LINE__ .'<br />'.
369
            'Fichier : '. __FILE__ );
370
    }
371
}
372
 
557 ddelon 373
 
374
 
5 jpm 375
// +------------------------------------------------------------------------------------------------------+
376
// Recherche des informations provenant de l'application pour la complétion du squelette
377
 
118 jpm 378
// Contenu navigation
379
// Appel de la fonction afficherContenuNavigation() si elle existe.
169 jpm 380
$GLOBALS['_PAPYRUS_']['rendu']['CONTENU_NAVIGATION'] = (function_exists('afficherContenuNavigation') ? afficherContenuNavigation() : '<!-- '.'Aucune navigation'.' -->');
118 jpm 381
 
5 jpm 382
// Contenu tête
383
// Appel de la fonction afficherContenuTete() si elle existe.
169 jpm 384
$GLOBALS['_PAPYRUS_']['rendu']['CONTENU_TETE'] = (function_exists('afficherContenuTete') ? afficherContenuTete() : '<!-- '.'Aucun contenu tête'.' -->');
5 jpm 385
 
386
// Contenu corps
387
// Appel de la fonction afficherContenuCorps().
388
if (function_exists('afficherContenuCorps') ) {
169 jpm 389
    $GLOBALS['_PAPYRUS_']['rendu']['CONTENU_CORPS'] = afficherContenuCorps();
5 jpm 390
} else {
169 jpm 391
    $GLOBALS['_PAPYRUS_']['rendu']['CONTENU_CORPS'] =
392
        'ERREUR Papyrus : fonction afficherContenuCorps() introuvable dans l\'application demandée. <br />'.
5 jpm 393
        'Ligne n° : '. __LINE__ .'<br />'.
394
        'Fichier : '. __FILE__;
395
}
414 alexandre_ 396
 
397
// Appel de la fonction afficherContenuMenu() si elle existe.
398
$GLOBALS['_PAPYRUS_']['rendu']['CONTENU_MENU'] = (function_exists('afficherContenuMenu') ? afficherContenuMenu() : '<!-- '.'Aucun menu pour cette application'.' -->');
399
 
5 jpm 400
// Contenu pied
401
// Appel de la fonction afficherContenuPied() si elle existe.
169 jpm 402
$GLOBALS['_PAPYRUS_']['rendu']['CONTENU_PIED'] = (function_exists('afficherContenuPied') ? afficherContenuPied() : '<!-- '.'Aucun contenu pied'.' -->');
5 jpm 403
 
404
// +------------------------------------------------------------------------------------------------------+
159 jpm 405
// Gestion de l'espace de nom pour les balise Papyrus
290 jpm 406
$GLOBALS['_GEN_commun']['balise_prefixe'] = 'PAPYRUS_';
159 jpm 407
 
408
// +------------------------------------------------------------------------------------------------------+
530 ddelon 409
// Gestion des appels des fonctions d'applettes de papyrus
5 jpm 410
 
290 jpm 411
for ($i = 0; $i < count($GLOBALS['_GEN_commun']['info_applette']); $i++) {
5 jpm 412
    // Recherche du nombre de balise d'une applette donnée présentes dans le squelette
290 jpm 413
    $GLOBALS['_PAPYRUS_']['applette']['nbr_balise'] = preg_match_all(
414
        '/<!-- '.$GLOBALS['_GEN_commun']['balise_prefixe'].'('.$GLOBALS['_GEN_commun']['info_applette'][$i]->applette_balise.') -->/',
415
        $GLOBALS['_PAPYRUS_']['general']['contenu_squelette'],
416
        $GLOBALS['_PAPYRUS_']['applette']['applet_arguments'],
417
        PREG_SET_ORDER);
5 jpm 418
    // Si on trouve au moins une balise, on lance la boucle pour les remplacer
169 jpm 419
    for ($j = 0; $j <= ($GLOBALS['_PAPYRUS_']['applette']['nbr_balise'] - 1); $j++) {
5 jpm 420
        // Nous vérifions que le nom de la fonction principale de l'applette existe.
290 jpm 421
        if (function_exists($GLOBALS['_GEN_commun']['info_applette'][$i]->applette_fonction)) {
184 jpm 422
            // Nous comptabilisons le nombre d'utilisation des applettes dans un squelette:
290 jpm 423
            if (!isset($GLOBALS['_PAPYRUS_']['applette']['comptage'][$GLOBALS['_GEN_commun']['info_applette'][$i]->applette_fonction])) {
424
                $GLOBALS['_PAPYRUS_']['applette']['comptage'][$GLOBALS['_GEN_commun']['info_applette'][$i]->applette_fonction] = 1;
184 jpm 425
            } else {
290 jpm 426
                $GLOBALS['_PAPYRUS_']['applette']['comptage'][$GLOBALS['_GEN_commun']['info_applette'][$i]->applette_fonction]++;
184 jpm 427
            }
169 jpm 428
            $GLOBALS['_PAPYRUS_']['applette']['contenu_applette'] =
290 jpm 429
                call_user_func( $GLOBALS['_GEN_commun']['info_applette'][$i]->applette_fonction,
184 jpm 430
                                    $GLOBALS['_PAPYRUS_']['applette']['applet_arguments'][$j],
290 jpm 431
                                    $GLOBALS['_GEN_commun']);
5 jpm 432
        } else {
169 jpm 433
            $GLOBALS['_PAPYRUS_']['applette']['contenu_applette'] =
290 jpm 434
                '<!-- '."\n".
435
                $GLOBALS['_PAPYRUS_']['applette']['applet_arguments'][$j][1].' : '.
436
                'fonction de l\'applette "'.$GLOBALS['_GEN_commun']['info_applette'][$i]->gap_nom.'" introuvable! '."\n".
437
                'Fonction : '.$GLOBALS['_GEN_commun']['info_applette'][$i]->applette_fonction."\n".
438
                ' -->';
5 jpm 439
        }
440
        // Remplacement des balises d'applette de Génésia dans le squelette
169 jpm 441
        $GLOBALS['_PAPYRUS_']['general']['contenu_squelette'] =
290 jpm 442
            str_replace(   '<!-- '.$GLOBALS['_GEN_commun']['balise_prefixe'].$GLOBALS['_PAPYRUS_']['applette']['applet_arguments'][$j][1].' -->',
443
                $GLOBALS['_PAPYRUS_']['applette']['contenu_applette'],
444
                $GLOBALS['_PAPYRUS_']['general']['contenu_squelette']);
5 jpm 445
    }
446
}
447
 
530 ddelon 448
 
449
 
5 jpm 450
// +------------------------------------------------------------------------------------------------------+
530 ddelon 451
// Gestion des appels des fonctions d'applettes des applications clientes de papyrus
452
 
453
$GLOBALS['_GEN_commun']['balise_prefixe_client'] = 'CLIENT_';
454
 
455
for ($i = 0; $i < count($GLOBALS['_GEN_commun']['info_applette']); $i++) {
456
    // Recherche du nombre de balise d'une applette donnée présentes dans le squelette
457
    $GLOBALS['_PAPYRUS_']['applette']['nbr_balise'] = preg_match_all(
458
        '/<!-- '.$GLOBALS['_GEN_commun']['balise_prefixe_client'].'('.$GLOBALS['_GEN_commun']['info_applette'][$i]->applette_balise.') -->/',
459
        $GLOBALS['_PAPYRUS_']['general']['contenu_squelette'],
460
        $GLOBALS['_PAPYRUS_']['applette']['applet_arguments'],
461
        PREG_SET_ORDER);
462
    // Si on trouve au moins une balise, on lance la boucle pour les remplacer
463
    for ($j = 0; $j <= ($GLOBALS['_PAPYRUS_']['applette']['nbr_balise'] - 1); $j++) {
464
        // Nous vérifions que le nom de la fonction principale de l'applette existe.
465
        if (function_exists($GLOBALS['_GEN_commun']['info_applette'][$i]->applette_fonction)) {
466
            // Nous comptabilisons le nombre d'utilisation des applettes dans un squelette:
467
            if (!isset($GLOBALS['_PAPYRUS_']['applette']['comptage'][$GLOBALS['_GEN_commun']['info_applette'][$i]->applette_fonction])) {
468
                $GLOBALS['_PAPYRUS_']['applette']['comptage'][$GLOBALS['_GEN_commun']['info_applette'][$i]->applette_fonction] = 1;
469
            } else {
470
                $GLOBALS['_PAPYRUS_']['applette']['comptage'][$GLOBALS['_GEN_commun']['info_applette'][$i]->applette_fonction]++;
471
            }
472
            $GLOBALS['_PAPYRUS_']['applette']['contenu_applette'] =
473
                call_user_func( $GLOBALS['_GEN_commun']['info_applette'][$i]->applette_fonction,
474
                                    $GLOBALS['_PAPYRUS_']['applette']['applet_arguments'][$j],
475
                                    $GLOBALS['_GEN_commun']);
476
        } else {
477
            $GLOBALS['_PAPYRUS_']['applette']['contenu_applette'] =
478
                '<!-- '."\n".
479
                $GLOBALS['_PAPYRUS_']['applette']['applet_arguments'][$j][1].' : '.
480
                'fonction de l\'applette "'.$GLOBALS['_GEN_commun']['info_applette'][$i]->gap_nom.'" introuvable! '."\n".
481
                'Fonction : '.$GLOBALS['_GEN_commun']['info_applette'][$i]->applette_fonction."\n".
482
                ' -->';
483
        }
484
        // Remplacement des balises d'applette de Génésia dans le squelette
485
        $GLOBALS['_PAPYRUS_']['general']['contenu_squelette'] =
486
            str_replace(   '<!-- '.$GLOBALS['_GEN_commun']['balise_prefixe_client'].$GLOBALS['_PAPYRUS_']['applette']['applet_arguments'][$j][1].' -->',
487
                $GLOBALS['_PAPYRUS_']['applette']['contenu_applette'],
488
                $GLOBALS['_PAPYRUS_']['general']['contenu_squelette']);
489
    }
490
}
491
 
492
// +------------------------------------------------------------------------------------------------------+
159 jpm 493
// Continuation recherche d'info provenant de Papyrus pour la complétion du squelette
5 jpm 494
 
495
// Une fois l'application appelé est executé nous affichons le contenu de l'entête qui a pu
496
// être modifié par l'application.
169 jpm 497
$GLOBALS['_PAPYRUS_']['rendu']['META_HTTP_EQUIV'] = GEN_afficherMeta('http-equiv');
498
$GLOBALS['_PAPYRUS_']['rendu']['META_NAME'] = GEN_afficherMeta('name');
499
$GLOBALS['_PAPYRUS_']['rendu']['META_NAME_DC'] = GEN_afficherMeta('dc');
5 jpm 500
// Nous récupérons tout les styles CSS pour l'afficher dans l'entête de la page.
169 jpm 501
$GLOBALS['_PAPYRUS_']['rendu']['STYLES'] = GEN_afficherStyle();
5 jpm 502
// Nous récupérons tout le Javascript pour l'afficher dans l'entête de la page.
169 jpm 503
$GLOBALS['_PAPYRUS_']['rendu']['SCRIPTS'] = GEN_afficherScript();
5 jpm 504
 
505
// +------------------------------------------------------------------------------------------------------+
159 jpm 506
// Remplacement des balises Papyrus dans le squelette
169 jpm 507
foreach ($GLOBALS['_PAPYRUS_']['rendu'] as $GLOBALS['_PAPYRUS_']['tmp']['cle'] => $GLOBALS['_PAPYRUS_']['tmp']['val']) {
508
    $GLOBALS['_PAPYRUS_']['general']['contenu_squelette'] =
509
                    str_replace(   '<!-- '.$_GEN_commun['balise_prefixe'].$GLOBALS['_PAPYRUS_']['tmp']['cle'].' -->',
510
                                    $GLOBALS['_PAPYRUS_']['tmp']['val'],
511
                                    $GLOBALS['_PAPYRUS_']['general']['contenu_squelette']);
512
}
352 jpm 513
// +------------------------------------------------------------------------------------------------------+
514
// Remplacement des actions Papyrus dans le squelette
515
// Création d'un objet Text_Papyrus :
516
$papyrus =& new Text_Papyrus();
517
// Pour éviter de remplacer les caractères spéciaux du XHTML:
518
$papyrus->setFormatConf('Xhtml', 'translate', false);
519
// Pour indiquer le jeu de caractères (encodage) de la page courante :
520
$papyrus->setRenderConf('Xhtml', 'inclure', 'encodage', $GLOBALS['_PAPYRUS_']['page']['jeu_de_caracteres']);
521
// Pour indiquer les infos sur les pages des sites à intégrer :
522
$papyrus->setRenderConf('Xhtml', 'inclure', 'sites', $GLOBALS['_PAPYRUS_']['inclure_sites']);
523
// Application des règles de Papyrus :
524
$GLOBALS['_PAPYRUS_']['general']['contenu_squelette'] = $papyrus->transform($GLOBALS['_PAPYRUS_']['general']['contenu_squelette'], 'Xhtml');
5 jpm 525
 
526
// +------------------------------------------------------------------------------------------------------+
527
// Stokage du squelette dans un variable globale aprés avoir remplacer les balises Papyrus.
352 jpm 528
$GLOBALS['_GEN_commun']['sortie'] = $GLOBALS['_PAPYRUS_']['general']['contenu_squelette'];
5 jpm 529
 
530
/* +--Fin du code ---------------------------------------------------------------------------------------+
531
*
532
* $Log: not supported by cvs2svn $
557 ddelon 533
* Revision 1.22  2005/10/20 10:28:25  ddelon
534
* Wikini complet dans l'intégrateur Wikini
535
*
556 ddelon 536
* Revision 1.21  2005/10/17 13:41:34  ddelon
537
* Projet Wikini
538
*
545 ddelon 539
* Revision 1.20  2005/10/17 10:52:00  jp_milcent
540
* Mise en majuscule du jeu de caractère, conformément à la recommandation.
541
*
544 jp_milcent 542
* Revision 1.19  2005/10/12 17:20:33  ddelon
543
* Reorganisation calendrier + applette
544
*
530 ddelon 545
* Revision 1.18  2005/09/22 14:02:49  ddelon
546
* nettoyage annuaire et php5
547
*
448 ddelon 548
* Revision 1.17  2005/09/20 17:01:22  ddelon
549
* php5 et bugs divers
550
*
443 ddelon 551
* Revision 1.16  2005/07/12 09:13:15  alexandre_tb
552
* déplacement de l'appel de la fonction afficherContenuMenu APRES l'appel de afficherContenuCorps.
553
* Le menu d'une application étant calculé après les opérations de l'application.
554
*
414 alexandre_ 555
* Revision 1.15  2005/07/08 21:13:15  ddelon
556
* Gestion indentation menu
557
*
409 ddelon 558
* Revision 1.14  2005/05/11 14:31:45  jpm
559
* Ajout de la fonction afficherContenuMenu() pour les applications.
560
*
365 jpm 561
* Revision 1.13  2005/04/21 16:46:39  jpm
562
* Gestion via Papyrus du XHTML de Text_Wiki_Papyrus.
563
*
352 jpm 564
* Revision 1.12  2005/03/02 11:04:36  jpm
565
* Modification de l'utilisation d'une variable globale.
566
*
290 jpm 567
* Revision 1.11  2005/02/28 11:20:42  jpm
568
* Modification des auteurs.
569
*
286 jpm 570
* Revision 1.10  2005/01/26 16:20:46  jpm
571
* Correction bogue meta : auteurs et mots-clés mélangés.
572
*
252 jpm 573
* Revision 1.9  2004/12/06 19:39:40  jpm
574
* Correction langue DC.
575
*
213 jpm 576
* Revision 1.8  2004/11/26 19:02:07  jpm
577
* Comptabilisation du nombre d'appel de chaque applette dans le squelette.
578
*
184 jpm 579
* Revision 1.7  2004/11/24 18:33:29  jpm
580
* Encapsulation des variables dans le tableau global _PAPYRUS_.
581
*
169 jpm 582
* Revision 1.6  2004/11/15 17:40:21  jpm
583
* Gestion d'un espace de nom pour les balises Papyrus.
584
*
159 jpm 585
* Revision 1.5  2004/10/26 18:42:54  jpm
586
* Gestion de la fonction de navigation pour les appli Papyrus.
587
*
118 jpm 588
* Revision 1.4  2004/10/25 16:28:47  jpm
589
* Ajout de nouvelles balises Papyrus, ajout vérification mise à jour de Papyrus, meilleure gestion des sessions...
590
*
112 jpm 591
* Revision 1.3  2004/10/22 17:23:35  jpm
592
* Amélioration de la gestion de l'erreur si pas d'appli.
593
*
92 jpm 594
* Revision 1.2  2004/06/17 08:04:44  jpm
595
* Changement de constante pour les chemin d'accès à la biblio de code de Papyrus.
596
*
14 jpm 597
* Revision 1.1  2004/06/16 08:13:58  jpm
598
* Changement de nom de Génésia en Papyrus.
599
* Changement de l'arborescence.
600
*
5 jpm 601
* Revision 1.32  2004/05/10 12:24:55  jpm
602
* Amélioration de la recherche des fichiers de squelette.
603
*
604
* Revision 1.31  2004/05/05 10:42:35  jpm
605
* Amélioration de la gestion de l'internationalisation.
606
*
607
* Revision 1.30  2004/05/05 08:25:37  jpm
608
* Modification de la façon d'ajouter la feuille de style de débogage pour qu'elle soit prise en compte par défaut.
609
*
610
* Revision 1.29  2004/05/03 14:12:04  jpm
611
* Suppression du fichier bibliothèquie de fonctions sur gen_menu.
612
*
613
* Revision 1.28  2004/05/03 11:21:58  jpm
614
* Fin de la gestion des applettes et suppression de l'info_menu_hierarchie de _GEN_commun.
615
*
616
* Revision 1.27  2004/05/01 17:22:55  jpm
617
* Appel de la bibliothèque de fonctions concernant les menus.
618
*
619
* Revision 1.26  2004/05/01 16:19:36  jpm
620
* Suppression du code ayant pu être transformé en applettes (menu multi-niveaux, menu unique, menu commun, identification, sélecteur de sites).
621
*
622
* Revision 1.25  2004/05/01 11:39:38  jpm
623
* Déplacement du code gérant les applettes et du code de récupération du contenu du fichier squelette.
624
*
625
* Revision 1.24  2004/04/28 12:04:31  jpm
626
* Changement du modèle de la base de données.
627
*
628
* Revision 1.23  2004/04/22 08:30:47  jpm
629
* Transformation de $GS_GLOBAL en $_GEN_commun.
630
*
631
* Revision 1.22  2004/04/21 07:55:02  jpm
632
* Ajout de la feuille de style de débogage si le débogage de Génésia est activé.
633
*
634
* Revision 1.19  2004/04/09 16:20:54  jpm
635
* Extraction de la gestion du cache et de l'envoi.
636
* Gestion des tables i18n.
637
*
638
* Revision 1.18  2004/04/08 12:29:48  jpm
639
* Début amélioration de la gestion du cache et de la compression des pages de Génésia.
640
*
641
* Revision 1.17  2004/04/05 16:38:04  jpm
642
* Utilisation des nouvelles fonctions gérant l'insertion du Javascript.
643
*
644
* Revision 1.16  2004/04/02 16:30:56  jpm
645
* Gestion de la balise Génésia IDENTIFICATION permettant l'envoie d'un formulaire de login.
646
*
647
* Revision 1.15  2004/04/01 11:27:13  jpm
648
* Ajout et modification de commentaires pour PhpDocumentor.
649
*
650
* Revision 1.14  2004/03/31 16:50:10  jpm
651
* Prise en compte du nouveau modèle de Génésia révision 1.9.
652
*
653
* Revision 1.13  2004/03/27 11:07:45  jpm
654
* Modification des commentaires vis à vis du nouveau modèle.
655
* Mise en conformité avec la convention de codage.
656
* Amélioration du code.
657
*
658
* Revision 1.12  2004/03/23 17:06:44  jpm
659
* Ajout de commentaire dans l'entête.
660
* Mise en conformité avec la convention de codage.
661
*
662
* +-- Fin du code ----------------------------------------------------------------------------------------+
663
*/
664
?>