Subversion Repositories eFlore/Archives.herbiers

Rev

Rev 8 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 jp_milcent 1 
<?php
2 
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3 
// +------------------------------------------------------------------------------------------------------+
4 
// | PHP version 4.1                                                                                      |
5 
// +------------------------------------------------------------------------------------------------------+
6 
// | Copyright (C) 2005 Tela Botanica (accueil@tela-botanica.org)                                         |
7 
// +------------------------------------------------------------------------------------------------------+
8 
// | This file is part of Herbier.                                                                        |
9 
// |                                                                                                      |
10 
// | Foobar is free software; you can redistribute it and/or modify                                       |
11 
// | it under the terms of the GNU General Public License as published by                                 |
12 
// | the Free Software Foundation; either version 2 of the License, or                                    |
13 
// | (at your option) any later version.                                                                  |
14 
// |                                                                                                      |
15 
// | Foobar is distributed in the hope that it will be useful,                                            |
16 
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
17 
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                                        |
18 
// | GNU General Public License for more details.                                                         |
19 
// |                                                                                                      |
20 
// | You should have received a copy of the GNU General Public License                                    |
21 
// | along with Foobar; if not, write to the Free Software                                                |
22 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
23 
// +------------------------------------------------------------------------------------------------------+
12 jp_milcent 24 
// CVS : $Id: herbier.php,v 1.5 2006-10-31 15:06:44 jp_milcent Exp $
2 jp_milcent 25 
/**
26 
* Application Herbier
27 
*
28 
* Cette application permet de consulter et d'administrer des collection botanique comprise dans le modèle
29 
* d'Herbier.
30 
* Ce fichier permet d'appeler les fichiers partagés par l'ensemble des applications d'Hebier.
31 
* Il permet aussi d'appeler les fichiers de chaque application spécifique et de vérifier s'il y a besoin
32 
* que l'utilisateur soit identifié ou pas.
33 
* Il joue le role de controlleur.
34 
*
35 
*@package Herbier
36 
//Auteur original :
37 
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
38 
//Autres auteurs :
39 
*@author        Jean-Pascal MILCENT <jpm@clapas.org>
40 
*@copyright     Tela-Botanica 2000-2005
12 jp_milcent 41 
*@version       $Revision: 1.5 $ $Date: 2006-10-31 15:06:44 $
2 jp_milcent 42 
// +------------------------------------------------------------------------------------------------------+
43 
*/
44 
 
45 
// +------------------------------------------------------------------------------------------------------+
46 
// |                                            ENTETE du PROGRAMME                                       |
47 
// +------------------------------------------------------------------------------------------------------+
6 jp_milcent 48 
// +------------------------------------------------------------------------------------------------------+
49 
// Gestion du chemin de l'application et de son dossier de configuration
50 
/** Constante "dynamique" stockant le chemin absolue de base de l'application recherche de plante.*/
51 
define('HB_CHEMIN_APPLI', dirname(realpath(__FILE__)).GEN_SEP);
52 
/** Constante "dynamique" stockant le chemin relatif de base de l'application recherche de plante.*/
53 
define('HB_CHEMIN_APPLI_RELATIF', str_replace($_SERVER['DOCUMENT_ROOT'], '', HB_CHEMIN_APPLI));
54 
/** Constante stockant le chemin vers le dossier configuration.*/
55 
define('HB_CHEMIN_CONFIG', HB_CHEMIN_APPLI.'configuration'.GEN_SEP);
2 jp_milcent 56 
/** Inclusion du fichier de configuration de la base de données de BiblioBota.*/
6 jp_milcent 57 
require_once HB_CHEMIN_CONFIG.'hb_config_bdd.inc.php';
2 jp_milcent 58 
/** Inclusion du fichier de configuration général de BiblioBota.*/
6 jp_milcent 59 
require_once HB_CHEMIN_CONFIG.'hb_config.inc.php';
2 jp_milcent 60 
 
