Rev 12 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<?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 Herbier. |// | |// | 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: herbier.php,v 1.6 2006-10-31 15:19:15 jp_milcent Exp $/*** Application Herbier** Cette application permet de consulter et d'administrer des collection botanique comprise dans le modèle* d'Herbier.* Ce fichier permet d'appeler les fichiers partagés par l'ensemble des applications d'Hebier.* Il permet aussi d'appeler les fichiers de chaque application spécifique et de vérifier s'il y a besoin* que l'utilisateur soit identifié ou pas.* Il joue le role de controlleur.**@package Herbier//Auteur original :*@author Alexandre GRANIER <alexandre@tela-botanica.org>//Autres auteurs :*@author Jean-Pascal MILCENT <jpm@clapas.org>*@copyright Tela-Botanica 2000-2005*@version $Revision: 1.6 $ $Date: 2006-10-31 15:19:15 $// +------------------------------------------------------------------------------------------------------+*/// +------------------------------------------------------------------------------------------------------+// | ENTETE du PROGRAMME |// +------------------------------------------------------------------------------------------------------+// Pour une utilisation hors de Papyrusif (!defined('PAP_VERSION')) {// Redéfini le séparateur utilisé lorsque PHP génère des URLs pour séparer les arguments. (compatible XHTML strict)ini_set('arg_separator.output', '&');define('GEN_SEP', DIRECTORY_SEPARATOR);define('PAP_CHEMIN_RACINE', dirname(realpath(__FILE__)).GEN_SEP.'..'.GEN_SEP.'..'.GEN_SEP);define('GEN_CHEMIN_API', PAP_CHEMIN_RACINE.'api'.GEN_SEP);define('GEN_CHEMIN_CLIENT', PAP_CHEMIN_RACINE.'client'.GEN_SEP);define('PAP_CHEMIN_API_PEAR', GEN_CHEMIN_API.'pear'.GEN_SEP);$GLOBALS['_GEN_commun']['i18n'] = 'fr';$GLOBALS['_DEBOGAGE_'] = '';}// +------------------------------------------------------------------------------------------------------+// Gestion du chemin de l'application et de son dossier de configuration/** Constante "dynamique" stockant le chemin absolue de base de l'application recherche de plante.*/define('HB_CHEMIN_APPLI', dirname(realpath(__FILE__)).GEN_SEP);/** Constante "dynamique" stockant le chemin relatif de base de l'application recherche de plante.*/define('HB_CHEMIN_APPLI_RELATIF', str_replace($_SERVER['DOCUMENT_ROOT'], '', HB_CHEMIN_APPLI));/** Constante stockant le chemin vers le dossier configuration.*/define('HB_CHEMIN_CONFIG', HB_CHEMIN_APPLI.'configuration'.GEN_SEP);/** Inclusion du fichier de configuration de la base de données de BiblioBota.*/require_once HB_CHEMIN_CONFIG.'hb_config_bdd.inc.php';/** Inclusion du fichier de configuration général de BiblioBota.*/require_once HB_CHEMIN_CONFIG.'hb_config.inc.php';/** Inclusion de l'API Débogage */require_once HB_CHEMIN_API_DEBOGAGE.'BOG_sql.fonct.php';/** Inclusion de la bibliothèque de fonctions communes aux applications de Herbier */require_once HB_CHEMIN_BIBLIO.'hb_commun.fonct.php';/** Inclusion de la classe PEAR d'abstraction de base de donnée. */require_once HB_CHEMIN_API_PEAR.'DB.php';/** Inclusion de la classe PEAR de gestion des URL. */require_once HB_CHEMIN_API_PEAR.'Net'.GEN_SEP.'URL.php';// Création de l'objet URL si nous hors de Papyrusif (!defined('PAP_VERSION')) {$GLOBALS['_GEN_commun']['url'] = new Net_URL(HB_URL);}/** Inclusion du fichier de configuration des url de BiblioBota.*/require_once HB_CHEMIN_CONFIG.'hb_config_url.inc.php';/** Definition de la variable globale stokant la connexion à la base de données. */$GLOBALS['_HERBIER_']['bdd'] =& DB::connect(HB_DSN);if (DB::isError($GLOBALS['_HERBIER_']['bdd'])) {die (BOG_afficherErreurSql(__FILE__, __LINE__, mysql_error(), null, $GLOBALS['_HERBIER_']['bdd']->getMessage()));}// Stockage des styles de l'application si nous sommes dans Papyrusif (defined('PAP_VERSION')) {GEN_stockerStyleExterne('herbier', HB_CHEMIN_STYLES.'herbier.css');}// Appel du fichier de traduction des textes de l'application Herbierif (file_exists(HB_CHEMIN_LANGUES.'hb_langue_'.HB_I18N.'.inc.php')) {/** Inclusion du fichier de traduction de l'application Herbier. */include_once HB_CHEMIN_LANGUES.'hb_langue_'.HB_I18N.'.inc.php';} else {/** Inclusion du fichier de traduction fr par défaut. */include_once HB_CHEMIN_LANGUES.'hb_langue_fr.inc.php';}// +------------------------------------------------------------------------------------------------------+// | CORPS du PROGRAMME |// +------------------------------------------------------------------------------------------------------+/** Fonction afficherContenuNavigation() - Fonction appelé par le gestionnaire Papyrus.** Elle retourne les onglets de l'application Herbier.* Todo : Il serait nécessaire de revoir les arguments passés dans les liens. Il y a* surement moyen de simplifier les choses.** @return string du code XHTML correspondant à la zone d'onglets de l'application.*/function afficherContenuNavigation(){$sortie = '';// Dans le cas où nous sommes passé en consultation avancée...$class_onglet_herbier = 'menu_inactif';$class_onglet_collection = 'menu_inactif';if (isset($_GET['consultation'])) {if ($_GET['consultation'] == 'herbier') {$class_onglet_herbier = 'menu_actif';} else if ($_GET['consultation'] == 'collection') {$class_onglet_collection = 'menu_actif';}$sortie .= '<ul class="onglets">'."\n";$sortie .= '<li class="'.$class_onglet_herbier.'" >'."\n";$sortie .= ' <a '.'href="'.HB_URL_COURANTE_CONSULTATION_FICHE_HERBIER.'&id_org='.$_GET['id_org'].'">'.'Herbier'.'</a> '."\n";$sortie .= '</li>'."\n";$sortie .= '<li class="'.$class_onglet_collection.'">'."\n";$sortie .= ' <a '.'href="'.HB_URL_COURANTE_CONSULTATION_FICHE_COLECTION.'&id_org='.$_GET['id_org'].'">'.'Collection'.'</a> '."\n";$sortie .= '</li>'."\n";$sortie .= '</ul>'."\n";}return $sortie;}/** Fonction afficherContenuNavigation() - Fonction appelé par le gestionnaire Papyrus.** Elle retourne les onglets de l'application Herbier.* Todo : Il serait nécessaire de revoir les arguments passés dans les liens. Il y a* surement moyen de simplifier les choses.** @return string du code XHTML correspondant à la zone d'onglets de l'application.*/function afficherContenuMenu(){// +------------------------------------------------------------------------------------------------------+// Initialisation de la base de données$bdd_id = mysql_connect(HB_BDD_SERVEUR, HB_BDD_UTILISATEUR, HB_BDD_MOT_DE_PASSE, true) or die("Impossible de se connecter à la base de données: " . mysql_error());mysql_select_db(HB_BDD_NOM, $bdd_id);// +------------------------------------------------------------------------------------------------------+// Initialisation des variables$sortie = '';if (!defined('HB_ARGUMENT_AUTH') || HB_ARGUMENT_AUTH == 0 || (HB_ARGUMENT_AUTH == 1 && $GLOBALS['_HERBIER_']['auth']->getAuth())) {// Nous incluons l'application demandée :$chemin_application = HB_CHEMIN_MODULE.HB_ARGUMENT_APPLI.GEN_SEP.HB_ARGUMENT_APPLI.'.menu.php';if (file_exists($chemin_application)) {include_once $chemin_application;}}// +------------------------------------------------------------------------------------------------------+// Fermeture de la connection à la base de donnéesmysql_close($bdd_id);return $sortie;}/** Fonction afficherContenuTete() - Fonction appelé par le gestionnaire Papyrus.** Elle retourne l'entête de l'application Herbier.* Todo : Il serait nécessaire de revoir les arguments passés dans les liens. Il y a* surement moyen de simplifier les choses.** @return string du code XHTML correspondant à la zone d'entête de l'application.*/function afficherContenuTete(){$sortie = '';if (isset($_GET['consultation'])) {$sortie .= '<p>'."\n";$sortie .= ' <a href="'.HB_URL_COURANTE.'">'.'Retour'.'</a>'."\n";$sortie .= '</p>'."\n";}return $sortie;}/** Fonction afficherContenuCorps() - Fonction appelé par le gestionnaire Papyrus.** Elle retourne le contenu de l'application Herbier.** @return string du code XHTML correspondant au contenu renvoyé par l'application.*/function afficherContenuCorps(){// +------------------------------------------------------------------------------------------------------+// Initialisation de la base de données$bdd_id = mysql_connect(HB_BDD_SERVEUR, HB_BDD_UTILISATEUR, HB_BDD_MOT_DE_PASSE, true) or die("Impossible de se connecter à la base de données: " . mysql_error());mysql_select_db(HB_BDD_NOM, $bdd_id);// +------------------------------------------------------------------------------------------------------+// Initialisation des variables$sortie = '';if (!defined('HB_ARGUMENT_AUTH') || HB_ARGUMENT_AUTH == 0 || (HB_ARGUMENT_AUTH == 1 && $GLOBALS['_HERBIER_']['auth']->getAuth())) {// Nous incluons l'application demandée :$chemin_application = HB_CHEMIN_MODULE.HB_ARGUMENT_APPLI.GEN_SEP.HB_ARGUMENT_APPLI.'.php';if (file_exists($chemin_application)) {include_once $chemin_application;} else {$sortie = '<p class="pap_erreur">'.'Application inexistantes!'.'<br />'.'Fichier : '.$chemin_application.'</p>';}} elseif (HB_ARGUMENT_AUTH == 1) {return GEN_afficherInfoIdentification($GLOBALS['_HERBIER_']['url']->getURL());} else {$sortie = '<p class="pap_erreur">'.'ERREUR : problème!'.'<br />'.'LIGNE : '. __LINE__ .'<br />'.'FICHIER : '. __FILE__ .'</p>';}// +------------------------------------------------------------------------------------------------------+// Fermeture de la connection à la base de donnéesmysql_close($bdd_id);return $sortie;}// +------------------------------------------------------------------------------------------------------+// | PIED du PROGRAMME |// +------------------------------------------------------------------------------------------------------+/* +--Fin du code ----------------------------------------------------------------------------------------+** $Log: not supported by cvs2svn $* Revision 1.5 2006/10/31 15:06:44 jp_milcent* Fin de gestion des flux rss.** Revision 1.4 2006/10/31 10:31:36 jp_milcent* Gestion des chemins rendu compatibles avec une utilisation de l'appli Herbiers hors de Papyrus.** Revision 1.3 2006/10/30 18:57:17 jp_milcent* Début gestion des flux rss.** Revision 1.2 2006/09/22 09:19:28 jp_milcent* Utilisation de mysql_connect et mysql_select_db suite à disfonctionnement.* Amélioration de la gestion des chemins des fichiers inclus.** Revision 1.1 2005/11/23 10:32:32 jp_milcent* Ajout au dépot de l'application Herbiers.* Elle doit à terme migrer dans eFlore.** Revision 1.3 2005/05/18 07:30:13 jpm* Correction des bogues et derniers réglages avant mise en ligne du site v4.** Revision 1.2 2005/04/06 13:35:04 jpm* Modification vis à vis de l'application Administration.** Revision 1.1 2005/03/08 14:17:19 jpm* Ajout des fichiers principaux.*** +-- Fin du code ----------------------------------------------------------------------------------------+*/?>