Subversion Repositories Applications.papyrus

Compare Revisions

No changes between revisions

Ignore whitespace Rev 1987 → Rev 1988

/branches/v5.0-ouadji/papyrus/applettes/body_attributs/body_attributs.php
New file
0,0 → 1,56
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | Ce logiciel est un programme informatique servant à gérer du contenu et des applications web. | |
// | |
// | Ce logiciel est régi par la licence CeCILL soumise au droit français et respectant les principes de |
// | diffusion des logiciels libres. Vous pouvez utiliser, modifier et/ou redistribuer ce programme sous |
// | les conditions de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA sur le site |
// | "http://www.cecill.info". |
// | |
// | En contrepartie de l'accessibilité au code source et des droits de copie, de modification et de |
// | redistribution accordés par cette licence, il n'est offert aux utilisateurs qu'une garantie limitée. |
// | Pour les mêmes raisons, seule une responsabilité restreinte pèse sur l'auteur du programme, le |
// | titulaire des droits patrimoniaux et les concédants successifs. |
// | |
// | A cet égard l'attention de l'utilisateur est attirée sur les risques associés au chargement, à |
// | l'utilisation, à la modification et/ou au développement et à la reproduction du logiciel par |
// | l'utilisateur étant donné sa spécificité de logiciel libre, qui peut le rendre complexe à manipuler |
// | et qui le réserve donc à des développeurs et des professionnels avertis possédant des connaissances |
// | informatiques approfondies. Les utilisateurs sont donc invités à charger et tester l'adéquation |
// | du logiciel à leurs besoins dans des conditions permettant d'assurer la sécurité de leurs systèmes |
// | et ou de leurs données et, plus généralement, à l'utiliser et l'exploiter dans les mêmes conditions |
// | de sécurité. |
// | |
// | Le fait que vous puissiez accéder à cet en-tête signifie que vous avez pris connaissance de la |
// | licence CeCILL, et que vous en avez accepté les termes. |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id $
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherAttributsBody';
$GLOBALS['_GEN_commun']['info_applette_balise'] = '<!-- '.$GLOBALS['_GEN_commun']['balise_prefixe'].'BODY_ATTRIBUTS -->';
 
 
function afficherAttributsBody()
{
global $_GEN_commun;
 
$html = "";
if(!isset($_GEN_commun['attributs_body']))
return;
foreach($_GEN_commun['attributs_body'] as $attribut => $valeur)
{
$html .= " ".$attribut.'="'.$valeur .'"';
}
return($html);
}
 
 
?>
/branches/v5.0-ouadji/papyrus/applettes/vous_etes_ici/vous_etes_ici.php
New file
0,0 → 1,257
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This library is free software; you can redistribute it and/or |
// | modify it under the terms of the GNU Lesser General Public |
// | License as published by the Free Software Foundation; either |
// | version 2.1 of the License, or (at your option) any later version. |
// | |
// | This library is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
// | Lesser General Public License for more details. |
// | |
// | You should have received a copy of the GNU Lesser General Public |
// | License along with this library; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: vous_etes_ici.php,v 1.14 2008-08-08 15:11:24 jp_milcent Exp $
/**
* Applette : Vous Etes Ici
*
* Affiche les liens contenant la suite des menus visités pour arriver
* au menu courant visioné par l'utilisateur.
* Nécessite :
* - Constantes et variable de Papyrus.
* - Base de données de Papyrus
* - Pear Net_URL
* - Pear DB
* - API Débogage 1.0
*
*@package Applette
*@subpackage Vous_Etes_Ici
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.14 $ $Date: 2008-08-08 15:11:24 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
// Inclusion de la bibliothèque defonction sur les menu : inutile car inclue par Papyrus
// require_once GEN_CHEMIN_BIBLIO.'pap_menu.fonct.php';
 
$GLOBALS['_VEI_']['nom_fonction'] = 'afficherVousEtesIci';
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = $GLOBALS['_VEI_']['nom_fonction'];
$GLOBALS['_GEN_commun']['info_applette_balise'] = '(?:<!-- '.$GLOBALS['_GEN_commun']['balise_prefixe'].'(VOUS_ETES_ICI) -->|'.
'\{\{[Vv]ousEtesIci\s*\}\})';
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
 
// +------------------------------------------------------------------------------------------------------+
// | LISTE de FONCTIONS |
// +------------------------------------------------------------------------------------------------------+
 
/** Fonction afficherVousEtesIci() - Déploie le "vous êtes ici" d'un menu.
*
* Affiche la suite des menus visité, sous forme de lien, pour arriver
* au menu courant visioné par l'utilisateur.
* Necessite :
* - Constantes et variable de Papyrus.
* - Pear Net_URL
* - Pear DB
*
* @param array tableau d'éventuel arguments présent dans la balise transmis à la fonction.
* @param array tableau global de Papyrus.
* @param int identifiant du menu courant qui représentent la fin du "vous êtes ici".
* @param boolean indique que nous avons à faire au premier appel de cette fonction récursive.
* @return string une liste de listes XHTML représentant le plan du site.
*/
function afficherVousEtesIci($tab_arguments, $_GEN_commun, $menu_courant_id = '', $premier_appel = true)
{
// Initialisation de variable.
$objet_pear_db =& $_GEN_commun['pear_db'];
$vei_numero = $GLOBALS['_PAPYRUS_']['applette']['comptage'][$GLOBALS['_VEI_']['nom_fonction']];
if (isset($_GEN_commun['info_menu']->gm_id_menu)) {
(empty($menu_courant_id)) ? $menu_courant_id = $_GEN_commun['info_menu']->gm_id_menu : '';
}
$vei = '';
// Gestion des erreurs
if (empty($menu_courant_id)) {
if (isset($GLOBALS['_VEI_']['usurpation'])) {
$vei = $GLOBALS['_VEI_']['usurpation'];
}
return $vei;
}
// Début contruction du vei
$menu_pere_id = GEN_lireIdentifiantMenuPere($menu_courant_id, $objet_pear_db);
// Récupération des infos sur sur l'entrée du menu à afficher
// GEN_I18N_ID_DEFAUT;
$id_langue = $_GEN_commun['i18n'];
if (isset($id_langue) && ($id_langue!='')) {
$langue_test=$id_langue;
} else {
$langue_test = GEN_I18N_ID_DEFAUT;
}
$requete_traduction = 'SELECT gmr_id_menu_02, gm_ce_i18n '.
'FROM gen_menu_relation, gen_menu '.
'WHERE '.$menu_courant_id.' = gmr_id_menu_01 ' .
'AND gmr_id_menu_02 = gm_id_menu '.
'AND gmr_id_valeur = 2 '.// 2 = "avoir traduction"
'AND gm_ce_i18n = "'.$langue_test.'" ';
$resultat_traduction = $objet_pear_db->query($requete_traduction);
(DB::isError($resultat_traduction)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction))
: '';
 
if ($resultat_traduction->numRows() > 0) {
$ligne_resultat_traduction=$resultat_traduction->fetchRow(DB_FETCHMODE_ASSOC);
$menu_courant_id=$ligne_resultat_traduction['gmr_id_menu_02'];
}
$menu_info = GEN_lireInfoMenu($objet_pear_db, $menu_courant_id, DB_FETCHMODE_ASSOC);
// Nous affichons le menu seulement si sa date de validité est bonne
if ($menu_info['gm_date_fin_validite'] == '0000-00-00 00:00:00' || strtotime($menu_info['gm_date_fin_validite']) > time() ) {
// Préparation d'une entrée dans la liste du menu
$menu_nom = htmlentities($menu_info['gm_nom']);
$menu_hreflang = htmlentities($menu_info['gm_ce_i18n']);
$menu_accesskey = '';
$raccourci_txt = '';
if (($menu_accesskey = htmlentities($menu_info['gm_raccourci_clavier'])) != '') {
$raccourci_txt = '(Raccourci : '.$menu_accesskey.' ).';
$menu_accesskey = 'accesskey="'.$menu_accesskey.'" ';
}
$menu_texte_title = '';
if (($menu_texte_title = htmlentities($menu_info['gm_description_resume'])) != '') {
$menu_texte_title = 'title="'.$raccourci_txt.$menu_texte_title.'" ';;
}
// Création de l'url du menu courant
$une_url =& new Pap_URL(PAP_URL);
$une_url->setId($menu_courant_id);
$menu_url = $une_url->getURL();
// Construction du VEI
$vei .= '<a id="vei_menu_'.$vei_numero.'_'.$menu_courant_id.'" href="'.$menu_url.'" ';
$vei .= 'hreflang="'.$menu_hreflang.'" '.$menu_texte_title.$menu_accesskey.'>'.$menu_nom.'</a>';
if ($menu_pere_id != 0) {
// Ce n'est pas le menu racine : nous afficons le symbole de séparation
$vei .= ' >>> ';
}
$vei .= "\n";
}
// Ce n'est pas le menu racine : nous continuons à rechercher les menus
if ($menu_pere_id != 0) {
$vei .= afficherVousEtesIci($tab_arguments, $_GEN_commun, $menu_pere_id, false);
}
// Retour du VEI après la recherche récursive des liens
if ($premier_appel) {
$tab_vei = explode(' >>> ', $vei);
// Récupération des liens pour les inverser et créer le VEI
$retour = '';
for ($i = (count($tab_vei) - 1); $i >= 0 ;$i--) {
if ($i == 0) {
// Supprime le lien pour le nom du menu courant
$tab_txt_capture='';
preg_match("/>(.*)<\/a>/", $tab_vei[$i], $tab_txt_capture);
$retour .= $tab_txt_capture[1];
} else {
$retour .= $tab_vei[$i];
}
// Ajout du séparateur
$retour .= ($i != 0) ? "\n".'<span class="separateur_vei"> > </span>'."\n" : '' ;
}
// Retour de la chaine de liens et de textes du VEI
return $retour;
}
return $vei;
}
 
// +------------------------------------------------------------------------------------------------------+
// | PIED du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.13.2.1 2008-08-08 15:10:06 jp_milcent
* Correction du boge : FS#89
*
* Revision 1.13 2007-05-24 16:51:55 jp_milcent
* Utilisation de la constante PAP_URL.
*
* Revision 1.12 2006-12-12 13:53:54 jp_milcent
* Mise en place du nouveau format des balises d'applette.
*
* Revision 1.11 2006/12/01 16:33:40 florian
* Amélioration de la gestion des applettes et compatibilité avec le nouveau mode de gestion de l'inclusion des applettes.
*
* Revision 1.10 2006/04/28 12:41:49 florian
* corrections erreurs chemin
*
* Revision 1.9 2006/03/02 10:49:49 ddelon
* Fusion branche multilinguisme dans branche principale
*
* Revision 1.8.2.1 2006/02/28 14:02:10 ddelon
* Finition multilinguisme
*
* Revision 1.8 2005/09/26 20:18:27 ddelon
* Appli projet : php5 et generalisation
*
* Revision 1.7 2005/09/23 14:21:18 florian
* compatibilité XHTML
*
* Revision 1.6 2005/04/14 16:38:02 jpm
* Ajout de la gestion des URL avec la classe Pap_URL de Papyrus.
*
* Revision 1.5 2004/12/06 19:39:57 jpm
* Gestion de l'usurpation de VEI.
*
* Revision 1.4 2004/11/10 19:41:27 jpm
* Correction bogue quand pas de menu par défaut.
*
* Revision 1.3 2004/09/23 17:57:19 jpm
* La page active n'est pas afficher sous forme de lien mais sous forme de texte.
*
* Revision 1.2 2004/07/06 17:07:21 jpm
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
*
* Revision 1.1 2004/06/15 15:06:25 jpm
* Changement de nom et d'arborescence de Genesia en Papyrus.
*
* Revision 1.4 2004/05/05 14:33:19 jpm
* Gestion de l'indication de langue dans l'url.
* Utile que si on veut forcer la langue.
*
* Revision 1.2 2004/05/05 06:44:33 jpm
* Complément des commentaires indiquant les paquetages nécessaire à l'applette.
*
* Revision 1.1 2004/05/05 06:39:18 jpm
* Transformation en applette de la fonction générant le "vous êtes ici".
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/inclure/configuration/incl_configuration.inc.php
New file
0,0 → 1,97
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | Ce logiciel est un programme informatique servant à gérer du contenu et des applications web. | |
// | |
// | Ce logiciel est régi par la licence CeCILL soumise au droit français et respectant les principes de |
// | diffusion des logiciels libres. Vous pouvez utiliser, modifier et/ou redistribuer ce programme sous |
// | les conditions de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA sur le site |
// | "http://www.cecill.info". |
// | |
// | En contrepartie de l'accessibilité au code source et des droits de copie, de modification et de |
// | redistribution accordés par cette licence, il n'est offert aux utilisateurs qu'une garantie limitée. |
// | Pour les mêmes raisons, seule une responsabilité restreinte pèse sur l'auteur du programme, le |
// | titulaire des droits patrimoniaux et les concédants successifs. |
// | |
// | A cet égard l'attention de l'utilisateur est attirée sur les risques associés au chargement, à |
// | l'utilisation, à la modification et/ou au développement et à la reproduction du logiciel par |
// | l'utilisateur étant donné sa spécificité de logiciel libre, qui peut le rendre complexe à manipuler |
// | et qui le réserve donc à des développeurs et des professionnels avertis possédant des connaissances |
// | informatiques approfondies. Les utilisateurs sont donc invités à charger et tester l'adéquation |
// | du logiciel à leurs besoins dans des conditions permettant d'assurer la sécurité de leurs systèmes |
// | et ou de leurs données et, plus généralement, à l'utiliser et l'exploiter dans les mêmes conditions |
// | de sécurité. |
// | |
// | Le fait que vous puissiez accéder à cet en-tête signifie que vous avez pris connaissance de la |
// | licence CeCILL, et que vous en avez accepté les termes. |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: incl_configuration.inc.php,v 1.2 2006-12-08 15:57:30 jp_milcent Exp $
/**
* papyrus
*
* Description...
*
*@package Applette
*@subpackage Inclure
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2006
*@version $Revision: 1.2 $ $Date: 2006-12-08 15:57:30 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_INCLURE_'] = array();
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Variable contenant les sites pouvant être inclus.*/
$GLOBALS['_INCLURE_']['site'] = $GLOBALS['_PAPYRUS_']['inclure_sites'];
/** Variable contenant l'encodage de la page courrante de Papyrus.*/
$GLOBALS['_INCLURE_']['encodage'] = $GLOBALS['_PAPYRUS_']['page']['jeu_de_caracteres'];
 
/** Constante stockant la valeur de la langue par défaut pour l'applette INCL.*/
define('INCL_I18N_DEFAUT', GEN_I18N_ID_DEFAUT);
 
// Chemin des fichiers à inclure.
/** Chemin vers la bibliothèque PEAR.*/
define('INCL_CHEMIN_BIBLIOTHEQUE_PEAR', PAP_CHEMIN_API_PEAR);
 
// Chemin vers les dossiers de l'applette
/** Chemin vers l'applette Inclure de Papyrus.*/
define('INCL_CHEMIN_APPLETTE', GEN_CHEMIN_APPLETTE.'inclure'.GEN_SEP);
/** Chemin vers les fichiers de traduction de l'applette Inclure de Papyrus.*/
define('INCL_CHEMIN_LANGUE', INCL_CHEMIN_APPLETTE.'langues'.GEN_SEP);
/** Chemin vers les fichiers de la bibliotheque de l'applette Inclure de Papyrus.*/
define('INCL_CHEMIN_BIBLIO', INCL_CHEMIN_APPLETTE.'bibliotheque'.GEN_SEP);
/** Chemin vers les fichiers squelettes de l'applette Inclure de Papyrus.*/
define('INCL_CHEMIN_SQUELETTE', INCL_CHEMIN_APPLETTE.'squelettes'.GEN_SEP);
 
// Configuration du rendu
/** Nom du fichier de squelette à utiliser pour la liste des pages.*/
define('INCL_SQUELETTE_LISTE', 'incl_liste.tpl.html');
 
// +------------------------------------------------------------------------------------------------------+
// | PIED du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.1 2006/12/01 17:36:28 florian
* Ajout de l'apllette Inclure, provenant de l'action Inclure.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/inclure/inclure.php
New file
0,0 → 1,180
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | Ce logiciel est un programme informatique servant à gérer du contenu et des applications web. | |
// | |
// | Ce logiciel est régi par la licence CeCILL soumise au droit français et respectant les principes de |
// | diffusion des logiciels libres. Vous pouvez utiliser, modifier et/ou redistribuer ce programme sous |
// | les conditions de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA sur le site |
// | "http://www.cecill.info". |
// | |
// | En contrepartie de l'accessibilité au code source et des droits de copie, de modification et de |
// | redistribution accordés par cette licence, il n'est offert aux utilisateurs qu'une garantie limitée. |
// | Pour les mêmes raisons, seule une responsabilité restreinte pèse sur l'auteur du programme, le |
// | titulaire des droits patrimoniaux et les concédants successifs. |
// | |
// | A cet égard l'attention de l'utilisateur est attirée sur les risques associés au chargement, à |
// | l'utilisation, à la modification et/ou au développement et à la reproduction du logiciel par |
// | l'utilisateur étant donné sa spécificité de logiciel libre, qui peut le rendre complexe à manipuler |
// | et qui le réserve donc à des développeurs et des professionnels avertis possédant des connaissances |
// | informatiques approfondies. Les utilisateurs sont donc invités à charger et tester l'adéquation |
// | du logiciel à leurs besoins dans des conditions permettant d'assurer la sécurité de leurs systèmes |
// | et ou de leurs données et, plus généralement, à l'utiliser et l'exploiter dans les mêmes conditions |
// | de sécurité. |
// | |
// | Le fait que vous puissiez accéder à cet en-tête signifie que vous avez pris connaissance de la |
// | licence CeCILL, et que vous en avez accepté les termes. |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: inclure.php,v 1.5 2008-11-19 09:26:48 aperonnet Exp $
/**
* Applette : Inclure
*
* Retourne toutes les pages Papyrus appartenant à une catégorie donnée.
*
*@package Applette
*@subpackage Inclure
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2006
*@version $Revision: 1.5 $ $Date: 2008-11-19 09:26:48 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherInclure';
$GLOBALS['_GEN_commun']['info_applette_balise'] = '\{\{[Ii]nclure(?:\s*(?:(page="[^"]+")|(interwiki="[^"]+")|))+\s*\}\}';
 
// --------------------------------------------------------------------------------------------------------
//Utilisation de la bibliothèque Papyrus pap_meta.fonct.php inclue par Papyrus
//Utilisation de la bibliothèque PEAR NET_URL inclue par Papyrus
/** Inclusion du fichier de configuration de cette application.*/
require_once GEN_CHEMIN_APPLETTE.'inclure'.GEN_SEP.'configuration'.GEN_SEP.'incl_configuration.inc.php';
 
