Subversion Repositories eFlore/Applications.bibliobota

Rev

Rev 16 | 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) 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
// +------------------------------------------------------------------------------------------------------+
30 mathias 24
// CVS : $Id: biblio_bota.php,v 1.2 2006/09/22 08:36:12 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
30 mathias 45
*@version       $Revision: 1.2 $ $Date: 2006/09/22 08:36:12 $
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 = '&amp;consultation=avancee&amp;arg_0='.$arg_0.'&amp;arg_1='.$arg_1.'&amp;arg_2='.$arg_2.'&amp;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.'&amp;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.'&amp;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.'&amp;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.'&amp;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
{
15 jp_milcent 170
    $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());
171
    mysql_select_db(BB_BDD_NOM, $bdd_id);
30 mathias 172
 
2 jp_milcent 173
    global $_GEN_commun;
174
    $sortie = '';
175
    if (!defined('BB_ARGUMENT_AUTH') || BB_ARGUMENT_AUTH == 0 || (BB_ARGUMENT_AUTH == 1 && $GLOBALS['_GEN_commun']['pear_auth']->getAuth())) {
176
        // Nous recherchons quelle type d'objet le moteur BiblioBota doit rechercher:
177
        switch (BB_ARGUMENT_OBJET) {
178
            case 'lien':
179
                // Liens de sites web
180
                $GLOBALS['moteur_biblio']['id_field'] = 'B_L_IDLINK';
181
                $GLOBALS['moteur_biblio']['defaut_sort'] = 'B_L_TITRE';
182
            break;
183
            case 'structure':
184
                // Organismes ou structures botaniques
185
                $GLOBALS['moteur_biblio']['id_field'] = 'B_S_IDSTR';
186
                $GLOBALS['moteur_biblio']['defaut_sort'] = 'B_S_NOM';
187
            break;
188
            case 'media':
189
                // Articles, livres et média
190
                $GLOBALS['moteur_biblio']['id_field'] = 'B_I_IDITEM';
191
                $GLOBALS['moteur_biblio']['defaut_sort'] = 'B_I_AUTEURS';
192
            break;
193
            default:
194
                // Par défaut : Articles, livres et média
195
                $GLOBALS['moteur_biblio']['id_field'] = 'B_I_IDITEM';
196
                $GLOBALS['moteur_biblio']['defaut_sort'] = 'B_I_AUTEURS';
197
        }
198
 
199
        // Nous incluons l'application demandée :
200
        $chemin_application = BB_CHEMIN_APPLI.BB_ARGUMENT_APPLI.GEN_SEP.BB_ARGUMENT_APPLI.'.php';
201
        if (file_exists($chemin_application)) {
202
            include_once $chemin_application;
203
        } else {
204
            $sortie =   '<p class="pap_erreur">'.'Application inexistantes!'.'</p>';
205
        }
206
    } elseif (BB_ARGUMENT_AUTH == 1) {
207
        return GEN_afficherInfoIdentification($baseURL);
208
    } else {
209
        $sortie =   '<p class="pap_erreur">'.
210
                        'ERREUR : problème!'.'<br />'.
211
                        'LIGNE : '.__LINE__.'<br />'.
212
                        'FICHIER : '.__FILE__.
213
                    '</p>';
214
    }
30 mathias 215
 
15 jp_milcent 216
    mysql_close($bdd_id);
217
 
2 jp_milcent 218
    return remplaceEntiteHTLM($sortie);
219
}
220
 
221
// +------------------------------------------------------------------------------------------------------+
222
// |                                            PIED du PROGRAMME                                         |
223
// +------------------------------------------------------------------------------------------------------+
224
 
225
 
226
/* +--Fin du code ----------------------------------------------------------------------------------------+
227
*
30 mathias 228
* $Log: biblio_bota.php,v $
16 jp_milcent 229
* Revision 1.2  2006/09/22 08:36:12  jp_milcent
230
* Utilisation de mysql_connect et mysql_select_db suite à disfonctionnement.
231
* Amélioration de la gestion des chemins des fichiers inclus.
232
*
15 jp_milcent 233
* Revision 1.1  2005/11/23 10:22:25  jp_milcent
234
* Ajout au dépot de l'application BiblioBota.
235
* Elle doit à terme migrer dans eFlore.
236
*
2 jp_milcent 237
* Revision 1.9  2005/05/17 10:10:08  jpm
238
* Correction des bogues avant mise en ligne du site v4.
239
*
240
* Revision 1.8  2005/03/02 17:48:48  jpm
241
* Changement d'un commentaire.
242
*
243
* Revision 1.7  2005/03/02 10:32:12  jpm
244
* Modification commentaires et inclusion fichier config url.
245
*
246
* Revision 1.6  2005/03/01 15:18:10  jpm
247
* Modification de l'utilisation d'une variable globale.
248
*
249
* Revision 1.5  2004/09/16 12:09:44  jpm
250
* Modification de l'affichage des onglets.
251
*
252
* Revision 1.4  2004/09/15 12:16:02  jpm
253
* Suppresion du code spécifique au moteur annuaire.
254
*
255
* Revision 1.3  2004/09/11 11:59:18  jpm
256
* Transfert du contenu du fichierbb_aiguillage.inc.php directement dans ce fichier.
257
*
258
* Revision 1.2  2004/09/10 18:39:44  jpm
259
* Gestion des onglets.
260
*
261
* Revision 1.1  2004/09/10 09:45:09  jpm
262
* Ajout des fichiers BiblioBota configurer pour Papyrus.
263
*
264
*
265
* +-- Fin du code ----------------------------------------------------------------------------------------+
266
*/
267
?>