WebSVN – eFlore/Archives.herbiers – Diff – /trunk/herbier.php


<?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 Papyrus
if (!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', '&amp;');
	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 Papyrus
if (!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 Papyrus
if (defined('PAP_VERSION')) {
	GEN_stockerStyleExterne('herbier', HB_CHEMIN_STYLES.'herbier.css');
}
 
// Appel du fichier de traduction des textes de l'application Herbier
if (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.'&amp;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.'&amp;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ées    
    mysql_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ées    
    mysql_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 ----------------------------------------------------------------------------------------+
*/
?>
Subversion Repositories eFlore/Archives.herbiers

(root)/trunk/herbier.php @ 12 – Rev 12 → 13