// Inclusion des fichiers de traduction de l'applette CATEG de Papyrus
if (file_exists(INCL_CHEMIN_LANGUE.'incl_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {
/** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/
require_once INCL_CHEMIN_LANGUE.'incl_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';
} else {
/** Inclusion du fichier de traduction par défaut.*/
require_once INCL_CHEMIN_LANGUE.'incl_langue_'.INCL_I18N_DEFAUT.'.inc.php';
}
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Fonction afficherInclure() - Retourne la liste des pages d'une catégorie.
*
* Cette fonction retourne la liste des pages appartenant à une catégorie donnée.
*
* @param array contient les arguments de la fonction.
* @param array tableau global de Papyrus.
* @return string HTML la liste des listes de menus.
*/
function afficherInclure($tab_applette_arguments, $_GEN_commun)
{
// Initialisation des variables
$sortie = '';
$GLOBALS['_INCLURE_']['informations'] = array();
$GLOBALS['_INCLURE_']['erreurs'] = array();
//+----------------------------------------------------------------------------------------------------------------+
// Gestion des arguments
$tab_arguments = $tab_applette_arguments;
unset($tab_arguments[0]);
foreach($tab_arguments as $argument) {
$tab_parametres = explode('=', $argument);
if ($tab_parametres[0] != '' && $tab_parametres[1] != '') {
$options[$tab_parametres[0]] = trim($tab_parametres[1], '"');
}
}
 
//+----------------------------------------------------------------------------------------------------------------+
// Gestion des erreurs de paramètrage
$ok = true;
if (!isset($options['interwiki'])) {
$GLOBALS['_INCLURE_']['erreurs'][] = sprintf(CATEG_LG_ERREUR_INTERWIKI, $tab_applette_arguments[0]);
$ok = false;
} else {
if (!isset($GLOBALS['_INCLURE_']['site'][$options['interwiki']])) {
$GLOBALS['_INCLURE_']['erreurs'][] = sprintf(CATEG_LG_ERREUR_SITE, $options['interwiki']);
$ok = false;
}
}
if (!isset($options['page'])) {
$GLOBALS['_INCLURE_']['erreurs'][] = sprintf(CATEG_LG_ERREUR_PAGE, $tab_applette_arguments[0]);
$ok = false;
}
//+----------------------------------------------------------------------------------------------------------------+
// Récupération des données
$GLOBALS['_INCLURE_']['sortie'] = '';
if ($ok) {
$href = $GLOBALS['_INCLURE_']['site'][$options['interwiki']]['url'];
$href = sprintf($href, $options['page']);
$contenu = file_get_contents($href);
if ($contenu != false) {
$tab_matches = '';
preg_match($GLOBALS['_INCLURE_']['site'][$options['interwiki']]['preg'], $contenu, $tab_matches);
$tab_encodage = '';
if (preg_match('/charset=(.+)"/Ui', $contenu, $tab_encodage) || preg_match('/encoding="(.+)"/Ui', $contenu, $tab_encodage)) {
if (preg_match('/^(?:iso-8859-1|iso-8859-15)$/i', $GLOBALS['_INCLURE_']['encodage']) && preg_match('/utf-8/i', $tab_encodage[1])) {
$GLOBALS['_INCLURE_']['sortie'] = utf8_decode($tab_matches[1]);
} else {
$GLOBALS['_INCLURE_']['sortie'] = $tab_matches[1];
}
} else {
$GLOBALS['_INCLURE_']['informations'][] = sprintf(CATEG_LG_ERREUR_ENCODAGE, $href);
}
} else {
$GLOBALS['_INCLURE_']['informations'][] = sprintf(CATEG_LG_ERREUR_INCLUSION, $href);
}
}
//+----------------------------------------------------------------------------------------------------------------+
// Extrait les variables et les ajoutes à l'espace de noms local
// Gestion des squelettes
extract($GLOBALS['_INCLURE_']);
// Démarre le buffer
ob_start();
// Inclusion du fichier
include(INCL_CHEMIN_SQUELETTE.INCL_SQUELETTE_LISTE);
// Récupérer le contenu du buffer
$sortie = ob_get_contents();
// Arrête et détruit le buffer
ob_end_clean();
//+----------------------------------------------------------------------------------------------------------------+
// Sortie
return $sortie;
}
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.4 2007-08-28 14:23:55 jp_milcent
* Amélioration de la gestion de l'inclusion.
*
* Revision 1.3 2007-08-28 14:14:13 jp_milcent
* Correction de bogues empéchant l'affichage.
*
* Revision 1.2 2006-12-08 15:57:30 jp_milcent
* Amélioration de la gestion du débogage de l'applette inclure.
*
* Revision 1.1 2006/12/01 17:36:28 florian
* Ajout de l'apllette Inclure, provenant de l'action Inclure.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/inclure/langues/incl_langue_fr.inc.php
New file
0,0 → 1,89
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | Ce logiciel est un programme informatique servant à gérer du contenu et des applications web. | |
// | |
// | Ce logiciel est régi par la licence CeCILL soumise au droit français et respectant les principes de |
// | diffusion des logiciels libres. Vous pouvez utiliser, modifier et/ou redistribuer ce programme sous |
// | les conditions de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA sur le site |
// | "http://www.cecill.info". |
// | |
// | En contrepartie de l'accessibilité au code source et des droits de copie, de modification et de |
// | redistribution accordés par cette licence, il n'est offert aux utilisateurs qu'une garantie limitée. |
// | Pour les mêmes raisons, seule une responsabilité restreinte pèse sur l'auteur du programme, le |
// | titulaire des droits patrimoniaux et les concédants successifs. |
// | |
// | A cet égard l'attention de l'utilisateur est attirée sur les risques associés au chargement, à |
// | l'utilisation, à la modification et/ou au développement et à la reproduction du logiciel par |
// | l'utilisateur étant donné sa spécificité de logiciel libre, qui peut le rendre complexe à manipuler |
// | et qui le réserve donc à des développeurs et des professionnels avertis possédant des connaissances |
// | informatiques approfondies. Les utilisateurs sont donc invités à charger et tester l'adéquation |
// | du logiciel à leurs besoins dans des conditions permettant d'assurer la sécurité de leurs systèmes |
// | et ou de leurs données et, plus généralement, à l'utiliser et l'exploiter dans les mêmes conditions |
// | de sécurité. |
// | |
// | Le fait que vous puissiez accéder à cet en-tête signifie que vous avez pris connaissance de la |
// | licence CeCILL, et que vous en avez accepté les termes. |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: incl_langue_fr.inc.php,v 1.4 2007-08-28 14:23:55 jp_milcent Exp $
/**
* papyrus
*
* Description...
*
*@package Applette
*@subpackage Inclure
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2006
*@version $Revision: 1.4 $ $Date: 2007-08-28 14:23:55 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Texte affiché quand un problème a été rencontré lors de l'inclusion.*/
define('CATEG_LG_ERREUR_INCLUSION', "Applette INCLURE : problème lors de la tentative d'inclusion de la page : %s");
/** Texte affiché quand un problème a été rencontré pour la détermination de l'encodage.*/
define('CATEG_LG_ERREUR_ENCODAGE', "Applette INCLURE : problème lors de la recherche de l'encodage de la page à inclure : %s");
/** Texte affiché quand un site n'a pas été indexé.*/
define('CATEG_LG_ERREUR_SITE', "Applette INCLURE : le site interwiki '%s' n'est pas référencé dans le fichier de configuration avancé de Papyrus.");
/** Texte affiché quand le paramètre "interwiki" est abscent.*/
define('CATEG_LG_ERREUR_INTERWIKI', "Applette INCLURE : le paramètre 'interwiki' est obligatoire dans '%s' !");
/** Texte affiché quand le paramètre "page" est abscent.*/
define('CATEG_LG_ERREUR_PAGE', "Applette INCLURE : le paramètre 'page' est obligatoire dans '%s' !");
 
// +------------------------------------------------------------------------------------------------------+
// | PIED du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.3 2007-08-28 14:14:13 jp_milcent
* Correction de bogues empéchant l'affichage.
*
* Revision 1.2 2006-12-08 15:57:30 jp_milcent
* Amélioration de la gestion du débogage de l'applette inclure.
*
* Revision 1.1 2006/12/01 17:36:28 florian
* Ajout de l'apllette Inclure, provenant de l'action Inclure.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/inclure/squelettes/incl_liste.tpl.html
New file
0,0 → 1,12
<!-- INCLURE - DEBUT -->
<?php if ($erreurs) : ?>
<?php foreach ($erreurs as $erreur) : ?>
<p class="pap_erreur"><?=$erreur;?></p>
<?php endforeach; ?>
<?php elseif ($informations) : ?>
<?php foreach ($informations as $information) : ?>
<p class="pap_info"><?=$information;?></p>
<?php endforeach; ?>
<?php endif; ?>
<?=$sortie;?>
<!-- INCLURE - FIN -->
/branches/v5.0-ouadji/papyrus/applettes/categorie/configuration/categ_configuration.inc.php
New file
0,0 → 1,88
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | Ce logiciel est un programme informatique servant à gérer du contenu et des applications web. | |
// | |
// | Ce logiciel est régi par la licence CeCILL soumise au droit français et respectant les principes de |
// | diffusion des logiciels libres. Vous pouvez utiliser, modifier et/ou redistribuer ce programme sous |
// | les conditions de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA sur le site |
// | "http://www.cecill.info". |
// | |
// | En contrepartie de l'accessibilité au code source et des droits de copie, de modification et de |
// | redistribution accordés par cette licence, il n'est offert aux utilisateurs qu'une garantie limitée. |
// | Pour les mêmes raisons, seule une responsabilité restreinte pèse sur l'auteur du programme, le |
// | titulaire des droits patrimoniaux et les concédants successifs. |
// | |
// | A cet égard l'attention de l'utilisateur est attirée sur les risques associés au chargement, à |
// | l'utilisation, à la modification et/ou au développement et à la reproduction du logiciel par |
// | l'utilisateur étant donné sa spécificité de logiciel libre, qui peut le rendre complexe à manipuler |
// | et qui le réserve donc à des développeurs et des professionnels avertis possédant des connaissances |
// | informatiques approfondies. Les utilisateurs sont donc invités à charger et tester l'adéquation |
// | du logiciel à leurs besoins dans des conditions permettant d'assurer la sécurité de leurs systèmes |
// | et ou de leurs données et, plus généralement, à l'utiliser et l'exploiter dans les mêmes conditions |
// | de sécurité. |
// | |
// | Le fait que vous puissiez accéder à cet en-tête signifie que vous avez pris connaissance de la |
// | licence CeCILL, et que vous en avez accepté les termes. |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: categ_configuration.inc.php,v 1.2 2006-12-07 18:16:45 jp_milcent Exp $
/**
* papyrus
*
* Description...
*
*@package Applette
*@subpackage Identification
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2006
*@version $Revision: 1.2 $ $Date: 2006-12-07 18:16:45 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_CATEGORIE_'] = array();
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Constante stockant la valeur de la langue par défaut pour l'applette CATEG.*/
define('CATEG_I18N_DEFAUT', GEN_I18N_ID_DEFAUT);
 
// Chemin vers les dossiers de l'applette
/** Chemin vers l'applette Categorie de Papyrus.*/
define('CATEG_CHEMIN_APPLETTE', GEN_CHEMIN_APPLETTE.'categorie'.GEN_SEP);
/** Chemin vers les fichiers de traduction de l'applette Categorie de Papyrus.*/
define('CATEG_CHEMIN_LANGUE', CATEG_CHEMIN_APPLETTE.'langues'.GEN_SEP);
/** Chemin vers les fichiers de la bibliotheque de l'applette Categorie de Papyrus.*/
define('CATEG_CHEMIN_BIBLIO', CATEG_CHEMIN_APPLETTE.'bibliotheque'.GEN_SEP);
/** Chemin vers les fichiers squelettes de l'applette Categorie de Papyrus.*/
define('CATEG_CHEMIN_SQUELETTE', CATEG_CHEMIN_APPLETTE.'squelettes'.GEN_SEP);
 
// Configuration du rendu
/** Nom du fichier de squelette à utiliser pour la liste des pages.*/
define('CATEG_SQUELETTE_LISTE', 'categ_liste.tpl.html');
 
// +------------------------------------------------------------------------------------------------------+
// | PIED du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.1 2006/12/01 16:34:50 florian
* Ajout de l'apllette Categorie, provenant de l'action Categorie.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/categorie/categorie.php
New file
0,0 → 1,239
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | Ce logiciel est un programme informatique servant à gérer du contenu et des applications web. | |
// | |
// | Ce logiciel est régi par la licence CeCILL soumise au droit français et respectant les principes de |
// | diffusion des logiciels libres. Vous pouvez utiliser, modifier et/ou redistribuer ce programme sous |
// | les conditions de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA sur le site |
// | "http://www.cecill.info". |
// | |
// | En contrepartie de l'accessibilité au code source et des droits de copie, de modification et de |
// | redistribution accordés par cette licence, il n'est offert aux utilisateurs qu'une garantie limitée. |
// | Pour les mêmes raisons, seule une responsabilité restreinte pèse sur l'auteur du programme, le |
// | titulaire des droits patrimoniaux et les concédants successifs. |
// | |
// | A cet égard l'attention de l'utilisateur est attirée sur les risques associés au chargement, à |
// | l'utilisation, à la modification et/ou au développement et à la reproduction du logiciel par |
// | l'utilisateur étant donné sa spécificité de logiciel libre, qui peut le rendre complexe à manipuler |
// | et qui le réserve donc à des développeurs et des professionnels avertis possédant des connaissances |
// | informatiques approfondies. Les utilisateurs sont donc invités à charger et tester l'adéquation |
// | du logiciel à leurs besoins dans des conditions permettant d'assurer la sécurité de leurs systèmes |
// | et ou de leurs données et, plus généralement, à l'utiliser et l'exploiter dans les mêmes conditions |
// | de sécurité. |
// | |
// | Le fait que vous puissiez accéder à cet en-tête signifie que vous avez pris connaissance de la |
// | licence CeCILL, et que vous en avez accepté les termes. |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: categorie.php,v 1.5 2006-12-12 13:32:00 jp_milcent Exp $
/**
* Applette : Catégorie
*
* Retourne toutes les pages Papyrus appartenant à une catégorie donnée.
*
*@package Applette
*@subpackage Categorie
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2006
*@version $Revision: 1.5 $ $Date: 2006-12-12 13:32:00 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherCategorie';
$GLOBALS['_GEN_commun']['info_applette_balise'] = '\{\{[Cc]ategorie(?:\s*(?:(mots="[^"]+")|))+\s*\}\}';
 
// --------------------------------------------------------------------------------------------------------
//Utilisation de la bibliothèque Papyrus pap_meta.fonct.php inclue par Papyrus
//Utilisation de la bibliothèque PEAR NET_URL inclue par Papyrus
/** Inclusion du fichier de configuration de cette application.*/
require_once GEN_CHEMIN_APPLETTE.'categorie'.GEN_SEP.'configuration'.GEN_SEP.'categ_configuration.inc.php';
 
// Inclusion des fichiers de traduction de l'applette CATEG de Papyrus
if (file_exists(CATEG_CHEMIN_LANGUE.'categ_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {
/** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/
require_once CATEG_CHEMIN_LANGUE.'categ_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';
} else {
/** Inclusion du fichier de traduction par défaut.*/
require_once CATEG_CHEMIN_LANGUE.'categ_langue_'.CATEG_I18N_DEFAUT.'.inc.php';
}
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Fonction afficherCategorie() - Retourne la liste des pages d'une catégorie.
*
* Cette fonction retourne la liste des pages appartenant à une catégorie donnée.
*
* @param array contient les arguments de la fonction.
* @param array tableau global de Papyrus.
* @return string HTML la liste des listes de menus.
*/
function afficherCategorie($tab_applette_arguments, $_GEN_commun)
{
// Initialisation des variables
$sortie = '';
//+----------------------------------------------------------------------------------------------------------------+
// Gestion des arguments
$tab_arguments = $tab_applette_arguments;
unset($tab_arguments[0]);
foreach($tab_arguments as $argument) {
$tab_parametres = explode('=', $argument);
$options[$tab_parametres[0]] = trim($tab_parametres[1], '"');
}
//+----------------------------------------------------------------------------------------------------------------+
// Gestion des erreurs de paramètrage
$GLOBALS['_CATEGORIE_']['erreur'] = '';
if (!isset($options['mots'])) {
$GLOBALS['_CATEGORIE_']['erreur'] = CATEG_LG_ERREUR_MOTS;
}
//+----------------------------------------------------------------------------------------------------------------+
// Récupération des données
$tab_mots = explode(',', $options['mots']);
for ($i = 0; $i < count($tab_mots); $i++) {
// Suppression des espaces, tabulations... en début et fin de chaine
$tab_mots[$i] = trim($tab_mots[$i]);
}
$aso_info_menu = GEN_lireInfoMenuCategorie($_GEN_commun['pear_db'], $tab_mots);
if (count($aso_info_menu) == 0) {
$GLOBALS['_CATEGORIE_']['information'] = sprintf(CATEG_LG_INFO_ZERO_PAGE, $options['mots']);
} else {
foreach ($aso_info_menu as $id_menu => $un_menu) {
// Initialisation
$aso_page = array();
$aso_page['url'] = '#';
$aso_page['auteur'] = CATEG_LG_INCONNU_AUTEUR;
$aso_page['titre'] = CATEG_LG_INCONNU_TITRE;
$aso_page['heure'] = '';
$aso_page['minute'] = '';
$aso_page['seconde'] = '';
$aso_page['jours'] = '';
$aso_page['mois'] = '';
$aso_page['annee'] = '';
// Création de l'url
$une_url =& new Pap_URL();
$une_url->setId($id_menu);
$aso_page['url'] = $une_url->getURL();
// Affichage de l'auteur(s)
if ($un_menu->gm_auteur != '') {
$aso_page['auteur'] = $un_menu->gm_auteur;
}
// Affichage du titre
if ($un_menu->gm_titre != '') {
$aso_page['titre'] = $un_menu->gm_titre;
}
// Affichage de l'horaire de la création de la page
if (($heure = date('G', strtotime($un_menu->gm_date_creation)) ) != 0 ) {
$aso_page['heure'] = $heure;
$minute = date('i', strtotime($un_menu->gm_date_creation));
$aso_page['minute'] = $minute;
if (($seconde = date('s', strtotime($un_menu->gm_date_creation)) ) != 0 ) {
$aso_page['seconde'] = $seconde;
}
}
// Affichage de la date de la création de la page
if (($jour = date('d', strtotime($un_menu->gm_date_creation)) ) != 0 ) {
$aso_page['jour'] = $jour;
}
if (($mois = _traduireMois(date('m', strtotime($un_menu->gm_date_creation))) ) != '' ) {
$aso_page['mois'] = $mois;
}
if (($annee = date('Y', strtotime($un_menu->gm_date_creation)) ) != 0 ) {
$aso_page['annee'] = $annee;
}
$GLOBALS['_CATEGORIE_']['pages'][] = $aso_page;
}
}
//+----------------------------------------------------------------------------------------------------------------+
// Extrait les variables et les ajoutes à l'espace de noms local
// Gestion des squelettes
extract($GLOBALS['_CATEGORIE_']);
// Démarre le buffer
ob_start();
// Inclusion du fichier
include(CATEG_CHEMIN_SQUELETTE.CATEG_SQUELETTE_LISTE);
// Récupérer le contenu du buffer
$sortie = ob_get_contents();
// Arrête et détruit le buffer
ob_end_clean();
//+----------------------------------------------------------------------------------------------------------------+
// Sortie
return $sortie;
}
 
// +------------------------------------------------------------------------------------------------------+
// | LISTE DES FONCTIONS |
// +------------------------------------------------------------------------------------------------------+
if (!function_exists('_traduireMois')) {
function _traduireMois($mois_numerique)
{
switch ($mois_numerique) {
case '01' :
return CATEG_LG_MOIS_01;
case '02' :
return CATEG_LG_MOIS_02;
case '03' :
return CATEG_LG_MOIS_03;
case '04' :
return CATEG_LG_MOIS_04;
case '05' :
return CATEG_LG_MOIS_05;
case '06' :
return CATEG_LG_MOIS_06;
case '07' :
return CATEG_LG_MOIS_07;
case '08' :
return CATEG_LG_MOIS_08;
case '09' :
return CATEG_LG_MOIS_09;
case '10' :
return CATEG_LG_MOIS_10;
case '11' :
return CATEG_LG_MOIS_11;
case '12' :
return CATEG_LG_MOIS_12;
default:
return '';
}
}
}
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.4 2006/12/08 20:10:41 jp_milcent
* Amélioration de l'expression régulière.
*
* Revision 1.3 2006/12/07 18:16:21 jp_milcent
* Gestion des squelettes.
*
* Revision 1.2 2006/12/01 17:37:46 florian
* Amélioration de la gestion des arguments de l'applette dans l'expression régulière.
*
* Revision 1.1 2006/12/01 16:34:50 florian
* Ajout de l'apllette Categorie, provenant de l'action Categorie.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/categorie/langues/categ_langue_fr.inc.php
New file
0,0 → 1,108
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | Ce logiciel est un programme informatique servant à gérer du contenu et des applications web. | |
// | |
// | Ce logiciel est régi par la licence CeCILL soumise au droit français et respectant les principes de |
// | diffusion des logiciels libres. Vous pouvez utiliser, modifier et/ou redistribuer ce programme sous |
// | les conditions de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA sur le site |
// | "http://www.cecill.info". |
// | |
// | En contrepartie de l'accessibilité au code source et des droits de copie, de modification et de |
// | redistribution accordés par cette licence, il n'est offert aux utilisateurs qu'une garantie limitée. |
// | Pour les mêmes raisons, seule une responsabilité restreinte pèse sur l'auteur du programme, le |
// | titulaire des droits patrimoniaux et les concédants successifs. |
// | |
// | A cet égard l'attention de l'utilisateur est attirée sur les risques associés au chargement, à |
// | l'utilisation, à la modification et/ou au développement et à la reproduction du logiciel par |
// | l'utilisateur étant donné sa spécificité de logiciel libre, qui peut le rendre complexe à manipuler |
// | et qui le réserve donc à des développeurs et des professionnels avertis possédant des connaissances |
// | informatiques approfondies. Les utilisateurs sont donc invités à charger et tester l'adéquation |
// | du logiciel à leurs besoins dans des conditions permettant d'assurer la sécurité de leurs systèmes |
// | et ou de leurs données et, plus généralement, à l'utiliser et l'exploiter dans les mêmes conditions |
// | de sécurité. |
// | |
// | Le fait que vous puissiez accéder à cet en-tête signifie que vous avez pris connaissance de la |
// | licence CeCILL, et que vous en avez accepté les termes. |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: categ_langue_fr.inc.php,v 1.3 2006-12-07 18:12:26 jp_milcent Exp $
/**
* papyrus
*
* Description...
*
*@package Applette
*@subpackage Categorie
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2006
*@version $Revision: 1.3 $ $Date: 2006-12-07 18:12:26 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Texte affiché quand l'auteur est inconnu.*/
define('CATEG_LG_INCONNU_AUTEUR', 'Anonyme');
/** Texte affiché quand le titre est vide.*/
define('CATEG_LG_INCONNU_TITRE', 'Titre inconnu');
/** Texte affiché quand le paramètre "mots" est abscent.*/
define('CATEG_LG_ERREUR_MOTS', "Applette CATEGORIE : le paramètre 'mots' est obligatoire!");
/** Texte affiché quand on n'a pas de page à afficher'.*/
define('CATEG_LG_INFO_ZERO_PAGE', "Applette CATEGORIE : aucune page n'a été trouvé pour : %s !");
 
/** Mois de janvier.*/
define('CATEG_LG_MOIS_01', 'janvier');
/** Mois de février.*/
define('CATEG_LG_MOIS_02', 'février');
/** Mois de mars.*/
define('CATEG_LG_MOIS_03', 'mars');
/** Mois d'avril.*/
define('CATEG_LG_MOIS_04', 'avril');
/** Mois de mai.*/
define('CATEG_LG_MOIS_05', 'mai');
/** Mois de juin.*/
define('CATEG_LG_MOIS_06', 'juin');
/** Mois de juillet.*/
define('CATEG_LG_MOIS_07', 'juillet');
/** Mois d'août'.*/
define('CATEG_LG_MOIS_08', 'août');
/** Mois de septembre.*/
define('CATEG_LG_MOIS_09', 'septembre');
/** Mois d'octobre.*/
define('CATEG_LG_MOIS_10', 'octobre');
/** Mois de novembre.*/
define('CATEG_LG_MOIS_11', 'novembre');
/** Mois de décembre.*/
define('CATEG_LG_MOIS_12', 'décembre');
// +------------------------------------------------------------------------------------------------------+
// | PIED du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.2 2006/12/07 17:51:48 jp_milcent
* Ajout d'un fichier de langue.
*
* Revision 1.1 2006/12/01 16:34:50 florian
* Ajout de l'apllette Categorie, provenant de l'action Categorie.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/categorie/squelettes/categ_liste.tpl.html
New file
0,0 → 1,32
<!-- CATEGORIE - DEBUT -->
<?php if ($erreur) : ?>
 
<p class="pap_erreur"><?=$erreur;?></p>
 
<?php elseif ($information) : ?>
 
<p class="zone_info"><?=$information;?></p>
 
<?php else : ?>
 
<ul class="page_liste">
<?php foreach ($pages as $page) : ?>
<li>
<span class="page_auteur"><?=$page['auteur'];?></span>
<span class="page_separateur_auteur"> - </span>
<a href="<?=$page['url'];?>"><span class="page_titre"><?=$page['titre'];?></span></a>
<span class="page_separateur_titre"> - </span>
<span class="page_creation_heure"><?=$page['heure'];?></span>
<span class="page_separateur_heure">:</span>
<span class="page_creation_minute"><?=$page['minute'];?></span>
<span class="page_separateur_heure">:</span>
<span class="page_creation_seconde"><?=$page['seconde'];?></span>
<span class="page_separateur_date_heure"> - </span>
<span class="page_creation_jour"><?=$page['jour'];?></span>
<span class="page_creation_mois"><?=$page['mois'];?></span>
<span class="page_creation_annee"><?=$page['annee'];?></span>
</li>
<?php endforeach; ?>
</ul>
<?php endif; ?>
<!-- CATEGORIE - FIN -->
/branches/v5.0-ouadji/papyrus/applettes/selecteur_sites/langues/sesi_langue_en.inc.php
New file
0,0 → 1,84
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2005 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of Papyrus. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: sesi_langue_en.inc.php,v 1.2 2006-03-02 10:49:49 ddelon Exp $
/**
* Traduction de l'applette selecteur de site : fr
*
* Fichier de traduction de l'applette Identification en français.
*
*@package Applette
*@subpackage Identification
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2005
*@version $Revision: 1.2 $ $Date: 2006-03-02 10:49:49 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
/** Legende de l'applette */
define('SESI_LG_LEGENDE', 'Site selection');
/** Message du texte par defaut */
define('SESI_LG_DEFAUT', 'Site selection');
/** Texte du bouton valider.*/
define('SESI_LG__VALIDER', 'ok');
/** Texte message erreur */
define('SESI_LG_ETIQUETTE_VALIDER', 'Only one site available');
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.1.2.1 2005/12/07 19:46:14 ddelon
* Merge + navi sites
*
* Revision 1.5 2005/06/09 17:06:28 jpm
* Ajout de constantes de langue.
*
* Revision 1.4 2005/06/02 11:56:00 jpm
* Modification de l'affichage de l'identification.
*
* Revision 1.3 2005/04/14 16:37:27 jpm
* Ajout de la gestion de la modification de son inscription.
*
* Revision 1.2 2005/03/25 14:41:04 jpm
* Modification et ajout de constantes.
*
* Revision 1.1 2005/03/15 14:19:32 jpm
* Ajout d'un fichier de traduction.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/selecteur_sites/langues/sesi_langue_fr.inc.php
New file
0,0 → 1,87
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2005 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of Papyrus. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: sesi_langue_fr.inc.php,v 1.3 2006-11-27 13:52:26 florian Exp $
/**
* Traduction de l'applette selecteur de site : fr
*
* Fichier de traduction de l'applette Identification en français.
*
*@package Applette
*@subpackage Identification
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2005
*@version $Revision: 1.3 $ $Date: 2006-11-27 13:52:26 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
/** Legende de l'applette */
define('SESI_LG_LEGENDE', 'S&eacute;lecteur de monde');
/** Message du texte par defaut */
define('SESI_LG_DEFAUT', 'changer de site');
/** Texte du bouton valider.*/
define('SESI_LG__VALIDER', 'ok');
/** Texte message erreur */
define('SESI_LG_ETIQUETTE_VALIDER', 'Un seul site disponible dans Papyrus.');
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.2 2006/03/02 10:49:49 ddelon
* Fusion branche multilinguisme dans branche principale
*
* Revision 1.1.2.1 2005/12/07 19:46:14 ddelon
* Merge + navi sites
*
* Revision 1.5 2005/06/09 17:06:28 jpm
* Ajout de constantes de langue.
*
* Revision 1.4 2005/06/02 11:56:00 jpm
* Modification de l'affichage de l'identification.
*
* Revision 1.3 2005/04/14 16:37:27 jpm
* Ajout de la gestion de la modification de son inscription.
*
* Revision 1.2 2005/03/25 14:41:04 jpm
* Modification et ajout de constantes.
*
* Revision 1.1 2005/03/15 14:19:32 jpm
* Ajout d'un fichier de traduction.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/selecteur_sites/configuration/sesi_config.inc.php
New file
0,0 → 1,72
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2005 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of Papyrus. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: sesi_config.inc.php,v 1.2 2006-03-02 10:49:49 ddelon Exp $
/**
* Configuration de l'applette Identification.
*
* Fichier de configuration de l'applette selection de site.
*
*@package Applette
*@subpackage Selecteur
//Auteur original :
*@author David Delon <david.delon@clapas.net>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2005
*@version $Revision: 1.2 $ $Date: 2006-03-02 10:49:49 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Constante stockant la valeur de la langue par défaut pour l'applette IDEN.*/
define('SESI_I18N_DEFAUT', GEN_I18N_ID_DEFAUT);
 
// Chemin vers les dossiers de l'applette
/** Chemin vers l'applette Identification de Papyrus.*/
define('SESI_CHEMIN_APPLETTE', GEN_CHEMIN_APPLETTE.'selecteur_sites'.GEN_SEP);
/** Chemin vers les fichiers de traduction de l'applette Identification de Papyrus.*/
define('SESI_CHEMIN_LANGUE', SESI_CHEMIN_APPLETTE.'langues'.GEN_SEP);
/** Chemin vers les fichiers de la bibliotheque de l'applette Identification de Papyrus.*/
define('SESI_CHEMIN_BIBLIO', SESI_CHEMIN_APPLETTE.'bibliotheque'.GEN_SEP);
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.1.2.1 2005/12/07 19:46:15 ddelon
* Merge + navi sites
*
* Revision 1.1 2005/03/15 14:18:49 jpm
* Ajout d'un fichier de config.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/selecteur_sites/selecteur_sites.php
New file
0,0 → 1,356
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This library is free software; you can redistribute it and/or |
// | modify it under the terms of the GNU Lesser General Public |
// | License as published by the Free Software Foundation; either |
// | version 2.1 of the License, or (at your option) any later version. |
// | |
// | This library is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
// | Lesser General Public License for more details. |
// | |
// | You should have received a copy of the GNU Lesser General Public |
// | License along with this library; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: selecteur_sites.php,v 1.12 2007-05-24 16:26:08 jp_milcent Exp $
/**
* Applette : selecteur sites
*
* Génère un formulaire contenant un menu déroulant permettant de choisir un site parmis les disponibles.
* Nécessite :
* - Constantes et globales de Papyrus.
* - Base de données de Papyrus
* - Pear Net_URL
* - Pear DB
* - API Débogage 1.0
* Le nom de l'applette est "SELECTEUR_SITES" pour afficher un formulaire HTML et "SELECTEUR_SITES_XHTML"
* pour afficher un formulaire XHTML strict.
*
*@package Applette
*@subpackage Selecteur_sites
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.12 $ $Date: 2007-05-24 16:26:08 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherSelecteurSite';
$GLOBALS['_GEN_commun']['info_applette_balise'] = '<!-- '.$GLOBALS['_GEN_commun']['balise_prefixe'].'(SELECTEUR_SITES_?(XHTML)?_?(SANS_(?:\d+_?)+)?) -->';
 
 
/** Inclusion du fichier de configuration de cette applette.*/
require_once GEN_CHEMIN_APPLETTE.'selecteur_sites'.GEN_SEP.'configuration'.GEN_SEP.'sesi_config.inc.php';
 
// Inclusion des fichiers de traduction de l'applette.
if (file_exists(SESI_CHEMIN_LANGUE.'sesi_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {
/** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/
require_once SESI_CHEMIN_LANGUE.'sesi_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';
} else {
/** Inclusion du fichier de traduction par défaut.*/
require_once SESI_CHEMIN_LANGUE.'sesi_langue_'.SESI_I18N_DEFAUT.'.inc.php';
}
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
// +------------------------------------------------------------------------------------------------------+
// | LISTE de FONCTIONS |
// +------------------------------------------------------------------------------------------------------+
/** Fonnction GEN_afficherContenuApplette() - Fournit un formulaire de sélection des sites.
*
* Renvoie un formulaire permettant de passer de site en site pour une langue donnée.
* Le formulaire affiche les noms des sites en fonctions de la langue passée dans l'url.
* Necessite l'utilisation de Pear Net_URL par le programme appelant cette fonction.
*
* @param array tableau d'éventuel arguments présent dans la balise transmis à la fonction.
* @param array tableau global de Papyrus.
* @return string formulaire XHTML contenant les sites disponibles.
*/
function afficherSelecteurSite($tab_applette_arguments, $_GEN_commun)
{
// Initialisation de variable de configuration.
$liste_type_site = '102, 103';// Les id des types des sites pouvant apparaître dans le sélecteur
$objet_pear_db = $_GEN_commun['pear_db'];//objet Pear créé par DB contenant la connexion à la base de données.
$code_site = $_GEN_commun['url_site'];//identifiant du site courant.
$id_langue = $_GEN_commun['i18n'];//identifiant de la langue choisie
$url_base = PAP_URL;
$url_cle_site = GEN_URL_CLE_SITE;
$url_cle_i18n = GEN_URL_CLE_I18N;
$url_id_type_site = GEN_URL_ID_TYPE_SITE;
$indent_origine = 12;// Indentation de départ en nombre d'espace
$indent_pas = 4;// Pas d'indentation en nombre d'espace
// Récupérations des arguments passés dans la balise.
// Nous vérifions si on veut du XHTML strict ou pas
$bln_xhtml_strict = 0;
if (isset($tab_applette_arguments[2]) && $tab_applette_arguments[2] == 'XHTML') {
$bln_xhtml_strict = 1;
}
// Nous vérifions s'il y a des sites que nous ne voulons pas afficher:
$morceau_requete_id_suppr = '';
$tab_id_suppr_groupe = '';
if (isset($tab_applette_arguments[3]) && ereg('SANS_(.+)', $tab_applette_arguments[3], $tab_id_suppr_groupe)) {
if (preg_match('/^\d+$/', $tab_id_suppr_groupe[1])) {
$liste_id_suppr = $tab_id_suppr_groupe[1];
} else if (preg_match('/^\d+(?:_\d+)+$/', $tab_id_suppr_groupe[1])) {
$liste_id_suppr = preg_replace('/_/', ', ', $tab_id_suppr_groupe[1]);
} else {
$liste_id_suppr = '0';
}
$morceau_requete_id_suppr = 'AND gs_id_site NOT IN ('.$liste_id_suppr.') ';
}
// Recherche de tous les sites langue en cours
// On recherche l'ensemble des site en excluant le site admin ? (administration de Papyrus).
 
if (isset($id_langue) && ($id_langue != '')) {
$langue_test = $id_langue;
} else {
$langue_test = GEN_I18N_ID_DEFAUT;
}
$requete = 'SELECT gs_id_site, gs_code_num, gs_code_alpha, gs_nom, gs_ce_i18n '.
'FROM gen_site, gen_site_relation '.
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
'AND gs_id_site = gsr_id_site_01 '.
'AND gsr_id_valeur IN ('.$liste_type_site.') '.
'AND gs_ce_i18n = "'.$langue_test.'" '.
$morceau_requete_id_suppr.// Liste des sites ne devant pas figurer
'ORDER BY gs_code_num ASC';// 102 = site "principal" et 103 = site "externe"
$resultat = $objet_pear_db->query($requete);
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
$liste_site = array();
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
// Si le site trouvé est une traduction vers la langue principale, on ne le selectionne pas
if ($langue_test == GEN_I18N_ID_DEFAUT) {
$requete_est_traduction = 'SELECT gsr_id_site_01 '.
'FROM gen_site_relation '.
'WHERE '.$ligne['gs_id_site'].' = gsr_id_site_02 ' .
'AND gsr_id_site_01 <> gsr_id_site_02 ' .
'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
$resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);
(DB::isError($resultat_est_traduction))
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
: '';
if ( $resultat_est_traduction->numRows() == 0 ) {
$liste_site[] = $ligne;
}
}
else {
$liste_site[] = $ligne;
}
}
$resultat->free();
 
// Si la langue en cours n'est pas la langue par défaut, recherche des sites ayant comme langue
// la langue par defaut et non traduits dans la langue en cours.
 
// On recherche l'ensemble des site en excluant le site admin (administration de Papyrus).
if ($langue_test != GEN_I18N_ID_DEFAUT) {
// Site ayant commme langue, la langue par defaut
$requete = 'SELECT gs_id_site, gs_code_num, gs_code_alpha, gs_nom, gs_ce_i18n '.
'FROM gen_site, gen_site_relation '.
'WHERE gsr_id_site_01 = gsr_id_site_02 '.
'AND gs_id_site = gsr_id_site_01 '.
'AND gsr_id_valeur IN ('.$liste_type_site.') '.
'AND gs_ce_i18n = "'.GEN_I18N_ID_DEFAUT.'" '.
$morceau_requete_id_suppr.// Liste des sites ne devant pas figurer
'ORDER BY gs_code_num ASC';// 102 = site "principal" et 103 = site "externe"
$resultat = $objet_pear_db->query($requete);
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
// Est il traduit ? Non, alors affichage
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
if (isset($id_langue) && ($id_langue != '')) {
$langue_test=$id_langue;
} else {
$langue_test=GEN_I18N_ID_DEFAUT;
}
$requete_est_traduction = 'SELECT gsr_id_site_01 '.
'FROM gen_site_relation '.
'WHERE '.$ligne['gs_id_site'].' = gsr_id_site_02 ' .
'AND gsr_id_site_01 <> gsr_id_site_02 ' .
'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
$resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);
(DB::isError($resultat_est_traduction))
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
: '';
if ( $resultat_est_traduction->numRows() == 0 ) {
$requete_traduction = 'SELECT gsr_id_site_01 '.
'FROM gen_site_relation, gen_site '.
'WHERE '.$ligne['gs_id_site'].' = gsr_id_site_01 ' .
'AND gsr_id_site_02 = gs_id_site '.
'AND gs_ce_i18n = "'.$langue_test.'" '.
'AND gsr_id_valeur = 1 ';// 1 = "avoir traduction"
$resultat_traduction = $objet_pear_db->query($requete_traduction);
(DB::isError($resultat_traduction))
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction))
: '';
if ( $resultat_traduction->numRows() == 0 ) {
$liste_site[] = $ligne;
}
$resultat_traduction->free();
}
}
$resultat->free();
}
if (count($liste_site) == 0 ) {
$retour = str_repeat(' ', $indent_origine + ($indent_pas * 0)).
'<!-- '.SESI_LG_ETIQUETTE_VALIDER.' -->';
} else {
// Préparation de l'url de retour du formulaire
$objet_pear_url = & new Pap_URL($url_base);
$objet_pear_url->setPermalienBool(false);
// Préparation du code du sites
$champs_code_site = ($url_id_type_site == 'int') ? 'gs_code_num' : 'gs_code_alpha';
// Préparation du formulaire
$retour = str_repeat(' ', $indent_origine + ($indent_pas * 0)).
'<form id="sesi_selecteur" ';
// Test sur XHTML strict
if ($bln_xhtml_strict == 0) {
$retour .= 'name="sesi_selecteur" ';
}
$retour .= 'action="'.$objet_pear_url->getURL().'" method="get">'."\n";
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 1)).
'<fieldset>'."\n";
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
'<legend>'.SESI_LG_LEGENDE.'</legend>'."\n";
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
'<select id="sesi_'.$url_cle_site.'" name="'.$url_cle_site.'" onchange="javascript:this.form.submit();">'."\n";
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 3)).
'<option value="'.$code_site.'" selected="selected">'.SESI_LG_DEFAUT.'</option>'."\n";
foreach ($liste_site as $ligne ) {
// Initialisation des variables
$nom = $ligne['gs_nom'];
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 3)).
'<option value="'.$ligne[$champs_code_site].'">'.$nom.'</option>'."\n";
}
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
'</select>'."\n";
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 2)).
'<input id="sesi_ok" name="sesi_ok" type="submit" value="'.SESI_LG__VALIDER.'"/>'."\n";
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 1)).
'</fieldset>'."\n";
if ($langue_test != GEN_I18N_ID_DEFAUT) {
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 1)).
'<input name="'.$url_cle_i18n.'" type="hidden" value="'.$id_langue.'"/>'."\n";
}
$retour .= str_repeat(' ', $indent_origine + ($indent_pas * 0)).
'</form>'."\n";
}
return $retour;
}
 
// +------------------------------------------------------------------------------------------------------+
// | PIED du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.11 2006-12-01 16:33:40 florian
* Amélioration de la gestion des applettes et compatibilité avec le nouveau mode de gestion de l'inclusion des applettes.
*
* Revision 1.10 2006/10/11 17:20:19 jp_milcent
* Formatage du code.
*
* Revision 1.9 2006/04/28 12:41:49 florian
* corrections erreurs chemin
*
* Revision 1.8 2006/03/02 10:49:49 ddelon
* Fusion branche multilinguisme dans branche principale
*
* Revision 1.7.2.4 2006/02/28 14:02:07 ddelon
* Finition multilinguisme
*
* Revision 1.7.2.3 2006/01/19 21:26:20 ddelon
* Multilinguisme site + bug ftp
*
* Revision 1.7.2.2 2005/12/20 14:40:24 ddelon
* Fusion Head vers Livraison
*
* Revision 1.7.2.1 2005/12/07 19:46:14 ddelon
* Merge + navi sites
*
* Revision 1.7 2005/05/25 12:53:00 jpm
* Changement et ajout d'attributs id.
*
* Revision 1.6 2005/05/23 09:31:43 jpm
* Ajout d'une majuscule à un txt.
*
* Revision 1.5 2004/10/26 18:42:02 jpm
* Possibilité d'externaliser l'applette.
* Gestion des sites externes.
*
* Revision 1.4 2004/09/15 09:32:01 jpm
* Mise en conformité avec le standard XHTML Strict.
*
* Revision 1.3 2004/07/06 17:07:16 jpm
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
*
* Revision 1.2 2004/06/21 07:37:50 alex
* Modification d'un label
*
* Revision 1.1 2004/06/15 15:05:47 jpm
* Changement de nom et d'arborescence de Genesia en Papyrus.
*
* Revision 1.5 2004/05/05 08:27:12 jpm
* Ajout du paramétrage de l'indentation et l'utilisation de variable pour contenir les textes de l'appli.
*
* Revision 1.4 2004/05/05 06:44:28 jpm
* Complément des commentaires indiquant les paquetages nécessaire à l'applette.
*
* Revision 1.3 2004/05/03 11:19:10 jpm
* Intégration de la variable globale de Génésia dans les arguments de la fonction de l'applette.
*
* Revision 1.2 2004/05/01 16:13:11 jpm
* Ajout du nom de la balise de l'applette dans le code de l'applette.
*
* Revision 1.1 2004/05/01 10:30:59 jpm
* Ajout de l'applette selecteur de sites.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/configuration/more_config_spip.inc.php
New file
0,0 → 1,66
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of Papyrus. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id$
/**
* Fichier de configuration de la recherche dans Spip.
*
* Permet de définir certains paramètres valables pour toutes l'applette MORE.
*
*@package Applette
*@subpackage Moteur_Recherche
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author aucun
*@copyright Tela-Botanica 2000-2006
*@version $Revision$ $Date$
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_MOTEUR_RECHERCHE_']['spip'] = array();
// Information pour un premier site Spip...
//$GLOBALS['_MOTEUR_RECHERCHE_']['spip'][0] =
// array( 'bdd_dsn' => 'mysql://nom_utilisateur:mot_de_passe@localhost/nom_base_de_donnees',
// 'table_prefixe' => '',
// 'url' => 'url_de_base_du_spip');
// Information pour un deuxième site Spip...
//$GLOBALS['_MOTEUR_RECHERCHE_']['spip'][1] =
// array( 'bdd_dsn' => 'mysql://nom_utilisateur:mot_de_passe@localhost/nom_base_de_donnees',
// 'table_prefixe' => '',
// 'url' => 'url_de_base_du_spip');
// Ainsi de suite...
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log$
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/configuration/more_config_bazar.inc.php
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/configuration/more_config_bazar.inc.php
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/configuration/more_configuration.inc.php
New file
0,0 → 1,105
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of Papyrus. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: more_configuration.inc.php,v 1.5 2006-11-14 16:08:12 jp_milcent Exp $
/**
* Fichier de configuration général de l'applette Moteur_Recherche.
*
* Permet de définir certains paramètres valables pour toutes l'applette MORE.
*
*@package Applette
*@subpackage Moteur_Recherche
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author aucun
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.5 $ $Date: 2006-11-14 16:08:12 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Constante stockant la valeur de la langue par défaut pour l'applette MORE.*/
define('MORE_I18N_DEFAUT', GEN_I18N_ID_DEFAUT);
/** Constante stockant la valeur de la langue par défaut pour l'applette MORE.*/
define('MORE_MODE', 1);// 1 : recherche de chaque mot du motif; 2: recherche du motif complet
 
// Chemin des fichiers à inclure.
/** Chemin vers la bibliothèque PEAR.*/
define('MORE_CHEMIN_BIBLIOTHEQUE_PEAR', PAP_CHEMIN_API_PEAR);
 
// Chemin vers les dossiers de l'applette
/** Chemin vers l'applette Moteur de Recherche de Papyrus.*/
define('MORE_CHEMIN_APPLETTE', GEN_CHEMIN_APPLETTE.'moteur_recherche'.GEN_SEP);
/** Chemin vers les fichiers de traduction de l'applette Moteur de Recherche de Papyrus.*/
define('MORE_CHEMIN_LANGUE', MORE_CHEMIN_APPLETTE.'langues'.GEN_SEP);
/** Chemin vers les fichiers de la bibliotheque de l'applette Moteur de Recherche de Papyrus.*/
define('MORE_CHEMIN_BIBLIO', MORE_CHEMIN_APPLETTE.'bibliotheque'.GEN_SEP);
/** Chemin vers les fichiers squelettes de l'applette Moteur de Recherche de Papyrus.*/
define('MORE_CHEMIN_SQUELETTE', MORE_CHEMIN_APPLETTE.'squelettes'.GEN_SEP);
 
// Configuration du formulaire de recherche
/** Nom du fichier de squelette à utiliser pour le formulaire du moteur de recherche.*/
define('MORE_FORM_SQUELETTE', 'formulaire.tpl.html');
/** Valeur de départ des tabulations pour le formulaire de recherche.*/
define('MORE_FORM_MOTIF_TAB', 100);
/** Taille de la zone de saisie de texte du formulaire de recherche.*/
define('MORE_FORM_MOTIF_SIZE', 20);
/** Nombre de caractères maximum pouvant être saisis dans la zone de texte du formulaire de recherche.*/
define('MORE_FORM_MOTIF_MAXLENGTH', 100);
 
