Subversion Repositories Applications.papyrus

Rev

Rev 2087 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2150 mathias 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
// +------------------------------------------------------------------------------------------------------+
22
// CVS : $Id: afficheur.php,v 1.14 2007-06-26 15:38:39 jp_milcent Exp $
23
/**
24
* Application réalisant l'affichage du contenu stocké dans Papyrus.
25
*
26
* Récupère le dernier contenu lié à un menu et le retourne.
27
*
28
*@package Afficheur
29
//Auteur original :
30
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
31
//Autres auteurs :
32
*@author        Alexandre GRANIER <alexandrel@tela-botanica.org>
33
*@copyright     Tela-Botanica 2000-2004
34
*@version       $Revision: 1.14 $ $Date: 2007-06-26 15:38:39 $
35
// +------------------------------------------------------------------------------------------------------+
36
*/
37
 
38
// +------------------------------------------------------------------------------------------------------+
39
// |                                            ENTÊTE du PROGRAMME                                       |
40
// +------------------------------------------------------------------------------------------------------+
41
/** Inclusion du fichier de configuration de cette application.*/
42
require_once GEN_CHEMIN_PAP.'applications/afficheur/configuration/affi_configuration.inc.php';
43
// Inclusion de la bibliothèque PEAR Text_Wiki réalisées par Papyrus.
44
 
45
// +------------------------------------------------------------------------------------------------------+
46
// |                                            CORPS du PROGRAMME                                        |
47
// +------------------------------------------------------------------------------------------------------+
48
/** Fonction afficherContenuTete() - Fonction appelé par le gestionnaire Papyrus.
49
*
50
* Elle retourne l'entête de l'application..
51
*
52
* @return  string  du code XHTML correspondant à la zone d'entête de l'application.
53
*/
54
function afficherContenuTete()
55
{
56
    return '';
57
}
58
 
59
function afficherContenuCorps() {
60
	$retour = '';
61
    $db = $GLOBALS['_AFFICHEUR']['objet_pear_db'];
62
	$id_or = GEN_rechercheMenuCode($db, GEN_rechercheMenuIdentifiant($db, $GLOBALS['_AFFICHEUR']['menu_courant_id']));
63
 
64
    $ligne_contenu = GEN_rechercheContenu($db, $id_or);
65
 
66
	$contenu = $ligne_contenu->gmc_contenu;
67
 
68
	// Inclusion de la bibliothèque Text_Wiki_Papyrus effectuées par Papyrus précédement
69
	// Les actions Text_Wiki_Papyrus sont gérées par Papyrus
70
 
71
	// Nous regardons si nous avons à faire à un texte sous format Wikini ou XHTML
72
	if (($ligne_contenu->gmc_ce_type_contenu == 1)||(substr($ligne_contenu->gmc_ce_type_contenu,-1)== 1)) {
73
	    $retour = $contenu;
74
	} elseif (($ligne_contenu->gmc_ce_type_contenu == 2) || (substr($ligne_contenu->gmc_ce_type_contenu,-1)== 2)){
75
	    include_once AFFI_CHEMIN_BIBLIOTHEQUE_API.'text/wiki_wikini/Wikini.class.php';
76
	    // Création d'un objet Text_Wikini :
77
	    $wikini =& new Text_Wikini();
78
	    // Pour éviter de remplacer les caractères spéciaux du XHTML:
79
	    $wikini->setFormatConf('Xhtml', 'translate', false);
80
	    // Configuration de la règle Freelink :
81
	    $wikini->setRenderConf('Xhtml', 'freelink', 'pages', null);
82
	    $wikini->setRenderConf('Xhtml', 'freelink', 'view_url', AFFI_URL_PAPYRUS);
83
	    // Configuration de la règle Interwiki :
84
	    $wikini->setRenderConf('Xhtml', 'interwiki', 'sites', $GLOBALS['_AFFICHEUR']['interwiki_sites']);
85
	    // Application des règles de Wikini :
86
	    $retour = $wikini->transform($contenu, 'Xhtml');
87
	}
88
 
89
	// +---------------------------------------------------------------------------------------------------------------+
90
	// Nous regardons si nous voulons surligner ou pas des mots
91
	if (isset($_GET['var_recherche'])) {
92
		$tab_mots = explode(' ', rawurldecode($_GET['var_recherche']));
93
		foreach ($tab_mots as $mot) {
94
			if (strlen($mot) >= 2) {
95
				$regexp = '/(>[^<]*)('.$mot.'\b)/Uis';
96
				$retour = preg_replace($regexp, '$1<span class="surlignage">$2</span>', $retour);
97
			}
98
		}
99
	}
100
 
101
    //----------------------------------------------------------------------------
102
    // Renvoie du contenu de la page
103
    return $retour;
104
}
105
 