61 
/** Inclusion de l'API Débogage */
62 
require_once HB_CHEMIN_API_DEBOGAGE.'BOG_sql.fonct.php';
63 
/** Inclusion de la bibliothèque de fonctions communes aux applications de Herbier */
64 
require_once HB_CHEMIN_BIBLIO.'hb_commun.fonct.php';
65 
/** Inclusion de la classe PEAR d'abstraction de base de donnée. */
4 jp_milcent 66 
require_once HB_CHEMIN_API_PEAR.'DB.php';
2 jp_milcent 67 
/** Inclusion de la classe PEAR de gestion des URL. */
6 jp_milcent 68 
require_once HB_CHEMIN_API_PEAR.'Net'.GEN_SEP.'URL.php';
8 jp_milcent 69 
// Création de l'objet URL si nous hors de Papyrus
70 
if (!defined('PAP_VERSION')) {
12 jp_milcent 71 
	$GLOBALS['_GEN_commun']['url'] = new Net_URL(HB_URL);
8 jp_milcent 72 
}
2 jp_milcent 73 
/** Inclusion du fichier de configuration des url de BiblioBota.*/
74 
require_once HB_CHEMIN_CONFIG.'hb_config_url.inc.php';
75 
 
76 
/** Definition de la variable globale stokant la connexion à la base de données. */
77 
$GLOBALS['_HERBIER_']['bdd'] =& DB::connect(HB_DSN);
78 
if (DB::isError($GLOBALS['_HERBIER_']['bdd'])) {
79 
    die (BOG_afficherErreurSql(__FILE__, __LINE__, mysql_error(), null, $GLOBALS['_HERBIER_']['bdd']->getMessage()));
80 
}
81 
 
8 jp_milcent 82 
// Stockage des styles de l'application si nous sommes dans Papyrus
83 
if (defined('PAP_VERSION')) {
84 
	GEN_stockerStyleExterne('herbier', HB_CHEMIN_STYLES.'herbier.css');
85 
}
2 jp_milcent 86 
 
87 
// Appel du fichier de traduction des textes de l'application Herbier
88 
if (file_exists(HB_CHEMIN_LANGUES.'hb_langue_'.HB_I18N.'.inc.php')) {
89 
    /** Inclusion du fichier de traduction de l'application Herbier. */
90 
    include_once HB_CHEMIN_LANGUES.'hb_langue_'.HB_I18N.'.inc.php';
91 
} else {
92 
    /** Inclusion du fichier de traduction fr par défaut. */
93 
    include_once HB_CHEMIN_LANGUES.'hb_langue_fr.inc.php';
94 
}
95 
 