// Configuration des résultats d'une recherche
/** Nom du fichier de squelette à utiliser pour les résultats du moteur de recherche.*/
define('MORE_RESULTAT_SQUELETTE', 'resultat_gg.tpl.html');
/** Taille du champ description en nombre de caractères.*/
define('MORE_RESULTAT_TAILLE_DESCRIPTION', 200);
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.4 2006/10/17 09:22:02 jp_milcent
* Utilisation par défaut du mode de recherche 1.
*
* Revision 1.3 2006/10/10 12:02:30 jp_milcent
* Suppression d'une bibliothèque Pear qu'il est inutile d'inclure.
* Ajout du chemin vers la bibliotheque Pear de Papyrus.
*
* Revision 1.2 2006/05/23 14:18:19 jp_milcent
* Ajout de la gestion du mode de recherche au moteur de recherche de Papyrus.
* Soit on recherche chaque mot du motif, soit le motif entier.
*
* Revision 1.1 2004/12/07 10:24:12 jpm
* Moteur de recherche version de départ.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/configuration/more_config_projet.inc.php
New file
0,0 → 1,52
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of Papyrus. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: more_config_projet.inc.php,v 1.1 2008-08-26 15:31:44 alexandre_tb Exp $
/**
* Fichier de configuration de la recherche dans l appli projet.
*
* Permet de définir certains paramètres valables pour toutes l'applette MORE.
*
*@package Applette
*@subpackage Moteur_Recherche
//Auteur original :
*@author Alexandre Granier <alexandre@tela-botanica.org>
//Autres auteurs :
*@author aucun
*@copyright Tela-Botanica 2000-2008
*@version $Revision: 1.1 $ $Date: 2008-08-26 15:31:44 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_MOTEUR_RECHERCHE_']['projet']['url'] = '';
//
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/moteur_recherche.php
New file
0,0 → 1,311
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of Papyrus. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: moteur_recherche.php,v 1.24 2008-10-21 15:24:50 aperonnet Exp $
/**
* Applette : moteur de recherche
*
* Génère un formulaire contenant une zone de saisie permettant de taper un texte à rechercher sur l'ensemble
* des sites gérés par Papyrus.
* Utilisation des bibliothèques inclue par Papyrus :
* - Papyrus pap_meta.fonct.php
* - PEAR NET_URL
*
*@package Applette
*@subpackage Moteur_recherche
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.24 $ $Date: 2008-10-21 15:24:50 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherMoteurRecherche';
$GLOBALS['_GEN_commun']['info_applette_balise'] = '(?:<!-- '.$GLOBALS['_GEN_commun']['balise_prefixe'].'(MOTEUR_RECHERCHE) -->|'.
'\{\{[[Mm]oteurRecherche\s*\}\})';
 
// --------------------------------------------------------------------------------------------------------
//Utilisation de la bibliothèque Papyrus pap_meta.fonct.php inclue par Papyrus
//Utilisation de la bibliothèque PEAR NET_URL inclue par Papyrus
/** Inclusion du fichier de configuration de cette application.*/
require_once GEN_CHEMIN_APPLETTE.'moteur_recherche/configuration/more_configuration.inc.php';
/** Inclusion du fichier de configuration des Spip.*/
require_once GEN_CHEMIN_APPLETTE.'moteur_recherche/configuration/more_config_spip.inc.php';
/** Inclusion du fichier de configuration de l appli projet.*/
require_once GEN_CHEMIN_APPLETTE.'moteur_recherche/configuration/more_config_projet.inc.php';
/** Inclusion du fichier de configuration de l appli bazar.*/
require_once GEN_CHEMIN_APPLETTE.'moteur_recherche/configuration/more_config_bazar.inc.php';
 
// Inclusion des fichiers de traduction de l'appli ADME de Papyrus
if (file_exists(MORE_CHEMIN_LANGUE.'more_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {
/** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/
require_once MORE_CHEMIN_LANGUE.'more_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';
} else {
/** Inclusion du fichier de traduction par défaut.*/
require_once MORE_CHEMIN_LANGUE.'more_langue_'.MORE_I18N_DEFAUT.'.inc.php';
}
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
if (isset($_POST['more_motif']) && $_POST['more_motif'] != '') {
// Initialisation de variable extérieures
$GLOBALS['_VEI_']['usurpation'] = MORE_LG_USURPATION.htmlentities(stripslashes($_POST['more_motif']));
$GLOBALS['_PAPYRUS_']['general']['application_chemin'] = null;
// Modification des meta de l'entête de la page
GEN_modifierMetaHttpEquiv('Content-Type', 'text/html; charset=ISO-8859-15');
GEN_modifierMetaHttpEquiv('Content-style-type', 'text/css');
GEN_modifierMetaHttpEquiv('Content-script-type', 'text/javascript');
GEN_modifierMetaHttpEquiv('Content-language', $GLOBALS['_GEN_commun']['i18n']);
GEN_modifierMetaName('revisit-after', '15 days');
GEN_modifierMetaName('robots', 'index,follow');
GEN_modifierMetaName('author', 'Tela Botanica');
GEN_modifierMetaName('keywords', 'Recherche, résultat.');
GEN_modifierMetaName('description', 'Page de résultats du moteur de recherche de Papyrus.');
GEN_viderMeta('dc');
}
 
// +------------------------------------------------------------------------------------------------------+
// | LISTE de FONCTIONS |
// +------------------------------------------------------------------------------------------------------+
 
/** Fonction afficherMoteurRecherche() - Fournit un formulaire de recherche.
*
* Renvoie un formulaire permettant de rechercher une chaine de caractères dans les sites
* gérés par Papyrus.
* Necessite l'utilisation de Pear Net_URL par le programme appelant cette fonction.
*
* @param array tableau d'éventuel arguments présent dans la balise transmis à la fonction.
* @param array tableau global de Papyrus.
* @return string formulaire XHTML de recherche.
*/
function afficherMoteurRecherche($tab_applette_arguments, $_GEN_commun)
{
// --------------------------------------------------------------------------------------------------------
// Initialisation de variable de configuration.
$liste_type_site = '102, 103';// Les id des types des sites pouvant apparaître dans le sélecteur
$objet_pear_db =& $_GEN_commun['pear_db'];//objet Pear créé par DB contenant la connexion à la base de données.
$GLOBALS['_MOTEUR_RECHERCHE_']['bd']['papyrus'] =& $_GEN_commun['pear_db'];// Connexion à la BD de Papyrus
$GLOBALS['_MOTEUR_RECHERCHE_']['variables'] = array();
$code_site = $_GEN_commun['url_site'];// identifiant du site courant.
$url = $_GEN_commun['url'];
$url_id_type_site = GEN_URL_ID_TYPE_SITE;
$indent_origine = 12;// Indentation de départ en nombre d'espace
$indent_pas = 4;// Pas d'indentation en nombre d'espace
$retour = '';
$retour_resultats = '';
// --------------------------------------------------------------------------------------------------------
// Lancement de la recherche si nécessaire
$aso_squelette = array('formulaire' => MORE_FORM_SQUELETTE);
$_SESSION['_MOTEUR_RECHERCHE_']['rechercher']['more_motif'] = '';
$GLOBALS['_MOTEUR_RECHERCHE_']['formulaire']['form_url'] = $url->getUrl();
$GLOBALS['_MOTEUR_RECHERCHE_']['formulaire']['form_tab'] = MORE_FORM_MOTIF_TAB;
$GLOBALS['_MOTEUR_RECHERCHE_']['formulaire']['more_motif_base'] = MORE_LG_FORM_MOTIF_VALUE;
if (!isset($_POST['more_motif']) || $_POST['more_motif'] == '') {
$GLOBALS['_MOTEUR_RECHERCHE_']['formulaire']['more_motif'] = MORE_LG_FORM_MOTIF_VALUE;
} else {
// Ajout du squelette de résultat
$aso_squelette['resultat'] = MORE_RESULTAT_SQUELETTE;
// Titre de la page
$GLOBALS['_PAPYRUS_']['rendu']['TITRE_PAGE'] = MORE_LG_TITRE.htmlentities(stripslashes($_POST['more_motif']));
$_SESSION['_MOTEUR_RECHERCHE_']['rechercher']['more_motif'] = $_POST['more_motif'];
$GLOBALS['_MOTEUR_RECHERCHE_']['formulaire']['more_motif'] = htmlentities(stripslashes($_POST['more_motif']));
/** Inclusion de la classe Recherche.*/
require_once MORE_CHEMIN_BIBLIO.'more_recherche.class.php';
/** Inclusion de la classe Recherche_Papyrus_Menu.*/
require_once MORE_CHEMIN_BIBLIO.'more_recherche_papyrus_menu.class.php';
/** Inclusion de la classe Recherche_Spip_Article.*/
require_once MORE_CHEMIN_BIBLIO.'more_recherche_spip_article.class.php';
/** Inclusion de la classe Recherche_Projet.*/
require_once MORE_CHEMIN_BIBLIO.'more_recherche_projet.class.php';
/** inclusion de la classe Recheche Bazar. */
require_once MORE_CHEMIN_BIBLIO.'more_recherche_bazar.class.php';
$moteur = new More_Recherche($_SESSION['_MOTEUR_RECHERCHE_']['rechercher']['more_motif']);
$recherche_papyrus_menu = new More_Recherche_Papyrus_Menu($_SESSION['_MOTEUR_RECHERCHE_']['rechercher']['more_motif']);
$recherche_spip_article = new More_Recherche_Spip_Article($_SESSION['_MOTEUR_RECHERCHE_']['rechercher']['more_motif']);
$recherche_projet = new More_Recherche_Projet($_SESSION['_MOTEUR_RECHERCHE_']['rechercher']['more_motif']);
$recherche_bazar = new More_Recherche_Bazar($_SESSION['_MOTEUR_RECHERCHE_']['rechercher']['more_motif']);
$moteur->ajouterRecherche($recherche_papyrus_menu);
$moteur->ajouterRecherche($recherche_spip_article);
$moteur->ajouterRecherche($recherche_projet);
$moteur->ajouterRecherche($recherche_bazar);
$GLOBALS['_MOTEUR_RECHERCHE_']['resultat']['resultats'] = $moteur->rechercherMotif();
//$GLOBALS['_DEBOGAGE_'] = '<pre>'.print_r($GLOBALS['_MOTEUR_RECHERCHE_']['resultat']['resultats'], true).'</pre>';
$nbre_pages = count($GLOBALS['_MOTEUR_RECHERCHE_']['resultat']['resultats']);
$GLOBALS['_MOTEUR_RECHERCHE_']['resultat']['nbre_pages'] = $nbre_pages;
$GLOBALS['_MOTEUR_RECHERCHE_']['resultat']['vide'] = MORE_LG_RESULTAT_VIDE;
if ($nbre_pages <= 1) {
$GLOBALS['_MOTEUR_RECHERCHE_']['resultat']['titre'] = sprintf(MORE_LG_RESULTAT_TITRE, $nbre_pages);
} else {
$GLOBALS['_MOTEUR_RECHERCHE_']['resultat']['titre'] = sprintf(MORE_LG_RESULTAT_TITRE_PLURIEL, $nbre_pages);
}
foreach ($GLOBALS['_MOTEUR_RECHERCHE_']['resultat']['resultats'] as $cle => $val) {
if (empty($val['url'])) {
unset($GLOBALS['_MOTEUR_RECHERCHE_']['resultat']['resultats'][$cle]);
} else {
$GLOBALS['_MOTEUR_RECHERCHE_']['resultat']['resultats'][$cle]['score'] = trim($val['score']);
$GLOBALS['_MOTEUR_RECHERCHE_']['resultat']['resultats'][$cle]['date_creation'] = trim($val['date_creation']);
$GLOBALS['_MOTEUR_RECHERCHE_']['resultat']['resultats'][$cle]['description'] = trim($val['description']);
}
}
}
 
// Génération du contenu à partir des squelettes
foreach ($aso_squelette as $squelette => $fichier) {
// Extrait les variables et les ajoutes à l'espace de noms local
extract($GLOBALS['_MOTEUR_RECHERCHE_'][$squelette]);
// Démarre le buffer
ob_start();
// Inclusion du fichier
include(MORE_CHEMIN_SQUELETTE.$fichier);
// Récupérer le contenu du buffer
$retour = ob_get_contents();
// Arrête et détruit le buffer
ob_end_clean();
// Retourne le contenu
switch ($squelette) {
case 'resultat' :
// L'applette fournie un résultat qui écrase le contenu de la page courrante
$GLOBALS['_PAPYRUS_']['rendu']['CONTENU_NAVIGATION'] = '';
$GLOBALS['_PAPYRUS_']['rendu']['CONTENU_TETE'] = '';
$GLOBALS['_PAPYRUS_']['rendu']['CONTENU_CORPS'] = $retour;
$GLOBALS['_PAPYRUS_']['rendu']['CONTENU_PIED'] = '';
$GLOBALS['_GEN_commun']['info_menu'] = '';
break;
case 'formulaire' :
// L'applette est appelée par défaut
$retour_formulaire = $retour;
break;
default:
$e = "Squellette <$squelette> pour le moteur de recherche inconnu!";
trigger_error($e, E_USER_WARNING);
}
}
return $retour_formulaire;
}
 
// +------------------------------------------------------------------------------------------------------+
// | PIED du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.23 2008-08-26 15:31:16 alexandre_tb
* ajout du moteur de recherche dans l'appli projet
*
* Revision 1.22 2007-11-30 14:02:48 alexandre_tb
* Fusion avec la livraison
*
* Revision 1.21 2007-10-29 18:29:30 jp_milcent
* Ajout d'un préfixe devant les classes de l'applette pour éviter les conflits avec d'autres classes provenant des applis clientes.
*
* Revision 1.20 2007-06-15 12:27:39 jp_milcent
* Ajout de fonctionnalités Javascript au moteur de recherche.
*
* Revision 1.19 2007-01-02 18:49:22 jp_milcent
* Amélioration de la gestion du motif.
* Ajout de la gestion des expressions complête via l'utilisation de guillemets.
*
* Revision 1.18 2006/12/12 13:53:54 jp_milcent
* Mise en place du nouveau format des balises d'applette.
*
* Revision 1.17 2006/12/01 16:33:40 florian
* Amélioration de la gestion des applettes et compatibilité avec le nouveau mode de gestion de l'inclusion des applettes.
*
* Revision 1.16 2006/11/20 09:36:59 jp_milcent
* Correction bogue zéro résultat et ajout d'url simple pour indiquer la page de l'article.
*
* Revision 1.15 2006/11/14 16:10:13 jp_milcent
* Extraction du XHTML et utilisation de squelettes à la place.
* Possibilité de configurer le squlette voulu via le fichier de conf.
*
* Revision 1.14 2006/10/10 13:28:14 jp_milcent
* Suppression d'une variable et utilisation de la constante PAP_URL
*
* Revision 1.13 2006/10/10 12:02:30 jp_milcent
* Suppression d'une bibliothèque Pear qu'il est inutile d'inclure.
* Ajout du chemin vers la bibliotheque Pear de Papyrus.
*
* Revision 1.12 2006/06/16 09:45:10 jp_milcent
* Correction bogue lié à la suppression de l'objet info_menu.
*
* Revision 1.11 2006/05/23 13:39:13 florian
* corection bug notice de jean pascal ;-)
*
* Revision 1.10 2006/05/19 10:04:55 jp_milcent
* Ajout d'un moteur de recherche analysant les articles des sites sous Spip.
*
* Revision 1.9 2006/04/28 12:41:49 florian
* corrections erreurs chemin
*
* Revision 1.8 2006/03/02 10:49:49 ddelon
* Fusion branche multilinguisme dans branche principale
*
* Revision 1.7.2.2 2005/12/27 15:56:00 ddelon
* Fusion Head vers multilinguisme (wikini double clic)
*
* Revision 1.7.2.1 2005/12/20 14:40:25 ddelon
* Fusion Head vers Livraison
*
* Revision 1.7 2005/09/27 09:07:32 ddelon
* size applette et squelettes
*
* Revision 1.6 2005/05/25 13:49:22 jpm
* Corection erreur pour la recherche dans le contenu.
*
* Revision 1.5 2005/05/19 12:46:12 jpm
* Correction bogue accesskey.
* Ajout d'un id à la liste.
* Arrondissement des score.
*
* Revision 1.4 2005/04/14 17:39:34 jpm
* Amélioration du moteur de rechercher :
* - pourcentage
* - ajout d'info
*
* Revision 1.3 2005/02/22 19:27:21 jpm
* Changement de nom de variables.
* Suppression de l'attribut nam de la balise form via une méthode de HTML_Common.
*
* Revision 1.2 2005/02/22 17:44:03 jpm
* Suppression de référence posant problème.
*
* Revision 1.1 2004/12/07 10:24:01 jpm
* Moteur de recherche version de départ.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/bibliotheque/more_recherche_papyrus_menu.class.php
New file
0,0 → 1,207
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of Papyrus. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: more_recherche_papyrus_menu.class.php,v 1.15 2008-10-21 15:24:50 aperonnet Exp $
/**
* Classe permettant d'effectuer des recherches sur les informations des menus de Papyrus.
*
* Permet de rechercher et classer les menus en fonction d'une chaine.
* Utilisation des bibliothèques inclue par Papyrus :
* - Papyrus pap_meta.fonct.php
* - Papyrus pap_menu.fonct.php
* - Papyrus pap_url.class.php
*
*@package Applette
*@subpackage Moteur_Recherche
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author aucun
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.15 $ $Date: 2008-10-21 15:24:50 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
///** Inclusion du fichier contenant les fonctions de manipulations des menus de Papyrus.*/
//require_once GEN_CHEMIN_BIBLIO.'pap_menu.fonct.php';
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
class More_Recherche_Papyrus_Menu extends More_Recherche{
// Constructeur
function Recherche_Menu_Meta($motif) {
$this->setMotif($motif);
}
// Accesseurs
function getMotif() {
return $this->motif;
}
function setMotif($motif) {
$this->motif = $motif;
}
// Méthodes
function rechercherMotif($motif) {
$db = $GLOBALS['_MOTEUR_RECHERCHE_']['bd']['papyrus'];
$tab_menus = GEN_retournerMenus($db);
foreach ($tab_menus as $cle => $menu_id) {
// Initialisation du tableau de résultat vide
$aso_resultat = array( 'poids' => 0, 'url' => '', 'titre' => '',
'hreflang' => '', 'accesskey' => '', 'title' => '',
'date_creation' => '', 'description' => '');
// Récupération des infos du menu courant : transtypage pour éviter les erreur avec array_merge
$aso_menu_info = (array) GEN_lireInfoMenu($db, $menu_id, DB_FETCHMODE_ASSOC);
// Nous vérifions que le menu a une date de validité valide
if ($aso_menu_info['gm_date_fin_validite'] == '0000-00-00 00:00:00' || strtotime($aso_menu_info['gm_date_fin_validite']) > time() ) {
// Récupération du contenu du menu courant : transtypage pour éviter les erreur avec array_merge
$aso_menu_contenu = (array) GEN_lireContenuMenu($db, $menu_id, DB_FETCHMODE_ASSOC);
// Fusion des deux tableaux de champs à analyser
$aso_menu = array_merge($aso_menu_info, $aso_menu_contenu);
// Analyse du poids de cette page vis à vis des méta informations et du contenu
$tab_champs_a_visiter = array( 'gm_nom', 'gm_titre', 'gm_titre_alternatif', 'gm_mots_cles',
'gm_description_libre', 'gm_description_resume', 'gm_description_table_matieres',
'gm_source', 'gm_auteur', 'gm_contributeur', 'gm_editeur', 'gm_categorie',
'gm_public', 'gmc_contenu');
foreach ($tab_champs_a_visiter as $val) {
// Vérification que le champ existe et contient quelque chose
if (isset($aso_menu[$val]) && $aso_menu[$val] != '') {
$aso_resultat['poids'] += $this->retournerOccurenceMotif($motif, $aso_menu[$val]);
}
}
// Si le menu contient les mots recherchés nous poursuivons
if ($aso_resultat['poids'] > 0) {
// Création de l'url
// TODO : utiliser comme pour spip un fichier de config spécifique pour virer PAP_URL d'ici
$une_url =& new Pap_URL(PAP_URL);
$une_url->setId($menu_id);
$aso_resultat['url_simple'] = $une_url->getURL();
$une_url->addQueryString('var_recherche', $this->traiterMotif($motif, 'url'), true);
$aso_resultat['url'] = $une_url->getURL();
$une_url->removeQueryString('var_recherche');
// Récupération du titre de la page
if (trim($aso_menu_info['gm_nom']) != '') {
$aso_resultat['titre'] = htmlentities($aso_menu_info['gm_nom']);
} else if (trim($aso_menu_info['gm_titre']) != '') {
$aso_resultat['titre'] = htmlentities($aso_menu_info['gm_titre']);
} else if (trim($aso_menu_info['gm_titre_alternatif']) != '') {
$aso_resultat['titre'] = htmlentities($aso_menu_info['gm_titre_alternatif']);
}
$aso_resultat['hreflang'] = htmlentities($aso_menu_info['gm_ce_i18n']);
$raccourci_txt = '';
$aso_resultat['accesskey'] = htmlentities($aso_menu_info['gm_raccourci_clavier']);
if ($aso_resultat['accesskey'] != '') {
$raccourci_txt = MORE_LG_RESULTAT_CADRE_OUVRIR.
MORE_LG_RESULTAT_RACCOURCI.$aso_resultat['accesskey'].' '.
MORE_LG_RESULTAT_CADRE_FERMER.MORE_LG_RESULTAT_POINT.' ';
}
$aso_resultat['title'] = htmlentities($raccourci_txt.$aso_menu_info['gm_description_resume']);
$aso_resultat['description'] = htmlentities($aso_menu_info['gm_description_libre']);
if (($jour = date('d', strtotime($aso_menu_info['gm_date_creation'] )) ) != 0 ) {
$aso_resultat['date_creation'] .= '<span class="page_modification_jour"> '.$jour.'</span>'."\n";
}
if (($mois = $this->traduireMois(date('m', strtotime($aso_menu_info['gm_date_creation'] ))) ) != '' ) {
$aso_resultat['date_creation'] .= '<span class="page_modification_mois"> '.$mois.'</span>'."\n";
}
if (($annee = date('Y', strtotime($aso_menu_info['gm_date_creation'] )) ) != 0 ) {
$aso_resultat['date_creation'] .= '<span class="page_modification_annee"> '.$annee.'</span>'."\n";
}
$this->setResultat($aso_resultat);
}
}
}
return $this->getResultats();
}
}
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.14 2008-08-08 16:04:41 jp_milcent
* Fusion avec la livraions AHA.
*
* Revision 1.13.2.1 2008-08-08 15:59:09 jp_milcent
* Les menus dont la date de fin de validité est dépassée ne sont plus affichés.
*
* Revision 1.13 2007-10-29 18:29:30 jp_milcent
* Ajout d'un préfixe devant les classes de l'applette pour éviter les conflits avec d'autres classes provenant des applis clientes.
*
* Revision 1.12 2007-01-02 18:49:22 jp_milcent
* Amélioration de la gestion du motif.
* Ajout de la gestion des expressions complête via l'utilisation de guillemets.
*
* Revision 1.11 2006/11/21 18:52:20 jp_milcent
* Ajout de la possibilité de surligner des mots.
*
* Revision 1.10 2006/11/20 09:36:59 jp_milcent
* Correction bogue zéro résultat et ajout d'url simple pour indiquer la page de l'article.
*
* Revision 1.9 2006/10/17 09:21:40 jp_milcent
* Mise en commun des spécifications de la recherche.
*
* Revision 1.8 2006/10/16 14:11:30 jp_milcent
* Amélioration du moteur de recherche.
* Utilisation de l'opérateur "et" entre les mots recherchés.
*
* Revision 1.7 2006/10/10 13:28:13 jp_milcent
* Suppression d'une variable et utilisation de la constante PAP_URL
*
* Revision 1.6 2006/05/19 10:04:55 jp_milcent
* Ajout d'un moteur de recherche analysant les articles des sites sous Spip.
*
* Revision 1.5 2006/04/28 12:41:49 florian
* corrections erreurs chemin
*
* Revision 1.4 2005/05/25 13:49:22 jpm
* Corection erreur pour la recherche dans le contenu.
*
* Revision 1.3 2005/05/19 12:46:12 jpm
* Correction bogue accesskey.
* Ajout d'un id à la liste.
* Arrondissement des score.
*
* Revision 1.2 2005/04/14 17:39:34 jpm
* Amélioration du moteur de rechercher :
* - pourcentage
* - ajout d'info
*
* Revision 1.1 2004/12/07 10:24:06 jpm
* Moteur de recherche version de départ.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/bibliotheque/more_recherche_spip_article.class.php
New file
0,0 → 1,187
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of Papyrus. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id$
/**
* Classe permettant d'effectuer des recherches sur les informations des articles de Spip.
*
* Permet de rechercher et classer les articles en fonction d'une chaine.
* Utilisation des bibliothèques inclue par Papyrus :
* - Papyrus pap_meta.fonct.php
* - Papyrus pap_menu.fonct.php
* - Papyrus pap_url.class.php
*
*@package Applette
*@subpackage Moteur_Recherche
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author aucun
*@copyright Tela-Botanica 2000-2006
*@version $Revision$ $Date$
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
///** Inclusion du fichier contenant les fonctions de manipulations des menus de Papyrus.*/
//require_once GEN_CHEMIN_BIBLIO.'pap_menu.fonct.php';
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
class More_Recherche_Spip_Article extends More_Recherche {
// Constructeur
function Recherche_Menu_Meta($motif) {
$this->setMotif($motif);
}
// Accesseurs
function getMotif() {
return $this->motif;
}
function setMotif($motif) {
$this->motif = $motif;
}
// Méthodes
function rechercherMotif($motif) {
for ($i = 0; $i < count($GLOBALS['_MOTEUR_RECHERCHE_']['spip']); $i++ ) {
$db = DB::connect($GLOBALS['_MOTEUR_RECHERCHE_']['spip'][$i]['bdd_dsn']);
if (DB::isError($db)) {
$msg_erreur_connection = 'Impossible de se connecter à la base de données Spip.';
die(BOG_afficherErreurSql(__FILE__, __LINE__, $db->getMessage(), 'connexion à la base de données',$msg_erreur_connection));
}
$prefixe = $GLOBALS['_MOTEUR_RECHERCHE_']['spip'][$i]['table_prefixe'];
$url_base = $GLOBALS['_MOTEUR_RECHERCHE_']['spip'][$i]['url'];
$tab_articles = $this->retournerArticles($db, $prefixe);
foreach ($tab_articles as $article_id => $Article) {
// Initialisation du tableau de résultat vide
$aso_resultat = array( 'poids' => 0, 'url' => '', 'titre' => '',
'hreflang' => '', 'accesskey' => '', 'title' => '',
'date_creation' => '', 'description' => '');
// Analyse du poids de cette page vis à vis des données
$tab_champs_a_visiter = array('surtitre', 'titre', 'soustitre', 'descriptif', 'chapo', 'texte', 'ps');
foreach ($tab_champs_a_visiter as $val) {
// Vérification que le champ existe et contient quelque chose
if (isset($Article->$val) && $Article->$val != '') {
$aso_resultat['poids'] += $this->retournerOccurenceMotif($motif, $Article->$val);
}
}
if ($aso_resultat['poids'] > 0) {
// Création de l'url
$aso_resultat['url_simple'] = $url_base.'article'.$article_id.'.html';
$aso_resultat['url'] = $aso_resultat['url_simple'].'?var_recherche='.$this->traiterMotif($motif, 'url');
// Récupération du titre de la page
if (trim($Article->titre) != '') {
$aso_resultat['titre'] = htmlentities($Article->titre);
} else if (trim($Article->surtitre) != '') {
$aso_resultat['titre'] = htmlentities($Article->surtitre);
} else if (trim($Article->soustitre) != '') {
$aso_resultat['titre'] = htmlentities($Article->soustitre);
}
$aso_resultat['hreflang'] = htmlentities($Article->lang);
$aso_resultat['description'] = $this->couperTexte($Article->texte, MORE_RESULTAT_TAILLE_DESCRIPTION);
if (($jour = date('d', strtotime($Article->date)) ) != 0 ) {
$aso_resultat['date_creation'] .= '<span class="page_modification_jour"> '.$jour.'</span>'."\n";
}
if (($mois = $this->traduireMois(date('m', strtotime($Article->date))) ) != '' ) {
$aso_resultat['date_creation'] .= '<span class="page_modification_mois"> '.$mois.'</span>'."\n";
}
if (($annee = date('Y', strtotime($Article->date)) ) != 0 ) {
$aso_resultat['date_creation'] .= '<span class="page_modification_annee"> '.$annee.'</span>'."\n";
}
$this->setResultat($aso_resultat);
}
}
}
return $this->getResultats();
}
/** Renvoie un tableau contenant les infos sur les articles
*
* @param mixed une instance de la classse Pear DB.
* @param string le préfixe pour les tables spip.
* @return array tableau contenant les articles.
*/
function retournerArticles(&$db, $prefixe = '')
{
//----------------------------------------------------------------------------
// Recherche des informations sur le menu
$requete = 'SELECT * '.
'FROM '.$prefixe.'spip_articles '.
'WHERE statut = "publie"';
$resultat = $db->query($requete);
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
//----------------------------------------------------------------------------
// Récupération des infos
$tab_retour = array();
while ($info_article = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
$tab_retour[$info_article->id_article] = $info_article;
}
$resultat->free();
return $tab_retour;
}
}
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log$
* Revision 1.7 2007-10-29 18:29:30 jp_milcent
* Ajout d'un préfixe devant les classes de l'applette pour éviter les conflits avec d'autres classes provenant des applis clientes.
*
* Revision 1.6 2007-01-02 18:49:22 jp_milcent
* Amélioration de la gestion du motif.
* Ajout de la gestion des expressions complête via l'utilisation de guillemets.
*
* Revision 1.5 2006/11/20 09:36:59 jp_milcent
* Correction bogue zéro résultat et ajout d'url simple pour indiquer la page de l'article.
*
* Revision 1.4 2006/11/14 16:08:40 jp_milcent
* Paramétrage de la découpe de la description et du symbole "etc"
*
* Revision 1.3 2006/10/17 09:21:40 jp_milcent
* Mise en commun des spécifications de la recherche.
*
* Revision 1.2 2006/10/16 14:11:30 jp_milcent
* Amélioration du moteur de recherche.
* Utilisation de l'opérateur "et" entre les mots recherchés.
*
* Revision 1.1 2006/05/19 10:04:55 jp_milcent
* Ajout d'un moteur de recherche analysant les articles des sites sous Spip.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/bibliotheque/more_recherche_bazar.class.php
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/bibliotheque/more_recherche_bazar.class.php
New file
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/bibliotheque/more_recherche.class.php
New file
0,0 → 1,384
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of Papyrus. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: more_recherche.class.php,v 1.15 2008-11-04 17:34:37 aperonnet Exp $
/**
* Classe permettant d'effectuer des recherches sur les métas informations des menus.
*
* Permet de rechercher et classer les menus en fonction d'une chaine.
*
*@package Applette
*@subpackage Moteur_Recherche
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author aucun
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.15 $ $Date: 2008-11-04 17:34:37 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
class More_Recherche {
var $motif = '';
var $moteurs_recherches = array();
var $resultats = array();
// Constructeur
function More_Recherche($motif) {
$this->setMotif($motif);
}
// Accesseurs
function getMotif() {
return $this->motif;
}
function setMotif($motif) {
$this->motif = $motif ;
}
function getMoteurs() {
return $this->moteurs_recherches;
}
function getMoteur($id) {
return $this->moteurs_recherches[$id];
}
function setMoteur($val) {
$id_nouveau = count($this->moteurs_recherches);
$this->moteurs_recherches[$id_nouveau] = $val;
}
function getResultats() {
return $this->resultats;
}
function setResultats($val) {
$this->resultats = $val;
}
function setResultat($aso_page) {
$id_nouveau = count($this->resultats);
$this->resultats[$id_nouveau] = $aso_page;
}
// Méthodes
function eliminerAccents($motif)
{
return strtr($motif,"ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç'",
"AAAAAAaaaaaaOOOOOOooooooEEEEeeeeIIIIiiiiUUUUuuuuyNnCc " );
}
function ajouterRecherche(&$objet_recherche) {
return $this->setMoteur($objet_recherche);
}
 
function rechercherMotif() {
foreach ($this->getMoteurs() as $cle => $val) {
$this->setResultats(array_merge((array)$this->getResultats(),(array)$val->rechercherMotif($this->getMotif())));
}
$aso_resultats = $this->getResultats();
// on teste l'existence de la fonction anonyme car sinon bug d'inclusion très pénible !
if (!function_exists('comparer')) {
function comparer($a, $b) {
if ($a['poids'] > $b['poids']) {
return -1;
}
if ($a['poids'] < $b['poids']) {
return +1;
}
if ($a['poids'] = $b['poids']) {
return 0;
}
}
}
usort($aso_resultats, 'comparer');
$pds_max = 0;
if (isset($aso_resultats[0]['poids'])) {
$pds_max = $aso_resultats[0]['poids'];
}
for ($i = 0 ; $i < count($aso_resultats) ; $i++) {
$aso_resultats[$i]['score'] = round((100 / $pds_max) * $aso_resultats[$i]['poids'], 1);
}
return $aso_resultats;
}
/** Renvoie le nombre d'occurences total de la présence de chaque mot.
*
* @param string le motif à rechercher.
* @param string le texte dans lequel effectuer la recherche.
* @return integer le nombre de fois où les mots sont trouvés.
*/
function retournerOccurenceMotif($motif, &$texte, $mode = MORE_MODE)
{
$nbre_correspondance = 0;
$nbre_correspondance_total = 0;
$motif = $this->traiterMotif($motif, 'simple');
// Si demande de recherche d'expression complète
if (preg_match('/^".+"$/', $motif)) {
$mode = 2;
}
$motif = $this->traiterMotif($motif, 'recherche');
switch ($mode) {
case '1' :
// Découpage en mot
$tab_motif = explode(' ', $motif);
break;
case '2' :
// La chaine saisie par l'utilisateur est recherchée tel quel
$tab_motif[] = $motif;
break;
default:
$e = 'Mode pour le moteur de recherche inconnu : '.$mode.
trigger_error($e, E_USER_ERROR);
}
// Nous recherchons chaque mot
$compteur_mot = 0;
foreach ($tab_motif as $mot) {
//$nbre_correspondance += preg_match_all('/'.$mot.'/i', $texte, $tab_morceaux);
$nbre_correspondance = substr_count($this->eliminerAccents(strtolower($texte)), $this->eliminerAccents(strtolower($mot)));
if ($nbre_correspondance > 0) {
$compteur_mot++;
}
$nbre_correspondance_total += $nbre_correspondance;
}
// Si tous les mots recherchés sont présents nous renvoyons le poids de la page.
if ($compteur_mot == count($tab_motif)) {
return $nbre_correspondance_total;
} else {
return 0;
}
}
function traiterMotif($motif, $type = 0)
{
switch ($type) {
case 'simple' :
return trim(stripslashes($motif));
break;
case 'recherche' :
if (preg_match('/^"(.+)"$/', $motif, $match)) {
$motif = $match[1];
}
return $motif;
break;
case 'url' :
$motif = trim(stripslashes($motif));
if (preg_match('/^"(.+)"$/', $motif, $match)) {
$motif = $match[1];
}
return urlencode($motif);
break;
default:
return $motif;
}
}
function traduireMois($mois_numerique)
{
switch ($mois_numerique) {
case '01' :
return 'janvier';
case '02' :
return 'février';
case '03' :
return 'mars';
case '04' :
return 'avril';
case '05' :
return 'mai';
case '06' :
return 'juin';
case '07' :
return 'juillet';
case '08' :
return 'août';
case '09' :
return 'septembre';
case '10' :
return 'octobre';
case '11' :
return 'novembre';
case '12' :
return 'décembre';
default:
return '';
}
}
/**
* Coupe un texte suivant une taille donnée, pour éviter qu'il ne soit
* trop long lors de l'affichage
* @param String texte à couper
* @param int taille maximum du texte
*/
function couperTexte($texte, $taille = 50)
{
$texte = substr($texte, 0, 400 + 2*$taille); /* eviter de travailler sur 10ko pour extraire 150 caracteres */
// on utilise les \r pour passer entre les gouttes
$texte = str_replace("\r\n", "\n", $texte);
$texte = str_replace("\r", "\n", $texte);
// sauts de ligne et paragraphes
$texte = ereg_replace("\n\n+", "\r", $texte);
$texte = ereg_replace("<(p|br)( [^>]*)?".">", "\r", $texte);
// supprimer les traits, lignes etc
$texte = ereg_replace("(^|\r|\n)(-[-#\*]*|_ )", "\r", $texte);
// supprimer les tags
$texte = $this->supprimerTags($texte);
$texte = trim(str_replace("\n"," ", $texte));
$texte .= "\n"; // marquer la fin
// travailler en accents charset
// On supprime dans Papyrus car cela tire trop de fonctions...
//$texte = $this->filtrer_entites($texte);
// supprimer les liens
$texte = ereg_replace("\[->([^]]*)\]","\\1", $texte); // liens sans texte
$texte = ereg_replace("\[([^\[]*)->([^]]*)\]","\\1", $texte);
// supprimer les notes
$texte = ereg_replace("\[\[([^]]|\][^]])*\]\]", "", $texte);
// supprimer les codes typos
$texte = ereg_replace("[}{]", "", $texte);
// supprimer les tableaux
$texte = ereg_replace("(^|\r)\|.*\|\r", "\r", $texte);
// couper au mot precedent
$long = $this->gererSubstr($texte, 0, max($taille-4,1));
$court = ereg_replace("([^[:space:]][[:space:]]+)[^[:space:]]*\n?$", "\\1", $long);
$points = MORE_LG_RESULTAT_ETC;
// trop court ? ne pas faire de (...)
if (strlen($court) < max(0.75 * $taille,2)) {
$points = '';
$long = $this->gererSubstr($texte, 0, $taille);
$texte = ereg_replace("([^[:space:]][[:space:]]+)[^[:space:]]*$", "\\1", $long);
// encore trop court ? couper au caractere
if (strlen($texte) < 0.75 * $taille)
$texte = $long;
} else
$texte = $court;
if (strpos($texte, "\n")) // la fin est encore la : c'est qu'on n'a pas de texte de suite
$points = '';
// remettre les paragraphes
$texte = ereg_replace("\r+", "\n\n", $texte);
// supprimer l'eventuelle entite finale mal coupee
$texte = preg_replace('/&#?[a-z0-9]*$/', '', $texte);
return trim($texte).$points;
}
// Gerer les outils mb_string
// Fichier : inc_texte.php3
function gererSubstr($c, $start=0, $end='')
{
// methode substr normale
if ($end) {
return substr($c, $start, $end);
} else {
return substr($c, $start);
}
}
 
