Subversion Repositories Applications.papyrus

Rev

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

Rev Author Line No. Line
6 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
// +------------------------------------------------------------------------------------------------------+
1498 jp_milcent 22
// CVS : $Id: afficheur.php,v 1.14 2007-06-26 15:38:39 jp_milcent Exp $
6 jpm 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
1498 jp_milcent 34
*@version       $Revision: 1.14 $ $Date: 2007-06-26 15:38:39 $
6 jpm 35
// +------------------------------------------------------------------------------------------------------+
36
*/
37
 
38
// +------------------------------------------------------------------------------------------------------+
39
// |                                            ENTÊTE du PROGRAMME                                       |
40
// +------------------------------------------------------------------------------------------------------+
181 jpm 41
/** Inclusion du fichier de configuration de cette application.*/
42
require_once GEN_CHEMIN_PAP.'applications/afficheur/configuration/affi_configuration.inc.php';
351 jpm 43
// Inclusion de la bibliothèque PEAR Text_Wiki réalisées par Papyrus.
6 jpm 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
 
1033 ddelon 59
function afficherContenuCorps() {
1498 jp_milcent 60
	$retour = '';
61
    $db = $GLOBALS['_AFFICHEUR']['objet_pear_db'];
62
	$id_or = GEN_rechercheMenuCode($db, GEN_rechercheMenuIdentifiant($db, $GLOBALS['_AFFICHEUR']['menu_courant_id']));
1033 ddelon 63
 
1498 jp_milcent 64
    $ligne_contenu = GEN_rechercheContenu($db, $id_or);
1033 ddelon 65
 
66
	$contenu = $ligne_contenu->gmc_contenu;
67
 
1498 jp_milcent 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
	}
2002 Jean-Pasca 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
	//----------------------------------------------------------------------------
1033 ddelon 102
    // Renvoie du contenu de la page
103
    return $retour;
104
}
105
 
106
 
107
 
6 jpm 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
*/
1033 ddelon 114
function afficherContenuCorpsOld()
6 jpm 115
{
116
    //----------------------------------------------------------------------------
117
    // Initialisation des variable
118
    $retour = '';
181 jpm 119
 
754 ddelon 120
    $id_langue = $GLOBALS['_GEN_commun']['i18n'];
6 jpm 121
 
754 ddelon 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
 
767 ddelon 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
 
754 ddelon 147
    // Récupération identifiant du menu en cours
6 jpm 148
 
767 ddelon 149
    $requete =  'SELECT gm_id_menu, gm_code_num   '.
754 ddelon 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)) : '';
767 ddelon 157
	if ( $resultat->numRows() > 0 ) {
754 ddelon 158
 
767 ddelon 159
			$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
160
	}
161
	else {
754 ddelon 162
 
876 ddelon 163
	// Recherche defaut :
1033 ddelon 164
 
767 ddelon 165
	$requete =  'SELECT gm_id_menu, gm_code_num   '.
166
                'FROM gen_menu  '.
797 ddelon 167
                'WHERE gm_code_num =  '.$ligne_menu['gm_code_num'].' ';
876 ddelon 168
                'AND gm_ce_i18n = "'.GEN_I18N_ID_DEFAUT.'" ';
767 ddelon 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);
876 ddelon 175
 
1061 jp_milcent 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))
876 ddelon 184
				: '';
1061 jp_milcent 185
				if ($resultat_defaut->numRows() > 0) {
186
						$ligne=$resultat_defaut->fetchRow(DB_FETCHMODE_OBJECT);
187
				}
188
			}
876 ddelon 189
		}
767 ddelon 190
 
1033 ddelon 191
	// Cas historique : ce menu n'a jamais été traduit.
767 ddelon 192
	$requete =  'SELECT gmc_contenu , gmc_ce_type_contenu '.
193
	                'FROM gen_menu_contenu  '.
797 ddelon 194
	                'WHERE gmc_ce_menu = '.$ligne->gm_id_menu.' '.
767 ddelon 195
	                'AND gmc_ce_type_contenu in (1,2) '.
196
	                'AND gmc_bool_dernier = 1';
797 ddelon 197
 
767 ddelon 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
 
754 ddelon 206
 
1033 ddelon 207
	    // Migration multilinguisme
767 ddelon 208
 
754 ddelon 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';
767 ddelon 214
 
754 ddelon 215
	    $resultat = $GLOBALS['_AFFICHEUR']['objet_pear_db']->query($requete);
216
	    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
217
 
1033 ddelon 218
		// Pas de contenu, tentative de recuperation du contenu se
767 ddelon 219
 
220
		if ( $resultat->numRows() == 0 ) {
1033 ddelon 221
 
754 ddelon 222
 
1061 jp_milcent 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 ' .
1033 ddelon 227
				                            	'AND  gmr_id_valeur  = 105 ';// 105 Traduction par defaut
228
 
229
							$resultat = $GLOBALS['_AFFICHEUR']['objet_pear_db']->query($requete);
1061 jp_milcent 230
 
231
 
232
							(DB::isError($resultat))             ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete))
1033 ddelon 233
							: '';
234
 
235
 