96 
// +------------------------------------------------------------------------------------------------------+
97 
// |                                            CORPS du PROGRAMME                                        |
98 
// +------------------------------------------------------------------------------------------------------+
99 
/** Fonction afficherContenuNavigation() - Fonction appelé par le gestionnaire Papyrus.
100 
*
101 
* Elle retourne les onglets de l'application Herbier.
102 
* Todo : Il serait nécessaire de revoir les arguments passés dans les liens. Il y a
103 
* surement moyen de simplifier les choses.
104 
*
105 
* @return  string  du code XHTML correspondant à la zone d'onglets de l'application.
106 
*/
107 
function afficherContenuNavigation()
108 
{
109 
    $sortie = '';
110 
    // Dans le cas où nous sommes passé en consultation avancée...
111 
    $class_onglet_herbier = 'menu_inactif';
112 
    $class_onglet_collection = 'menu_inactif';
113 
    if (isset($_GET['consultation'])) {
114 
        if ($_GET['consultation'] == 'herbier') {
115 
            $class_onglet_herbier = 'menu_actif';
116 
        } else if ($_GET['consultation'] == 'collection') {
117 
            $class_onglet_collection = 'menu_actif';
118 
        }
119 
        $sortie .= '<ul class="onglets">'."\n";
120 
        $sortie .= '<li class="'.$class_onglet_herbier.'" >'."\n";
121 
        $sortie .= '    <a '.
122 
                        'href="'.HB_URL_COURANTE_CONSULTATION_FICHE_HERBIER.'&amp;id_org='.$_GET['id_org'].'">'.
123 
                        'Herbier'.
124 
                        '</a> '."\n";
125 
        $sortie .= '</li>'."\n";
126 
        $sortie .= '<li class="'.$class_onglet_collection.'">'."\n";
127 
        $sortie .= '    <a '.
128 
                        'href="'.HB_URL_COURANTE_CONSULTATION_FICHE_COLECTION.'&amp;id_org='.$_GET['id_org'].'">'.
129 
                        'Collection'.
130 
                        '</a> '."\n";
131 
        $sortie .= '</li>'."\n";
132 
        $sortie .= '</ul>'."\n";
133 
    }
134 
    return $sortie;
135 
}
136 
/** Fonction afficherContenuNavigation() - Fonction appelé par le gestionnaire Papyrus.
137 
*
138 
* Elle retourne les onglets de l'application Herbier.
139 
* Todo : Il serait nécessaire de revoir les arguments passés dans les liens. Il y a
140 
* surement moyen de simplifier les choses.
141 
*
142 
* @return  string  du code XHTML correspondant à la zone d'onglets de l'application.
143 
*/
144 
function afficherContenuMenu()
145 
{
4 jp_milcent 146 
	// +------------------------------------------------------------------------------------------------------+
147 
	// Initialisation de la	 base de données
148 
	$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());
149 
    mysql_select_db(HB_BDD_NOM, $bdd_id);
150 
 
2 jp_milcent 151 
    // +------------------------------------------------------------------------------------------------------+
152 
    // Initialisation des variables
153 
    $sortie = '';
154 
    if (!defined('HB_ARGUMENT_AUTH') || HB_ARGUMENT_AUTH == 0 || (HB_ARGUMENT_AUTH == 1 && $GLOBALS['_HERBIER_']['auth']->getAuth())) {
155 
        // Nous incluons l'application demandée :
8 jp_milcent 156 
        $chemin_application = HB_CHEMIN_MODULE.HB_ARGUMENT_APPLI.GEN_SEP.HB_ARGUMENT_APPLI.'.menu.php';
2 jp_milcent 157 
        if (file_exists($chemin_application)) {
158 
            include_once $chemin_application;
159 
        }
160 
    }
4 jp_milcent 161 
 
162 
	// +------------------------------------------------------------------------------------------------------+
163 
	// Fermeture de la	connection à la base de données
164 
    mysql_close($bdd_id);
165 
 
2 jp_milcent 166 
    return $sortie;
167 
}
168 
/** Fonction afficherContenuTete() - Fonction appelé par le gestionnaire Papyrus.
169 
*
170 
* Elle retourne l'entête de l'application Herbier.
171 
* Todo : Il serait nécessaire de revoir les arguments passés dans les liens. Il y a
172 
* surement moyen de simplifier les choses.
173 
*
174 
* @return  string  du code XHTML correspondant à la zone d'entête de l'application.
175 
*/
176 
function afficherContenuTete()
177 
{
178 
    $sortie = '';
179 
    if (isset($_GET['consultation'])) {
180 
        $sortie .= '<p>'."\n";
181 
        $sortie .= '    <a href="'.HB_URL_COURANTE.'">'.'Retour'.'</a>'."\n";
182 
        $sortie .= '</p>'."\n";
183 
    }
184 
    return $sortie;
185 
}
186 
 
187 
/** Fonction afficherContenuCorps() - Fonction appelé par le gestionnaire Papyrus.
188 
*
189 
* Elle retourne le contenu de l'application Herbier.
190 
*
191 
* @return  string  du code XHTML correspondant au contenu renvoyé par l'application.
192 
*/
193 
function afficherContenuCorps()
194 
{
4 jp_milcent 195 
 	// +------------------------------------------------------------------------------------------------------+
196 
	// Initialisation de la	 base de données
197 
	$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());