// Suppression basique et brutale de tous les <...>
// Fichier : inc_filtres.php3
function supprimerTags($texte, $rempl = "")
{
$texte = preg_replace(",<[^>]*>,U", $rempl, $texte);
// ne pas oublier un < final non ferme
$texte = str_replace('<', ' ', $texte);
return $texte;
}
}
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.14 2008-10-21 16:54:18 aperonnet
* correction de bug de double inclusion de fichier quand une balise syndication est présente dans la page
*
* Revision 1.13 2008-10-21 15:24:50 aperonnet
* Ajout de résultats issus des fiches de bazar pour le moteur de recherche
*
* Revision 1.12 2007-10-29 18:29:30 jp_milcent
* Ajout d'un préfixe devant les classes de l'applette pour éviter les conflits avec d'autres classes provenant des applis clientes.
*
* Revision 1.11 2007-01-02 18:49:22 jp_milcent
* Amélioration de la gestion du motif.
* Ajout de la gestion des expressions complête via l'utilisation de guillemets.
*
* Revision 1.10 2006/12/12 13:54:41 jp_milcent
* Correction bogue : variable non initialisée.
*
* Revision 1.9 2006/10/17 09:21:40 jp_milcent
* Mise en commun des spécifications de la recherche.
*
* Revision 1.8 2006/05/23 14:18:19 jp_milcent
* Ajout de la gestion du mode de recherche au moteur de recherche de Papyrus.
* Soit on recherche chaque mot du motif, soit le motif entier.
*
* Revision 1.7 2006/05/19 10:04:55 jp_milcent
* Ajout d'un moteur de recherche analysant les articles des sites sous Spip.
*
* Revision 1.6 2006/04/28 12:41:49 florian
* corrections erreurs chemin
*
* Revision 1.5 2005/09/20 17:01:22 ddelon
* php5 et bugs divers
*
* Revision 1.4 2005/05/25 13:49:22 jpm
* Corection erreur pour la recherche dans le contenu.
*
* Revision 1.3 2005/05/19 12:46:12 jpm
* Correction bogue accesskey.
* Ajout d'un id à la liste.
* Arrondissement des score.
*
* Revision 1.2 2005/04/14 17:39:34 jpm
* Amélioration du moteur de rechercher :
* - pourcentage
* - ajout d'info
*
* Revision 1.1 2004/12/07 10:24:06 jpm
* Moteur de recherche version de départ.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/bibliotheque/more_recherche_projet.class.php
New file
0,0 → 1,243
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of Papyrus. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: more_recherche_projet.class.php,v 1.1 2008-08-26 15:31:31 alexandre_tb Exp $
/**
* Classe permettant d'effectuer des recherches sur les informations des articles de Spip.
*
* Permet de rechercher et classer les articles en fonction d'une chaine.
* Utilisation des bibliothèques inclue par Papyrus :
* - Papyrus pap_meta.fonct.php
* - Papyrus pap_menu.fonct.php
* - Papyrus pap_url.class.php
*
*@package Applette
*@subpackage Moteur_Recherche
//Auteur original :
*@author Alexandre Granier <alexandre@tela-botanica.org>
//Autres auteurs :
*@author aucun
*@copyright Tela-Botanica 2000-2006
*@version $Revision: 1.1 $ $Date: 2008-08-26 15:31:31 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
class More_Recherche_Projet extends More_Recherche {
// Constructeur
function Recherche_Menu_Meta($motif) {
$this->setMotif($motif);
}
// Accesseurs
function getMotif() {
return $this->motif;
}
function setMotif($motif) {
$this->motif = $motif;
}
// Méthodes
function rechercherMotif($motif) {
$db = $GLOBALS['_MOTEUR_RECHERCHE_']['bd']['papyrus'];
 
$url_base = $GLOBALS['_MOTEUR_RECHERCHE_']['projet']['url'];
$tab_articles = $this->retournerProjets($db);
foreach ($tab_articles as $article_id => $Article) {
// Initialisation du tableau de résultat vide
$aso_resultat = array( 'poids' => 0, 'url' => '', 'titre' => '',
'hreflang' => '', 'accesskey' => '', 'title' => '',
'date_creation' => '', 'description' => '');
// Analyse du poids de cette page vis à vis des données
$tab_champs_a_visiter = array('p_id', 'p_titre', 'p_resume', 'p_description', 'pd_nom', 'pd_description');
foreach ($tab_champs_a_visiter as $val) {
// Vérification que le champ existe et contient quelque chose
if (isset($Article->$val) && $Article->$val != '') {
$aso_resultat['poids'] += $this->retournerOccurenceMotif($motif, $Article->$val);
}
}
if ($aso_resultat['poids'] > 0) {
// Création de l'url
$aso_resultat['url_simple'] = $url_base.'?id_projet='.$article_id;
$aso_resultat['url'] = $aso_resultat['url_simple'];
// Récupération du titre de la page
if (trim($Article->p_titre) != '') {
$aso_resultat['titre'] = htmlentities($Article->p_titre);
}
$aso_resultat['id'] = htmlentities($Article->p_id);
$aso_resultat['description'] = $this->couper($Article->p_description, MORE_RESULTAT_TAILLE_DESCRIPTION);
if (($jour = date('d', strtotime($Article->p_date_creation)) ) != 0 ) {
$aso_resultat['date_creation'] .= '<span class="page_modification_jour"> '.$jour.'</span>'."\n";
}
if (($mois = $this->traduireMois(date('m', strtotime($Article->p_date_creation))) ) != '' ) {
$aso_resultat['date_creation'] .= '<span class="page_modification_mois"> '.$mois.'</span>'."\n";
}
if (($annee = date('Y', strtotime($Article->p_date_creation)) ) != 0 ) {
$aso_resultat['date_creation'] .= '<span class="page_modification_annee"> '.$annee.'</span>'."\n";
}
$this->setResultat($aso_resultat);
}
}
return $this->getResultats();
}
/** Renvoie un tableau contenant les infos sur les articles
*
* @param mixed une instance de la classse Pear DB.
* @param string le préfixe pour les tables spip.
* @return array tableau contenant les articles.
*/
function retournerProjets(&$db)
{
//----------------------------------------------------------------------------
// Recherche des informations sur le menu
$requete = 'SELECT * '.
'FROM projet ';
$resultat = $db->query($requete);
(DB::isError($resultat)) ? die (BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
//----------------------------------------------------------------------------
// Récupération des infos
$tab_retour = array();
while ($info_article = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
$tab_retour[$info_article->p_id] = $info_article;
}
$resultat->free();
return $tab_retour;
}
// Fichier : inc_texte.php3
function couper($texte, $taille = 50)
{
$texte = substr($texte, 0, 400 + 2*$taille); /* eviter de travailler sur 10ko pour extraire 150 caracteres */
// on utilise les \r pour passer entre les gouttes
$texte = str_replace("\r\n", "\n", $texte);
$texte = str_replace("\r", "\n", $texte);
// sauts de ligne et paragraphes
$texte = ereg_replace("\n\n+", "\r", $texte);
$texte = ereg_replace("<(p|br)( [^>]*)?".">", "\r", $texte);
// supprimer les traits, lignes etc
$texte = ereg_replace("(^|\r|\n)(-[-#\*]*|_ )", "\r", $texte);
// supprimer les tags
$texte = $this->supprimer_tags($texte);
$texte = trim(str_replace("\n"," ", $texte));
$texte .= "\n"; // marquer la fin
// travailler en accents charset
// On supprime dans Papyrus car cela tire trop de fonctions...
//$texte = $this->filtrer_entites($texte);
// supprimer les liens
$texte = ereg_replace("\[->([^]]*)\]","\\1", $texte); // liens sans texte
$texte = ereg_replace("\[([^\[]*)->([^]]*)\]","\\1", $texte);
// supprimer les notes
$texte = ereg_replace("\[\[([^]]|\][^]])*\]\]", "", $texte);
// supprimer les codes typos
$texte = ereg_replace("[}{]", "", $texte);
// supprimer les tableaux
$texte = ereg_replace("(^|\r)\|.*\|\r", "\r", $texte);
// couper au mot precedent
$long = $this->spip_substr($texte, 0, max($taille-4,1));
$court = ereg_replace("([^[:space:]][[:space:]]+)[^[:space:]]*\n?$", "\\1", $long);
$points = MORE_LG_RESULTAT_ETC;
// trop court ? ne pas faire de (...)
if (strlen($court) < max(0.75 * $taille,2)) {
$points = '';
$long = $this->spip_substr($texte, 0, $taille);
$texte = ereg_replace("([^[:space:]][[:space:]]+)[^[:space:]]*$", "\\1", $long);
// encore trop court ? couper au caractere
if (strlen($texte) < 0.75 * $taille)
$texte = $long;
} else
$texte = $court;
if (strpos($texte, "\n")) // la fin est encore la : c'est qu'on n'a pas de texte de suite
$points = '';
// remettre les paragraphes
$texte = ereg_replace("\r+", "\n\n", $texte);
// supprimer l'eventuelle entite finale mal coupee
$texte = preg_replace('/&#?[a-z0-9]*$/', '', $texte);
return trim($texte).$points;
}
// Gerer les outils mb_string
// Fichier : inc_texte.php3
function spip_substr($c, $start=0, $end='')
{
// methode substr normale
if ($end) {
return substr($c, $start, $end);
} else {
return substr($c, $start);
}
}
 
// Suppression basique et brutale de tous les <...>
// Fichier : inc_filtres.php3
function supprimer_tags($texte, $rempl = "")
{
$texte = preg_replace(",<[^>]*>,U", $rempl, $texte);
// ne pas oublier un < final non ferme
$texte = str_replace('<', ' ', $texte);
return $texte;
}
 
}
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/langues/more_langue_en.inc.php
New file
0,0 → 1,116
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of Papyrus. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: more_langue_en.inc.php,v 1.4 2006-11-14 16:07:41 jp_milcent Exp $
/**
* Gestion des langues de l'applette Moteur_Recherche
*
* Contient les constantes pour la langue anglaise de l'applette MORE.
*
*@package Applette
*@subpackage Moteur_Recherche
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.4 $ $Date: 2006-11-14 16:07:41 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
// Le formulaire de sélection du site dont les menus doivent être administrer :
define('MORE_LG_FORM_TITRE', 'Search engine');
define('MORE_LG_FORM_ACCESSKEY', '4');
define('MORE_LG_FORM_MOTIF', 'Search : ');
define('MORE_LG_FORM_MOTIF_REGLE', 'You must type a string !');
define('MORE_LG_FORM_MOTIF_VALUE', 'Search');
define('MORE_LG_FORM_VALIDER', 'ok');
define('MORE_LG_FORM_SYMBOLE_OBLIGATOIRE', '*');
define('MORE_LG_TITRE', 'Search result of : ');
define('MORE_LG_USURPATION', 'Search of : ');
 
// Les résultats de la recherche :
define('MORE_LG_RESULTAT_TITRE', 'Search results : %s page found');
define('MORE_LG_RESULTAT_TITRE_PLURIEL', 'Search results : %s pages found');
define('MORE_LG_RESULTAT_RACCOURCI', 'Shortcut : ');
define('MORE_LG_RESULTAT_DESCRIPTION', 'Description : ');
define('MORE_LG_RESULTAT_DATE_CREATION', 'Creation date : ');
define('MORE_LG_RESULTAT_DETAIL', 'Detail : ');
define('MORE_LG_RESULTAT_POIDS', 'Weight : ');
define('MORE_LG_RESULTAT_SCORE', 'Accuracy : ');
define('MORE_LG_RESULTAT_URL', 'URL : ');
define('MORE_LG_RESULTAT_SEPARATEUR', '-');
define('MORE_LG_RESULTAT_POURCENT', '%');
define('MORE_LG_RESULTAT_CADRE_OUVRIR', '(');
define('MORE_LG_RESULTAT_CADRE_FERMER', ')');
define('MORE_LG_RESULTAT_POINT', '.');
define('MORE_LG_RESULTAT_VIDE', 'No matches for this query!');
define('MORE_LG_RESULTAT_ETC', ' (...)');
 
// +------------------------------------------------------------------------------------------------------+
// | PIED du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.3 2006/05/19 10:04:55 jp_milcent
* Ajout d'un moteur de recherche analysant les articles des sites sous Spip.
*
* Revision 1.2 2006/03/02 10:49:49 ddelon
* Fusion branche multilinguisme dans branche principale
*
* Revision 1.1.2.2 2005/12/27 15:56:00 ddelon
* Fusion Head vers multilinguisme (wikini double clic)
*
* Revision 1.1.2.1 2005/12/20 14:40:25 ddelon
* Fusion Head vers Livraison
*
* Revision 1.4 2005/10/26 08:14:51 jp_milcent
* Changement du terme "score" en "pertinence".
*
* Revision 1.3 2005/05/25 13:49:22 jpm
* Corection erreur pour la recherche dans le contenu.
*
* Revision 1.2 2005/04/14 17:39:34 jpm
* Amélioration du moteur de rechercher :
* - pourcentage
* - ajout d'info
*
* Revision 1.1 2004/12/07 10:24:16 jpm
* Moteur de recherche version de départ.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/langues/more_langue_fr.inc.php
New file
0,0 → 1,113
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of Papyrus. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: more_langue_fr.inc.php,v 1.7 2006-11-14 16:07:41 jp_milcent Exp $
/**
* Gestion des langues de l'applette Moteur_Recherche
*
* Contient les constantes pour la langue française de l'applette MORE.
*
*@package Applette
*@subpackage Moteur_Recherche
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.7 $ $Date: 2006-11-14 16:07:41 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
// Le formulaire de sélection du site dont les menus doivent être administrer :
define('MORE_LG_FORM_TITRE', 'Moteur de recherche');
define('MORE_LG_FORM_ACCESSKEY', '4');
define('MORE_LG_FORM_MOTIF', 'Rechercher : ');
define('MORE_LG_FORM_MOTIF_REGLE', 'Une chaine doit être saisie pour pouvoir lancer la recherche !');
define('MORE_LG_FORM_MOTIF_VALUE', 'Rechercher');
define('MORE_LG_FORM_VALIDER', 'ok');
define('MORE_LG_FORM_SYMBOLE_OBLIGATOIRE', '*');
define('MORE_LG_TITRE', 'Résultat de la recherche de : ');
define('MORE_LG_USURPATION', 'Recherche de : ');
 
// Les résultats de la recherche :
define('MORE_LG_RESULTAT_TITRE', 'Résultats de la recherche : %s page trouvée');
define('MORE_LG_RESULTAT_TITRE_PLURIEL', 'Résultats de la recherche : %s pages trouvées');
define('MORE_LG_RESULTAT_RACCOURCI', 'Raccourci : ');
define('MORE_LG_RESULTAT_DESCRIPTION', 'Description : ');
define('MORE_LG_RESULTAT_DATE_CREATION', 'Date de création : ');
define('MORE_LG_RESULTAT_DETAIL', 'Détail : ');
define('MORE_LG_RESULTAT_POIDS', 'Poids : ');
define('MORE_LG_RESULTAT_SCORE', 'Pertinence : ');
define('MORE_LG_RESULTAT_URL', 'URL : ');
define('MORE_LG_RESULTAT_SEPARATEUR', '-');
define('MORE_LG_RESULTAT_POURCENT', '%');
define('MORE_LG_RESULTAT_CADRE_OUVRIR', '(');
define('MORE_LG_RESULTAT_CADRE_FERMER', ')');
define('MORE_LG_RESULTAT_POINT', '.');
define('MORE_LG_RESULTAT_VIDE', 'Aucun résultat pour cette recherche!');
define('MORE_LG_RESULTAT_ETC', ' (...)');
 
// +------------------------------------------------------------------------------------------------------+
// | PIED du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.6 2006/05/19 10:04:55 jp_milcent
* Ajout d'un moteur de recherche analysant les articles des sites sous Spip.
*
* Revision 1.5 2006/03/02 10:49:49 ddelon
* Fusion branche multilinguisme dans branche principale
*
* Revision 1.4.2.1 2005/12/27 15:56:00 ddelon
* Fusion Head vers multilinguisme (wikini double clic)
*
* Revision 1.4 2005/10/26 08:14:51 jp_milcent
* Changement du terme "score" en "pertinence".
*
* Revision 1.3 2005/05/25 13:49:22 jpm
* Corection erreur pour la recherche dans le contenu.
*
* Revision 1.2 2005/04/14 17:39:34 jpm
* Amélioration du moteur de rechercher :
* - pourcentage
* - ajout d'info
*
* Revision 1.1 2004/12/07 10:24:16 jpm
* Moteur de recherche version de départ.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/squelettes/formulaire.tpl.html
New file
0,0 → 1,8
<form action="<?=$form_url;?>" method="post" id="form_more_recherche">
<fieldset>
<legend><?=MORE_LG_FORM_TITRE;?></legend>
<label for="more_motif"><?=MORE_LG_FORM_MOTIF;?></label>
<input id="more_motif" name="more_motif" tabindex="<?=$form_tab;?>" maxlength="<?=MORE_FORM_MOTIF_MAXLENGTH;?>" accesskey="<?=MORE_LG_FORM_ACCESSKEY;?>" type="text" value="<?=$more_motif;?>" title="Mettre les termes entre guillemets pour rechercher sur la phrase exacte." />
<input id="more_ok" name="more_ok" tabindex="<?=++$form_tab;?>" value="<?=MORE_LG_FORM_VALIDER;?>" type="submit" />
</fieldset>
</form>
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/squelettes/formulaire_extensible.tpl.html
New file
0,0 → 1,12
<?php
// Le code javascript pour le basculement de taille doit être mis dans un fichier js à part
// Les fonctions nécessaires sont disponibles dans le fichier de template : formulaire_extensible_js.tpl.html
?>
<form action="<?=$form_url;?>" method="post" id="form_more_recherche">
<fieldset>
<legend><?=MORE_LG_FORM_TITRE;?></legend>
<label for="more_motif"><?=MORE_LG_FORM_MOTIF;?></label>
<input id="more_motif" name="more_motif" tabindex="<?=$form_tab;?>" maxlength="<?=MORE_FORM_MOTIF_MAXLENGTH;?>" accesskey="<?=MORE_LG_FORM_ACCESSKEY;?>" type="text" value="<?=$more_motif;?>" onfocus="nettoyerChamp('more_motif', '<?=$more_motif_base;?>');basculerTaille('more_motif', true);" onblur="nettoyerChamp('more_motif', '<?=$more_motif_base;?>');basculerTaille('more_motif', false);" title="Mettre les termes entre guillemets pour rechercher sur la phrase exacte."/>
<input id="more_ok" name="more_ok" tabindex="<?=++$form_tab;?>" value="<?=MORE_LG_FORM_VALIDER;?>" type="submit" />
</fieldset>
</form>
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/squelettes/resultat_std.tpl.html
New file
0,0 → 1,26
<h1><?=$titre;?></h1>
<?php if ($nbre_pages == 0) : ?>
<p class="information"><?=$vide;?></p>
<?php else : ?>
<ul id="more_resultat">
<?php foreach ($resultats as $val) : ?>
<li>
<h2><a href="<?=$val['url'];?>" <?=$val['hreflang']!= ''?'hreflang="'.$val['hreflang'].'"':'';?> <?=$val['accesskey']!= ''?'accesskey="'.$val['accesskey'].'"':'';?> <?=$val['title']!= ''?'title="'.$val['title'].'"':'';?> ><?=$val['titre'];?></a></h2>
<dl>
<?php if ($val['score'] != '') : ?>
<dt><?=MORE_LG_RESULTAT_SCORE;?></dt>
<dd><?=$val['score'].MORE_LG_RESULTAT_POURCENT;?></dd>
<?php endif; ?>
<?php if ($val['date_creation'] != '') : ?>
<dt><?=MORE_LG_RESULTAT_DATE_CREATION;?></dt>
<dd><?=$val['date_creation'];?></dd>
<?php endif; ?>
<?php if ($val['description'] != '') : ?>
<dt><?=MORE_LG_RESULTAT_DESCRIPTION;?></dt>
<dd><?=$val['description'];?></dd>
<?php endif; ?>
</dl>
</li>
<?php endforeach; ?>
</ul>
<?php endif;?>
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/squelettes/resultat_gg.tpl.html
New file
0,0 → 1,31
<h1><?=$titre;?></h1>
<?php if ($nbre_pages == 0) : ?>
<p class="information"><?=$vide;?></p>
<?php else : ?>
<ul id="more_resultat">
<?php foreach ($resultats as $val) : ?>
<li>
<h2><a href="<?=$val['url'];?>" <?=$val['hreflang']!= ''?'hreflang="'.$val['hreflang'].'"':'';?> <?=$val['accesskey']!= ''?'accesskey="'.$val['accesskey'].'"':'';?><?=$val['title']!= ''?'title="'.$val['title'].'"':'';?> ><?=$val['titre'];?></a></h2>
<dl class="more_info">
<?php if ($val['date_creation'] != '') : ?>
<dt class="more_iidc"><?=MORE_LG_RESULTAT_DATE_CREATION;?></dt>
<dd class="more_ivdc"><?=$val['date_creation'];?></dd>
<?php endif; ?>
<?php if ($val['description'] != '') : ?>
<dt class="more_iid"><?=MORE_LG_RESULTAT_DESCRIPTION;?></dt>
<dd class="more_ivd"><?=$val['description'];?></dd>
<?php endif; ?>
<dt class="more_iid"><?=MORE_LG_RESULTAT_DETAIL;?></dt>
<dd class="more_ivd">
<ul class="more_detail">
<li class="more_du"><span class="more_dui"><?=MORE_LG_RESULTAT_URL;?></span><span class="more_duv"><a href="<?=$val['url'];?>" <?=$val['hreflang']!= ''?'hreflang="'.$val['hreflang'].'"':'';?> <?=$val['accesskey']!= ''?'accesskey="'.$val['accesskey'].'"':'';?> ><?=$val['url_simple'];?></a></span</li>
<?php if ($val['score'] != '') : ?>
<li class="more_ds"><span class="more_dsi"><?=MORE_LG_RESULTAT_SCORE;?></span><span class="more_dsv"><?=$val['score'].MORE_LG_RESULTAT_POURCENT;?></span></li>
<?php endif; ?>
</ul>
</dd>
</dl>
</li>
<?php endforeach; ?>
</ul>
<?php endif;?>
/branches/v5.0-ouadji/papyrus/applettes/moteur_recherche/squelettes/formulaire_extensible_js.tpl.html
New file
0,0 → 1,40
<?php
// Le code javascript pour le basculement de taille est directement dans le template utiliser plutôt le squelette formulaire_extensible.tpl.html
// en mettant le code js dans un fichier à part si le moteur de recherche est accessible depuis de nombreuses pages du site.
?>
<form action="<?=$form_url;?>" method="post" id="form_more_recherche">
<fieldset>
<legend><?=MORE_LG_FORM_TITRE;?></legend>
<label for="more_motif"><?=MORE_LG_FORM_MOTIF;?></label>
<input id="more_motif" name="more_motif" tabindex="<?=$form_tab;?>" maxlength="<?=MORE_FORM_MOTIF_MAXLENGTH;?>" accesskey="<?=MORE_LG_FORM_ACCESSKEY;?>" type="text" value="<?=$more_motif;?>" onfocus="nettoyerChamp('more_motif', '<?=$more_motif_base;?>');basculerTaille('more_motif', true);" onblur="nettoyerChamp('more_motif', '<?=$more_motif_base;?>');basculerTaille('more_motif', false);" title="Mettre les termes entre guillemets pour rechercher sur la phrase exacte."/>
<input id="more_ok" name="more_ok" tabindex="<?=++$form_tab;?>" value="<?=MORE_LG_FORM_VALIDER;?>" type="submit" />
</fieldset>
</form>
<script type="text/javascript">
//<![CDATA[
// Fonction aggrandissant ou diminuant la taille d'un champ
// Provient du site https://addons.mozilla.org/
function basculerTaille(id, grand)
{
var sb = document.getElementById(id);
if (grand) {
sb.style.width = '20em;';
} else {
sb.style.width = '10em;';
}
}
// Fonction nettoyant un champ de formulaire d'une chaine donnée...
function nettoyerChamp(id, chaine)
{
var sb = document.getElementById(id);
var valeur = sb.value;
if (valeur == chaine) {
sb.value = '';
}
if (valeur == '') {
sb.value = chaine;
}
}
//]]>
</script>
/branches/v5.0-ouadji/papyrus/applettes/menu/menu.php
New file
0,0 → 1,668
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This library is free software; you can redistribute it and/or |
// | modify it under the terms of the GNU Lesser General Public |
// | License as published by the Free Software Foundation; either |
// | version 2.1 of the License, or (at your option) any later version. |
// | |
// | This library is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
// | Lesser General Public License for more details. |
// | |
// | You should have received a copy of the GNU Lesser General Public |
// | License along with this library; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: menu.php,v 1.35 2008-08-12 16:22:51 jp_milcent Exp $
/**
* Applette : menu
*
* Génère une liste de listes comportant tous les niveaux des menus "classiques" d'un site.
* Nécessite :
* - Variable de Papyrus.
* - Base de données de Papyrus
* - Pear DB
* - Pear Net_URL
* - API Débogage 1.0
*
*@package Applette
*@subpackage Menu
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.35 $ $Date: 2008-08-12 16:22:51 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
// Inclusion de la bibliothèque defonction sur les menu : inutile car inclue par Papyrus
require_once GEN_CHEMIN_BIBLIO.'pap_menu.fonct.php';
 
$GLOBALS['_MENU_']['nom_fonction'] = 'afficherMenuNiveauMultiple';
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = $GLOBALS['_MENU_']['nom_fonction'];
$GLOBALS['_GEN_commun']['info_applette_balise'] = '<!-- '.$GLOBALS['_GEN_commun']['balise_prefixe'].'(MENU_?(?:(|CLASSIQUE|COMMUN|DEROULANT)_([0-9]+)_([0-9]+)(|_ID_([0-9]+))|(UNIQUE)_([0-9]+))(?:|_NUMID_([0-9]+))) -->';
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
// +------------------------------------------------------------------------------------------------------+
// | LISTE de FONCTIONS |
// +------------------------------------------------------------------------------------------------------+
/** Fonction GEN_afficherMenuNiveauMultiple() - Retourne la liste des listes de menus.
*
* Cette fonction retourne ne fait qu'encapsuler une fonction récursive
* retournant les listes de menus de l'arborescence d'un site dans une
* langue donnée.
*
* @param array contient les arguments de la fonction en 1 le niveau de départ et en 2 le niveau d'arrivée (profondeur max demandée).
* @param array tableau global de Papyrus.
* @return string HTML la liste des listes de menus.
*/
function afficherMenuNiveauMultiple($tab_applette_arguments, $_GEN_commun)
{
// Initialisation de variable et gestion des globales
$objet_pear_db = $_GEN_commun['pear_db'];
$id_site = $_GEN_commun['info_site']->gs_id_site;
if (isset($_GEN_commun['info_menu'])) {
$id_menu = $_GEN_commun['info_menu']->gm_id_menu;
}
$num_menu = $GLOBALS['_PAPYRUS_']['applette']['comptage'][$GLOBALS['_MENU_']['nom_fonction']];
// Indentation du html
$indent_origine = 12;// Indentation de départ en nombre d'espace
$indent_pas = 4;// Pas d'indentation en nombre d'espace
// Récupérations des arguments passés dans la balise.
// Pour les menus CLASSIQUE et COMMUN
$balise = $tab_applette_arguments[1];
$menu_type = $tab_applette_arguments[2];
$niveau_depart = (isset($tab_applette_arguments[3])) ? $tab_applette_arguments[3] : 1;
$profondeur = $tab_applette_arguments[4];
$menu_depart = 0;
// Si on indique un ID de menu de départ
if (isset($tab_applette_arguments[5]) && !empty($tab_applette_arguments[5])) {
$menu_depart = $tab_applette_arguments[6];
}
// Pour les menus UNIQUE
if (isset($tab_applette_arguments[7])) {
$menu_type = $tab_applette_arguments[7]; // Type de menu : UNIQUE
}
if (isset($tab_applette_arguments[8])) {
$menu_depart = $tab_applette_arguments[8]; // ID du menu de type UNIQUE
}
// Pour les balises menus avec NUMID en dur
// Gestion du numéro unique pour l'attribut id des li des menus
if (isset($tab_applette_arguments[9])) {
$num_menu = $tab_applette_arguments[9];
}
// Gestion du type de menu
switch ($menu_type) {
case 'COMMUN' :
$menu_type = 'commun';
break;
case 'UNIQUE' :
$menu_type = 'unique';
break;
case 'DEROULANT' :
$menu_type = 'deroulant';
break;
case 'CLASSIQUE' :
default:
$menu_type = 'classique';
}
// Si le niveau de départ est supérieur à 1 et qu'aucun id de menu n'a été indiqué dans la balise
$niveau_actuel = 1;
if (1 < $niveau_depart && 0 == $menu_depart && isset($id_menu)) {
$menu_depart = GEN_lireIdentifiantMenuPere($id_menu);
$niveau_actuel = GEN_donnerProfondeur($id_site, $id_menu);
//trigger_error("Niveau actuel du menu si$id_site:me$id_menu pour la balise {$tab_applette_arguments[0]} : $niveau_actuel", E_USER_NOTICE);
}
//Construction du menu
$xhtml_menu = afficherListeNiveauMultiple( $objet_pear_db, $id_site,$niveau_depart,
$profondeur, $menu_depart, 1, $menu_type, $indent_origine,
$indent_pas, $_GEN_commun, $num_menu, $niveau_actuel);
// Si le menu est déroulant il faut stocker un peu de javascript pour IE
if ($menu_type == 'deroulant') {
GEN_stockerCodeScript ('sfHover = function() {
var sfEls = document.getElementById("groupe_menu_1_0").getElementsByTagName("LI");
for (var i=0; i<sfEls.length; i++) {
sfEls[i].onmouseover=function() {
this.className+=" sfhover";
}
sfEls[i].onmouseout=function() {
this.className=this.className.replace(new RegExp(" sfhover\\\\b"), "");
}
}
}
if (window.attachEvent) window.attachEvent("onload", sfHover);') ;
}
//Si nous avons un
if (! empty($xhtml_menu)) {
$retour = $xhtml_menu;
} else {
$retour = '<!-- '.$balise.' : aucun menu trouvé ! -->';
}
return $retour;
}
 