106
 
107
 
108
/** Fonction afficherContenuCorps() - Fonction appelé par le gestionnaire Papyrus.
109
*
110
* Elle retourne le contenu stocké dans Papyrus pour le menu courant demandé.
111
*
112
* @return  string  du code XHTML correspondant au contenu du menu demandé.
113
*/
114
function afficherContenuCorpsOld()
115
{
116
    //----------------------------------------------------------------------------
117
    // Initialisation des variable
118
    $retour = '';
119
 
120
    $id_langue = $GLOBALS['_GEN_commun']['i18n'];
121
 
122
    if (isset($id_langue) && ($id_langue!='')) {
123
		$langue_test=$id_langue;
124
	} else {
125
		$langue_test=GEN_I18N_ID_DEFAUT;
126
	}
127
 
128
	//-------------------------------------------------------------------------------------------------------------------
129
        // Récupération des informations du contenu concerné.
130
     $ligne_menu = GEN_lireInfoMenu($GLOBALS['_AFFICHEUR']['objet_pear_db'], $GLOBALS['_AFFICHEUR']['menu_courant_id'], DB_FETCHMODE_ASSOC);
131
 
132
 
133
     if ($ligne_menu == false) {
134
            die('ERREUR Papyrus Administrateur de Menus: impossible de lire les infos du menu.<br />'.
135
                'Idenitifiant du menu n° : '. $GLOBALS['_AFFICHEUR']['objet_pear_db'] .'<br />'.
136
                'Ligne n° : '. __LINE__ .'<br />'.
137
                'Fichier n° : '. __FILE__ .'<br />');
138
     }
139
 
140
 
141
    // Comment ca marche ?
142
    // Historiquement, le code menu est associé au contenu
143
    // Depuis le passage au multilinguisme : ce comportement est conservé mais :
144
    // Tout nouveau contenu, contient également l'information code gm_id_menu, enfoui dans le
145
    // type contenu.
146
 
147
    // Récupération identifiant du menu en cours
148
 
149
    $requete =  'SELECT gm_id_menu, gm_code_num   '.
150
                'FROM gen_menu  '.
151
                'WHERE gm_code_num =  '.$ligne_menu['gm_code_num'].' '.
152
                'AND gm_ce_i18n = "'.$langue_test.'" ';
153
 
154
	$resultat = $GLOBALS['_AFFICHEUR']['objet_pear_db']->query($requete);
155
 
156
	(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
157
	if ( $resultat->numRows() > 0 ) {
158
 
159
			$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
160
	}
161
	else {
162
 
163
	// Recherche defaut :
164
 
165
	$requete =  'SELECT gm_id_menu, gm_code_num   '.
166
                'FROM gen_menu  '.
167
                'WHERE gm_code_num =  '.$ligne_menu['gm_code_num'].' ';
168
                'AND gm_ce_i18n = "'.GEN_I18N_ID_DEFAUT.'" ';
169
 
170
		$resultat = $GLOBALS['_AFFICHEUR']['objet_pear_db']->query($requete);
171
 
172
	(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
173
 
174
		$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
175
 
176
			if ($langue_test!=GEN_I18N_ID_DEFAUT) {
177
 
178
			    $requete_defaut =   'SELECT gmr_id_menu_02 as gm_id_menu , ' . $ligne->gm_code_num . ' as gm_code_num '.
179
	                            	'FROM  gen_menu_relation '.
180
	                            	'WHERE '.$ligne->gm_id_menu. ' = gmr_id_menu_01 ' .
181
	                            	'AND  gmr_id_valeur  = 105 ';// 105 Traduction par defaut
182
				$resultat_defaut = $GLOBALS['_AFFICHEUR']['objet_pear_db']->query($requete_defaut);
183
				(DB::isError($resultat_defaut))             ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_defaut->getMessage(), $requete_defaut))
184
				: '';
185
				if ($resultat_defaut->numRows() > 0) {
186
						$ligne=$resultat_defaut->fetchRow(DB_FETCHMODE_OBJECT);
187
				}
188
			}
189
		}
190
 
191
	// Cas historique : ce menu n'a jamais été traduit.
192
	$requete =  'SELECT gmc_contenu , gmc_ce_type_contenu '.
193
	                'FROM gen_menu_contenu  '.
194
	                'WHERE gmc_ce_menu = '.$ligne->gm_id_menu.' '.
195
	                'AND gmc_ce_type_contenu in (1,2) '.
196
	                'AND gmc_bool_dernier = 1';
197
 
198
	$resultat = $GLOBALS['_AFFICHEUR']['objet_pear_db']->query($requete);
199
	(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
200
 
201
 
202
	// Rien trouvé ? : Migration multilinguisme ou pas encore de contenu
203
 
204
	if ( $resultat->numRows() == 0 ) {
205
 
206
 
207
	    // Migration multilinguisme
208
 
209
	    $requete =  'SELECT gmc_contenu , gmc_ce_type_contenu '.
210
	                'FROM gen_menu_contenu  '.
211
	                'WHERE gmc_ce_menu = '.$ligne_menu['gm_code_num'].' '.
212
	                'AND truncate((gmc_ce_type_contenu/10),0) = '. $ligne->gm_id_menu . ' '.
213
	                'AND gmc_bool_dernier = 1';
214
 
215
	    $resultat = $GLOBALS['_AFFICHEUR']['objet_pear_db']->query($requete);
216
	    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
217
 
218
		// Pas de contenu, tentative de recuperation du contenu se
219
 
220
		if ( $resultat->numRows() == 0 ) {
221
 
222
 
223
 
224
						    $requete =   'SELECT gmr_id_menu_02 as gm_id_menu , ' . $ligne->gm_code_num . ' as gm_code_num '.
225
				                            	'FROM  gen_menu_relation '.
226
				                            	'WHERE '.$ligne->gm_id_menu. ' = gmr_id_menu_01 ' .
227
				                            	'AND  gmr_id_valeur  = 105 ';// 105 Traduction par defaut
228
 
229
							$resultat = $GLOBALS['_AFFICHEUR']['objet_pear_db']->query($requete);
230
 
231
 
232
							(DB::isError($resultat))             ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete))
233
							: '';
234
 
235
 
236
					    $requete =  'SELECT gmc_contenu , gmc_ce_type_contenu '.
237
		                'FROM gen_menu_contenu, gen_menu_relation '.
238
		                'WHERE truncate((gmc_ce_type_contenu/10),0) = gmr_id_menu_01 '.
239
		                'AND '.$ligne->gm_id_menu.' = gmr_id_menu_02 '.
240
		                'AND gmr_id_valeur = 2 '.
241
		                'AND gmc_bool_dernier = 1';
242
 
243
					    $resultat = $GLOBALS['_AFFICHEUR']['objet_pear_db']->query($requete);
244
					    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
245
 
246
/*
247
 
248
						    $requete =   'SELECT gmr_id_menu_02 as gm_id_menu , ' . $ligne->gm_code_num . ' as gm_code_num '.
249
				                            	'FROM  gen_menu_relation '.
250
				                            	'WHERE '.$ligne->gm_id_menu. ' = gmr_id_menu_01 ' .
251
				                            	'AND  gmr_id_valeur  = 105 ';// 105 Traduction par defaut
252
 
253
							$resultat = $GLOBALS['_AFFICHEUR']['objet_pear_db']->query($requete);
254
							print_r ($requete);
255
 
256
 
257
							(DB::isError($resultat))             ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete))
258
							: '';
259
*/
260
 
261
				}
262
				// Toujours rien ?
263
 
264
				if ( $resultat->numRows() == 0 ) {
265
 
266
						$requete =  'SELECT gmc_contenu , gmc_ce_type_contenu '.
267
	                	'FROM gen_menu_contenu  '.
268
	                	'WHERE gmc_ce_menu = '.$ligne->gm_code_num.' '.
269
	                	'AND gmc_ce_type_contenu in (1,2) '.
270
	                	'AND gmc_bool_dernier = 1';
271
 
272
 
273
					    $resultat = $GLOBALS['_AFFICHEUR']['objet_pear_db']->query($requete);
274
					    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
275
 
276
 
277
				}
278
 
279
		}
