Subversion Repositories Applications.papyrus

Rev

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