Subversion Repositories eFlore/Archives.herbiers

Rev

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