280
 
281
		 $ligne_contenu = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
282
 
283
 
284
	$contenu = $ligne_contenu->gmc_contenu;
285
 
286
	    // Inclusion de la bibliothèque Text_Wiki_Papyrus effectuées par Papyrus précédement
287
	    // Les actions Text_Wiki_Papyrus sont gérées par Papyrus
288
 
289
	    // Nous regardons si nous avons à faire à un texte sous format Wikini ou XHTML
290
	    if (($ligne_contenu->gmc_ce_type_contenu == 1)||(substr($ligne_contenu->gmc_ce_type_contenu,-1)== 1)) {
291
	        $retour = $contenu;
292
	    } elseif (($ligne_contenu->gmc_ce_type_contenu == 2) || (substr($ligne_contenu->gmc_ce_type_contenu,-1)== 2)){
293
	        include_once AFFI_CHEMIN_BIBLIOTHEQUE_API.'text/wiki_wikini/Wikini.class.php';
294
	        // Création d'un objet Text_Wikini :
295
	        $wikini =& new Text_Wikini();
296
	        // Pour éviter de remplacer les caractères spéciaux du XHTML:
297
	        $wikini->setFormatConf('Xhtml', 'translate', false);
298
	        // Configuration de la règle Freelink :
299
	        $wikini->setRenderConf('Xhtml', 'freelink', 'pages', null);
300
	        $wikini->setRenderConf('Xhtml', 'freelink', 'view_url', AFFI_URL_PAPYRUS);
301
	        // Configuration de la règle Interwiki :
302
	        $wikini->setRenderConf('Xhtml', 'interwiki', 'sites', $GLOBALS['_AFFICHEUR']['interwiki_sites']);
303
	        // Application des règles de Wikini :
304
	        $retour = $wikini->transform($contenu, 'Xhtml');
305
	    }
