Subversion Repositories eFlore/Archives.herbiers

Rev

Rev 12 | 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 
// +------------------------------------------------------------------------------------------------------+
13 jp_milcent 24 
// CVS : $Id: herbier.php,v 1.6 2006-10-31 15:19:15 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
13 jp_milcent 41 
*@version       $Revision: 1.6 $ $Date: 2006-10-31 15:19:15 $
2 jp_milcent 42 
// +------------------------------------------------------------------------------------------------------+
43 
*/
44 
 
45 
// +------------------------------------------------------------------------------------------------------+
46 
// |                                            ENTETE du PROGRAMME                                       |
47 
// +------------------------------------------------------------------------------------------------------+
13 jp_milcent 48 
// Pour une utilisation hors de Papyrus
49 
if (!defined('PAP_VERSION')) {
50 
	// Redéfini le séparateur utilisé lorsque PHP génère des URLs pour séparer les arguments. (compatible XHTML strict)
51 
	ini_set('arg_separator.output', '&amp;');
52 
	define('GEN_SEP', DIRECTORY_SEPARATOR);
53 
	define('PAP_CHEMIN_RACINE', dirname(realpath(__FILE__)).GEN_SEP.'..'.GEN_SEP.'..'.GEN_SEP);
54 
	define('GEN_CHEMIN_API', PAP_CHEMIN_RACINE.'api'.GEN_SEP);
55 
	define('GEN_CHEMIN_CLIENT', PAP_CHEMIN_RACINE.'client'.GEN_SEP);
56 
	define('PAP_CHEMIN_API_PEAR', GEN_CHEMIN_API.'pear'.GEN_SEP);
57 
	$GLOBALS['_GEN_commun']['i18n'] = 'fr';
58 
	$GLOBALS['_DEBOGAGE_'] = '';
59 
}
6 jp_milcent 60 
// +------------------------------------------------------------------------------------------------------+
61 
// Gestion du chemin de l'application et de son dossier de configuration
62 
/** Constante "dynamique" stockant le chemin absolue de base de l'application recherche de plante.*/
63 
define('HB_CHEMIN_APPLI', dirname(realpath(__FILE__)).GEN_SEP);
64 
/** Constante "dynamique" stockant le chemin relatif de base de l'application recherche de plante.*/
65 
define('HB_CHEMIN_APPLI_RELATIF', str_replace($_SERVER['DOCUMENT_ROOT'], '', HB_CHEMIN_APPLI));
66 
/** Constante stockant le chemin vers le dossier configuration.*/
67 
define('HB_CHEMIN_CONFIG', HB_CHEMIN_APPLI.'configuration'.GEN_SEP);
2 jp_milcent 68 
/** Inclusion du fichier de configuration de la base de données de BiblioBota.*/
6 jp_milcent 69 
require_once HB_CHEMIN_CONFIG.'hb_config_bdd.inc.php';
2 jp_milcent 70 
/** Inclusion du fichier de configuration général de BiblioBota.*/
6 jp_milcent 71 
require_once HB_CHEMIN_CONFIG.'hb_config.inc.php';
2 jp_milcent 72 
 
73 
/** Inclusion de l'API Débogage */
74 
require_once HB_CHEMIN_API_DEBOGAGE.'BOG_sql.fonct.php';
75 
/** Inclusion de la bibliothèque de fonctions communes aux applications de Herbier */
76 
require_once HB_CHEMIN_BIBLIO.'hb_commun.fonct.php';
77 
/** Inclusion de la classe PEAR d'abstraction de base de donnée. */
4 jp_milcent 78 
require_once HB_CHEMIN_API_PEAR.'DB.php';
2 jp_milcent 79 
/** Inclusion de la classe PEAR de gestion des URL. */
6 jp_milcent 80 
require_once HB_CHEMIN_API_PEAR.'Net'.GEN_SEP.'URL.php';
8 jp_milcent 81 
// Création de l'objet URL si nous hors de Papyrus
82 
if (!defined('PAP_VERSION')) {
12 jp_milcent 83 
	$GLOBALS['_GEN_commun']['url'] = new Net_URL(HB_URL);
8 jp_milcent 84 
}
2 jp_milcent 85 
/** Inclusion du fichier de configuration des url de BiblioBota.*/
86 
require_once HB_CHEMIN_CONFIG.'hb_config_url.inc.php';
87 
 
88 
/** Definition de la variable globale stokant la connexion à la base de données. */
89 
$GLOBALS['_HERBIER_']['bdd'] =& DB::connect(HB_DSN);
90 
if (DB::isError($GLOBALS['_HERBIER_']['bdd'])) {
91 
    die (BOG_afficherErreurSql(__FILE__, __LINE__, mysql_error(), null, $GLOBALS['_HERBIER_']['bdd']->getMessage()));
92 
}
93 
 
8 jp_milcent 94 
// Stockage des styles de l'application si nous sommes dans Papyrus
95 
if (defined('PAP_VERSION')) {
96 
	GEN_stockerStyleExterne('herbier', HB_CHEMIN_STYLES.'herbier.css');
97 
}
2 jp_milcent 98 
 