/** Fonction afficherListeNiveauMultiple() - Affiche une arborescence des menu classiques d'un site.
*
* Créé et retourne une liste pour chaque niveau de menu classique trouvé dans l'arborescence
* des menus d'un site dans une langue donnée.
* C'est une fonction récursive.
*
* @param mixed objet Pear DB de connexion à la base de données.
* @param integer identifiant d'un site.
* @param integer identifiant de la langue demandée.
* @param integer niveau de départ.
* @param integer niveau d'arrivée (profondeur max demandée).
* @param integer identifiant d'un menu pére.
* @return string les listes de menus au format XHTML.
*/
function afficherListeNiveauMultiple( &$objet_pear_db, $id_site, $niveau_depart, $profondeur,
$id_pere_menu_a_deployer, $position, $menu_type, $indent_origine = 12,
$indent_pas = 4, $_GEN_commun, $num_menu, $niveau_actuel = 1)
{
// Initialisation des variables
$retour = '';
$tete = '';
$corps = '';
$pied = '';
$i18n_url = '' ;
$id_langue = $_GEN_commun['i18n'];//identifiant de la langue choisie
if ($id_langue != GEN_I18N_ID_DEFAUT) {
$i18n_url=$id_langue;
}
if (isset($id_langue) && ($id_langue!='')) {
$langue_test=$id_langue;
} else {
$langue_test=GEN_I18N_ID_DEFAUT;
}
// Récupération des infos sur sur l'entrée du menu à afficher
$menu_info = GEN_lireInfoMenu($objet_pear_db, $id_pere_menu_a_deployer, DB_FETCHMODE_ASSOC);
// Gestion des menus uniques
if ($menu_type == 'unique' && ($menu_info['gm_date_fin_validite'] == '0000-00-00 00:00:00' || strtotime($menu_info['gm_date_fin_validite']) > time() )) {
$retour .= afficherEntreeListeMenu( $objet_pear_db, $id_pere_menu_a_deployer, $i18n_url,
$niveau_actuel, 1, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun, $num_menu);
// Dans le cas, d'un menu unique, on retourne directement le résultat ici.
return $retour;
}
// On affiche un menu que si $profondeur <= $niveau_actuel <= $depart
if ($niveau_actuel > $profondeur) {
return null;
}
// Nous regardons si nous devons afficher un menu racine
if ($id_pere_menu_a_deployer != 0 && $niveau_actuel == 1 && ($menu_info['gm_date_fin_validite'] == '' || $menu_info['gm_date_fin_validite'] == '0000-00-00 00:00:00' || strtotime($menu_info['gm_date_fin_validite']) > time() )) {
$tete .= str_repeat(' ', $indent_origine + ($indent_pas * $position)).
'<ul class="groupe_menu_'.$num_menu.'_'.$id_pere_menu_a_deployer.'" class="menu_'.$menu_type.'_'.'n'.$niveau_actuel.'">'."\n";
$id_menu_selectionne = $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu;
if (!empty($id_menu_selectionne) && (GEN_etreAncetre($id_pere_menu_a_deployer, $id_menu_selectionne) || $id_pere_menu_a_deployer == $id_menu_selectionne) ) {
$classe = 'menu_actif';
} else {
$classe = 'menu_inactif';
}
// Pour un menu dont on spécifie l'identifiant du menu départ, on affiche ce menu.
$corps .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).
'<li id="menu_'.$num_menu.'_'.$id_pere_menu_a_deployer.'" class="'.$classe.'">'."\n";
$corps .= afficherEntreeListeMenu( $objet_pear_db, $id_pere_menu_a_deployer, $i18n_url,
$niveau_actuel, 1, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun, $num_menu);
}
if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {
$tete .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).
'<ul id="groupe_menu_'.$num_menu.'_'.$id_pere_menu_a_deployer.'" class="menu_'.$menu_type.'_'.'n'.$niveau_actuel.'">'."\n";
}
$requete = 'SELECT gm_id_menu, gm_date_fin_validite, gm_ce_i18n , GMR01.gmr_ordre, gm_nom '.
'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
'WHERE GMR01.gmr_id_menu_01 = gm_id_menu '.
'AND GMR01.gmr_id_valeur = 1 '.// 1 = "avoir père"
'AND GMR02.gmr_id_menu_02 = gm_id_menu '.
'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.
'AND (gm_ce_i18n = "'.GEN_I18N_ID_DEFAUT.'" '.
'OR gm_ce_i18n = "'.$langue_test.'" )' ;
$requete .= 'AND GMR01.gmr_id_menu_02 = '.$id_pere_menu_a_deployer.' ';
if ($menu_type == 'classique' || $menu_type == 'deroulant') {
$requete .= 'AND gm_ce_site = '.$id_site.' '.
'AND GMR02.gmr_id_valeur = 100 '.// 100 = type "menu classique"
'ORDER BY GMR01.gmr_ordre ASC';
} else if ($menu_type == 'commun') {
$requete .= 'AND gm_ce_site = 0 '.
'AND GMR02.gmr_id_valeur = 102 '.// 102 = type "menu commun"
'ORDER BY GMR01.gmr_ordre ASC';
}
//$GLOBALS['_GEN_commun']['debogage_info'] .= $requete;
$resultat = $objet_pear_db->query($requete);
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
$liste_menu=array();
// On ne retient pas les menus qui sont des traductions ...
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
if ($langue_test == GEN_I18N_ID_DEFAUT) {
// Le menu n'est pas une traduction : on le traite
$requete_est_traduction = 'SELECT gmr_id_menu_01 '.
'FROM gen_menu_relation '.
'WHERE '.$ligne->gm_id_menu.' = gmr_id_menu_02 ' .
'AND gmr_id_menu_01 <> gmr_id_menu_02 '.
'AND gmr_id_valeur = 2 ';// 2 = "avoir traduction"
$resultat_est_traduction = $objet_pear_db->query($requete_est_traduction);
(DB::isError($resultat_est_traduction))
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_est_traduction->getMessage(), $requete_est_traduction))
: '';
if ( $resultat_est_traduction->numRows() == 0 ) {
$liste_menu[]=$ligne;
}
}
// Par defaut, on traite tous les menus trouvés
else {
$liste_menu[]=$ligne;
}
}
if (!function_exists('cmp')) {
function cmp($a, $b) {
if ($a->gmr_ordre == $b->gmr_ordre) {
return 0;
}
return ($a->gmr_ordre < $b->gmr_ordre) ? -1 : 1;
}
}
usort ($liste_menu,"cmp");
foreach ($liste_menu as $ligne) {
 
//while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
if ($ligne->gm_date_fin_validite == '' || $ligne->gm_date_fin_validite == '0000-00-00 00:00:00' || strtotime($ligne->gm_date_fin_validite) > time()) {
// On ne retient pas egalement les menu reserve a une seule langue
$requete_restriction = 'SELECT gmr_id_menu_02 '.
'FROM gen_menu_relation '.
'WHERE '.$ligne->gm_id_menu.' = gmr_id_menu_01 ' .
'AND gmr_id_valeur = 106 ';// 106 restriction de menu
$resultat_restriction = $objet_pear_db->query($requete_restriction);
(DB::isError($resultat_restriction)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_restriction->getMessage(), $requete_restriction))
: '';
if ($resultat_restriction->numRows()>0 && $langue_test!=$ligne->gm_ce_i18n) {
$select_menu=0;
}
else {
$select_menu=1;
}
if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur && $select_menu==1) {
$id_menu_inf = $ligne->gm_id_menu;
$id_menu_selectionne = '';
if (isset($GLOBALS['_GEN_commun']['info_menu']->gm_id_menu)) {
$id_menu_selectionne = $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu;
}
// On vérifie si le menu est le menu sélectionné
if (!empty($id_menu_selectionne) && (GEN_etreAncetre($id_menu_inf, $id_menu_selectionne) || $id_menu_inf == $id_menu_selectionne) ) {
$classe = 'menu_actif';
} else {
$classe = 'menu_inactif';
}
$tmp= afficherEntreeListeMenu( $objet_pear_db, $id_menu_inf, $niveau_actuel,
$ligne->gmr_ordre, $position, $menu_type, $indent_origine, $indent_pas, $_GEN_commun, $num_menu);
// Affichage du menu
if ($tmp!='') {
$corps .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2))).
'<li id="menu_'.$num_menu.'_'.$id_menu_inf.'" class="'.$classe.'">'."\n";
$corps .= $tmp;
}
}
// Pour chaque menu on regarde s'il y a des fils. Si oui, on les déploie.
$requete_fils = 'SELECT gm_id_menu '.
'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.
'WHERE GMR01.gmr_id_menu_02 = '.$ligne->gm_id_menu.' '.
'AND GMR01.gmr_id_menu_01 = gm_id_menu '.
'AND GMR01.gmr_id_valeur = 1 '.// 1 = "avoir père"
'AND GMR02.gmr_id_menu_02 = gm_id_menu '.
'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 ' ;
if ($menu_type == 'classique') {
$requete_fils .='AND GMR02.gmr_id_valeur = 100 ' ;// 100 = type "menu classique"
}
if ($menu_type == 'commun') {
$requete_fils .='AND GMR02.gmr_id_valeur = 102 '; // 102 = type "menu commun"
}
$requete_fils .= 'ORDER BY GMR01.gmr_ordre ASC LIMIT 0,1';
$resultat_fils = $objet_pear_db->query($requete_fils);
(DB::isError($resultat_fils))
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_fils->getMessage(), $requete_fils))
: '';
if (isset($_GEN_commun['info_menu'])) {
if ($resultat_fils->numRows() != 0 && $ligne->gm_id_menu == $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu
|| GEN_etreAncetre($ligne->gm_id_menu, $GLOBALS['_GEN_commun']['info_menu']->gm_id_menu) || $menu_type == 'deroulant') {
$niveau_actuel++;
$corps .= afficherListeNiveauMultiple( $objet_pear_db, $id_site, $niveau_depart,
$profondeur, $ligne->gm_id_menu, ($position + 3), $menu_type,
null, null, $_GEN_commun, $num_menu, $niveau_actuel);
// On ramène $niveau_actuel un cran plus bas
$niveau_actuel--;
}
}
if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {
$corps .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2))).'</li>'."\n";
}
$resultat_fils->free();
}
}
if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) {
$pied .= str_repeat(' ', $indent_origine + ($indent_pas * $position+ 1)).'</ul>'."\n";
}
// Nous regardons si nous avons affiché le menu racine
if ($id_pere_menu_a_deployer != 0 && $niveau_actuel == 1) {
$corps .= str_repeat(' ', $indent_origine + ($indent_pas * ($position + 1))).'</li>'."\n";
$pied .= str_repeat(' ', $indent_origine + ($indent_pas * $position)).'</ul>'."\n";
}
if (empty($corps)) {
return $retour;
} else {
$retour = $tete.$corps.$pied;
return $retour;
}
}
 
/** Fonction afficherEntreeListeMenu() - Contruit une entrée dans une liste du menu d'un site.
*
* Cette fonction retourne une entrée dans la liste du menu d'un site (<a></a>).
* Le menu est un lien.
* Necessite l'utilisation de Pear Net_URL par le programme appelant cette fonction.
*
* @param mixed objet Pear DB de connexion à la base de données.
* @param integer niveau du menu.
* @param integer ordre du menu dans le niveau.
* @return string liste représentant le menu duHTML
*
* $menu_id : identifiant du menu (!= code menu)
*/
function afficherEntreeListeMenu($db, $menu_id, $niveau, $ordre, $position, $menu_type, $indent_origine = 12, $indent_pas = 4, $_GEN_commun, $num_menu)
{
 
$id_langue = $GLOBALS['_GEN_commun']['i18n'];
if (isset($id_langue) && ($id_langue!='')) {
$langue_test=$id_langue;
} else {
$langue_test=GEN_I18N_ID_DEFAUT;
}
 
$requete_traduction = 'SELECT gmr_id_menu_02, gm_ce_i18n '.
'FROM gen_menu_relation, gen_menu '.
'WHERE '.$menu_id.' = gmr_id_menu_01 ' .
'AND gmr_id_menu_02 = gm_id_menu '.
'AND gmr_id_valeur = 2 '.// 2 = "avoir traduction"
'AND gm_ce_i18n = "'.$langue_test.'" ';
$resultat_traduction = $db->query($requete_traduction);
(DB::isError($resultat_traduction)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction))
: '';
 
if ($resultat_traduction->numRows() > 0) {
$ligne_resultat_traduction=$resultat_traduction->fetchRow(DB_FETCHMODE_ASSOC);
$menu_id=$ligne_resultat_traduction['gmr_id_menu_02'];
}
 
else {
// Ne sont affichés que les traductions par defaut des menus
// non traduits
// Ici : pas de traduction
 
if ($langue_test!=GEN_I18N_ID_DEFAUT) {
$requete_defaut = 'SELECT gmr_id_menu_02 '.
'FROM gen_menu_relation '.
'WHERE '.$menu_id. ' = gmr_id_menu_01 ' .
'AND gmr_id_valeur = 105 ';// 105 Traduction par defaut
$resultat_defaut = $db->query($requete_defaut);
(DB::isError($resultat_defaut)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_defaut->getMessage(), $requete_defaut))
: '';
if ($resultat_defaut->numRows() > 0) {
$ligne_resultat_defaut=$resultat_defaut->fetchRow(DB_FETCHMODE_ASSOC);
$menu_id=$ligne_resultat_defaut['gmr_id_menu_02'];
}
}
}
// Récupération des infos sur sur l'entrée du menu à afficher
$menu_info = GEN_lireInfoMenu($db, $menu_id, DB_FETCHMODE_ASSOC);
// Préparation d'une entrée dans la liste du menu
$menu_nom = htmlentities($menu_info['gm_nom']);
 
if (trim($menu_nom)=='') return '';
$menu_accesskey = '';
$raccourci_txt = '';
if (($menu_accesskey = htmlentities($menu_info['gm_raccourci_clavier'])) != '') {
$raccourci_txt = '[Raccourci : Alt+'.$menu_accesskey.' ] ';
$menu_accesskey = 'accesskey="'.$menu_accesskey.'" ';
}
$menu_texte_title = '';
if (($menu_texte_title = htmlentities($menu_info['gm_description_resume'])) != '') {
$menu_texte_title = 'title="'.$raccourci_txt.$menu_texte_title.'" ';;
}
$une_url =& new Pap_URL(PAP_URL);
$une_url->setId($menu_id);
 
if (isset($i18n) && ($i18n!='')) {
$une_url->addQuerystring(GEN_URL_CLE_I18N,$i18n);
}
//Création d'une entrée dans la liste du menu
$espaces = str_repeat(' ', $indent_origine + ($indent_pas * ($position + 2)));
$retour = $espaces.'<a id="menu_lien_'.$num_menu.'_'.$menu_id.'" href="'.$une_url->getURL().'" '.$menu_texte_title.$menu_accesskey.'>'.$menu_nom.'</a>'."\n";
return $retour;
}
 
// +------------------------------------------------------------------------------------------------------+
// | PIED du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.34 2008-08-12 16:21:44 jp_milcent
* Correction bogue FS#101.
*
* Revision 1.33 2008-08-08 14:56:46 jp_milcent
* Les listes de menu sous les menus cachés s'affiche maintenant.
*
* Revision 1.32 2007-10-24 14:43:02 ddelon
* Gestion des menus reservés à une langue
*
* Revision 1.31 2006-12-01 16:33:40 florian
* Amélioration de la gestion des applettes et compatibilité avec le nouveau mode de gestion de l'inclusion des applettes.
*
* Revision 1.30 2006/11/27 13:47:23 florian
* ajout de la touche alt pour les raccourcis
*
* Revision 1.29 2006/10/16 15:49:46 ddelon
* Refactorisation code mulitlinguisme et gestion menu invisibles
*
* Revision 1.28 2006/09/21 15:52:19 jp_milcent
* Utilisation de PAP_URL pour Net_URL à la place des constantes serveur.
*
* Revision 1.27 2006/09/20 09:25:31 alexandre_tb
* Initialisation de la variable $i18n_url pour éviter un notice
*
* Revision 1.26 2006/07/04 09:43:21 alexandre_tb
* correction d'un bug du javascript
*
* Revision 1.25 2006/06/28 12:53:34 ddelon
* Multilinguisme : menu par defaut
*
* Revision 1.24 2006/03/13 21:00:20 ddelon
* Suppression messages d'erreur multilinguisme
*
* Revision 1.23 2006/03/02 10:49:49 ddelon
* Fusion branche multilinguisme dans branche principale
*
* Revision 1.22.2.2 2006/02/28 14:02:11 ddelon
* Finition multilinguisme
*
* Revision 1.22.2.1 2005/12/20 14:40:25 ddelon
* Fusion Head vers Livraison
*
* Revision 1.22 2005/09/27 08:42:49 ddelon
* Menu et Squelette
*
* Revision 1.21 2005/09/22 14:02:49 ddelon
* nettoyage annuaire et php5
*
* Revision 1.20 2005/05/27 14:56:51 alex
* correction de bug d'affichage des menus communs
*
* Revision 1.19 2005/05/27 10:23:00 jpm
* Modification du style des raccourcis.
*
* Revision 1.18 2005/05/03 08:39:32 jpm
* Ajout d'un test sur la date.
*
* Revision 1.17 2005/04/19 16:59:51 jpm
* Suppression de l'affichage d'un débogage.
*
* Revision 1.16 2005/04/19 16:47:24 jpm
* Gestion des dates de fin de validité des menus.
*
* Revision 1.15 2005/04/14 16:37:48 jpm
* Ajout de la gestion des URL avec la classe Pap_URL de Papyrus.
*
* Revision 1.14 2005/03/02 11:02:33 jpm
* Suppression des espaces avant l'ouverture de la balise php.
*
* Revision 1.13 2005/02/08 19:03:03 alex
* ajout de la balise DEROULANT qui permet de faire un affichage des menus avec survol javascript. Il nécessite des styles particuliers.
*
* Revision 1.12 2004/12/02 10:42:15 jpm
* Correction bogue liste ul vide si pas de menu.
*
* Revision 1.11 2004/11/26 19:02:22 jpm
* Correction bogue li surnuméraires.
*
* Revision 1.10 2004/11/15 17:40:02 jpm
* Changement nom balise.
*
* Revision 1.9 2004/11/15 16:17:40 jpm
* Gestion des différents types de menus.
*
* Revision 1.8 2004/11/10 18:59:21 jpm
* Début de gestion de l'ensemble des types de menu dans l'applette menu.
*
* Revision 1.7 2004/09/23 14:31:40 jpm
* Correction bogue sur le menu actif.
*
* Revision 1.6 2004/09/23 10:47:16 jpm
* Amélioration de la gestion du menu actif en fonction du menu demandé dans l'url.
*
* Revision 1.5 2004/09/15 09:32:21 jpm
* Mise en conformité avec le standard XHTML Strict.
* Amélioration de la gestion de l'indentation.
*
* Revision 1.4 2004/09/13 18:02:34 jpm
* Changement de nom de m_select en menu_actif et de m_non_select en menu_inactif.
* Amélioration du rendu du code html.
*
* Revision 1.3 2004/07/23 11:21:25 alex
* suppression du javascript.
*
* Revision 1.2 2004/06/25 08:32:02 alex
* modification des styles
*
* Revision 1.1 2004/06/15 15:04:14 jpm
* Changement de nom et d'arborescence de Genesia en Papyrus.
*
* Revision 1.10 2004/05/05 14:33:04 jpm
* Gestion de l'indication de langue dans l'url.
* Utile que si on veut forcer la langue.
*
* Revision 1.8 2004/05/05 06:44:19 jpm
* Complément des commentaires indiquant les paquetages nécessaire à l'applette.
*
* Revision 1.7 2004/05/04 14:19:37 jpm
* Mise entre guillemet simple d'un texte.
*
* Revision 1.6 2004/05/03 14:11:01 jpm
* Intégration du fichier bibliothèquie de fonctions sur gen_menu provenant de la bibliothèque de Génésia INUTILE!
*
* Revision 1.5 2004/05/03 14:09:32 jpm
* Intégration du fichier bibliothèquie de fonctions sur gen_menu provenant de la bibliothèque de Génésia.
*
* Revision 1.4 2004/05/03 11:19:00 jpm
* Intégration de la variable globale de Génésia dans les arguments de la fonction de l'applette.
*
* Revision 1.3 2004/05/03 08:52:44 jpm
* Modification pour intégrer les sous listes (ul) de menus à l'intèrieur de l'entrée (li) du menu supérieur.
*
* Revision 1.2 2004/05/01 17:22:23 jpm
* Changement de nom de l'applette dans les commentaires.
*
* Revision 1.1 2004/05/01 16:12:39 jpm
* Ajout de l'applette gérant les menus multi niveaux ou niveau unique.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/syndication/langues/synd_langue_fr.inc.php
New file
0,0 → 1,58
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of papyrus_bp. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: synd_langue_fr.inc.php,v 1.1 2006-12-13 17:06:35 jp_milcent Exp $
/**
* papyrus_bp - synd_langue_fr.inc.php
*
* Description :
*
*@package papyrus_bp
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 1999-2006
*@version $Revision: 1.1 $ $Date: 2006-12-13 17:06:35 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Texte affiché quand le paramètre "url" est abscent.*/
define('SYND_LG_ERREUR_URL', "Applette SYNDICATION : le paramètre 'url' est obligatoire!");
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/syndication/squelettes/synd_liste_evenement.tpl.html
New file
0,0 → 1,23
<!-- SYNDICATION - DEBUT -->
<?php if ($erreurs) : ?>
<?php foreach ($erreurs as $erreur) : ?>
<p class="pap_erreur"><?=$erreur;?></p>
<?php endforeach; ?>
<?php elseif ($informations) : ?>
<?php foreach ($informations as $information) : ?>
<p class="pap_info"><?=$information;?></p>
<?php endforeach; ?>
<?php else : ?>
<?php foreach ($sites as $site) : ?>
<?php foreach ($site['pages'] as $page) : ?>
<div class="menu_titre">
<h1 class="intituler_rubrique"><a class="lien_rss" href="<?=$page['url'];?>" <?=($site['ext'])? 'onclick="window.open(this.href); return false;"':'';?>><?=$page['titre'];?></a></h1>
<p class="date"><?php echo $page['category']; ?> début le <?php echo $GLOBALS['jours'][date ('w', strtotime ($page['date']))].' '.date('d', strtotime($page['date'])).
' '.$GLOBALS['mois'][date('n', strtotime ($page['date']))].' '.date ('Y', strtotime ($page['date'])); ?> par <?php echo $page['author']; ?></p>
<p class="descriptif_contenu"><?php echo substr($page['description'], 0, 400); ?></p>
</div>
<hr />
<?php endforeach; ?>
<?php endforeach; ?>
<?php endif; ?>
<!-- SYNDICATION - FIN -->
/branches/v5.0-ouadji/papyrus/applettes/syndication/squelettes/synd_liste_actu.tpl.html
New file
0,0 → 1,45
<!-- SYNDICATION - DEBUT -->
<h1 id="rss_titre_general">La botanique sur la toile</h1>
<?php if ($erreurs) : ?>
<?php foreach ($erreurs as $erreur) : ?>
<p class="pap_erreur"><?=$erreur;?></p>
<?php endforeach; ?>
<?php elseif ($informations) : ?>
<?php foreach ($informations as $information) : ?>
<p class="pap_info"><?=$information;?></p>
<?php endforeach; ?>
<?php else : ?>
<div class="rss">
<?php $flux = array(); ?>
<?php foreach ($sites as $site) : ?>
<?php foreach ($site['pages'] as $page) : ?>
<?php array_push ($flux, array ($page['url'], $page['titre'], $site['titre'], strtotime($page['date']))); ?>
<?php endforeach; ?>
<?php endforeach; ?>
<?php foreach ($flux as $key=>$row) : ?>
<?php $date_flux[$key] = $row[3]; ?>
<?php endforeach; ?>
<?php array_multisort($date_flux, SORT_DESC, $flux); ?>
<?php foreach ($flux as $key=>$news) : ?>
<h2 class="rss_titre_article"><a href="<?=$news[0];?>" class="lien_ext"><?php echo preg_replace('/^\d+-\d+&nbsp;:/', '', $news[1]);?></a></h2>
<h1 class="rss_titre_site"><?= $news[2]; ?> - <span class="date"><?php echo $GLOBALS['jours'][date ('w', $news[3])].' '.date('d',$news[3]).
' '.$GLOBALS['mois'][date('n', $news[3])].' '.date ('Y', strtotime ($news[3])); ?></span></h1>
<?php endforeach; ?>
 
<!--
<?php foreach ($sites as $site) : ?>
<?php foreach ($site['pages'] as $page) : ?>
<h2 class="rss_titre_article"><a href="<?=$page['url'];?>" class="lien_ext"><?php echo preg_replace('/^\d+-\d+&nbsp;:/', '', $page['titre']);?></a></h2>
<h1 class="rss_titre_site"><?= $site['titre']; ?> - <span class="date"><?php echo $GLOBALS['jours'][date ('w', strtotime ($page['date']))].' '.date('d', strtotime($page['date'])).
' '.$GLOBALS['mois'][date('n', strtotime ($page['date']))].' '.date('Y'); ?></span></h1>
 
<?php endforeach; ?>
<?php endforeach; ?>
-->
</div>
<?php endif; ?>
<!-- SYNDICATION - FIN -->
/branches/v5.0-ouadji/papyrus/applettes/syndication/squelettes/synd_liste_date.tpl.html
New file
0,0 → 1,20
<!-- SYNDICATION - DEBUT -->
<?php if ($erreurs) : ?>
<?php foreach ($erreurs as $erreur) : ?>
<p class="pap_erreur"><?=$erreur;?></p>
<?php endforeach; ?>
<?php elseif ($informations) : ?>
<?php foreach ($informations as $information) : ?>
<p class="pap_info"><?=$information;?></p>
<?php endforeach; ?>
<?php else : ?>
<ul class="rss_liste">
<?php foreach ($pages as $page) : ?>
<li class="rss_page">
<h1 class="rss_titre_site"><a href="<?=$page['site']['url'];?>"><?=$page['site']['titre'];?></a> - <span class="rss_date"><?=$page['date'];?></span></h1>
<h2 class="rss_titre_article"><a href="<?=$page['url'];?>" <?=($page['ext'])? 'onclick="window.open(this.href); return false;" title="S\'ouvre dans une nouvelle fenêtre"':'';?> ><?=$page['titre'];?></a></h2>
</li>
<?php endforeach; ?>
</ul>
<?php endif; ?>
<!-- SYNDICATION - FIN -->
/branches/v5.0-ouadji/papyrus/applettes/syndication/squelettes/synd_liste.tpl.html
New file
0,0 → 1,24
<!-- SYNDICATION - DEBUT -->
<?php if ($erreurs) : ?>
<?php foreach ($erreurs as $erreur) : ?>
<p class="pap_erreur"><?=$erreur;?></p>
<?php endforeach; ?>
<?php elseif ($informations) : ?>
<?php foreach ($informations as $information) : ?>
<p class="pap_info"><?=$information;?></p>
<?php endforeach; ?>
<?php else : ?>
<?php foreach ($sites as $site) : ?>
<h2 class="rss_site_titre"><a href="<?=$site['url'];?>"><?=$site['titre'];?></a></h2>
<ul class="liste_rss">
<?php foreach ($site['pages'] as $page) : ?>
<li class="titre_rss">
<span class="rss_date"><?=$page['date'];?></span>
<span class="rss_separateur_date"> - </span>
<a class="lien_rss" href="<?=$page['url'];?>" <?=($site['ext'])? 'onclick="window.open(this.href); return false;"':'';?>><?=$page['titre'];?></a>
</li>
<?php endforeach; ?>
</ul>
<?php endforeach; ?>
<?php endif; ?>
<!-- SYNDICATION - FIN -->
/branches/v5.0-ouadji/papyrus/applettes/syndication/configuration/synd_configuration.inc.php
New file
0,0 → 1,89
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of papyrus_bp. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: synd_configuration.inc.php,v 1.2 2008-10-29 15:54:40 alexandre_tb Exp $
/**
* papyrus_bp - synd_configuration.inc.php
*
* Description :
*
*@package papyrus_bp
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 1999-2006
*@version $Revision: 1.2 $ $Date: 2008-10-29 15:54:40 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_SYNDICATION_'] = array();
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Constante stockant la valeur de la langue par défaut pour l'applette SYND.*/
define('SYND_I18N_DEFAUT', GEN_I18N_ID_DEFAUT);
 
// Paramétrage de la bibliothèque de manipulation des flux RSS
/** Constante stockant le chemin vers la bibliothèque MAGPIERSS.*/
define('MAGPIE_DIR', GEN_CHEMIN_API.'syndication_rss/magpierss/');
/** Constante stockant le chemin vers le dossier de cache pour MAGPIERSS.*/
define('MAGPIE_CACHE_DIR', MAGPIE_DIR.'/tmp/magpie_cache');
/** Constante stockant le nombre de page syndiqués à afficher par site.*/
define('SYND_NOMBRE', 10);
/** Constante stockant si oui ou non on ouvre une nouvelle fenêtre pour consulter la page d'un site syndiqué.*/
define('SYND_OUVRIR_LIEN_RSS_NOUVELLE_FENETRE', 1);
/** Constante stockant le format des dates.*/
define('SYND_FORMAT_DATE', 'jma');
 
// Chemin vers les dossiers de l'applette
/** Chemin vers l'applette Syndication de Papyrus.*/
define('SYND_CHEMIN_APPLETTE', GEN_CHEMIN_APPLETTE.'syndication'.GEN_SEP);
/** Chemin vers les fichiers de traduction de l'applette Syndication de Papyrus.*/
define('SYND_CHEMIN_LANGUE', SYND_CHEMIN_APPLETTE.'langues'.GEN_SEP);
/** Chemin vers les fichiers squelettes de l'applette Syndication de Papyrus.*/
define('SYND_CHEMIN_SQUELETTE', SYND_CHEMIN_APPLETTE.'squelettes'.GEN_SEP);
 
// Configuration du rendu
/** Nom du fichier de squelette, par défaut, à utiliser pour la liste des pages.*/
define('SYND_SQUELETTE_LISTE', 'synd_liste.tpl.html');
 
$GLOBALS['jours'] = array (1 => 'lundi', 2 => 'mardi', 3 => 'mercredi', 4 => 'jeudi', 5 => 'vendredi',
6 => 'samedi', 0 => 'dimanche') ;
$GLOBALS['mois'] = array (1 => 'janvier', 2 => 'février', 3 => 'mars', 4 => 'avril', 5 => 'mai', 6 => 'juin',
7 => 'juillet', 8 => 'août', 9 => 'septembre', 10 => 'octobre', 11 =>'novembre',
12 => 'décembre') ;
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.1 2006-12-13 17:06:36 jp_milcent
* Ajout de l'applette Syndication.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/syndication/syndication.php
New file
0,0 → 1,338
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of papyrus_bp. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: syndication.php,v 1.11 2008-10-29 15:55:56 alexandre_tb Exp $
/**
* papyrus_bp - syndication.php
*
* Description :
*
*@package papyrus_bp
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 1999-2006
*@version $Revision: 1.11 $ $Date: 2008-10-29 15:55:56 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherSyndication';
$GLOBALS['_GEN_commun']['info_applette_balise'] = '\{\{[Ss]yndication'.
'(?:\s*'.
'(?:'.
'(url="[^"]*")|'.
'(titre="[^"]*")|'.
'(nb="?\d+"?)|'.
'(nouvellefenetre="?(?:0|1)"?)|'.
'(formatdate="[^"]*")|'.
'(formatdatepro="[^"]*")|'.
'(template=".*")|'.
')'.
')+'.
'\s*\}\}';
// +------------------------------------------------------------------------------------------------------+
/** Inclusion du fichier de configuration de cette application.*/
require_once GEN_CHEMIN_APPLETTE.'syndication'.GEN_SEP.'configuration'.GEN_SEP.'synd_configuration.inc.php';
 