306
 
307
	// +---------------------------------------------------------------------------------------------------------------+
308
	// Nous regardons si nous voulons surligner ou pas des mots
309
	if (isset($_GET['var_recherche'])) {
310
		$tab_mots = explode(' ', rawurldecode($_GET['var_recherche']));
311
		foreach ($tab_mots as $mot) {
312
			if (strlen($mot) >= 2) {
313
				$regexp = '/(>[^<]*)('.$mot.'\b)/Uis';
314
				$retour = preg_replace($regexp, '$1<span class="surlignage">$2</span>', $retour);
315
			}
316
		}
317
	}
318
 
319
    //----------------------------------------------------------------------------
320
    // Renvoie du contenu de la page
321
    return $retour;
322
}
323
// +------------------------------------------------------------------------------------------------------+
324
// |                                           LISTE de FONCTIONS                                         |
325
// +------------------------------------------------------------------------------------------------------+
326
 
327
 
328
 
329
// +------------------------------------------------------------------------------------------------------+
330
// |                                            PIED du PROGRAMME                                         |
331
// +------------------------------------------------------------------------------------------------------+
332
 
333
 
334
 
335
/* +--Fin du code ----------------------------------------------------------------------------------------+
336
*
337
* $Log: afficheur.php,v $
338
* Revision 1.14  2007-06-26 15:38:39  jp_milcent
339
* Ajout de la gestion de l'historique du contenu.
340
* Réédition possible des versions archivées du contenu.
341
*
342
* Revision 1.13  2006-11-21 18:52:20  jp_milcent
343
* Ajout de la possibilité de surligner des mots.
344
*
345
* Revision 1.12  2006/11/21 15:50:05  jp_milcent
346
* Ajout du surlignage des mots passé dans la query string via la variable var_recherche.
347
*
348
* Revision 1.11  2006/10/16 15:49:07  ddelon
349
* Refactorisation code mulitlinguisme et gestion menu invisibles
350
*
351
* Revision 1.10  2006/06/29 15:12:26  ddelon
352
* Multilinguisme : contenu par defaut
353
*
354
* Revision 1.9  2006/03/27 10:50:24  ddelon
355
* Still some pb
356
*
357
* Revision 1.7  2006/03/13 21:00:20  ddelon
358
* Suppression messages d'erreur multilinguisme
359
*
360
* Revision 1.6  2006/03/02 10:49:49  ddelon
361
* Fusion branche multilinguisme dans branche principale
362
*
363
* Revision 1.5.2.3  2006/03/02 00:22:23  ddelon
364
* bug afficheur multilinguisme
365
*
366
* Revision 1.5.2.2  2006/03/01 23:51:07  ddelon
367
* bug afficheur multilinguisme
368
*
369
* Revision 1.5.2.1  2006/02/28 14:02:11  ddelon
370
* Finition multilinguisme
371
*
372
* Revision 1.5  2005/04/21 16:46:17  jpm
373
* Gestion via Papyrus du XHTML.
374
*
375
* Revision 1.4  2005/02/22 18:25:13  jpm
376
* Déplacement d'un message d'alerte en cas d'erreur sql.
377
*
378
* Revision 1.3  2004/12/07 12:24:30  jpm
379
* Changement chemin d'accés à l'api Text/Wiki...
380
*
381
* Revision 1.2  2004/11/26 13:10:05  jpm
382
* Utilisation des actions Papyrus et implémentation de la syntaxe Wikini.
383
*
384
* Revision 1.1  2004/06/16 14:35:26  jpm
385
* Changement de nom de Génésia en Papyrus.
386
* Changement de l'arborescence.
387
*
388
* Revision 1.12  2004/05/05 11:35:12  jpm
389
* Amélioration de la gestion de l'internationalisation.
390
*
391
* Revision 1.11  2004/05/05 06:45:40  jpm
392
* Suppression de l'appel de la fonction générant le "vous êtes ici" dans la fonction affichant l'entête de l'application.
393
*
394
* Revision 1.10  2004/05/04 16:28:22  jpm
395
* Réduction de code pour la fonction afficherContenuTete().
396
*
397
*
398
* +-- Fin du code ----------------------------------------------------------------------------------------+
399
*/
181 jpm 400
?>