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 
?>