99 
// Appel du fichier de traduction des textes de l'application Herbier
100 
if (file_exists(HB_CHEMIN_LANGUES.'hb_langue_'.HB_I18N.'.inc.php')) {
101 
    /** Inclusion du fichier de traduction de l'application Herbier. */
102 
    include_once HB_CHEMIN_LANGUES.'hb_langue_'.HB_I18N.'.inc.php';
103 
} else {
104 
    /** Inclusion du fichier de traduction fr par défaut. */
105 
    include_once HB_CHEMIN_LANGUES.'hb_langue_fr.inc.php';
106 
}
107 
 
108 
// +------------------------------------------------------------------------------------------------------+
109 
// |                                            CORPS du PROGRAMME                                        |
110 
// +------------------------------------------------------------------------------------------------------+
111 
/** Fonction afficherContenuNavigation() - Fonction appelé par le gestionnaire Papyrus.
112 
*
113 
* Elle retourne les onglets de l'application Herbier.
114 
* Todo : Il serait nécessaire de revoir les arguments passés dans les liens. Il y a
115 
* surement moyen de simplifier les choses.
116 
*
117 
* @return  string  du code XHTML correspondant à la zone d'onglets de l'application.
118 
*/
119 
function afficherContenuNavigation()
120 
{
121 
    $sortie = '';
122 
    // Dans le cas où nous sommes passé en consultation avancée...
123 
    $class_onglet_herbier = 'menu_inactif';
124 
    $class_onglet_collection = 'menu_inactif';
125 
    if (isset($_GET['consultation'])) {
126 
        if ($_GET['consultation'] == 'herbier') {
127 
            $class_onglet_herbier = 'menu_actif';
128 
        } else if ($_GET['consultation'] == 'collection') {
129 
            $class_onglet_collection = 'menu_actif';
130 
        }
131 
        $sortie .= '<ul class="onglets">'."\n";
132 
        $sortie .= '<li class="'.$class_onglet_herbier.'" >'."\n";
133 
        $sortie .= '    <a '.
134 
                        'href="'.HB_URL_COURANTE_CONSULTATION_FICHE_HERBIER.'&amp;id_org='.$_GET['id_org'].'">'.
135 
                        'Herbier'.
136 
                        '</a> '."\n";
137 
        $sortie .= '</li>'."\n";
138 
        $sortie .= '<li class="'.$class_onglet_collection.'">'."\n";
139 
        $sortie .= '    <a '.
140 
                        'href="'.HB_URL_COURANTE_CONSULTATION_FICHE_COLECTION.'&amp;id_org='.$_GET['id_org'].'">'.
141 
                        'Collection'.
142 
                        '</a> '."\n";
143 
        $sortie .= '</li>'."\n";
144 
        $sortie .= '</ul>'."\n";
145 
    }
146 
    return $sortie;
147 
}
148 
/** Fonction afficherContenuNavigation() - Fonction appelé par le gestionnaire Papyrus.
149 
*
150 
* Elle retourne les onglets de l'application Herbier.
151 
* Todo : Il serait nécessaire de revoir les arguments passés dans les liens. Il y a
152 
* surement moyen de simplifier les choses.
153 
*
154 
* @return  string  du code XHTML correspondant à la zone d'onglets de l'application.
155 
*/
156 
function afficherContenuMenu()
157 
{
4 jp_milcent 158 
	// +------------------------------------------------------------------------------------------------------+
159 
	// Initialisation de la	 base de données
160 
	$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());
161 
    mysql_select_db(HB_BDD_NOM, $bdd_id);
162 
 
2 jp_milcent 163 
    // +------------------------------------------------------------------------------------------------------+
164 
    // Initialisation des variables
165 
    $sortie = '';
166 
    if (!defined('HB_ARGUMENT_AUTH') || HB_ARGUMENT_AUTH == 0 || (HB_ARGUMENT_AUTH == 1 && $GLOBALS['_HERBIER_']['auth']->getAuth())) {
167 
        // Nous incluons l'application demandée :
8 jp_milcent 168 
        $chemin_application = HB_CHEMIN_MODULE.HB_ARGUMENT_APPLI.GEN_SEP.HB_ARGUMENT_APPLI.'.menu.php';
2 jp_milcent 169 
        if (file_exists($chemin_application)) {
170 
            include_once $chemin_application;
171 
        }
172 
    }
4 jp_milcent 173 
 
174 
	// +------------------------------------------------------------------------------------------------------+
175 
	// Fermeture de la	connection à la base de données
176 
    mysql_close($bdd_id);
177 
 
2 jp_milcent 178 
    return $sortie;