198 
    mysql_select_db(HB_BDD_NOM, $bdd_id);
199 
 
2 jp_milcent 200 
    // +------------------------------------------------------------------------------------------------------+
201 
    // Initialisation des variables
202 
    $sortie = '';
203 
    if (!defined('HB_ARGUMENT_AUTH') || HB_ARGUMENT_AUTH == 0 || (HB_ARGUMENT_AUTH == 1 && $GLOBALS['_HERBIER_']['auth']->getAuth())) {
204 
        // Nous incluons l'application demandée :
8 jp_milcent 205 
        $chemin_application = HB_CHEMIN_MODULE.HB_ARGUMENT_APPLI.GEN_SEP.HB_ARGUMENT_APPLI.'.php';
2 jp_milcent 206 
        if (file_exists($chemin_application)) {
207 
            include_once $chemin_application;
208 
        } else {
8 jp_milcent 209 
            $sortie = 	'<p class="pap_erreur">'.
210 
						'Application inexistantes!'.'<br />'.
211 
						'Fichier : '.$chemin_application.
212 
						'</p>';
2 jp_milcent 213 
        }
214 
    } elseif (HB_ARGUMENT_AUTH == 1) {
215 
        return GEN_afficherInfoIdentification($GLOBALS['_HERBIER_']['url']->getURL());
216 
    } else {
217 
        $sortie =   '<p class="pap_erreur">'.
218 
                    'ERREUR : problème!'.'<br />'.'LIGNE : '. __LINE__ .'<br />'.'FICHIER : '. __FILE__ .
219 
                    '</p>';
220 
    }
4 jp_milcent 221 
 
222 
	// +------------------------------------------------------------------------------------------------------+
223 
	// Fermeture de la	connection à la base de données
224 
    mysql_close($bdd_id);
225 
 
2 jp_milcent 226 
    return $sortie;
227 
}
228 
 
229 
// +------------------------------------------------------------------------------------------------------+
230 
// |                                            PIED du PROGRAMME                                         |
231 
// +------------------------------------------------------------------------------------------------------+
232 
 
233 
 
234 
/* +--Fin du code ----------------------------------------------------------------------------------------+
235 
*
236 
* $Log: not supported by cvs2svn $
12 jp_milcent 237 
* Revision 1.4  2006/10/31 10:31:36  jp_milcent
238 
* Gestion des chemins rendu compatibles avec une utilisation de l'appli Herbiers hors de Papyrus.
239 
*
8 jp_milcent 240 
* Revision 1.3  2006/10/30 18:57:17  jp_milcent
241 
* Début gestion des flux rss.
242 
*
6 jp_milcent 243 
* Revision 1.2  2006/09/22 09:19:28  jp_milcent
244 
* Utilisation de mysql_connect et mysql_select_db suite à disfonctionnement.
245 
* Amélioration de la gestion des chemins des fichiers inclus.
246 
*
4 jp_milcent 247 
* Revision 1.1  2005/11/23 10:32:32  jp_milcent
248 
* Ajout au dépot de l'application Herbiers.
249 
* Elle doit à terme migrer dans eFlore.
250 
*
2 jp_milcent 251 
* Revision 1.3  2005/05/18 07:30:13  jpm
252 
* Correction des bogues et derniers réglages avant mise en ligne du site v4.
253 
*
254 
* Revision 1.2  2005/04/06 13:35:04  jpm
255 
* Modification vis à vis de l'application Administration.
256 
*
257 
* Revision 1.1  2005/03/08 14:17:19  jpm
258 
* Ajout des fichiers principaux.
259 
*
260 
*
261 
* +-- Fin du code ----------------------------------------------------------------------------------------+
262 
*/
263 
?>