Subversion Repositories Applications.papyrus

Rev

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