179 
}
180 
/** Fonction afficherContenuTete() - Fonction appelé par le gestionnaire Papyrus.
181 
*
182 
* Elle retourne l'entête de l'application Herbier.
183 
* Todo : Il serait nécessaire de revoir les arguments passés dans les liens. Il y a
184 
* surement moyen de simplifier les choses.
185 
*
186 
* @return  string  du code XHTML correspondant à la zone d'entête de l'application.
187 
*/
188 
function afficherContenuTete()
189 
{
190 
    $sortie = '';
191 
    if (isset($_GET['consultation'])) {
192 
        $sortie .= '<p>'."\n";
193 
        $sortie .= '    <a href="'.HB_URL_COURANTE.'">'.'Retour'.'</a>'."\n";
194 
        $sortie .= '</p>'."\n";
195 
    }
196 
    return $sortie;
197 
}
198 
 
199 
/** Fonction afficherContenuCorps() - Fonction appelé par le gestionnaire Papyrus.
200 
*
201 
* Elle retourne le contenu de l'application Herbier.
202 
*
203 
* @return  string  du code XHTML correspondant au contenu renvoyé par l'application.
204 
*/
205 
function afficherContenuCorps()
206 
{
4 jp_milcent 207 
 	// +------------------------------------------------------------------------------------------------------+
208 
	// Initialisation de la	 base de données
209 
	$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());
210 
    mysql_select_db(HB_BDD_NOM, $bdd_id);
211 
 
2 jp_milcent 212 
    // +------------------------------------------------------------------------------------------------------+
213 
    // Initialisation des variables
214 
    $sortie = '';
215 
    if (!defined('HB_ARGUMENT_AUTH') || HB_ARGUMENT_AUTH == 0 || (HB_ARGUMENT_AUTH == 1 && $GLOBALS['_HERBIER_']['auth']->getAuth())) {
216 
        // Nous incluons l'application demandée :
8 jp_milcent 217 
        $chemin_application = HB_CHEMIN_MODULE.HB_ARGUMENT_APPLI.GEN_SEP.HB_ARGUMENT_APPLI.'.php';
2 jp_milcent 218 
        if (file_exists($chemin_application)) {
219 
            include_once $chemin_application;
220 
        } else {
8 jp_milcent 221 
            $sortie = 	'<p class="pap_erreur">'.
222 
						'Application inexistantes!'.'<br />'.
223 
						'Fichier : '.$chemin_application.
224 
						'</p>';
2 jp_milcent 225 
        }
226 
    } elseif (HB_ARGUMENT_AUTH == 1) {
227 
        return GEN_afficherInfoIdentification($GLOBALS['_HERBIER_']['url']->getURL());
228 
    } else {
229 
        $sortie =   '<p class="pap_erreur">'.
230 
                    'ERREUR : problème!'.'<br />'.'LIGNE : '. __LINE__ .'<br />'.'FICHIER : '. __FILE__ .
231 
                    '</p>';
232 
    }
4 jp_milcent 233 
 
234 
	// +------------------------------------------------------------------------------------------------------+
235 
	// Fermeture de la	connection à la base de données
236 
    mysql_close($bdd_id);
237 
 
2 jp_milcent 238 
    return $sortie;
239 
}
240 
 
241 
// +------------------------------------------------------------------------------------------------------+
242 
// |                                            PIED du PROGRAMME                                         |
243 
// +------------------------------------------------------------------------------------------------------+
244 
 
245 
 
246 
/* +--Fin du code ----------------------------------------------------------------------------------------+
247 
*
248 
* $Log: not supported by cvs2svn $
13 jp_milcent 249 
* Revision 1.5  2006/10/31 15:06:44  jp_milcent
250 
* Fin de gestion des flux rss.
251 
*
12 jp_milcent 252 
* Revision 1.4  2006/10/31 10:31:36  jp_milcent
253 
* Gestion des chemins rendu compatibles avec une utilisation de l'appli Herbiers hors de Papyrus.
254 
*
8 jp_milcent 255 
* Revision 1.3  2006/10/30 18:57:17  jp_milcent
256 
* Début gestion des flux rss.
257 
*
6 jp_milcent 258 
* Revision 1.2  2006/09/22 09:19:28  jp_milcent
259 
* Utilisation de mysql_connect et mysql_select_db suite à disfonctionnement.
260 
* Amélioration de la gestion des chemins des fichiers inclus.
261 
*
4 jp_milcent 262 
* Revision 1.1  2005/11/23 10:32:32  jp_milcent
263 
* Ajout au dépot de l'application Herbiers.
264 
* Elle doit à terme migrer dans eFlore.
265 
*
2 jp_milcent 266 
* Revision 1.3  2005/05/18 07:30:13  jpm
267 
* Correction des bogues et derniers réglages avant mise en ligne du site v4.
268 
*
269 
* Revision 1.2  2005/04/06 13:35:04  jpm
270 
* Modification vis à vis de l'application Administration.
271 
*
272 
* Revision 1.1  2005/03/08 14:17:19  jpm
273 
* Ajout des fichiers principaux.
274 
*
275 
*
276 
* +-- Fin du code ----------------------------------------------------------------------------------------+
277 
*/
278 
?>