Subversion Repositories eFlore/Applications.bibliobota

Rev

Rev 15 | Go to most recent revision | Details | 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
// +------------------------------------------------------------------------------------------------------+
24
// CVS : $Id: biblio_bota.php,v 1.1 2005-11-23 10:22:25 jp_milcent Exp $
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
45
*@version       $Revision: 1.1 $ $Date: 2005-11-23 10:22:25 $
46
// +------------------------------------------------------------------------------------------------------+
47
*/
48
 
49
// +------------------------------------------------------------------------------------------------------+
50
// |                                            ENTETE du PROGRAMME                                       |
51
// +------------------------------------------------------------------------------------------------------+
52
/** Inclusion du fichier de configuration de la base de données de BiblioBota.*/
53
require_once 'client/biblio_bota/configuration/bb_config_bdd.inc.php';
54
/** Inclusion du fichier de configuration général de BiblioBota.*/
55
require_once 'client/biblio_bota/configuration/bb_config.inc.php';
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. */
68
require_once 'DB.php';
69
/** Inclusion de la classe PEAR de gestion des URL. */
70
require_once 'Net/URL.php';
71
/** Inclusion du fichier de configuration des url de BiblioBota.*/
72
require_once 'client/biblio_bota/configuration/bb_config_url.inc.php';
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
{
170
    global $_GEN_commun;
171
    $sortie = '';
172
    if (!defined('BB_ARGUMENT_AUTH') || BB_ARGUMENT_AUTH == 0 || (BB_ARGUMENT_AUTH == 1 && $GLOBALS['_GEN_commun']['pear_auth']->getAuth())) {
173
        // Nous recherchons quelle type d'objet le moteur BiblioBota doit rechercher:
174
        switch (BB_ARGUMENT_OBJET) {
175
            case 'lien':
176
                // Liens de sites web
177
                $GLOBALS['moteur_biblio']['id_field'] = 'B_L_IDLINK';
178
                $GLOBALS['moteur_biblio']['defaut_sort'] = 'B_L_TITRE';
179
            break;
180
            case 'structure':
181
                // Organismes ou structures botaniques
182
                $GLOBALS['moteur_biblio']['id_field'] = 'B_S_IDSTR';
183
                $GLOBALS['moteur_biblio']['defaut_sort'] = 'B_S_NOM';
184
            break;
185
            case 'media':
186
                // Articles, livres et média
187
                $GLOBALS['moteur_biblio']['id_field'] = 'B_I_IDITEM';
188
                $GLOBALS['moteur_biblio']['defaut_sort'] = 'B_I_AUTEURS';
189
            break;
190
            default:
191
                // Par défaut : Articles, livres et média
192
                $GLOBALS['moteur_biblio']['id_field'] = 'B_I_IDITEM';
193
                $GLOBALS['moteur_biblio']['defaut_sort'] = 'B_I_AUTEURS';
194
        }
195
 
196
        // Nous incluons l'application demandée :
197
        $chemin_application = BB_CHEMIN_APPLI.BB_ARGUMENT_APPLI.GEN_SEP.BB_ARGUMENT_APPLI.'.php';
198
        if (file_exists($chemin_application)) {
199
            include_once $chemin_application;
200
        } else {
201
            $sortie =   '<p class="pap_erreur">'.'Application inexistantes!'.'</p>';
202
        }
203
    } elseif (BB_ARGUMENT_AUTH == 1) {
204
        return GEN_afficherInfoIdentification($baseURL);
205
    } else {
206
        $sortie =   '<p class="pap_erreur">'.
207
                        'ERREUR : problème!'.'<br />'.
208
                        'LIGNE : '.__LINE__.'<br />'.
209
                        'FICHIER : '.__FILE__.
210
                    '</p>';
211
    }
212
    return remplaceEntiteHTLM($sortie);
213
}
214
 
215
// +------------------------------------------------------------------------------------------------------+
216
// |                                            PIED du PROGRAMME                                         |
217
// +------------------------------------------------------------------------------------------------------+
218
 
219
 
220
/* +--Fin du code ----------------------------------------------------------------------------------------+
221
*
222
* $Log: not supported by cvs2svn $
223
* Revision 1.9  2005/05/17 10:10:08  jpm
224
* Correction des bogues avant mise en ligne du site v4.
225
*
226
* Revision 1.8  2005/03/02 17:48:48  jpm
227
* Changement d'un commentaire.
228
*
229
* Revision 1.7  2005/03/02 10:32:12  jpm
230
* Modification commentaires et inclusion fichier config url.
231
*
232
* Revision 1.6  2005/03/01 15:18:10  jpm
233
* Modification de l'utilisation d'une variable globale.
234
*
235
* Revision 1.5  2004/09/16 12:09:44  jpm
236
* Modification de l'affichage des onglets.
237
*
238
* Revision 1.4  2004/09/15 12:16:02  jpm
239
* Suppresion du code spécifique au moteur annuaire.
240
*
241
* Revision 1.3  2004/09/11 11:59:18  jpm
242
* Transfert du contenu du fichierbb_aiguillage.inc.php directement dans ce fichier.
243
*
244
* Revision 1.2  2004/09/10 18:39:44  jpm
245
* Gestion des onglets.
246
*
247
* Revision 1.1  2004/09/10 09:45:09  jpm
248
* Ajout des fichiers BiblioBota configurer pour Papyrus.
249
*
250
*
251
* +-- Fin du code ----------------------------------------------------------------------------------------+
252
*/
253
?>