// Inclusion des fichiers de traduction de l'applette SYND de Papyrus
if (file_exists(SYND_CHEMIN_LANGUE.'synd_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {
/** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/
require_once SYND_CHEMIN_LANGUE.'synd_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';
} else {
/** Inclusion du fichier de traduction par défaut.*/
require_once SYND_CHEMIN_LANGUE.'synd_langue_'.SYND_I18N_DEFAUT.'.inc.php';
}
/** Inclusion du fichier de la bibliotheque permettant de manipuler les flux RSS.*/
//require_once(MAGPIE_DIR.'rss_fetch.inc');
require_once PAP_CHEMIN_API_PEAR.'XML/Feed/Parser.php';
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Fonction afficherSyndication() - Retourne la liste des pages des sites syndiqués.
*
* Cette fonction retourne la liste des pages des sites syndiqués.
*
* @param array contient les arguments de la fonction.
* @param array tableau global de Papyrus.
* @return string XHTML la liste des pages.
*/
function afficherSyndication($tab_applette_arguments, $_GEN_commun)
{
// Initialisation des variables
$sortie = '';
$GLOBALS['_SYNDICATION_']['erreurs'] = array();
$GLOBALS['_SYNDICATION_']['informations'] = array();
$GLOBALS['_SYNDICATION_']['sites'] = array();
//+----------------------------------------------------------------------------------------------------------------+
// Gestion des arguments
$balise = $tab_applette_arguments[0];
$tab_arguments = $tab_applette_arguments;
unset($tab_arguments[0]);
foreach($tab_arguments as $argument) {
if ($argument != '') {
$tab_parametres = explode('=', $argument, 2);
$options[$tab_parametres[0]] = trim($tab_parametres[1], '"');
}
}
//
//+----------------------------------------------------------------------------------------------------------------+
// Gestion des erreurs de paramétrage
if (!isset($options['url'])) {
$GLOBALS['_SYNDICATION_']['erreurs'][] = sprintf(SYND_LG_ERREUR_URL, $balise);
}
if (!isset($options['titre'])) {
$options['titre'] = '';
}
if (!isset($options['nb'])) {
$options['nb'] = SYND_NOMBRE;
}
if (!isset($options['nouvellefenetre'])) {
$options['nouvellefenetre'] = SYND_OUVRIR_LIEN_RSS_NOUVELLE_FENETRE;
}
if (!isset($options['formatdate'])) {
$options['formatdate'] = SYND_FORMAT_DATE;
}
if (!isset($options['formatdatepro'])) {
$options['formatdatepro'] = false;
}
if (!isset($options['template'])) {
$options['template'] = SYND_CHEMIN_SQUELETTE.SYND_SQUELETTE_LISTE;
} else {
if (file_exists(SYND_CHEMIN_SQUELETTE.$options['template'])) {
$options['template'] = SYND_CHEMIN_SQUELETTE.$options['template'];
}
}
//+----------------------------------------------------------------------------------------------------------------+
// Recuperation des donnees
if (count($GLOBALS['_SYNDICATION_']['erreurs']) == 0) {
$tab_url = array_map('trim', explode(',', $options['url']));
foreach ($tab_url as $cle => $url) {
if ($url != '') {
$aso_site = array();
// Liste des encodages acceptés pour les flux
$encodages = 'UTF-8, ISO-8859-1, ISO-8859-15';
try {
$feed = new XML_Feed_Parser(file_get_contents($url));
} catch (XML_Feed_Parser_Exception $e) {
return('Le flux RSS est invalide : ' . $e->getMessage());
}
if ($options['template'] != '' && !file_exists($options['template'])) {
$i = 0 ;
$res= '';
foreach ($feed as $item) {
// Le test suivant pour savoir s il faut reduire l excendent de description
// Si {all} est present dans le template on ne reduit pas
if (preg_match ('/{all}/', $options['template'])) {
$template = str_replace('{all}', '', $options['template']);
$all = true ;
} else {
$all = false;
}
if (isset($item->summary)) {
$item->description = mb_convert_encoding($item->summary, 'HTML-ENTITIES', $encodages);
} else {
if (strlen($item->description) > 200 && !$all) {
$item->description = substr(mb_convert_encoding($item->description, 'HTML-ENTITIES', $encodages), 0, 300).
'... <a href="'.htmlentities($item->link).'">Lire la suite</a>';
}
}
if (!isset($item->pubdate)) {
$item->pubdate = date('dmY');
}
// Le code ci-apres est pour rattraper les dates du type 01012005 parsees par magpie
// lorsque les flux donne des dates au format iso
if (preg_match('/^([0-3][0-9])([0-1][0-9])([0-9][0-9][0-9][0-9])$/', $item->pubdate, $match)) {
$item->pubdate = $match[3].'-'.$match[2].'-'.$match[1];
//echo $item['pubdate'];
}
$res .= str_replace ('{num}', ++$i,
str_replace ('{item}', '<a href="'.htmlentities($item->link).'" target="_top">'.mb_convert_encoding($item->title, 'HTML-ENTITIES', $encodages).'</a>',
str_replace ('{date}', strftime('%d.%m.%Y',strtotime($item->pubdate)),
str_replace ('{description}', mb_convert_encoding($item->description, 'HTML-ENTITIES', $encodages), $options['template'])))) ;
$res .= "\n";
if ($i > $options['nb']) {
break;
}
}
return $res;
}
// Gestion du titre
if ( $options['titre'] == '' ) {
$aso_site['titre'] = mb_convert_encoding($feed->title, 'HTML-ENTITIES', $encodages);
} else if ( $options['titre'] != '0' ) {
$aso_site['titre'] = $options['titre'];
}
// Gestion de l'url du site
$aso_site['url'] = htmlentities($feed->link);
 
// Ouverture du lien dans une nouvelle fenetre
$aso_site['ext'] = false;
if ($options['nouvellefenetre'] == 1) {
$aso_site['ext'] = true;
}
// Gestion des pages syndiquees
$i = 0;
$nb_item = $feed->numberEntries;
 
foreach ($feed as $item) {
if ($options['nb'] != 0 && $nb_item >= $options['nb'] && $i >= $options['nb']) {
break;
}
$i++;
$aso_page = array();
$aso_page['site'] = $aso_site;
$aso_page['url'] = htmlentities($item->link);
$aso_page['titre'] = mb_convert_encoding($item->title, 'HTML-ENTITIES', $encodages);
$aso_page['description'] = mb_convert_encoding($item->description, 'HTML-ENTITIES', $encodages);
$aso_page['category'] = mb_convert_encoding($item->model->getElementsByTagName('category')->item(0)->nodeValue, 'HTML-ENTITIES', $encodages);
$aso_page['author'] = mb_convert_encoding($item->author, 'HTML-ENTITIES', $encodages);
$aso_page['date'] = $item->pubDate;
if ($options['formatdatepro']) {
switch ($options['formatdatepro']) {
case 'jm' :
$aso_page['date'] = strftime('%d.%m', $aso_page['date']);
break;
case 'jma' :
$aso_page['date'] = strftime('%d.%m.%Y', $aso_page['date']);
break;
case 'jmh' :
$aso_page['date'] = strftime('%d.%m %H:%M', $aso_page['date']);
break;
case 'jmah' :
$aso_page['date'] = strftime('%d.%m.%Y %H:%M', $aso_page['date']);
break;
default :
$aso_page['date'] = strftime('%d.%m.%Y %H:%M', $aso_page['date']);
}
} else {
switch ($options['formatdate']) {
case 'jm' :
$aso_page['date'] = strftime('%d.%m', $aso_page['date']);
break;
case 'jma' :
$aso_page['date'] = strftime('%d.%m.%Y', $aso_page['date']);
break;
case 'jmh' :
$aso_page['date'] = strftime('%d.%m %H:%M', $aso_page['date']);
break;
case 'jmah' :
$aso_page['date'] = strftime('%d.%m.%Y %H:%M', $aso_page['date']);
break;
default :
$aso_page['date'] = strftime('%d.%m.%Y %H:%M', $aso_page['date']);
}
}
$aso_site['pages'][] = $aso_page;
$GLOBALS['_SYNDICATION_']['pages'][strtotime($aso_page['date'])] = $aso_page;
}
$GLOBALS['_SYNDICATION_']['sites'][] = $aso_site;
}
}
}
// Trie des pages par date
//var_dump($GLOBALS['_SYNDICATION_']['pages']);
krsort($GLOBALS['_SYNDICATION_']['pages']);
//+----------------------------------------------------------------------------------------------------------------+
// Extrait les variables et les ajoutes a l'espace de noms local
// Gestion des squelettes
extract($GLOBALS['_SYNDICATION_']);
// Demarre le buffer
ob_start();
// Inclusion du fichier
include($options['template']);
// Recuperer le contenu du buffer
$sortie = ob_get_contents();
// Arrete et detruit le buffer
ob_end_clean();
//+----------------------------------------------------------------------------------------------------------------+
// Sortie
return $sortie;
}
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.10 2007-12-13 14:10:51 alexandre_tb
* Fusion avec la livraison AHA : 13 decembre 2007
*
* Revision 1.9 2007-12-03 14:54:14 jp_milcent
* Fusion avec la livraison AHA : 3 décembre 2007
*
* Revision 1.7.2.2 2007-12-03 14:52:21 jp_milcent
* Correction bogue : & dans les urls.
*
* Revision 1.8 2007-11-30 14:17:30 jp_milcent
* Fusion avec la livraison AHA : 30 novembre 2007
*
* Revision 1.7.2.1 2007-11-30 14:15:02 jp_milcent
* Amélioration du décodage utf8.
*
* Revision 1.7 2007-07-25 15:09:44 jp_milcent
* Fusion avec la livraison Narmer.
*
* Revision 1.5.2.4 2007-07-25 15:07:52 jp_milcent
* Correction problème url.
*
* Revision 1.5.2.3 2007-07-25 14:50:21 jp_milcent
* Corrections, meilleure utilisation de XML_Feed_Parser.
*
* Revision 1.5.2.2 2007-07-25 09:45:07 jp_milcent
* Utilisation de XML_Feed_Parser de Pear pour l'applette Syndication.
*
* Revision 1.6 2007-06-25 12:15:07 alexandre_tb
* merge from narmer
*
* Revision 1.5.2.1 2007-06-06 15:24:37 jp_milcent
* Amélioration de la compatibilité avec les anciennes version des balises de l'applette syndication.
*
* Revision 1.5 2007-04-20 12:50:18 florian
* correction bugs suite au merge
*
* Revision 1.4 2007/03/28 15:53:27 florian
* correction pb date, encodage utf-8
*
* Revision 1.3 2007/01/23 14:17:19 alexandre_tb
* backport : hack pour rattraper les dates du type 01012005 parsees par magpie
* lorsque les flux donne des dates au format iso
*
* Revision 1.2 2006/12/13 17:20:51 jp_milcent
* Correction bogue : paramètre nb non pris en compte
*
* Revision 1.1 2006/12/13 17:06:36 jp_milcent
* Ajout de l'applette Syndication.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/mot_cles/langues/mocl_langue_fr.inc.php
New file
0,0 → 1,90
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of papyrus_bp. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: mocl_langue_fr.inc.php,v 1.1 2006-12-12 13:32:27 jp_milcent Exp $
/**
* papyrus_bp - mocl_langue_fr.inc.php
*
* Description :
*
*@package papyrus_bp
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 1999-2006
*@version $Revision: 1.1 $ $Date: 2006-12-12 13:32:27 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Texte affiché quand le paramètre "mots" est abscent.*/
define('MOCL_LG_ERREUR_MOTS', "Applette MOT CLES : le paramètre 'mots' est obligatoire!");
/** Texte affiché quand le paramètre "categorie_condition" est présent avec "categorie" abscent.*/
define('MOCL_LG_ERREUR_MOTS_CATEG', "Applette MOT CLES : le paramètre 'categorie' est obligatoire si vous renseignez 'categorie_condition' dans %s !");
/** Texte affiché quand on n'a pas de page à afficher.*/
define('MOCL_LG_INFO_ZERO_PAGE', "Applette MOT CLES : aucune page n'a été trouvé pour : %s !");
/** Texte affiché quand l'auteur est inconnu.*/
define('MOCL_LG_INCONNU_AUTEUR', 'Anonyme');
/** Texte affiché quand le titre est vide.*/
define('MOCL_LG_INCONNU_TITRE', 'Titre inconnu');
 
/** Mois de janvier.*/
define('MOCL_LG_MOIS_01', 'janvier');
/** Mois de février.*/
define('MOCL_LG_MOIS_02', 'février');
/** Mois de mars.*/
define('MOCL_LG_MOIS_03', 'mars');
/** Mois d'avril.*/
define('MOCL_LG_MOIS_04', 'avril');
/** Mois de mai.*/
define('MOCL_LG_MOIS_05', 'mai');
/** Mois de juin.*/
define('MOCL_LG_MOIS_06', 'juin');
/** Mois de juillet.*/
define('MOCL_LG_MOIS_07', 'juillet');
/** Mois d'août'.*/
define('MOCL_LG_MOIS_08', 'août');
/** Mois de septembre.*/
define('MOCL_LG_MOIS_09', 'septembre');
/** Mois d'octobre.*/
define('MOCL_LG_MOIS_10', 'octobre');
/** Mois de novembre.*/
define('MOCL_LG_MOIS_11', 'novembre');
/** Mois de décembre.*/
define('MOCL_LG_MOIS_12', 'décembre');
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/mot_cles/squelettes/mocl_liste.tpl.html
New file
0,0 → 1,32
<!-- MOT CLES - DEBUT -->
<?php if ($erreurs) : ?>
<?php foreach ($erreurs as $erreur) : ?>
<p class="pap_erreur"><?=$erreur;?></p>
<?php endforeach; ?>
<?php elseif ($informations) : ?>
<?php foreach ($informations as $information) : ?>
<p class="pap_info"><?=$information;?></p>
<?php endforeach; ?>
<?php else : ?>
 
<ul class="page_liste">
<?php foreach ($pages as $page) : ?>
<li>
<span class="page_auteur"><?=$page['auteur'];?></span>
<span class="page_separateur_auteur"> - </span>
<a href="<?=$page['url'];?>"><span class="page_titre"><?=$page['titre'];?></span></a>
<span class="page_separateur_titre"> - </span>
<span class="page_creation_heure"><?=$page['heure'];?></span>
<span class="page_separateur_heure">:</span>
<span class="page_creation_minute"><?=$page['minute'];?></span>
<span class="page_separateur_heure">:</span>
<span class="page_creation_seconde"><?=$page['seconde'];?></span>
<span class="page_separateur_date_heure"> - </span>
<span class="page_creation_jour"><?=$page['jour'];?></span>
<span class="page_creation_mois"><?=$page['mois'];?></span>
<span class="page_creation_annee"><?=$page['annee'];?></span>
</li>
<?php endforeach; ?>
</ul>
<?php endif; ?>
<!-- MOT CLES - FIN -->
/branches/v5.0-ouadji/papyrus/applettes/mot_cles/configuration/mocl_configuration.inc.php
New file
0,0 → 1,71
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of papyrus_bp. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: mocl_configuration.inc.php,v 1.1 2006-12-12 13:32:27 jp_milcent Exp $
/**
* papyrus_bp - mocl_configuration.inc.php
*
* Description :
*
*@package papyrus_bp
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 1999-2006
*@version $Revision: 1.1 $ $Date: 2006-12-12 13:32:27 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_MOT_CLES_'] = array();
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Constante stockant la valeur de la langue par défaut pour l'applette MOCL.*/
define('MOCL_I18N_DEFAUT', GEN_I18N_ID_DEFAUT);
 
// Chemin vers les dossiers de l'applette
/** Chemin vers l'applette Categorie de Papyrus.*/
define('MOCL_CHEMIN_APPLETTE', GEN_CHEMIN_APPLETTE.'mot_cles'.GEN_SEP);
/** Chemin vers les fichiers de traduction de l'applette Categorie de Papyrus.*/
define('MOCL_CHEMIN_LANGUE', MOCL_CHEMIN_APPLETTE.'langues'.GEN_SEP);
/** Chemin vers les fichiers de la bibliotheque de l'applette Categorie de Papyrus.*/
define('MOCL_CHEMIN_BIBLIO', MOCL_CHEMIN_APPLETTE.'bibliotheque'.GEN_SEP);
/** Chemin vers les fichiers squelettes de l'applette Categorie de Papyrus.*/
define('MOCL_CHEMIN_SQUELETTE', MOCL_CHEMIN_APPLETTE.'squelettes'.GEN_SEP);
 
// Configuration du rendu
/** Nom du fichier de squelette à utiliser pour la liste des pages.*/
define('MOCL_SQUELETTE_LISTE', 'mocl_liste.tpl.html');
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/mot_cles/mot_cles.php
New file
0,0 → 1,269
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of papyrus_bp. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: mot_cles.php,v 1.2 2006-12-12 17:17:12 jp_milcent Exp $
/**
* papyrus_bp - mot_cles.php
*
* Description :
*
*@package papyrus_bp
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 1999-2006
*@version $Revision: 1.2 $ $Date: 2006-12-12 17:17:12 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherMotCles';
$GLOBALS['_GEN_commun']['info_applette_balise'] = '\{\{[Mm]otCles'.
'(?:\s*'.
'(?:'.
'(mots="[^"]+")|'.
'(categorie="[^"]+")|'.
'(condition="(?i:et|ou)")|'.
'(mots_condition="(?i:et|ou)")|'.
'(categorie_condition="(?i:et|ou)")|'.
'(ordre="(?i:asc|desc)")|'.
')'.
')+'.
'\s*\}\}';
 
// --------------------------------------------------------------------------------------------------------
/** Inclusion du fichier de configuration de cette application.*/
require_once GEN_CHEMIN_APPLETTE.'mot_cles'.GEN_SEP.'configuration'.GEN_SEP.'mocl_configuration.inc.php';
 
// Inclusion des fichiers de traduction de l'applette MOCL de Papyrus
if (file_exists(MOCL_CHEMIN_LANGUE.'mocl_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {
/** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/
require_once MOCL_CHEMIN_LANGUE.'mocl_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';
} else {
/** Inclusion du fichier de traduction par défaut.*/
require_once MOCL_CHEMIN_LANGUE.'mocl_langue_'.MOCL_I18N_DEFAUT.'.inc.php';
}
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Fonction afficherMotCles() - Retourne la liste des pages pour un mot clés donné.
*
* Cette fonction retourne la liste des pages pour un mot clés donné.
*
* @param array contient les arguments de la fonction.
* @param array tableau global de Papyrus.
* @return string HTML la liste des listes de menus.
*/
function afficherMotCles($tab_applette_arguments, $_GEN_commun)
{
// Initialisation des variables
$sortie = '';
$GLOBALS['_MOT_CLES_']['erreurs'] = array();
$GLOBALS['_MOT_CLES_']['informations'] = array();
$GLOBALS['_MOT_CLES_']['pages'] = array();
//+----------------------------------------------------------------------------------------------------------------+
// Gestion des arguments
$balise = $tab_applette_arguments[0];
$tab_arguments = $tab_applette_arguments;
unset($tab_arguments[0]);
foreach($tab_arguments as $argument) {
if ($argument != '') {
$tab_parametres = explode('=', $argument);
$options[$tab_parametres[0]] = trim($tab_parametres[1], '"');
}
}
//+----------------------------------------------------------------------------------------------------------------+
// Gestion des erreurs de paramètrage
if (!isset($options['mots'])) {
$GLOBALS['_MOT_CLES_']['erreurs'][] = MOCL_LG_ERREUR_MOTS;
}
if (!isset($options['categorie']) && isset($options['categorie_condition'])) {
$GLOBALS['_MOT_CLES_']['erreurs'][] = sprintf(MOCL_LG_ERREUR_MOTS_CATEG, $balise);
}
if (!isset($options['categorie'])) {
$options['categorie'] = '';
}
// Les conditions étant écrites en français, ce qui suit les traduit, "et" devient "AND" etc.
$tab_condition_type = array('condition', 'mots_condition', 'categorie_condition');
foreach ($tab_condition_type as $type) {
if (isset($options[$type])) {
if (strtolower($options[$type]) == 'et') {
$options[$type] = 'AND';
} elseif (strtolower($options[$type]) == 'ou') {
$options[$type] = 'OR';
}
}
}
if (!isset($options['mots_condition']) && isset($options['condition'])) {
$options['mots_condition'] = $options['condition'];
}
if (!isset($options['categorie_condition']) && isset($options['condition'])) {
$options['categorie_condition'] = $options['condition'];
}
if (!isset($options['categorie_condition']) && !isset($options['condition']) && isset($options['mots_condition'])) {
$options['categorie_condition'] = $options['mots_condition'];
}
if (!isset($options['ordre'])) {
$options['ordre'] = 'ASC';
}
//+----------------------------------------------------------------------------------------------------------------+
// Récupération des données
// Récupération des infos sur les mots
$tab_mots = explode(',', $options['mots']);
for ($i = 0; $i < count($tab_mots); $i++) {
// Suppression des espaces, tabulations... en début et fin de chaine
$tab_mots[$i] = trim($tab_mots[$i]);
}
// Récupération des infos sur les catégories
$tab_cat = explode(',', $options['categorie']) ;
for ($i = 0; $i < count($tab_cat); $i++) {
// Suppression des espaces, tabulations... en début et fin de chaine
$tab_cat[$i] = trim($tab_cat[$i]);
}
$aso_info_menu = GEN_lireInfoMenuMeta($GLOBALS['_GEN_commun']['pear_db'], $tab_mots, $tab_cat, $options['mots_condition'], $options['categorie_condition'], $options['ordre']);
if (count($aso_info_menu) == 0) {
$GLOBALS['_MOT_CLES_']['informations'][] = sprintf(CATEG_LG_INFO_ZERO_PAGE, $options['mots']);
} else {
foreach ($aso_info_menu as $id_menu => $un_menu) {
// Initialisation
$aso_page = array();
$aso_page['url'] = '#';
$aso_page['auteur'] = MOCL_LG_INCONNU_AUTEUR;
$aso_page['titre'] = MOCL_LG_INCONNU_TITRE;
$aso_page['heure'] = '';
$aso_page['minute'] = '';
$aso_page['seconde'] = '';
$aso_page['jours'] = '';
$aso_page['mois'] = '';
$aso_page['annee'] = '';
// Création de l'url
$une_url =& new Pap_URL();
$une_url->setId($id_menu);
$aso_page['url'] = $une_url->getURL();
// Affichage de l'auteur(s)
if ($un_menu->gm_auteur != '') {
$aso_page['auteur'] = $un_menu->gm_auteur;
}
// Affichage du titre
if ($un_menu->gm_titre != '') {
$aso_page['titre'] = $un_menu->gm_titre;
}
// Affichage de l'horaire de la création de la page
if (($heure = date('G', strtotime($un_menu->gm_date_creation)) ) != 0 ) {
$aso_page['heure'] = $heure;
$minute = date('i', strtotime($un_menu->gm_date_creation));
$aso_page['minute'] = $minute;
if (($seconde = date('s', strtotime($un_menu->gm_date_creation)) ) != 0 ) {
$aso_page['seconde'] = $seconde;
}
}
// Affichage de la date de la création de la page
if (($jour = date('d', strtotime($un_menu->gm_date_creation)) ) != 0 ) {
$aso_page['jour'] = $jour;
}
if (($mois = _traduireMois(date('m', strtotime($un_menu->gm_date_creation))) ) != '' ) {
$aso_page['mois'] = $mois;
}
if (($annee = date('Y', strtotime($un_menu->gm_date_creation)) ) != 0 ) {
$aso_page['annee'] = $annee;
}
$GLOBALS['_MOT_CLES_']['pages'][] = $aso_page;
}
}
 
//+----------------------------------------------------------------------------------------------------------------+
// Extrait les variables et les ajoutes à l'espace de noms local
// Gestion des squelettes
extract($GLOBALS['_MOT_CLES_']);
// Démarre le buffer
ob_start();
// Inclusion du fichier
include(MOCL_CHEMIN_SQUELETTE.MOCL_SQUELETTE_LISTE);
// Récupérer le contenu du buffer
$sortie = ob_get_contents();
// Arrête et détruit le buffer
ob_end_clean();
//+----------------------------------------------------------------------------------------------------------------+
// Sortie
return $sortie;
}
 
if (!function_exists('_traduireMois')) {
function _traduireMois($mois_numerique)
{
switch ($mois_numerique) {
case '01' :
return MOCL_LG_MOIS_01;
case '02' :
return MOCL_LG_MOIS_02;
case '03' :
return MOCL_LG_MOIS_03;
case '04' :
return MOCL_LG_MOIS_04;
case '05' :
return MOCL_LG_MOIS_05;
case '06' :
return MOCL_LG_MOIS_06;
case '07' :
return MOCL_LG_MOIS_07;
case '08' :
return MOCL_LG_MOIS_08;
case '09' :
return MOCL_LG_MOIS_09;
case '10' :
return MOCL_LG_MOIS_10;
case '11' :
return MOCL_LG_MOIS_11;
case '12' :
return MOCL_LG_MOIS_12;
default:
return '';
}
}
}
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.1 2006/12/12 13:32:27 jp_milcent
* Ajout de l'applette MotCles.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/lien/configuration/lien_configuration.inc.php
New file
0,0 → 1,89
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | Ce logiciel est un programme informatique servant à gérer du contenu et des applications web. | |
// | |
// | Ce logiciel est régi par la licence CeCILL soumise au droit français et respectant les principes de |
// | diffusion des logiciels libres. Vous pouvez utiliser, modifier et/ou redistribuer ce programme sous |
// | les conditions de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA sur le site |
// | "http://www.cecill.info". |
// | |
// | En contrepartie de l'accessibilité au code source et des droits de copie, de modification et de |
// | redistribution accordés par cette licence, il n'est offert aux utilisateurs qu'une garantie limitée. |
// | Pour les mêmes raisons, seule une responsabilité restreinte pèse sur l'auteur du programme, le |
// | titulaire des droits patrimoniaux et les concédants successifs. |
// | |
// | A cet égard l'attention de l'utilisateur est attirée sur les risques associés au chargement, à |
// | l'utilisation, à la modification et/ou au développement et à la reproduction du logiciel par |
// | l'utilisateur étant donné sa spécificité de logiciel libre, qui peut le rendre complexe à manipuler |
// | et qui le réserve donc à des développeurs et des professionnels avertis possédant des connaissances |
// | informatiques approfondies. Les utilisateurs sont donc invités à charger et tester l'adéquation |
// | du logiciel à leurs besoins dans des conditions permettant d'assurer la sécurité de leurs systèmes |
// | et ou de leurs données et, plus généralement, à l'utiliser et l'exploiter dans les mêmes conditions |
// | de sécurité. |
// | |
// | Le fait que vous puissiez accéder à cet en-tête signifie que vous avez pris connaissance de la |
// | licence CeCILL, et que vous en avez accepté les termes. |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: lien_configuration.inc.php,v 1.1 2006-12-08 20:08:59 jp_milcent Exp $
/**
* papyrus
*
* Description...
*
*@package Applette
*@subpackage Lien
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2006
*@version $Revision: 1.1 $ $Date: 2006-12-08 20:08:59 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_LIEN_'] = array();
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Constante stockant la valeur de la langue par défaut pour l'applette LIEN.*/
define('LIEN_I18N_DEFAUT', GEN_I18N_ID_DEFAUT);
 
// Chemin des fichiers à inclure.
/** Chemin vers la bibliothèque PEAR.*/
define('LIEN_CHEMIN_BIBLIOTHEQUE_PEAR', PAP_CHEMIN_API_PEAR);
 
// Chemin vers les dossiers de l'applette
/** Chemin vers l'applette Lien de Papyrus.*/
define('LIEN_CHEMIN_APPLETTE', GEN_CHEMIN_APPLETTE.'lien'.GEN_SEP);
/** Chemin vers les fichiers de traduction de l'applette Lien de Papyrus.*/
define('LIEN_CHEMIN_LANGUE', LIEN_CHEMIN_APPLETTE.'langues'.GEN_SEP);
/** Chemin vers les fichiers de la bibliotheque de l'applette Lien de Papyrus.*/
define('LIEN_CHEMIN_BIBLIO', LIEN_CHEMIN_APPLETTE.'bibliotheque'.GEN_SEP);
/** Chemin vers les fichiers squelettes de l'applette Lien de Papyrus.*/
define('LIEN_CHEMIN_SQUELETTE', LIEN_CHEMIN_APPLETTE.'squelettes'.GEN_SEP);
 
// Configuration du rendu
/** Nom du fichier de squelette à utiliser pour la liste des pages.*/
define('LIEN_SQUELETTE_LISTE', 'lien.tpl.html');
 
// +------------------------------------------------------------------------------------------------------+
// | PIED du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/lien/lien.php
New file
0,0 → 1,188
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of papyrus_bp. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: lien.php,v 1.2 2008-11-14 11:22:24 jp_milcent Exp $
/**
* papyrus_bp - lien.php
*
* Description :
*
*@package papyrus_bp
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 1999-2006
*@version $Revision: 1.2 $ $Date: 2008-11-14 11:22:24 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherLien';
$GLOBALS['_GEN_commun']['info_applette_balise'] = '\{\{[Ll]ien(?:\s*(?:((?:menu|site)="[^"]+")|(titre="[^"]+")|))+\s*\}\}';
 
// --------------------------------------------------------------------------------------------------------
/** Inclusion du fichier de configuration de cette application.*/
require_once GEN_CHEMIN_APPLETTE.'lien'.GEN_SEP.'configuration'.GEN_SEP.'lien_configuration.inc.php';
 
// Inclusion des fichiers de traduction de l'applette LIEN de Papyrus
if (file_exists(LIEN_CHEMIN_LANGUE.'lien_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {
/** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/
require_once LIEN_CHEMIN_LANGUE.'lien_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';
} else {
/** Inclusion du fichier de traduction par défaut.*/
require_once LIEN_CHEMIN_LANGUE.'lien_langue_'.LIEN_I18N_DEFAUT.'.inc.php';
}
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Fonction afficherLien() - Retourne le lien d'un menu ou d'un site.
*
* Cette fonction retourne un lien vers un menu ou un site. Le lien est créé dynamiquement et donc toujours à jour.
* Il est possible d'utiliser les code numérique ou alphanumérique.
*
* @param array contient les arguments de la fonction.
* @param array tableau global de Papyrus.
* @return string XHTML le lien.
*/
function afficherLien($tab_applette_arguments, $_GEN_commun)
{
// Initialisation des variables
$sortie = '';
$niveau = null;
$GLOBALS['_LIEN_']['url'] = '';
$GLOBALS['_LIEN_']['titre'] = LIEN_LG_ERREUR_TITRE;
$GLOBALS['_LIEN_']['erreurs'] = array();
 
//+----------------------------------------------------------------------------------------------------------------+
// Gestion des arguments
$tab_arguments = $tab_applette_arguments;
unset($tab_arguments[0]);
foreach($tab_arguments as $argument) {
$tab_parametres = explode('=', $argument);
$options[$tab_parametres[0]] = trim($tab_parametres[1], '"');
}
//+----------------------------------------------------------------------------------------------------------------+
// Gestion des erreurs de paramètrage
if (!isset($options['menu']) && !isset($options['site']) ) {
$GLOBALS['_LIEN_']['erreur'] = LIEN_LG_ERREUR_SITE_MENU;
} else {
if (isset($options['menu'])) {
$niveau = 'menu';
$identifiant = $options['menu'];
} else if (isset($options['site'])) {
$niveau = 'site';
$identifiant = $options['site'];
}
}
 
//+----------------------------------------------------------------------------------------------------------------+
// Récupération des données
$bdd =& $GLOBALS['_GEN_commun']['pear_db'];
$id_langue = $GLOBALS['_GEN_commun']['i18n']; //identifiant de la langue choisie
if (isset($id_langue) && ($id_langue != '')) {
$langue_url = $id_langue;
} else {
$langue_url = GEN_I18N_ID_DEFAUT;
}
$une_url =& new Pap_URL();
// Les sites
if ($niveau == "site") {
if (preg_match('/^[0-9]+$/', $identifiant)) {
$aso_site = GEN_lireInfoSiteI18nCodeAlpha($bdd, GEN_retournerSiteCodeAlpha($bdd, $identifiant), $langue_url, DB_FETCHMODE_ASSOC);
} else {
$aso_site = GEN_lireInfoSiteI18nCodeAlpha($bdd, $identifiant, $langue_url, DB_FETCHMODE_ASSOC);
}
if (isset($options['titre'])) {
$GLOBALS['_LIEN_']['titre'] = $options['titre'];
} else {
if (!empty($aso_site['gs_titre'])) {
$GLOBALS['_LIEN_']['titre'] = $aso_site['gs_titre'];
} else {
$GLOBALS['_LIEN_']['titre'] = $aso_site['gs_nom'];
}
}
$une_url->setUrlType('SITE');
$une_url->setId($aso_site['gs_id_site']);
}
// Les menus
if ($niveau == "menu") {
if (preg_match('/^[0-9]+$/', $identifiant)) {
$aso_menu = GEN_lireInfoMenu($bdd, GEN_retournerIdMenuParCodeNum($bdd, $identifiant), DB_FETCHMODE_ASSOC);
} else {
$aso_menu = GEN_lireInfoMenu($bdd, GEN_retournerIdMenuParCodeNum($bdd, GEN_retournerMenuCodeNum($bdd, $identifiant)), DB_FETCHMODE_ASSOC);
}
if (isset($options['titre'])) {
$GLOBALS['_LIEN_']['titre'] = $options['titre'];
} else {
if (!empty($aso_menu['gm_titre'])) {
$GLOBALS['_LIEN_']['titre'] = $aso_menu['gm_titre'];
} elseif (!empty($aso_menu['gm_titre_alternatif'])) {
$GLOBALS['_LIEN_']['titre'] = $aso_menu['gm_titre_alternatif'];
} elseif (!empty($aso_menu['gm_nom'])) {
$GLOBALS['_LIEN_']['titre'] = $aso_menu['gm_nom'];
}
}
$une_url->setId($aso_menu['gm_id_menu']);
}
if ($langue_url != GEN_I18N_ID_DEFAUT) {
$une_url->addQueryString(GEN_URL_CLE_I18N, $langue_url);
}
$GLOBALS['_LIEN_']['url'] = $une_url->getURL();
$GLOBALS['_LIEN_']['titre'] = htmlentities($GLOBALS['_LIEN_']['titre']);
//+----------------------------------------------------------------------------------------------------------------+
// Extrait les variables et les ajoutes à l'espace de noms local
// Gestion des squelettes
extract($GLOBALS['_LIEN_']);
// Démarre le buffer
ob_start();
// Inclusion du fichier
include(LIEN_CHEMIN_SQUELETTE.LIEN_SQUELETTE_LISTE);
// Récupérer le contenu du buffer
$sortie = ob_get_contents();
// Arrête et détruit le buffer
ob_end_clean();
//+----------------------------------------------------------------------------------------------------------------+
// Sortie
return $sortie;
}
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.1 2006-12-08 20:08:59 jp_milcent
* Ajout de l'apllette Lien.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/lien/langues/lien_langue_fr.inc.php
New file
0,0 → 1,74
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | Ce logiciel est un programme informatique servant à gérer du contenu et des applications web. | |
// | |
// | Ce logiciel est régi par la licence CeCILL soumise au droit français et respectant les principes de |
// | diffusion des logiciels libres. Vous pouvez utiliser, modifier et/ou redistribuer ce programme sous |
// | les conditions de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA sur le site |
// | "http://www.cecill.info". |
// | |
// | En contrepartie de l'accessibilité au code source et des droits de copie, de modification et de |
// | redistribution accordés par cette licence, il n'est offert aux utilisateurs qu'une garantie limitée. |
// | Pour les mêmes raisons, seule une responsabilité restreinte pèse sur l'auteur du programme, le |
// | titulaire des droits patrimoniaux et les concédants successifs. |
// | |
// | A cet égard l'attention de l'utilisateur est attirée sur les risques associés au chargement, à |
// | l'utilisation, à la modification et/ou au développement et à la reproduction du logiciel par |
// | l'utilisateur étant donné sa spécificité de logiciel libre, qui peut le rendre complexe à manipuler |
// | et qui le réserve donc à des développeurs et des professionnels avertis possédant des connaissances |
// | informatiques approfondies. Les utilisateurs sont donc invités à charger et tester l'adéquation |
// | du logiciel à leurs besoins dans des conditions permettant d'assurer la sécurité de leurs systèmes |
// | et ou de leurs données et, plus généralement, à l'utiliser et l'exploiter dans les mêmes conditions |
// | de sécurité. |
// | |
// | Le fait que vous puissiez accéder à cet en-tête signifie que vous avez pris connaissance de la |
// | licence CeCILL, et que vous en avez accepté les termes. |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: lien_langue_fr.inc.php,v 1.1 2006-12-08 20:08:59 jp_milcent Exp $
/**
* papyrus
*
* Description...
*
*@package Applette
*@subpackage Lien
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2006
*@version $Revision: 1.1 $ $Date: 2006-12-08 20:08:59 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Texte affiché quand le paramètre "menu" ou "site" est abscent.*/
define('LIEN_LG_ERREUR_SITE_MENU', "Applette LIEN : le paramètre 'site' ou 'menu' est obligatoire dans '%s' !");
/** Texte affiché quand aucun titre n'est trouvé.*/
define('LIEN_LG_ERREUR_TITRE', "page sans nom");
 
// +------------------------------------------------------------------------------------------------------+
// | PIED du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/lien/squelettes/lien.tpl.html
New file
0,0 → 1,9
<?php if ($erreurs) : ?>
<!-- LIEN - DEBUT -->
<?php foreach ($erreurs as $erreur) : ?>
<p class="pap_erreur"><?=$erreur;?></p>
<?php endforeach; ?>
<!-- LIEN - FIN -->
<?php else : ?>
<a href="<?=$url;?>"><?=$titre;?></a>
<?php endif; ?>
/branches/v5.0-ouadji/papyrus/applettes/redirection/langues/redi_langue_fr.inc.php
New file
0,0 → 1,58
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of papyrus_bp. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: redi_langue_fr.inc.php,v 1.1 2006-12-13 10:52:30 jp_milcent Exp $
/**
* papyrus_bp - redi_langue_fr.inc.php
*
* Description :
*
*@package papyrus_bp
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 1999-2006
*@version $Revision: 1.1 $ $Date: 2006-12-13 10:52:30 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Texte affiché quand le paramètre "url" est abscent.*/
define('REDI_LG_ERREUR_URL', "Applette REDIRECTION : le paramètre 'url' est obligatoire dans %s !");
/** Texte affiché quand le paramètre "url" est vide.*/
define('REDI_LG_ERREUR_URL_VIDE', "Applette REDIRECTION : le paramètre 'url' doit être renseigné dans %s !");
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/redirection/squelettes/redi_erreur.tpl.html
New file
0,0 → 1,7
<!-- REDIRECTION - DEBUT -->
<?php if ($erreurs) : ?>
<?php foreach ($erreurs as $erreur) : ?>
<p class="pap_erreur"><?=$erreur;?></p>
<?php endforeach; ?>
<?php endif; ?>
<!-- REDIRECTION - FIN -->
/branches/v5.0-ouadji/papyrus/applettes/redirection/configuration/redi_configuration.inc.php
New file
0,0 → 1,69
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of papyrus_bp. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: redi_configuration.inc.php,v 1.1 2006-12-13 10:52:30 jp_milcent Exp $
/**
* papyrus_bp - redi_configuration.inc.php
*
* Description :
*
*@package papyrus_bp
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 1999-2006
*@version $Revision: 1.1 $ $Date: 2006-12-13 10:52:30 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_REDIRECTION_'] = array();
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Constante stockant la valeur de la langue par défaut pour l'applette REDI.*/
define('REDI_I18N_DEFAUT', GEN_I18N_ID_DEFAUT);
 
// Chemin vers les dossiers de l'applette
/** Chemin vers l'applette Redirection de Papyrus.*/
define('REDI_CHEMIN_APPLETTE', GEN_CHEMIN_APPLETTE.'redirection'.GEN_SEP);
/** Chemin vers les fichiers de traduction de l'applette Redirection de Papyrus.*/
define('REDI_CHEMIN_LANGUE', REDI_CHEMIN_APPLETTE.'langues'.GEN_SEP);
/** Chemin vers les fichiers squelettes de l'applette Redirection de Papyrus.*/
define('REDI_CHEMIN_SQUELETTE', REDI_CHEMIN_APPLETTE.'squelettes'.GEN_SEP);
 
// Configuration du rendu
/** Nom du fichier de squelette à utiliser pour les erreurs.*/
define('REDI_SQUELETTE_PRINCIPAL', 'redi_erreur.tpl.html');
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/redirection/redirection.php
New file
0,0 → 1,138
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of papyrus_bp. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: redirection.php,v 1.2 2007-12-07 10:08:43 alexandre_tb Exp $
/**
* papyrus_bp - redirection.php
*
* Description :
*
*@package papyrus_bp
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 1999-2006
*@version $Revision: 1.2 $ $Date: 2007-12-07 10:08:43 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'lancerRedirection';
$GLOBALS['_GEN_commun']['info_applette_balise'] = '\{\{[Rr]edirection'.
'(?:\s*'.
'(?:'.
'(url="[^"]*")|'.
')'.
')+'.
'\s*\}\}';
 
// --------------------------------------------------------------------------------------------------------
/** Inclusion du fichier de configuration de cette application.*/
require_once GEN_CHEMIN_APPLETTE.'redirection'.GEN_SEP.'configuration'.GEN_SEP.'redi_configuration.inc.php';
 
// Inclusion des fichiers de traduction de l'applette REDI de Papyrus
if (file_exists(REDI_CHEMIN_LANGUE.'redi_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {
/** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/
require_once REDI_CHEMIN_LANGUE.'redi_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';
} else {
/** Inclusion du fichier de traduction par défaut.*/
require_once REDI_CHEMIN_LANGUE.'redi_langue_'.REDI_I18N_DEFAUT.'.inc.php';
}
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Fonction lancerRedirection() - Redirige vers une nouvelle URL.
*
* Cette fonction redirige l'utilisateur vers une nouvelle url.
*
* @param array contient les arguments de la fonction.
* @param array tableau global de Papyrus.
* @return null on est redirigé.
*/
function lancerRedirection($tab_applette_arguments, $_GEN_commun)
{
// Initialisation des variables
$sortie = '';
$GLOBALS['_REDIRECTION_']['erreurs'] = array();
//+----------------------------------------------------------------------------------------------------------------+
// Gestion des arguments
$balise = $tab_applette_arguments[0];
$tab_arguments = $tab_applette_arguments;
unset($tab_arguments[0]);
foreach($tab_arguments as $argument) {
if ($argument != '') {
$tab_parametres = explode('=', $argument,2);
$options[$tab_parametres[0]] = trim($tab_parametres[1], '"');
}
}
//+----------------------------------------------------------------------------------------------------------------+
// Gestion des erreurs de paramètrage
if (!isset($options['url'])) {
$GLOBALS['_REDIRECTION_']['erreurs'][] = sprintf(REDI_LG_ERREUR_URL, $balise);
}
if (isset($options['url']) && $options['url'] == '') {
$GLOBALS['_REDIRECTION_']['erreurs'][] = sprintf(REDI_LG_ERREUR_URL_VIDE, $balise);
}
//+----------------------------------------------------------------------------------------------------------------+
// Redirection
if (count($GLOBALS['_REDIRECTION_']['erreurs']) == 0) {
$options['url'] = preg_replace('/&amp;/', '&', $options['url']);
header('Location: '.$options['url']);
exit();
} else {
//+----------------------------------------------------------------------------------------------------------------+
// Extrait les variables et les ajoutes à l'espace de noms local
// Gestion des squelettes
extract($GLOBALS['_REDIRECTION_']);
// Démarre le buffer
ob_start();
// Inclusion du fichier
include(REDI_CHEMIN_SQUELETTE.REDI_SQUELETTE_PRINCIPAL);
// Récupérer le contenu du buffer
$sortie = ob_get_contents();
// Arrête et détruit le buffer
ob_end_clean();
//+----------------------------------------------------------------------------------------------------------------+
// Sortie
return $sortie;
}
}
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.1 2006-12-13 10:52:30 jp_milcent
* Ajout de l'applette Rediection.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/identification/langues/iden_langue_fr.inc.php
New file
0,0 → 1,114
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2005 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of Papyrus. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: iden_langue_fr.inc.php,v 1.9 2006-11-20 18:39:22 jp_milcent Exp $
/**
* Traduction de l'applette Identification : fr
*
* Fichier de traduction de l'applette Identification en français.
*
*@package Applette
*@subpackage Identification
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2005
*@version $Revision: 1.9 $ $Date: 2006-11-20 18:39:22 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
/** Message de bienvenu de l'identification.*/
define('IDEN_LG_MESSAGE', 'Votre identité');
/** Message de la légende du formulaire demandant de s'identifier.*/
define('IDEN_LG_FORM_LEGEND', 'Identifiez vous');
/** Label du champ courriel.*/
define('IDEN_LG_FORM_LABEL_COURRIEL', 'Courriel : ');
/** Valeur du champ courriel.*/
define('IDEN_LG_FORM_VALUE_COURRIEL', 'courriel');
/** Label du champ mot de passe.*/
define('IDEN_LG_FORM_LABEL_MDP', 'Mot de passe : ');
/** Valeur du champ mot de passe.*/
define('IDEN_LG_FORM_VALUE_MDP', 'mot de passe');
/** Valeur du champ submit.*/
define('IDEN_LG_FORM_VALUE_SUBMIT', 'ok');
/** Message indiquant le lien vers la page d'inscription.*/
define('IDEN_LG_INSCRIPTION_URL', 'S\'inscrire... ');
/** Message indiquant le lien vers la page d'aide de l'inscription.*/
define('IDEN_LG_INSCRIPTION_AIDE', 'Aide... ');
/** Message indiquant le lien vers la page de modification de son inscription.*/
define('IDEN_LG_INSCRIPTION_URL_MODIF', 'Modifier votre inscription...');
/** Message indiquant le lien pour se déconnecter.*/
define('IDEN_LG_DECONNEXION', 'Déconnexion');
/** Message d'échec d'authentification */
define ('IDEN_ECHEC_AUTH', 'Mot de passe perdu ? ') ;
/** Message ici */
define ('IDEN_ICI', 'Cliquer ici') ;
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.8 2006/11/20 17:30:40 jp_milcent
* Amélioration de la gestion de l'identification.
* Utilisation des durées de session correcte.
* Suppression du code pour Spip non fonctionnel.
*
* Revision 1.7 2006/03/02 10:49:49 ddelon
* Fusion branche multilinguisme dans branche principale
*
* Revision 1.6 2005/12/13 11:13:52 alexandre_tb
* ajout d'un message si l'identification échoue
*
* Revision 1.5.2.1 2005/12/20 14:40:25 ddelon
* Fusion Head vers Livraison
*
* Revision 1.6 2005/12/13 11:13:52 alexandre_tb
* ajout d'un message si l'identification échoue
*
* Revision 1.5 2005/06/09 17:06:28 jpm
* Ajout de constantes de langue.
*
* Revision 1.4 2005/06/02 11:56:00 jpm
* Modification de l'affichage de l'identification.
*
* Revision 1.3 2005/04/14 16:37:27 jpm
* Ajout de la gestion de la modification de son inscription.
*
* Revision 1.2 2005/03/25 14:41:04 jpm
* Modification et ajout de constantes.
*
* Revision 1.1 2005/03/15 14:19:32 jpm
* Ajout d'un fichier de traduction.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/identification/langues/iden_langue_en.inc.php
New file
0,0 → 1,112
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2005 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of Papyrus. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: iden_langue_en.inc.php,v 1.2 2006-11-20 18:39:22 jp_milcent Exp $
/**
* Traduction de l'applette Identification : en
*
* Fichier de traduction de l'applette Identification en anglais
*
*@package Applette
*@subpackage Identification
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2005
*@version $Revision: 1.2 $ $Date: 2006-11-20 18:39:22 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
/** Message de bienvenu de l'identification.*/
define('IDEN_LG_MESSAGE', 'You are');
/** Message de la légende du formulaire demandant de s'identifier.*/
define('IDEN_LG_FORM_LEGEND', 'Please log in');
/** Label du champ courriel.*/
define('IDEN_LG_FORM_LABEL_COURRIEL', 'Mail : ');
/** Valeur du champ courriel.*/
define('IDEN_LG_FORM_VALUE_COURRIEL', 'mail');
/** Label du champ mot de passe.*/
define('IDEN_LG_FORM_LABEL_MDP', 'Password : ');
/** Valeur du champ mot de passe.*/
define('IDEN_LG_FORM_VALUE_MDP', 'password');
/** Valeur du champ submit.*/
define('IDEN_LG_FORM_VALUE_SUBMIT', 'ok');
/** Message indiquant le lien vers la page d'inscription.*/
define('IDEN_LG_INSCRIPTION_URL', 'Register... ');
/** Message indiquant le lien vers la page d'aide de l'inscription.*/
define('IDEN_LG_INSCRIPTION_AIDE', 'Help... ');
/** Message indiquant le lien vers la page de modification de son inscription.*/
define('IDEN_LG_INSCRIPTION_URL_MODIF', 'Change parameters...');
/** Message indiquant le lien pour se déconnecter.*/
define('IDEN_LG_DECONNEXION', 'Logout');
/** Message d'échec d'authentification */
define ('IDEN_ECHEC_AUTH', 'Lost password ? ') ;
/** Message ici */
define ('IDEN_ICI', 'Clic here') ;
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.1 2006/03/13 21:00:20 ddelon
* Suppression messages d'erreur multilinguisme
*
* Revision 1.7 2006/03/02 10:49:49 ddelon
* Fusion branche multilinguisme dans branche principale
*
* Revision 1.6 2005/12/13 11:13:52 alexandre_tb
* ajout d'un message si l'identification échoue
*
* Revision 1.5.2.1 2005/12/20 14:40:25 ddelon
* Fusion Head vers Livraison
*
* Revision 1.6 2005/12/13 11:13:52 alexandre_tb
* ajout d'un message si l'identification échoue
*
* Revision 1.5 2005/06/09 17:06:28 jpm
* Ajout de constantes de langue.
*
* Revision 1.4 2005/06/02 11:56:00 jpm
* Modification de l'affichage de l'identification.
*
* Revision 1.3 2005/04/14 16:37:27 jpm
* Ajout de la gestion de la modification de son inscription.
*
* Revision 1.2 2005/03/25 14:41:04 jpm
* Modification et ajout de constantes.
*
* Revision 1.1 2005/03/15 14:19:32 jpm
* Ajout d'un fichier de traduction.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/identification/squelettes/identification.tpl.html
New file
0,0 → 1,49
<?php if ($loggue) : ?>
<p id="identification_info<?=$id_xhtml;?>">
<span id="identification_message<?=$id_xhtml;?>"><?=IDEN_LG_MESSAGE;?></span>
<?php if ($url_page_inscription) : ?>
<a href="<?=$url_page_inscription;?>" id="voir_inscription<?=$id_xhtml;?>" title="Voir mon inscription">
<?=$chp_personne_prenom; ?>&nbsp;<?=$chp_personne_nom; ?>&nbsp;<?=$chp_structure; ?>
</a>
<?php else : ?>
<?=$chp_personne_prenom; ?>&nbsp;<?=$chp_personne_nom; ?>&nbsp;<?=$chp_structure; ?>
<?php endif; ?>
</p>
<p id="iden_action<?=$id_xhtml;?>">
<?php if ($url_page_modif_inscription) : ?>
<a id="lien_inscription_modif<?=$id_xhtml;?>" href="<?=$url_page_modif_inscription; ?>">
<?=IDEN_LG_INSCRIPTION_URL_MODIF;?>
</a>
<?php endif; ?>
<a id="deconnexion<?=$id_xhtml;?>" href="<?=$url_deconnect;?>"><?=IDEN_LG_DECONNEXION;?></a>
</p>
<?php else : ?>
<form id="form_connexion<?=$id_xhtml;?>" class="form_identification" action="<?=$url;?>" method="post">
<?php if ($url_erreur) : ?>
<span class="erreur"><?=IDEN_ECHEC_AUTH;?><a id="lien_inscription<?=$id_xhtml;?>" href="<?=$url_erreur;?>"><?=IDEN_ICI;?></a></span>
<?php endif ;?>
<fieldset>
<legend><?=IDEN_LG_FORM_LEGEND;?></legend>
<label for="username"><?=IDEN_LG_FORM_LABEL_COURRIEL;?></label>
<input type="text" id="username<?=$id_xhtml;?>" name="username" maxlength="80" tabindex="<?= (4*$compteur+1); ?>" value="<?=IDEN_LG_FORM_VALUE_COURRIEL;?>" />
<label for="password"><?=IDEN_LG_FORM_LABEL_MDP;?></label>
<input type="password" id="password<?=$id_xhtml;?>" name="password" maxlength="80" tabindex="<?= (4*$compteur+2); ?>" value="<?=IDEN_LG_FORM_VALUE_MDP;?>" />
<input type="submit" id="connexion<?=$id_xhtml;?>" name="connexion" tabindex="<?= (4*$compteur+4); ?>" value="<?=IDEN_LG_FORM_VALUE_SUBMIT;?>" />
<?php if (IDEN_AUTH_SESSION_DUREE != 0) : ?>
<input type="checkbox" id="persistant<?=$id_xhtml;?>" name="persistant" tabindex="<?= (4*$compteur+3); ?>" value="o" />
<label id="persistant_label<?=$id_xhtml;?>" for="persistant">Mémoriser mon compte</label>
<?php endif ;?>
<?php if ($url_page_inscription || $url_inscription_aide) : ?>
<p id="inscription_info<?=$id_xhtml;?>">
<?php if ($url_page_inscription) : ?>
<a id="lien_inscription<?=$id_xhtml;?>" href="<?=$url_page_inscription;?>"><?=IDEN_LG_INSCRIPTION_URL;?></a>
<?php endif ;?>
<?php if ($url_inscription_aide) : ?>
<a id="inscription_aide<?=$id_xhtml;?>" href="<?=$url_inscription_aide;?>"><?=IDEN_LG_INSCRIPTION_AIDE;?></a>
<?php endif; ?>
</p>
<?php endif; ?>
</fieldset>
</form>
<?php endif; ?>
/branches/v5.0-ouadji/papyrus/applettes/identification/identification.php
New file
0,0 → 1,377
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This library is free software; you can redistribute it and/or |
// | modify it under the terms of the GNU Lesser General Public |
// | License as published by the Free Software Foundation; either |
// | version 2.1 of the License, or (at your option) any later version. |
// | |
// | This library is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
// | Lesser General Public License for more details. |
// | |
// | You should have received a copy of the GNU Lesser General Public |
// | License along with this library; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: identification.php,v 1.38 2008-05-22 15:05:54 alexandre_tb Exp $
/**
* Applette : identification
*
* Génère un formulaire les champs nécessaires pour s'identifier.
* Nécessite :
* - Variable globale de Génésia.
* - Pear Auth
* - Pear Net_URL
*
* A faire : remplacer le formulaire par un QuickForm
*
*@package Applette
*@subpackage Identification
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.38 $ $Date: 2008-05-22 15:05:54 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherFormIdentification';
$GLOBALS['_GEN_commun']['info_applette_balise'] = '(?:<!-- '.$GLOBALS['_GEN_commun']['balise_prefixe'].'(IDENTIFICATION) -->|'.
'\{\{[Ii]dentification'.
'(?:\s*'.
'(?:'.
'(template=".*")|'.
')'.
')+'.
'\s*\}\})';
 
/** Inclusion du fichier de configuration de cette applette.*/
require_once GEN_CHEMIN_APPLETTE.'identification'.GEN_SEP.'configuration'.GEN_SEP.'iden_config.inc.php';
 
// Inclusion des fichiers de traduction de l'applette.
if (file_exists(IDEN_CHEMIN_LANGUE.'iden_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {
/** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/
require_once IDEN_CHEMIN_LANGUE.'iden_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';
} else {
/** Inclusion du fichier de traduction par défaut.*/
require_once IDEN_CHEMIN_LANGUE.'iden_langue_'.IDEN_I18N_DEFAUT.'.inc.php';
}
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
// Si le site utilise une authentification.
if ($GLOBALS['_GEN_commun']['info_auth']->gsa_ce_type_auth == 1) {
$cookie_persistant_nom = session_name().'-memo';
// Si un formulaire nous renvoie en POST une variable "deconnexion", nous délogons l'utilisateur.
if ((isset($_REQUEST['deconnexion']) || isset($_REQUEST['logout']))) {
$GLOBALS['_GEN_commun']['pear_auth']->logout();
// Destruction du cookie de session de Papyrus : est ce utile?
setcookie(session_name(), session_id(), time()-3600, '/');
// Destruction du cookie de permanence de l'identitification de Papyrus
setcookie($cookie_persistant_nom, '', time()-3600, '/');
//$GLOBALS['_GEN_commun']['pear_auth']->start();
} else {
if (isset($_REQUEST['connexion'])) {
// Si un formulaire nous renvoie en POST une variable "connexion", nous logons l'utilisateur.
// Nous vérifions que l'utilisateur est coché "Mémoriser mon compte"
if (isset($_POST['persistant']) && $_POST['persistant'] == 'o' && IDEN_AUTH_SESSION_DUREE != 0) {
// Expiration si l'utilisateur ne referme pas son navigateur
$GLOBALS['_GEN_commun']['pear_auth']->setExpire((int)IDEN_AUTH_SESSION_DUREE);
// Création d'un cookie pour rendre permanente l'identification de Papyrus
$cookie_val = md5($_POST['password']).$_POST['username'];
setcookie($cookie_persistant_nom, $cookie_val, (int)IDEN_AUTH_SESSION_DUREE, '/');
}
} else if (isset($_COOKIE[$cookie_persistant_nom])) {
// Si un cookie existe, nous loggons l'utilisateur.
$GLOBALS['_GEN_commun']['pear_auth']->password = substr($_COOKIE[$cookie_persistant_nom], 0, 32 );
$GLOBALS['_GEN_commun']['pear_auth']->username = substr($_COOKIE[$cookie_persistant_nom], 32);
// Nous sommes obligés de crypter le mot de passe
if (isset($GLOBALS['_GEN_commun']['pear_auth']->storage_options)) {
$GLOBALS['_GEN_commun']['pear_auth']->storage_options['cryptType'] = 'none';
}
if (isset($GLOBALS['_GEN_commun']['pear_auth']->storage->options)) {
$GLOBALS['_GEN_commun']['pear_auth']->storage->options['cryptType'] = 'none';
}
}
$GLOBALS['_GEN_commun']['pear_auth']->login();
//echo '<pre>'.print_r($GLOBALS['_GEN_commun']['pear_auth'], true).'</pre>';
}
}
 
// +------------------------------------------------------------------------------------------------------+
// | LISTE de FONCTIONS |
// +------------------------------------------------------------------------------------------------------+
 
/** Fonction afficherFormIdentification() - Retourne une formulaire pour s'identifier.
*
* Retourne un formulaire d'identificatin ou de déconnexion suivant que l'utilisateur est
* identifié ou pas.
*
* @param array tableau d'éventuel arguments présent dans la balise transmis à la fonction.
* @param array tableau global de Papyrus.
* @return string formulaire de connexion ou de déconnexion.
*/
function afficherFormIdentification($tab_arguments, $_GEN_commun)
{
// Extraction des arguments s il y a
$balise = $tab_arguments[0];
$tab_arguments = $tab_arguments;
unset($tab_arguments[0]);
foreach($tab_arguments as $argument) {
if ($argument != '') {
$tab_parametres = explode('=', $argument, 2);
if (isset($tab_parametres[1])) $options[$tab_parametres[0]] = trim($tab_parametres[1], '"');
}
}
if (!isset($options['template'])) {
$options['template'] = IDEN_CHEMIN_APPLETTE.'squelettes/'.IDEN_SQUELETTE_DEFAUT;
}
// Initialisation de variable.
$retour = '';
// Gestion des attributs "id" des balises XHTML uniques
$id_xhtml = '';
if ( $GLOBALS['_PAPYRUS_']['applette']['comptage']['afficherFormIdentification'] > 1) {
$id_xhtml = $GLOBALS['_PAPYRUS_']['applette']['comptage']['afficherFormIdentification'];
}
$objet_pear_auth =& $_GEN_commun['pear_auth'];
$objet_pear_db =& $_GEN_commun['pear_db'];
$InfoAuthBdd =& $_GEN_commun['info_auth_bdd'];
$objet_url =& $_GEN_commun['url'];
$url = $objet_url->getURL();
$objet_url->addQueryString('logout', 1);
$url_deconnect = $objet_url->getURL();
$objet_url->removeQueryString('logout');
// Récupération des valeurs pour le login et le mot de passe
$mot_de_passe = (! isset($_POST['password'])) ? '' : $_POST['password'];
$login = (! isset($_POST['username'])) ? '' : $_POST['username'];
// ATTENTION : Partie à supprimer une fois les mise à jour effectué dans l'annuaire de Tela Botanica
// Devrait être déplacer dans l'appli inscription de Tela.
if (isset($InfoAuthBdd->gsab_nom_table) && $InfoAuthBdd->gsab_nom_table == 'annuaire_tela') {
verification_mot_de_passe($objet_pear_db, $mot_de_passe, $login);
if (isset($_POST['connexion'])) {
$objet_pear_auth->login();
}
}
// L'utilisateur a essayé de s'identifier mais a échoué
$url_erreur = false;
if ($login != '') {
$url_erreur = '#';
if (isset($InfoAuthBdd->url_erreur)) {
$url_erreur = $InfoAuthBdd->url_erreur;
} else if (isset($InfoAuthBdd->url_inscription)) {
$url_erreur = $InfoAuthBdd->url_inscription;
}
}
$url_inscription_aide = '';
$url_page_inscription = '';
$url_page_modif_inscription = '';
if (isset($InfoAuthBdd->url_inscription)) {
$url_page_inscription = $InfoAuthBdd->url_inscription;
}
if (isset($InfoAuthBdd->url_inscription_modif)) {
$url_page_modif_inscription = $InfoAuthBdd->url_inscription_modif;
}
if (isset($InfoAuthBdd->url_inscription_aide)) {
$url_inscription_aide = $InfoAuthBdd->url_inscription_aide;
}
$chp_personne_prenom='';
if (isset($InfoAuthBdd->chp_personne_prenom)) {
$chp_personne_prenom = $objet_pear_auth->getAuthData($InfoAuthBdd->chp_personne_prenom);
}
$chp_personne_nom='';
if (isset($InfoAuthBdd->chp_personne_nom)) {
$chp_personne_nom = $objet_pear_auth->getAuthData($InfoAuthBdd->chp_personne_nom);
}
$chp_structure='';
if (isset($InfoAuthBdd->chp_structure_nom)) {
$chp_structure = $objet_pear_auth->getAuthData($InfoAuthBdd->chp_structure_nom);
}
if ($objet_pear_auth->getAuth()) { $loggue = true; } else { $loggue = false; }
/** Compteur sert a compter le nombre de fois qu est appele l applet
* et ce afin que les tabindex du formulaire soient correct
*/
static $compteur = 0;
ob_start();
include $options['template'];
$retour = ob_get_contents();
// Arrete et detruit le buffer
ob_end_clean();
$compteur++;
return $retour;
}
 
// +------------------------------------------------------------------------------------------------------+
// | PIED du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.37 2008-04-18 14:19:09 jp_milcent
* Fusion avec la livraison AHA : 18 avril 2008
*
* Revision 1.35.2.2 2008-04-18 14:14:55 jp_milcent
* Gestion de plusieurs applettes identifications sur la même page html.
* Correction de bogues.
*
* Revision 1.36 2007-11-27 11:26:55 jp_milcent
* Fusion avec la livraison AHA : 27 novembre 2007
*
* Revision 1.35.2.1 2007-11-27 11:25:30 jp_milcent
* Correction bogue : non affichage de l'url d'erreur de saisie du login.
*
* Revision 1.35 2007-10-11 14:14:22 florian
* amelioration du template de l'applette inscription
*
* Revision 1.34 2007-09-18 08:40:54 alexandre_tb
* modification de la balise identification pour permettre de preciser un template.
*
* Revision 1.33 2007-08-28 14:23:35 jp_milcent
* Amélioration de la gestion des mots de passe perdus.
*
* Revision 1.32 2007-08-28 14:14:35 jp_milcent
* Ajout de la gestion des erreurs d'identification.
*
* Revision 1.31 2006-12-15 14:49:47 jp_milcent
* Correction bogue : le type de cryptage est stocké à 2 endroits...
*
* Revision 1.30 2006/12/14 15:01:05 jp_milcent
* Utilisation d'un système permettant de mémoriser les idenitifications.
* Passage à Auth 1.4.3 et DB 1.7.6.
*
* Revision 1.29 2006/12/12 13:53:54 jp_milcent
* Mise en place du nouveau format des balises d'applette.
*
* Revision 1.28 2006/12/12 13:26:42 jp_milcent
* Modification de la gestion de l'identification. Utilisation des variables de session.
*
* Revision 1.27 2006/12/08 18:14:57 jp_milcent
* Correction bogue : l'identification ne tenait pas...
*
* Revision 1.26 2006/12/01 16:33:40 florian
* Amélioration de la gestion des applettes et compatibilité avec le nouveau mode de gestion de l'inclusion des applettes.
*
* Revision 1.25 2006/11/20 18:40:33 jp_milcent
* Amélioration de la gestion des infos sur l'inscription.
* Ajout du paramêtre url_inscription_aide permettant d'indiquer l'url vers une page d'aide sur l'inscription.
*
* Revision 1.24 2006/11/20 17:42:40 jp_milcent
* Ajout d'un test activant ou pas la mémorisation de l'identification.
*
* Revision 1.23 2006/11/20 17:30:40 jp_milcent
* Amélioration de la gestion de l'identification.
* Utilisation des durées de session correcte.
* Suppression du code pour Spip non fonctionnel.
*
* Revision 1.22 2006/09/21 15:25:17 jp_milcent
* Nettoyage dans l'url de la querystring logout.
*
* Revision 1.21 2006/03/02 10:49:49 ddelon
* Fusion branche multilinguisme dans branche principale
*
* Revision 1.20 2005/12/13 11:13:35 alexandre_tb
* ajout d'un message si l'identification échoue
*
* Revision 1.19.2.1 2005/12/20 14:40:24 ddelon
* Fusion Head vers Livraison
*
* Revision 1.20 2005/12/13 11:13:35 alexandre_tb
* ajout d'un message si l'identification échoue
*
* Revision 1.19 2005/10/31 17:09:28 ddelon
* Suppression auth start suite à deconnexion ... attention aux effets de bord
*
* Revision 1.18 2005/09/27 09:07:32 ddelon
* size applette et squelettes
*
* Revision 1.17 2005/09/12 09:17:17 alexandre_tb
* utilisation de l'objet Net_URL pour ajouter la variable logout dans le lien de déconnexion
*
* Revision 1.16 2005/06/09 17:06:28 jpm
* Ajout de constantes de langue.
*
* Revision 1.15 2005/06/02 11:56:00 jpm
* Modification de l'affichage de l'identification.
*
* Revision 1.14 2005/05/19 14:00:58 jpm
* Déplacement du menu de modif de l'inscription.
*
* Revision 1.13 2005/04/14 16:37:22 jpm
* Ajout de la gestion de la modification de son inscription.
*
* Revision 1.12 2005/03/25 14:40:51 jpm
* Prise en compte du paramêtre url_inscription permettant de faire figurer dans l'applette inscription un lien vers la page d'inscription.
*
* Revision 1.11 2005/03/17 15:52:17 jpm
* Suppression d'un / causant un bogue.
*
* Revision 1.10 2005/03/15 14:47:14 jpm
* Utilisation d'un lien à la place d'un formulaire pour la déconnexion.
*
* Revision 1.9 2005/03/15 14:17:46 jpm
* Ajout d'un fichier de config et de traduction.
* Début gestion des constantes de langue.
*
* Revision 1.8 2005/03/10 12:50:44 alex
* remplacement de & par &amp;
*
* Revision 1.7 2005/01/07 12:43:03 alex
* réauction de la taille des champs texte à 12
*
* Revision 1.6 2004/12/13 18:07:09 alex
* désauthentification spip presque parfaite
*
* Revision 1.5 2004/09/23 14:31:12 jpm
* Correction bogue sur l'identification de l'annuaire_tela.
*
* Revision 1.4 2004/09/23 10:53:44 jpm
* Suppression de l'attribut size. Gestion via les css.
*
* Revision 1.3 2004/06/28 10:18:48 alex
* suppression de balises <p>
*
* Revision 1.2 2004/06/21 07:37:30 alex
* Modification d'un label
*
* Revision 1.1 2004/06/15 15:01:41 jpm
* Changement de nom et d'arborescence de Genesia en Papyrus.
*
* Revision 1.5 2004/05/05 06:44:15 jpm
* Complément des commentaires indiquant les paquetages nécessaire à l'applette.
*
* Revision 1.4 2004/05/03 11:18:55 jpm
* Intégration de la variable globale de Génésia dans les arguments de la fonction de l'applette.
*
* Revision 1.3 2004/05/01 17:21:16 jpm
* Ajout d'un fieldset et d'une légende au formulaire.
*
* Revision 1.2 2004/05/01 16:13:07 jpm
* Ajout du nom de la balise de l'applette dans le code de l'applette.
*
* Revision 1.1 2004/05/01 11:42:01 jpm
* Ajout de l'applette identification.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/identification/configuration/iden_config.inc.php
New file
0,0 → 1,80
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 4.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 2005 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of Papyrus. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: iden_config.inc.php,v 1.3 2007-09-18 08:41:14 alexandre_tb Exp $
/**
* Configuration de l'applette Identification.
*
* Fichier de configuration de l'applette Identification.
*
*@package Applette
*@subpackage Identification
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2005
*@version $Revision: 1.3 $ $Date: 2007-09-18 08:41:14 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Constante stockant la valeur de la langue par défaut pour l'applette IDEN.*/
define('IDEN_I18N_DEFAUT', GEN_I18N_ID_DEFAUT);
 
/** Constante stockant la valeur de durée de la session.*/
define('IDEN_AUTH_SESSION_DUREE', PAP_AUTH_SESSION_DUREE);
 
// Chemin vers les dossiers de l'applette
/** Chemin vers l'applette Identification de Papyrus.*/
define('IDEN_CHEMIN_APPLETTE', GEN_CHEMIN_APPLETTE.'identification'.GEN_SEP);
/** Chemin vers les fichiers de traduction de l'applette Identification de Papyrus.*/
define('IDEN_CHEMIN_LANGUE', IDEN_CHEMIN_APPLETTE.'langues'.GEN_SEP);
/** Chemin vers les fichiers de la bibliotheque de l'applette Identification de Papyrus.*/
define('IDEN_CHEMIN_BIBLIO', IDEN_CHEMIN_APPLETTE.'bibliotheque'.GEN_SEP);
 
/** Chemin vers le fichier squelette par defaut */
define ('IDEN_SQUELETTE_DEFAUT', 'identification.tpl.html');
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.2 2006/11/20 17:30:40 jp_milcent
* Amélioration de la gestion de l'identification.
* Utilisation des durées de session correcte.
* Suppression du code pour Spip non fonctionnel.
*
* Revision 1.1 2005/03/15 14:18:49 jpm
* Ajout d'un fichier de config.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/plan/plan.php
New file
0,0 → 1,225
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of papyrus_bp. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: plan.php,v 1.2 2006-12-13 10:53:36 jp_milcent Exp $
/**
* papyrus_bp - plan.php
*
* Description :
*
*@package papyrus_bp
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 1999-2006
*@version $Revision: 1.2 $ $Date: 2006-12-13 10:53:36 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherPlan';
$GLOBALS['_GEN_commun']['info_applette_balise'] = '\{\{[Pp]lan'.
'(?:\s*'.
'(?:'.
'(site="[^"]*")|'.
'(permalien="[^"]*")|'.
')'.
')+'.
'\s*\}\}';
 
// --------------------------------------------------------------------------------------------------------
/** Inclusion du fichier de configuration de cette application.*/
require_once GEN_CHEMIN_APPLETTE.'plan'.GEN_SEP.'configuration'.GEN_SEP.'plan_configuration.inc.php';
 
// Inclusion des fichiers de traduction de l'applette PLAN de Papyrus
if (file_exists(PLAN_CHEMIN_LANGUE.'plan_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {
/** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/
require_once PLAN_CHEMIN_LANGUE.'plan_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';
} else {
/** Inclusion du fichier de traduction par défaut.*/
require_once PLAN_CHEMIN_LANGUE.'plan_langue_'.PLAN_I18N_DEFAUT.'.inc.php';
}
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Fonction afficherPlan() - Retourne la liste des pages du plan d'un site.
*
* Cette fonction retourne la liste des pages du plan d'un site.
*
* @param array contient les arguments de la fonction.
* @param array tableau global de Papyrus.
* @return string HTML la liste de menus.
*/
function afficherPlan($tab_applette_arguments, $_GEN_commun)
{
// Initialisation des variables
$sortie = '';
$GLOBALS['_PLAN_']['erreurs'] = array();
$GLOBALS['_PLAN_']['informations'] = array();
$GLOBALS['_PLAN_']['sites'] = array();
//+----------------------------------------------------------------------------------------------------------------+
// Gestion des arguments
$balise = $tab_applette_arguments[0];
$tab_arguments = $tab_applette_arguments;
unset($tab_arguments[0]);
foreach($tab_arguments as $argument) {
if ($argument != '') {
$tab_parametres = explode('=', $argument);
$options[$tab_parametres[0]] = trim($tab_parametres[1], '"');
}
}
//+----------------------------------------------------------------------------------------------------------------+
// Gestion des erreurs de paramètrage
if (!isset($options['site'])) {
$GLOBALS['_PLAN_']['erreurs'][] = sprintf(PLAN_LG_ERREUR_SITE, $balise);
}
if (!isset($options['permalien'])) {
$options['permalien'] = false;
}
if (isset($options['permalien']) && $options['permalien'] != '' && $options['permalien'] != 'oui' && $options['permalien'] != 'non') {
$GLOBALS['_PLAN_']['erreurs'][] = sprintf(PLAN_LG_ERREUR_PERMALIEN, $balise);
} else {
if ($options['permalien'] == 'oui') {
$options['permalien'] = true;
} else if ($options['permalien'] == 'non') {
$options['permalien'] = false;
}
}
//+----------------------------------------------------------------------------------------------------------------+
// Récupération des données
if (count($GLOBALS['_PLAN_']['erreurs']) == 0) {
$tab_site = array_map('trim', explode(',', $options['site']));
if (count($tab_site) == 0) {
$GLOBALS['_PLAN_']['informations'][] = sprintf(PLAN_LG_INFO_ZERO_PAGE, $options['site']);
} else {
foreach ($tab_site as $cle => $site) {
$aso_site_info = GEN_lireInfoSitePrincipalCodeAlpha($GLOBALS['_GEN_commun']['pear_db'], $site, DB_FETCHMODE_ASSOC);
$aso_site['abreviation'] = $site;
if (!empty($aso_site_info['gs_titre'])) {
$titre = $aso_site_info['gs_titre'];
} else {
$titre = $aso_site_info['gs_nom'];
}
$aso_site['titre'] = htmlentities($titre);
 
$url_site =& new Pap_URL();
$url_site->setUrlType('SITE');
$url_site->setId($aso_site_info['gs_id_site']);
$aso_site['url'] = $url_site->getUrl();
 
$aso_menus = GEN_retournerTableauMenusSiteCodeAlpha($GLOBALS['_GEN_commun']['pear_db'], $site);
$aso_site['pages'] = parserTableauMenus($aso_menus, $options['permalien']);
$GLOBALS['_PLAN_']['sites'][] = $aso_site;
}
}
}
//+----------------------------------------------------------------------------------------------------------------+
// Extrait les variables et les ajoutes à l'espace de noms local
// Gestion des squelettes
extract($GLOBALS['_PLAN_']);
// Démarre le buffer
ob_start();
// Inclusion du fichier
include(PLAN_CHEMIN_SQUELETTE.PLAN_SQUELETTE_LISTE);
// Récupérer le contenu du buffer
$sortie = ob_get_contents();
// Arrête et détruit le buffer
ob_end_clean();
//+----------------------------------------------------------------------------------------------------------------+
// Sortie
return $sortie;
}
 
function parserTableauMenus($aso_menus, $permalien)
{
$aso_arbo_site = array();
foreach ($aso_menus as $menu_id => $menu_valeur) {
if ( $menu_valeur['gm_date_fin_validite'] == ''
|| $menu_valeur['gm_date_fin_validite'] == '0000-00-00 00:00:00'
|| strtotime($menu_valeur['gm_date_fin_validite']) > time()) {
// Initialisation
$aso_page = array();
$aso_page['url'] = PLAN_LG_INCONNU_URL;
$aso_page['nom'] = PLAN_LG_INCONNU_NOM;
$aso_page['titre'] = PLAN_LG_INCONNU_TITRE;
$aso_page['sous_menus'] = 'fermer';
 
// Création de l'url
$une_url =& new Pap_URL();
$une_url->setId($menu_id);
$aso_page['url'] = $une_url->getURL();
// Construction de l'attribut title
$title = '';
if (!empty($menu_valeur['gm_titre'])) {
$title = $menu_valeur['gm_titre'];
} elseif (!empty($menu_valeur['gm_titre_alternatif'])) {
$title = $menu_valeur['gm_titre_alternatif'];
}
$aso_page['titre'] = htmlentities($title);
// Le nom
$aso_page['nom'] = htmlentities($menu_valeur['gm_nom']);
// Nous affichons ou pas le permalien
if ($permalien) {
$une_url->setPermalienBool(true);
$aso_page['permalien_url'] = $une_url->getURL();
$aso_page['permalien_nom'] = $une_url->getPermalien();
$une_url->setPermalienBool(false);
}
// Nous ajoutons les sous-menus s'il y en a.
$retour = parserTableauMenus($menu_valeur['sous_menus'], $permalien);
if (count($retour) != 0) {
$aso_page['sous_menus'] = 'ouvrir_liste';
$aso_arbo_site[] = $aso_page;
$aso_arbo_site = array_merge($aso_arbo_site, $retour);
$aso_arbo_site[]['sous_menus'] = 'fermer_liste';
} else {
$aso_arbo_site[] = $aso_page;
}
}
}
return $aso_arbo_site;
}
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.1 2006/12/13 09:42:39 jp_milcent
* Ajout de l'applette Plan.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/plan/configuration/plan_configuration.inc.php
New file
0,0 → 1,71
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of papyrus_bp. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: plan_configuration.inc.php,v 1.1 2006-12-13 09:42:39 jp_milcent Exp $
/**
* papyrus_bp - plan_configuration.inc.php
*
* Description :
*
*@package papyrus_bp
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 1999-2006
*@version $Revision: 1.1 $ $Date: 2006-12-13 09:42:39 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_PLAN_'] = array();
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Constante stockant la valeur de la langue par défaut pour l'applette PLAN.*/
define('PLAN_I18N_DEFAUT', GEN_I18N_ID_DEFAUT);
 
// Chemin vers les dossiers de l'applette
/** Chemin vers l'applette Plan de Papyrus.*/
define('PLAN_CHEMIN_APPLETTE', GEN_CHEMIN_APPLETTE.'plan'.GEN_SEP);
/** Chemin vers les fichiers de traduction de l'applette Plan de Papyrus.*/
define('PLAN_CHEMIN_LANGUE', PLAN_CHEMIN_APPLETTE.'langues'.GEN_SEP);
/** Chemin vers les fichiers de la bibliotheque de l'applette Plan de Papyrus.*/
define('PLAN_CHEMIN_BIBLIO', PLAN_CHEMIN_APPLETTE.'bibliotheque'.GEN_SEP);
/** Chemin vers les fichiers squelettes de l'applette Plan de Papyrus.*/
define('PLAN_CHEMIN_SQUELETTE', PLAN_CHEMIN_APPLETTE.'squelettes'.GEN_SEP);
 
// Configuration du rendu
/** Nom du fichier de squelette à utiliser pour la liste des pages.*/
define('PLAN_SQUELETTE_LISTE', 'plan_liste.tpl.html');
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/plan/langues/plan_langue_fr.inc.php
New file
0,0 → 1,70
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of papyrus_bp. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: plan_langue_fr.inc.php,v 1.2 2006-12-13 10:53:36 jp_milcent Exp $
/**
* papyrus_bp - plan_langue_fr.inc.php
*
* Description :
*
*@package papyrus_bp
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 1999-2006
*@version $Revision: 1.2 $ $Date: 2006-12-13 10:53:36 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Texte affiché quand le paramètre "permalien" est abscent.*/
define('PLAN_LG_ERREUR_PERMALIEN', "Applette PLAN : le paramètre 'permalien' peut prendre les valeurs 'oui' ou 'non' dans : %s !");
/** Texte affiché quand le type ne convient.*/
define('PLAN_LG_ERREUR_TYPE', "Applette PLAN : le paramètre 'type' peut prendre les valeurs 'majeure' ou 'mineure' dans : %s !");
/** Texte affiché quand on n'a pas de page à afficher.*/
define('PLAN_LG_INFO_ZERO_PAGE', "Applette PLAN : aucune page n'a été trouvée pour : %s !");
 
/** Texte affiché quand l'auteur est inconnu.*/
define('PLAN_LG_INCONNU_NOM', 'Anonyme');
/** Texte affiché quand le titre est vide.*/
define('PLAN_LG_INCONNU_TITRE', 'Titre inconnu');
/** Texte affiché quand l'url est inconnu.*/
define('PLAN_LG_INCONNU_URL', '#');
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.1 2006/12/13 09:42:39 jp_milcent
* Ajout de l'applette Plan.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/plan/squelettes/plan_liste.tpl.html
New file
0,0 → 1,35
<!-- PLAN - DEBUT -->
<?php if ($erreurs) : ?>
<?php foreach ($erreurs as $erreur) : ?>
<p class="pap_erreur"><?=$erreur;?></p>
<?php endforeach; ?>
<?php elseif ($informations) : ?>
<?php foreach ($informations as $information) : ?>
<p class="pap_info"><?=$information;?></p>
<?php endforeach; ?>
<?php else : ?>
<?php foreach ($sites as $site) : ?>
<h2 class="plan_titre"><a href="<?=$site['url'];?>"><?=$site['titre'];?></a></h2>
<ul class="plan_site">
<?php foreach ($site['pages'] as $page) : ?>
<?php if ($page['sous_menus'] == 'fermer_liste') : ?>
</ul>
</li>
<?php else : ?>
<li class="plan_page">
<a href="<?=$page['url'];?>" title="<?=$page['titre'];?>"><?=$page['nom'];?></a>
<?php if (isset($page['permalien_url'])) : ?>
<span class="page_separateur_permalien"> - </span>
<a class="plan_permalien" href="<?=$page['permalien_url'];?>"><?=$page['permalien_nom'];?></a>
<?php endif; ?>
<?php if ($page['sous_menus'] == 'ouvrir_liste') : ?>
<ul>
<?php elseif ($page['sous_menus'] == 'fermer') : ?>
</li>
<?php endif; ?>
<?php endif; ?>
<?php endforeach; ?>
</ul>
<?php endforeach; ?>
<?php endif; ?>
<!-- PLAN - FIN -->
/branches/v5.0-ouadji/papyrus/applettes/nouveaute/nouveaute.php
New file
0,0 → 1,287
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of papyrus_bp. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: nouveaute.php,v 1.3 2006-12-13 09:27:42 jp_milcent Exp $
/**
* papyrus_bp - nouveaute.php
*
* Description :
*
*@package papyrus_bp
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 1999-2006
*@version $Revision: 1.3 $ $Date: 2006-12-13 09:27:42 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_GEN_commun']['info_applette_nom_fonction'] = 'afficherNouveaute';
$GLOBALS['_GEN_commun']['info_applette_balise'] = '\{\{[Nn]ouveaute'.
'(?:\s*'.
'(?:'.
'(nombre="[^"]+")|'.
'(categorie="[^"]+")|'.
'(type="[^"]+")|'.
'(site="[^"]+")|'.
')'.
')+'.
'\s*\}\}';
 
// --------------------------------------------------------------------------------------------------------
/** Inclusion du fichier de configuration de cette application.*/
require_once GEN_CHEMIN_APPLETTE.'nouveaute'.GEN_SEP.'configuration'.GEN_SEP.'nouv_configuration.inc.php';
 
// Inclusion des fichiers de traduction de l'applette NOUV de Papyrus
if (file_exists(NOUV_CHEMIN_LANGUE.'nouv_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php')) {
/** Inclusion du fichier de traduction suite à la transaction avec le navigateur.*/
require_once NOUV_CHEMIN_LANGUE.'nouv_langue_'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php';
} else {
/** Inclusion du fichier de traduction par défaut.*/
require_once NOUV_CHEMIN_LANGUE.'nouv_langue_'.NOUV_I18N_DEFAUT.'.inc.php';
}
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Fonction afficherNouveaute() - Retourne la liste des pages modifiées récement.
*
* Cette fonction retourne la liste des pages modifiées récement.
*
* @param array contient les arguments de la fonction.
* @param array tableau global de Papyrus.
* @return string HTML la liste de menus.
*/
function afficherNouveaute($tab_applette_arguments, $_GEN_commun)
{
// Initialisation des variables
$sortie = '';
$GLOBALS['_NOUVEAUTE_']['erreurs'] = array();
$GLOBALS['_NOUVEAUTE_']['informations'] = array();
$GLOBALS['_NOUVEAUTE_']['pages'] = array();
//+----------------------------------------------------------------------------------------------------------------+
// Gestion des arguments
$balise = $tab_applette_arguments[0];
$tab_arguments = $tab_applette_arguments;
unset($tab_arguments[0]);
foreach($tab_arguments as $argument) {
if ($argument != '') {
$tab_parametres = explode('=', $argument);
$options[$tab_parametres[0]] = trim($tab_parametres[1], '"');
}
}
//+----------------------------------------------------------------------------------------------------------------+
// Gestion des erreurs de paramètrage
if (!isset($options['nombre'])) {
$GLOBALS['_NOUVEAUTE_']['erreurs'][] = sprintf(NOUV_LG_ERREUR_NOMBRE, $balise);
}
if (!isset($options['type'])) {
$options['type'] = '';
}
if (isset($options['type']) && $options['type'] != '' && $options['type'] != 'mineure' && $options['type'] != 'majeure') {
$GLOBALS['_NOUVEAUTE_']['erreurs'][] = sprintf(NOUV_LG_ERREUR_TYPE, $balise);
} else {
if ($options['type'] == 'mineure') {
$options['type'] = 1;
} else if ($options['type'] == 'majeure') {
$options['type'] = 2;
}
}
if (!isset($options['site'])) {
$options['site'] = '';
}
if (!isset($options['categorie'])) {
$options['categorie'] = '';
}
//+----------------------------------------------------------------------------------------------------------------+
// Récupération des données
if (count($GLOBALS['_NOUVEAUTE_']['erreurs']) == 0) {
$aso_info_menu = GEN_lireInfoMenuContenuDate($GLOBALS['_GEN_commun']['pear_db'], $options['type'], $options['site'], $options['categorie']);
if (count($aso_info_menu) == 0) {
$GLOBALS['_NOUVEAUTE_']['informations'][] = sprintf(NOUV_LG_INFO_ZERO_PAGE, $options['mots']);
} else {
$i = 0;
foreach ($aso_info_menu as $id_menu => $un_menu) {
// On stope l'affichage si le nombre de nouveauté demandé est atteint.
if ($i == $options['nombre']) {
break;
} else {
$i++;
}
// Initialisation
$aso_page = array();
$aso_page['url'] = NOUV_LG_INCONNU_URL;
$aso_page['auteur'] = NOUV_LG_INCONNU_AUTEUR;
$aso_page['contributeur'] = NOUV_LG_INCONNU_GENERAL;
$aso_page['titre'] = NOUV_LG_INCONNU_TITRE;
$aso_page['heure'] = NOUV_LG_INCONNU_GENERAL;
$aso_page['minute'] = NOUV_LG_INCONNU_GENERAL;
$aso_page['seconde'] = NOUV_LG_INCONNU_GENERAL;
$aso_page['jours'] = NOUV_LG_INCONNU_GENERAL;
$aso_page['mois'] = NOUV_LG_INCONNU_GENERAL;
$aso_page['annee'] = NOUV_LG_INCONNU_GENERAL;
$aso_page['description'] = NOUV_LG_INCONNU_GENERAL;
$aso_page['resumer'] = NOUV_LG_INCONNU_GENERAL;
// Création de l'url
$une_url =& new Pap_URL();
$une_url->setId($id_menu);
$aso_page['url'] = $une_url->getURL();
// Affichage du type de modification de la page
if ($un_menu->gmc_ce_type_modification = 1) {
$aso_page['type'] = 'mineure';
} elseif ($un_menu->gmc_ce_type_modification = 2) {
$aso_page['type'] = 'majeure';
}
// Affichage de l'auteur(s)
if ($un_menu->gm_auteur != '') {
$aso_page['auteur'] = $un_menu->gm_auteur;
}
// Affichage des contributeur(s)
if (!empty($un_menu->gm_contributeur)) {
$sortie .= '<dt class="page_contributeur"> Contributeur(s)&nbsp;: '.'</dt>'."\n";
$sortie .= '<dd>'.$un_menu->gm_contributeur.'</dd>'."\n";
$aso_page['contributeur'] = $un_menu->gm_contributeur;
}
// Affichage du titre
if (!empty($un_menu->gm_titre)) {
$aso_page['titre'] = $un_menu->gm_titre;
} elseif (!empty($un_menu->gm_titre_alternatif)) {
$aso_page['titre'] = $un_menu->gm_titre_alternatif;
} else {
$aso_page['titre'] = $un_menu->gm_nom;
}
// Affichage de l'horaire de la création de la page
if (($heure = date('G', strtotime($un_menu->gm_date_creation)) ) != 0 ) {
$aso_page['heure'] = $heure;
$minute = date('i', strtotime($un_menu->gm_date_creation));
$aso_page['minute'] = $minute;
if (($seconde = date('s', strtotime($un_menu->gm_date_creation)) ) != 0 ) {
$aso_page['seconde'] = $seconde;
}
}
// Affichage de la date de la création de la page
if (($jour = date('d', strtotime($un_menu->gm_date_creation)) ) != 0 ) {
$aso_page['jour'] = $jour;
}
if (($mois = _traduireMois(date('m', strtotime($un_menu->gm_date_creation))) ) != '' ) {
$aso_page['mois'] = $mois;
}
if (($annee = date('Y', strtotime($un_menu->gm_date_creation)) ) != 0 ) {
$aso_page['annee'] = $annee;
}
// Affichage de la description
if (!empty($un_menu->gm_description_libre)) {
$aso_page['decription'] = $un_menu->gm_description_libre;
}
// Affichage du résumé de la modification
if (!empty($un_menu->gmc_resume_modification)) {
$aso_page['resumer'] = $un_menu->gmc_resume_modification;
}
$GLOBALS['_NOUVEAUTE_']['pages'][] = $aso_page;
}
}
}
//+----------------------------------------------------------------------------------------------------------------+
// Extrait les variables et les ajoutes à l'espace de noms local
// Gestion des squelettes
extract($GLOBALS['_NOUVEAUTE_']);
// Démarre le buffer
ob_start();
// Inclusion du fichier
include(NOUV_CHEMIN_SQUELETTE.NOUV_SQUELETTE_LISTE);
// Récupérer le contenu du buffer
$sortie = ob_get_contents();
// Arrête et détruit le buffer
ob_end_clean();
//+----------------------------------------------------------------------------------------------------------------+
// Sortie
return $sortie;
}
 
if (!function_exists('_traduireMois')) {
function _traduireMois($mois_numerique)
{
switch ($mois_numerique) {
case '01' :
return NOUV_LG_MOIS_01;
case '02' :
return NOUV_LG_MOIS_02;
case '03' :
return NOUV_LG_MOIS_03;
case '04' :
return NOUV_LG_MOIS_04;
case '05' :
return NOUV_LG_MOIS_05;
case '06' :
return NOUV_LG_MOIS_06;
case '07' :
return NOUV_LG_MOIS_07;
case '08' :
return NOUV_LG_MOIS_08;
case '09' :
return NOUV_LG_MOIS_09;
case '10' :
return NOUV_LG_MOIS_10;
case '11' :
return NOUV_LG_MOIS_11;
case '12' :
return NOUV_LG_MOIS_12;
default:
return '';
}
}
}
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.2 2006/12/13 09:26:44 jp_milcent
* Ajout d'une valeur pour les champs vides.
*
* Revision 1.1 2006/12/12 17:16:22 jp_milcent
* Ajout de l'applette Nouveaute.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/nouveaute/configuration/nouv_configuration.inc.php
New file
0,0 → 1,70
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of papyrus_bp. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: nouv_configuration.inc.php,v 1.1 2006-12-12 17:16:22 jp_milcent Exp $
/**
* papyrus_bp - nouv_configuration.inc.php
*
* Description :
*
*@package papyrus_bp
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 1999-2006
*@version $Revision: 1.1 $ $Date: 2006-12-12 17:16:22 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
$GLOBALS['_NOUVEAUTE_'] = array();
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Constante stockant la valeur de la langue par défaut pour l'applette NOUV.*/
define('NOUV_I18N_DEFAUT', GEN_I18N_ID_DEFAUT);
 
// Chemin vers les dossiers de l'applette
/** Chemin vers l'applette Nouveauté de Papyrus.*/
define('NOUV_CHEMIN_APPLETTE', GEN_CHEMIN_APPLETTE.'nouveaute'.GEN_SEP);
/** Chemin vers les fichiers de traduction de l'applette Nouveauté de Papyrus.*/
define('NOUV_CHEMIN_LANGUE', NOUV_CHEMIN_APPLETTE.'langues'.GEN_SEP);
/** Chemin vers les fichiers de la bibliotheque de l'applette Nouveauté de Papyrus.*/
define('NOUV_CHEMIN_BIBLIO', NOUV_CHEMIN_APPLETTE.'bibliotheque'.GEN_SEP);
/** Chemin vers les fichiers squelettes de l'applette Nouveauté de Papyrus.*/
define('NOUV_CHEMIN_SQUELETTE', NOUV_CHEMIN_APPLETTE.'squelettes'.GEN_SEP);
 
// Configuration du rendu
/** Nom du fichier de squelette à utiliser pour la liste des pages.*/
define('NOUV_SQUELETTE_LISTE', 'nouv_liste.tpl.html');
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/nouveaute/langues/nouv_langue_fr.inc.php
New file
0,0 → 1,102
<?php
/*vim: set expandtab tabstop=4 shiftwidth=4: */
// +------------------------------------------------------------------------------------------------------+
// | PHP version 5.1 |
// +------------------------------------------------------------------------------------------------------+
// | Copyright (C) 1999-2006 Tela Botanica (accueil@tela-botanica.org) |
// +------------------------------------------------------------------------------------------------------+
// | This file is part of papyrus_bp. |
// | |
// | Foobar is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published by |
// | the Free Software Foundation; either version 2 of the License, or |
// | (at your option) any later version. |
// | |
// | Foobar is distributed in the hope that it will be useful, |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
// | GNU General Public License for more details. |
// | |
// | You should have received a copy of the GNU General Public License |
// | along with Foobar; if not, write to the Free Software |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: nouv_langue_fr.inc.php,v 1.3 2006-12-13 09:27:42 jp_milcent Exp $
/**
* papyrus_bp - nouv_langue_fr.inc.php
*
* Description :
*
*@package papyrus_bp
//Auteur original :
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 1999-2006
*@version $Revision: 1.3 $ $Date: 2006-12-13 09:27:42 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Texte affiché quand le paramètre "nombre" est abscent.*/
define('NOUV_LG_ERREUR_NOMBRE', "Applette NOUVEAUTÉ : le paramètre 'nombre' est obligatoire dans %s !");
/** Texte affiché quand le type ne convient.*/
define('NOUV_LG_ERREUR_TYPE', "Applette NOUVEAUTÉ : le paramètre 'type' peut prendre les valeurs 'majeure' ou 'mineure' dans : %s !");
/** Texte affiché quand on n'a pas de page à afficher.*/
define('NOUV_LG_INFO_ZERO_PAGE', "Applette NOUVEAUTÉ : aucune page n'a été trouvée pour : %s !");
 
/** Texte affiché quand un champ est vide.*/
define('NOUV_LG_INCONNU_GENERAL', '&nbsp;');
/** Texte affiché quand l'auteur est inconnu.*/
define('NOUV_LG_INCONNU_AUTEUR', 'Anonyme');
/** Texte affiché quand le titre est vide.*/
define('NOUV_LG_INCONNU_TITRE', 'Titre inconnu');
/** Texte affiché quand le titre est vide.*/
define('NOUV_LG_INCONNU_URL', '#');
 
/** Mois de janvier.*/
define('NOUV_LG_MOIS_01', 'janvier');
/** Mois de février.*/
define('NOUV_LG_MOIS_02', 'février');
/** Mois de mars.*/
define('NOUV_LG_MOIS_03', 'mars');
/** Mois d'avril.*/
define('NOUV_LG_MOIS_04', 'avril');
/** Mois de mai.*/
define('NOUV_LG_MOIS_05', 'mai');
/** Mois de juin.*/
define('NOUV_LG_MOIS_06', 'juin');
/** Mois de juillet.*/
define('NOUV_LG_MOIS_07', 'juillet');
/** Mois d'août'.*/
define('NOUV_LG_MOIS_08', 'août');
/** Mois de septembre.*/
define('NOUV_LG_MOIS_09', 'septembre');
/** Mois d'octobre.*/
define('NOUV_LG_MOIS_10', 'octobre');
/** Mois de novembre.*/
define('NOUV_LG_MOIS_11', 'novembre');
/** Mois de décembre.*/
define('NOUV_LG_MOIS_12', 'décembre');
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.2 2006/12/13 09:26:44 jp_milcent
* Ajout d'une valeur pour les champs vides.
*
* Revision 1.1 2006/12/12 17:16:22 jp_milcent
* Ajout de l'applette Nouveaute.
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>
/branches/v5.0-ouadji/papyrus/applettes/nouveaute/squelettes/nouv_liste.tpl.html
New file
0,0 → 1,42
<!-- NOUVEAUTE - DEBUT -->
<?php if ($erreurs) : ?>
<?php foreach ($erreurs as $erreur) : ?>
<p class="pap_erreur"><?=$erreur;?></p>
<?php endforeach; ?>
<?php elseif ($informations) : ?>
<?php foreach ($informations as $information) : ?>
<p class="pap_info"><?=$information;?></p>
<?php endforeach; ?>
<?php else : ?>
 
<ul class="page_liste">
<?php foreach ($pages as $page) : ?>
<li class="page_modification_<?=$page['type'];?>">
<h2 class="page_titre"><a href="<?=$page['url'];?>"><span class="page_titre"><?=$page['titre'];?></span></a></h2>
<dl>
<dt class="page_auteur">Auteur(s)&nbsp;:</dt>
<dd><?=$page['auteur'];?></dd>
<dt class="page_contributeur">Contributeur(s)&nbsp;:</dt>
<dd><?=$page['contributeur'];?></dd>
<dt class="page_modification_date">Modifié le&nbsp;:</dt>
<dd>
<span class="page_creation_heure"><?=$page['heure'];?></span>
<span class="page_separateur_heure">:</span>
<span class="page_creation_minute"><?=$page['minute'];?></span>
<span class="page_separateur_heure">:</span>
<span class="page_creation_seconde"><?=$page['seconde'];?></span>
<span class="page_separateur_date_heure"> - </span>
<span class="page_creation_jour"><?=$page['jour'];?></span>
<span class="page_creation_mois"><?=$page['mois'];?></span>
<span class="page_creation_annee"><?=$page['annee'];?></span>
</dd>
<dt class="page_description">Description&nbsp;:</dt>
<dd><?=$page['description'];?></dd>
<dt class="page_resumer_modification_">Résumer modification&nbsp;:</dt>
<dd><?=$page['resumer'];?></dd>
</dl>
</li>
<?php endforeach; ?>
</ul>
<?php endif; ?>
<!-- NOUVEAUTE - FIN -->