754 ddelon 236
					    $requete =  'SELECT gmc_contenu , gmc_ce_type_contenu '.
1033 ddelon 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';
767 ddelon 242
 
754 ddelon 243
					    $resultat = $GLOBALS['_AFFICHEUR']['objet_pear_db']->query($requete);
244
					    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
1033 ddelon 245
 
246
/*
1061 jp_milcent 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 ' .
1033 ddelon 251
				                            	'AND  gmr_id_valeur  = 105 ';// 105 Traduction par defaut
252
 
253
							$resultat = $GLOBALS['_AFFICHEUR']['objet_pear_db']->query($requete);
254
							print_r ($requete);
1061 jp_milcent 255
 
256
 
257
							(DB::isError($resultat))             ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete))
1033 ddelon 258
							: '';
259
*/
767 ddelon 260
 
797 ddelon 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
 
793 ddelon 279
		}
754 ddelon 280
 
767 ddelon 281
		 $ligne_contenu = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
754 ddelon 282
 
767 ddelon 283
 
284
	$contenu = $ligne_contenu->gmc_contenu;
754 ddelon 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
 
1061 jp_milcent 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) {
1062 jp_milcent 312
			if (strlen($mot) >= 2) {
313
				$regexp = '/(>[^<]*)('.$mot.'\b)/Uis';
314
				$retour = preg_replace($regexp, '$1<span class="surlignage">$2</span>', $retour);
315
			}
1061 jp_milcent 316
		}
317
	}
318
 
6 jpm 319
    //----------------------------------------------------------------------------
320
    // Renvoie du contenu de la page
321
    return $retour;
322
}
323
// +------------------------------------------------------------------------------------------------------+
324
// |                                           LISTE de FONCTIONS                                         |
325
// +------------------------------------------------------------------------------------------------------+
326
 
181 jpm 327
 
328
 
6 jpm 329
// +------------------------------------------------------------------------------------------------------+
330
// |                                            PIED du PROGRAMME                                         |
331
// +------------------------------------------------------------------------------------------------------+
332
 
333
 
181 jpm 334
 
6 jpm 335
/* +--Fin du code ----------------------------------------------------------------------------------------+
336
*
337
* $Log: not supported by cvs2svn $
1498 jp_milcent 338
* Revision 1.13  2006-11-21 18:52:20  jp_milcent
339
* Ajout de la possibilité de surligner des mots.
340
*
1062 jp_milcent 341
* Revision 1.12  2006/11/21 15:50:05  jp_milcent
342
* Ajout du surlignage des mots passé dans la query string via la variable var_recherche.
343
*
1061 jp_milcent 344
* Revision 1.11  2006/10/16 15:49:07  ddelon
345
* Refactorisation code mulitlinguisme et gestion menu invisibles
346
*
1033 ddelon 347
* Revision 1.10  2006/06/29 15:12:26  ddelon
348
* Multilinguisme : contenu par defaut
349
*
876 ddelon 350
* Revision 1.9  2006/03/27 10:50:24  ddelon
351
* Still some pb
352
*
793 ddelon 353
* Revision 1.7  2006/03/13 21:00:20  ddelon
354
* Suppression messages d'erreur multilinguisme
355
*
767 ddelon 356
* Revision 1.6  2006/03/02 10:49:49  ddelon
357
* Fusion branche multilinguisme dans branche principale
358
*
754 ddelon 359
* Revision 1.5.2.3  2006/03/02 00:22:23  ddelon
360
* bug afficheur multilinguisme
361
*
362
* Revision 1.5.2.2  2006/03/01 23:51:07  ddelon
363
* bug afficheur multilinguisme
364
*
365
* Revision 1.5.2.1  2006/02/28 14:02:11  ddelon
366
* Finition multilinguisme
367
*
368
* Revision 1.5  2005/04/21 16:46:17  jpm
369
* Gestion via Papyrus du XHTML.
370
*
351 jpm 371
* Revision 1.4  2005/02/22 18:25:13  jpm
372
* Déplacement d'un message d'alerte en cas d'erreur sql.
373
*
270 jpm 374
* Revision 1.3  2004/12/07 12:24:30  jpm
375
* Changement chemin d'accés à l'api Text/Wiki...
376
*
225 jpm 377
* Revision 1.2  2004/11/26 13:10:05  jpm
378
* Utilisation des actions Papyrus et implémentation de la syntaxe Wikini.
379
*
181 jpm 380
* Revision 1.1  2004/06/16 14:35:26  jpm
381
* Changement de nom de Génésia en Papyrus.
382
* Changement de l'arborescence.
383
*
6 jpm 384
* Revision 1.12  2004/05/05 11:35:12  jpm
385
* Amélioration de la gestion de l'internationalisation.
386
*
387
* Revision 1.11  2004/05/05 06:45:40  jpm
388
* Suppression de l'appel de la fonction générant le "vous êtes ici" dans la fonction affichant l'entête de l'application.
389
*
390
* Revision 1.10  2004/05/04 16:28:22  jpm
391
* Réduction de code pour la fonction afficherContenuTete().
392
*
393
*
394
* +-- Fin du code ----------------------------------------------------------------------------------------+
395
*/
181 jpm 396
?>