| 2 |
jp_milcent |
1 |
<?php
|
|
|
2 |
/*vim: set expandtab tabstop=4 shiftwidth=4: */
|
|
|
3 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
4 |
// | PHP version 4.1 |
|
|
|
5 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
6 |
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |
|
|
|
7 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
8 |
// | This file is part of Biblio Bota. |
|
|
|
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 |
// +------------------------------------------------------------------------------------------------------+
|
| 16 |
jp_milcent |
24 |
// CVS : $Id: biblio_bota.php,v 1.3 2006-09-22 09:18:56 jp_milcent Exp $
|
| 2 |
jp_milcent |
25 |
/**
|
|
|
26 |
* Appli Biblio Bota
|
|
|
27 |
*
|
|
|
28 |
* Cette application permet de consulter et d'administrer l'ensemble des données comprise dans le modèle
|
|
|
29 |
* de Biblio Bota :
|
|
|
30 |
* - articles botaniques
|
|
|
31 |
* - livres et média botaniques
|
|
|
32 |
* - sites web
|
|
|
33 |
* - organismes liés à la botanique
|
|
|
34 |
* Ce fichier permet d'appeler les fichiers partagés par l'ensemble des applications de BiblioBota.
|
|
|
35 |
* Il permet aussi d'appeler les fichiers de chaque application spécifique et de vérifier s'il y a besoin
|
|
|
36 |
* que l'utilisateur soit identifié ou pas.
|
|
|
37 |
* Il joue le role de controlleur.
|
|
|
38 |
*
|
|
|
39 |
*@package BiblioBota
|
|
|
40 |
//Auteur original :
|
|
|
41 |
*@author Jean-Charles GRANGER <tela@vecteur.org>
|
|
|
42 |
//Autres auteurs :
|
|
|
43 |
*@author Jean-Pascal MILCENT <jpm@clapas.org>
|
|
|
44 |
*@copyright Tela-Botanica 2000-2004
|
| 16 |
jp_milcent |
45 |
*@version $Revision: 1.3 $ $Date: 2006-09-22 09:18:56 $
|
| 2 |
jp_milcent |
46 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
47 |
*/
|
|
|
48 |
|
|
|
49 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
50 |
// | ENTETE du PROGRAMME |
|
|
|
51 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
52 |
/** Inclusion du fichier de configuration de la base de données de BiblioBota.*/
|
| 15 |
jp_milcent |
53 |
require_once GEN_CHEMIN_CLIENT.'biblio_bota/configuration/bb_config_bdd.inc.php';
|
| 2 |
jp_milcent |
54 |
/** Inclusion du fichier de configuration général de BiblioBota.*/
|
| 15 |
jp_milcent |
55 |
require_once GEN_CHEMIN_CLIENT.'biblio_bota/configuration/bb_config.inc.php';
|
| 2 |
jp_milcent |
56 |
|
|
|
57 |
/** Inclusion de l'API Fragmenteur */
|
|
|
58 |
require_once BB_CHEMIN_API.'fragmenteur/FRAG_fragmenteur.fonct.php';
|
|
|
59 |
/** Inclusion de l'API Date */
|
|
|
60 |
require_once BB_CHEMIN_API.'date/DAT_date.fonct.php';
|
|
|
61 |
/** Inclusion de l'API VoirAussi */
|
|
|
62 |
require_once BB_CHEMIN_API.'voiraussi/VA_VoirAussi.class.php';
|
|
|
63 |
/** Inclusion de l'API Débogage */
|
|
|
64 |
require_once BB_CHEMIN_API.'debogage/BOG_sql.fonct.php';
|
|
|
65 |
/** Inclusion de la bibliothèque de fonctions communes aux applications de BiblioBota */
|
|
|
66 |
require_once BB_CHEMIN_BIBLIO.'bb_commun.fonct.php';
|
|
|
67 |
/** Inclusion de la classe PEAR d'abstraction de base de donnée. */
|
| 15 |
jp_milcent |
68 |
require_once BB_CHEMIN_API_PEAR.'DB.php';
|
| 2 |
jp_milcent |
69 |
/** Inclusion de la classe PEAR de gestion des URL. */
|
| 15 |
jp_milcent |
70 |
require_once BB_CHEMIN_API_PEAR.'Net/URL.php';
|
| 2 |
jp_milcent |
71 |
/** Inclusion du fichier de configuration des url de BiblioBota.*/
|
| 15 |
jp_milcent |
72 |
require_once BB_CHEMIN_CONFIG.'bb_config_url.inc.php';
|
| 2 |
jp_milcent |
73 |
|
|
|
74 |
/** Definition de la variable globale stokant la connexion à la base de données. */
|
|
|
75 |
$GLOBALS['db_bb']= DB::connect(BB_DSN);
|
|
|
76 |
|
|
|
77 |
// Stockage des styles de l'application
|
|
|
78 |
GEN_stockerStyleExterne('biblio_bota_consultation', BB_CHEMIN_STYLES.'bb_standard.css');
|
|
|
79 |
|
|
|
80 |
// Appel du fichier de traduction des textes de l'application Biblio Bota
|
|
|
81 |
if (file_exists(BB_CHEMIN_LANGUES.'bb_langue_'.BB_URL_I18N.'.inc.php')) {
|
|
|
82 |
/** Inclusion du fichier de traduction de l'application Biblio Bota. */
|
|
|
83 |
include_once BB_CHEMIN_LANGUES.'bb_langue_'.BB_URL_I18N.'.inc.php';
|
|
|
84 |
} else {
|
|
|
85 |
/** Inclusion du fichier de traduction fr par défaut. */
|
|
|
86 |
include_once BB_CHEMIN_LANGUES.'bb_langue_fr.inc.php';
|
|
|
87 |
}
|
|
|
88 |
|
|
|
89 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
90 |
// | CORPS du PROGRAMME |
|
|
|
91 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
92 |
/** Fonction afficherContenuNavigation() - Fonction appelé par le gestionnaire Papyrus.
|
|
|
93 |
*
|
|
|
94 |
* Elle retourne les onglets de l'application Biblio Bota.
|
|
|
95 |
* Todo : Il serait nécessaire de revoir les arguments passés dans les liens. Il y a
|
|
|
96 |
* surement moyen de simplifier les choses.
|
|
|
97 |
*
|
|
|
98 |
* @return string du code XHTML correspondant à la zone de navigation de l'application.
|
|
|
99 |
*/
|
|
|
100 |
function afficherContenuNavigation()
|
|
|
101 |
{
|
|
|
102 |
$sortie = '';
|
|
|
103 |
|
|
|
104 |
// Dans le cas où nous sommes passé en consultation avancée...
|
|
|
105 |
if (isset($_GET['consultation']) && $_GET['consultation'] == 'avancee') {
|
|
|
106 |
global $str, $art, $fasc, $coll, $book, $media;
|
|
|
107 |
global $arg_0, $arg_1, $arg_2, $arg_3;
|
|
|
108 |
$morceau_url_commun = '&consultation=avancee&arg_0='.$arg_0.'&arg_1='.$arg_1.'&arg_2='.$arg_2.'&arg_3='.$arg_3;
|
|
|
109 |
$class_onglet_str = 'onglet_inactif';
|
|
|
110 |
$class_onglet_coll = 'onglet_inactif';
|
|
|
111 |
$class_onglet_livre = 'onglet_inactif';
|
|
|
112 |
$class_onglet_media = 'onglet_inactif';
|
|
|
113 |
$class_onglet_retour = 'onglet_inactif';
|
|
|
114 |
|
|
|
115 |
if ($str != '') {
|
|
|
116 |
$structure = $str;
|
|
|
117 |
$class_onglet_str = 'onglet_actif';
|
|
|
118 |
} else if ($coll != '') {
|
|
|
119 |
$structure = $coll;
|
|
|
120 |
$class_onglet_coll = 'onglet_actif';
|
|
|
121 |
}else if ($book != '') {
|
|
|
122 |
$structure = $book;
|
|
|
123 |
$class_onglet_livre = 'onglet_actif';
|
|
|
124 |
} else if ($media != '') {
|
|
|
125 |
$structure = $media;
|
|
|
126 |
$class_onglet_media = 'onglet_actif';
|
|
|
127 |
} else {
|
|
|
128 |
$decoupage_arg = explode('=', $arg_0);
|
|
|
129 |
$structure = $decoupage_arg[1];
|
|
|
130 |
if (!empty($art) || !empty($fasc) ) {
|
|
|
131 |
$class_onglet_coll = 'onglet_actif';
|
|
|
132 |
}
|
|
|
133 |
}
|
|
|
134 |
$sortie = '<ul>'."\n";
|
|
|
135 |
$sortie .= ' <li class="'.$class_onglet_str.'">'.
|
|
|
136 |
'<a href="'.BB_URL_COURANTE_CONSULTATION.'&str='.$structure.$morceau_url_commun.'">'.
|
|
|
137 |
'Organisme'.
|
|
|
138 |
'</a>'."\n".
|
|
|
139 |
' </li>'."\n";
|
|
|
140 |
$sortie .= ' <li class="'.$class_onglet_coll.'">'.
|
|
|
141 |
'<a href="'.BB_URL_COURANTE_CONSULTATION.'&coll='.$structure.$morceau_url_commun.'">'.
|
|
|
142 |
'Périodique'.
|
|
|
143 |
'</a>'."\n".
|
|
|
144 |
' </li>'."\n";
|
|
|
145 |
$sortie .= ' <li class="'.$class_onglet_livre.'">'.
|
|
|
146 |
'<a href="'.BB_URL_COURANTE_CONSULTATION.'&book='.$structure.$morceau_url_commun.'">'.
|
|
|
147 |
'Livres'.
|
|
|
148 |
'</a>'."\n".
|
|
|
149 |
' </li>'."\n";
|
|
|
150 |
$sortie .= ' <li class="'.$class_onglet_media.'">'.
|
|
|
151 |
'<a href="'.BB_URL_COURANTE_CONSULTATION.'&media='.$structure.$morceau_url_commun.'">'.
|
|
|
152 |
'Média'.
|
|
|
153 |
'</a>'."\n".
|
|
|
154 |
' </li>'."\n";
|
|
|
155 |
$sortie .= ' <li class="'.$class_onglet_retour.'"><a href="'.BB_URL_COURANTE.'">'.'Retour à la recherche'.'</a></li>'."\n";
|
|
|
156 |
$sortie .= '</ul>'."\n";
|
|
|
157 |
}
|
|
|
158 |
|
|
|
159 |
return $sortie;
|
|
|
160 |
}
|
|
|
161 |
|
|
|
162 |
/** Fonction afficherContenuCorps() - Fonction appelé par le gestionnaire Papyrus.
|
|
|
163 |
*
|
|
|
164 |
* Elle retourne le contenu de l'application.
|
|
|
165 |
*
|
|
|
166 |
* @return string du code XHTML correspondant au contenu renvoyé par l'application.
|
|
|
167 |
*/
|
|
|
168 |
function afficherContenuCorps()
|
|
|
169 |
{
|
| 16 |
jp_milcent |
170 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
171 |
// Initialisation de la base de données
|
| 15 |
jp_milcent |
172 |
$bdd_id = mysql_connect(BB_BDD_SERVEUR, BB_BDD_UTILISATEUR, BB_BDD_MOT_DE_PASSE, true) or die("Impossible de se connecter à la base de données: " . mysql_error());
|
|
|
173 |
mysql_select_db(BB_BDD_NOM, $bdd_id);
|
| 16 |
jp_milcent |
174 |
|
|
|
175 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
176 |
// Initialisation des variables
|
| 2 |
jp_milcent |
177 |
global $_GEN_commun;
|
|
|
178 |
$sortie = '';
|
|
|
179 |
if (!defined('BB_ARGUMENT_AUTH') || BB_ARGUMENT_AUTH == 0 || (BB_ARGUMENT_AUTH == 1 && $GLOBALS['_GEN_commun']['pear_auth']->getAuth())) {
|
|
|
180 |
// Nous recherchons quelle type d'objet le moteur BiblioBota doit rechercher:
|
|
|
181 |
switch (BB_ARGUMENT_OBJET) {
|
|
|
182 |
case 'lien':
|
|
|
183 |
// Liens de sites web
|
|
|
184 |
$GLOBALS['moteur_biblio']['id_field'] = 'B_L_IDLINK';
|
|
|
185 |
$GLOBALS['moteur_biblio']['defaut_sort'] = 'B_L_TITRE';
|
|
|
186 |
break;
|
|
|
187 |
case 'structure':
|
|
|
188 |
// Organismes ou structures botaniques
|
|
|
189 |
$GLOBALS['moteur_biblio']['id_field'] = 'B_S_IDSTR';
|
|
|
190 |
$GLOBALS['moteur_biblio']['defaut_sort'] = 'B_S_NOM';
|
|
|
191 |
break;
|
|
|
192 |
case 'media':
|
|
|
193 |
// Articles, livres et média
|
|
|
194 |
$GLOBALS['moteur_biblio']['id_field'] = 'B_I_IDITEM';
|
|
|
195 |
$GLOBALS['moteur_biblio']['defaut_sort'] = 'B_I_AUTEURS';
|
|
|
196 |
break;
|
|
|
197 |
default:
|
|
|
198 |
// Par défaut : Articles, livres et média
|
|
|
199 |
$GLOBALS['moteur_biblio']['id_field'] = 'B_I_IDITEM';
|
|
|
200 |
$GLOBALS['moteur_biblio']['defaut_sort'] = 'B_I_AUTEURS';
|
|
|
201 |
}
|
|
|
202 |
|
|
|
203 |
// Nous incluons l'application demandée :
|
|
|
204 |
$chemin_application = BB_CHEMIN_APPLI.BB_ARGUMENT_APPLI.GEN_SEP.BB_ARGUMENT_APPLI.'.php';
|
|
|
205 |
if (file_exists($chemin_application)) {
|
|
|
206 |
include_once $chemin_application;
|
|
|
207 |
} else {
|
|
|
208 |
$sortie = '<p class="pap_erreur">'.'Application inexistantes!'.'</p>';
|
|
|
209 |
}
|
|
|
210 |
} elseif (BB_ARGUMENT_AUTH == 1) {
|
|
|
211 |
return GEN_afficherInfoIdentification($baseURL);
|
|
|
212 |
} else {
|
|
|
213 |
$sortie = '<p class="pap_erreur">'.
|
|
|
214 |
'ERREUR : problème!'.'<br />'.
|
|
|
215 |
'LIGNE : '.__LINE__.'<br />'.
|
|
|
216 |
'FICHIER : '.__FILE__.
|
|
|
217 |
'</p>';
|
|
|
218 |
}
|
| 16 |
jp_milcent |
219 |
|
|
|
220 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
221 |
// Fermeture de la connection à la base de données
|
| 15 |
jp_milcent |
222 |
mysql_close($bdd_id);
|
|
|
223 |
|
| 2 |
jp_milcent |
224 |
return remplaceEntiteHTLM($sortie);
|
|
|
225 |
}
|
|
|
226 |
|
|
|
227 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
228 |
// | PIED du PROGRAMME |
|
|
|
229 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
230 |
|
|
|
231 |
|
|
|
232 |
/* +--Fin du code ----------------------------------------------------------------------------------------+
|
|
|
233 |
*
|
|
|
234 |
* $Log: not supported by cvs2svn $
|
| 16 |
jp_milcent |
235 |
* Revision 1.2 2006/09/22 08:36:12 jp_milcent
|
|
|
236 |
* Utilisation de mysql_connect et mysql_select_db suite à disfonctionnement.
|
|
|
237 |
* Amélioration de la gestion des chemins des fichiers inclus.
|
|
|
238 |
*
|
| 15 |
jp_milcent |
239 |
* Revision 1.1 2005/11/23 10:22:25 jp_milcent
|
|
|
240 |
* Ajout au dépot de l'application BiblioBota.
|
|
|
241 |
* Elle doit à terme migrer dans eFlore.
|
|
|
242 |
*
|
| 2 |
jp_milcent |
243 |
* Revision 1.9 2005/05/17 10:10:08 jpm
|
|
|
244 |
* Correction des bogues avant mise en ligne du site v4.
|
|
|
245 |
*
|
|
|
246 |
* Revision 1.8 2005/03/02 17:48:48 jpm
|
|
|
247 |
* Changement d'un commentaire.
|
|
|
248 |
*
|
|
|
249 |
* Revision 1.7 2005/03/02 10:32:12 jpm
|
|
|
250 |
* Modification commentaires et inclusion fichier config url.
|
|
|
251 |
*
|
|
|
252 |
* Revision 1.6 2005/03/01 15:18:10 jpm
|
|
|
253 |
* Modification de l'utilisation d'une variable globale.
|
|
|
254 |
*
|
|
|
255 |
* Revision 1.5 2004/09/16 12:09:44 jpm
|
|
|
256 |
* Modification de l'affichage des onglets.
|
|
|
257 |
*
|
|
|
258 |
* Revision 1.4 2004/09/15 12:16:02 jpm
|
|
|
259 |
* Suppresion du code spécifique au moteur annuaire.
|
|
|
260 |
*
|
|
|
261 |
* Revision 1.3 2004/09/11 11:59:18 jpm
|
|
|
262 |
* Transfert du contenu du fichierbb_aiguillage.inc.php directement dans ce fichier.
|
|
|
263 |
*
|
|
|
264 |
* Revision 1.2 2004/09/10 18:39:44 jpm
|
|
|
265 |
* Gestion des onglets.
|
|
|
266 |
*
|
|
|
267 |
* Revision 1.1 2004/09/10 09:45:09 jpm
|
|
|
268 |
* Ajout des fichiers BiblioBota configurer pour Papyrus.
|
|
|
269 |
*
|
|
|
270 |
*
|
|
|
271 |
* +-- Fin du code ----------------------------------------------------------------------------------------+
|
|
|
272 |
*/
|
|
|
273 |
?>
|