Rev 15 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
<?php/*vim: set expandtab tabstop=4 shiftwidth=4: */// +------------------------------------------------------------------------------------------------------+// | PHP version 4.1 |// +------------------------------------------------------------------------------------------------------+// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |// +------------------------------------------------------------------------------------------------------+// | This file is part of Biblio Bota. |// | |// | Foobar is free software; you can redistribute it and/or modify |// | it under the terms of the GNU General Public License as published by |// | the Free Software Foundation; either version 2 of the License, or |// | (at your option) any later version. |// | |// | Foobar is distributed in the hope that it will be useful, |// | but WITHOUT ANY WARRANTY; without even the implied warranty of |// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |// | GNU General Public License for more details. |// | |// | You should have received a copy of the GNU General Public License |// | along with Foobar; if not, write to the Free Software |// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |// +------------------------------------------------------------------------------------------------------+// CVS : $Id: biblio_bota.php,v 1.3 2006-09-22 09:18:56 jp_milcent Exp $/*** Appli Biblio Bota** Cette application permet de consulter et d'administrer l'ensemble des données comprise dans le modèle* de Biblio Bota :* - articles botaniques* - livres et média botaniques* - sites web* - organismes liés à la botanique* Ce fichier permet d'appeler les fichiers partagés par l'ensemble des applications de BiblioBota.* Il permet aussi d'appeler les fichiers de chaque application spécifique et de vérifier s'il y a besoin* que l'utilisateur soit identifié ou pas.* Il joue le role de controlleur.**@package BiblioBota//Auteur original :*@author Jean-Charles GRANGER <tela@vecteur.org>//Autres auteurs :*@author Jean-Pascal MILCENT <jpm@clapas.org>*@copyright Tela-Botanica 2000-2004*@version $Revision: 1.3 $ $Date: 2006-09-22 09:18:56 $// +------------------------------------------------------------------------------------------------------+*/// +------------------------------------------------------------------------------------------------------+// | ENTETE du PROGRAMME |// +------------------------------------------------------------------------------------------------------+/** Inclusion du fichier de configuration de la base de données de BiblioBota.*/require_once GEN_CHEMIN_CLIENT.'biblio_bota/configuration/bb_config_bdd.inc.php';/** Inclusion du fichier de configuration général de BiblioBota.*/require_once GEN_CHEMIN_CLIENT.'biblio_bota/configuration/bb_config.inc.php';/** Inclusion de l'API Fragmenteur */require_once BB_CHEMIN_API.'fragmenteur/FRAG_fragmenteur.fonct.php';/** Inclusion de l'API Date */require_once BB_CHEMIN_API.'date/DAT_date.fonct.php';/** Inclusion de l'API VoirAussi */require_once BB_CHEMIN_API.'voiraussi/VA_VoirAussi.class.php';/** Inclusion de l'API Débogage */require_once BB_CHEMIN_API.'debogage/BOG_sql.fonct.php';/** Inclusion de la bibliothèque de fonctions communes aux applications de BiblioBota */require_once BB_CHEMIN_BIBLIO.'bb_commun.fonct.php';/** Inclusion de la classe PEAR d'abstraction de base de donnée. */require_once BB_CHEMIN_API_PEAR.'DB.php';/** Inclusion de la classe PEAR de gestion des URL. */require_once BB_CHEMIN_API_PEAR.'Net/URL.php';/** Inclusion du fichier de configuration des url de BiblioBota.*/require_once BB_CHEMIN_CONFIG.'bb_config_url.inc.php';/** Definition de la variable globale stokant la connexion à la base de données. */$GLOBALS['db_bb']= DB::connect(BB_DSN);// Stockage des styles de l'applicationGEN_stockerStyleExterne('biblio_bota_consultation', BB_CHEMIN_STYLES.'bb_standard.css');// Appel du fichier de traduction des textes de l'application Biblio Botaif (file_exists(BB_CHEMIN_LANGUES.'bb_langue_'.BB_URL_I18N.'.inc.php')) {/** Inclusion du fichier de traduction de l'application Biblio Bota. */include_once BB_CHEMIN_LANGUES.'bb_langue_'.BB_URL_I18N.'.inc.php';} else {/** Inclusion du fichier de traduction fr par défaut. */include_once BB_CHEMIN_LANGUES.'bb_langue_fr.inc.php';}// +------------------------------------------------------------------------------------------------------+// | CORPS du PROGRAMME |// +------------------------------------------------------------------------------------------------------+/** Fonction afficherContenuNavigation() - Fonction appelé par le gestionnaire Papyrus.** Elle retourne les onglets de l'application Biblio Bota.* Todo : Il serait nécessaire de revoir les arguments passés dans les liens. Il y a* surement moyen de simplifier les choses.** @return string du code XHTML correspondant à la zone de navigation de l'application.*/function afficherContenuNavigation(){$sortie = '';// Dans le cas où nous sommes passé en consultation avancée...if (isset($_GET['consultation']) && $_GET['consultation'] == 'avancee') {global $str, $art, $fasc, $coll, $book, $media;global $arg_0, $arg_1, $arg_2, $arg_3;$morceau_url_commun = '&consultation=avancee&arg_0='.$arg_0.'&arg_1='.$arg_1.'&arg_2='.$arg_2.'&arg_3='.$arg_3;$class_onglet_str = 'onglet_inactif';$class_onglet_coll = 'onglet_inactif';$class_onglet_livre = 'onglet_inactif';$class_onglet_media = 'onglet_inactif';$class_onglet_retour = 'onglet_inactif';if ($str != '') {$structure = $str;$class_onglet_str = 'onglet_actif';} else if ($coll != '') {$structure = $coll;$class_onglet_coll = 'onglet_actif';}else if ($book != '') {$structure = $book;$class_onglet_livre = 'onglet_actif';} else if ($media != '') {$structure = $media;$class_onglet_media = 'onglet_actif';} else {$decoupage_arg = explode('=', $arg_0);$structure = $decoupage_arg[1];if (!empty($art) || !empty($fasc) ) {$class_onglet_coll = 'onglet_actif';}}$sortie = '<ul>'."\n";$sortie .= ' <li class="'.$class_onglet_str.'">'.'<a href="'.BB_URL_COURANTE_CONSULTATION.'&str='.$structure.$morceau_url_commun.'">'.'Organisme'.'</a>'."\n".' </li>'."\n";$sortie .= ' <li class="'.$class_onglet_coll.'">'.'<a href="'.BB_URL_COURANTE_CONSULTATION.'&coll='.$structure.$morceau_url_commun.'">'.'Périodique'.'</a>'."\n".' </li>'."\n";$sortie .= ' <li class="'.$class_onglet_livre.'">'.'<a href="'.BB_URL_COURANTE_CONSULTATION.'&book='.$structure.$morceau_url_commun.'">'.'Livres'.'</a>'."\n".' </li>'."\n";$sortie .= ' <li class="'.$class_onglet_media.'">'.'<a href="'.BB_URL_COURANTE_CONSULTATION.'&media='.$structure.$morceau_url_commun.'">'.'Média'.'</a>'."\n".' </li>'."\n";$sortie .= ' <li class="'.$class_onglet_retour.'"><a href="'.BB_URL_COURANTE.'">'.'Retour à la recherche'.'</a></li>'."\n";$sortie .= '</ul>'."\n";}return $sortie;}/** Fonction afficherContenuCorps() - Fonction appelé par le gestionnaire Papyrus.** Elle retourne le contenu de l'application.** @return string du code XHTML correspondant au contenu renvoyé par l'application.*/function afficherContenuCorps(){// +------------------------------------------------------------------------------------------------------+// Initialisation de la base de données$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());mysql_select_db(BB_BDD_NOM, $bdd_id);// +------------------------------------------------------------------------------------------------------+// Initialisation des variablesglobal $_GEN_commun;$sortie = '';if (!defined('BB_ARGUMENT_AUTH') || BB_ARGUMENT_AUTH == 0 || (BB_ARGUMENT_AUTH == 1 && $GLOBALS['_GEN_commun']['pear_auth']->getAuth())) {// Nous recherchons quelle type d'objet le moteur BiblioBota doit rechercher:switch (BB_ARGUMENT_OBJET) {case 'lien':// Liens de sites web$GLOBALS['moteur_biblio']['id_field'] = 'B_L_IDLINK';$GLOBALS['moteur_biblio']['defaut_sort'] = 'B_L_TITRE';break;case 'structure':// Organismes ou structures botaniques$GLOBALS['moteur_biblio']['id_field'] = 'B_S_IDSTR';$GLOBALS['moteur_biblio']['defaut_sort'] = 'B_S_NOM';break;case 'media':// Articles, livres et média$GLOBALS['moteur_biblio']['id_field'] = 'B_I_IDITEM';$GLOBALS['moteur_biblio']['defaut_sort'] = 'B_I_AUTEURS';break;default:// Par défaut : Articles, livres et média$GLOBALS['moteur_biblio']['id_field'] = 'B_I_IDITEM';$GLOBALS['moteur_biblio']['defaut_sort'] = 'B_I_AUTEURS';}// Nous incluons l'application demandée :$chemin_application = BB_CHEMIN_APPLI.BB_ARGUMENT_APPLI.GEN_SEP.BB_ARGUMENT_APPLI.'.php';if (file_exists($chemin_application)) {include_once $chemin_application;} else {$sortie = '<p class="pap_erreur">'.'Application inexistantes!'.'</p>';}} elseif (BB_ARGUMENT_AUTH == 1) {return GEN_afficherInfoIdentification($baseURL);} else {$sortie = '<p class="pap_erreur">'.'ERREUR : problème!'.'<br />'.'LIGNE : '.__LINE__.'<br />'.'FICHIER : '.__FILE__.'</p>';}// +------------------------------------------------------------------------------------------------------+// Fermeture de la connection à la base de donnéesmysql_close($bdd_id);return remplaceEntiteHTLM($sortie);}// +------------------------------------------------------------------------------------------------------+// | PIED du PROGRAMME |// +------------------------------------------------------------------------------------------------------+/* +--Fin du code ----------------------------------------------------------------------------------------+** $Log: not supported by cvs2svn $* Revision 1.2 2006/09/22 08:36:12 jp_milcent* Utilisation de mysql_connect et mysql_select_db suite à disfonctionnement.* Amélioration de la gestion des chemins des fichiers inclus.** Revision 1.1 2005/11/23 10:22:25 jp_milcent* Ajout au dépot de l'application BiblioBota.* Elle doit à terme migrer dans eFlore.** Revision 1.9 2005/05/17 10:10:08 jpm* Correction des bogues avant mise en ligne du site v4.** Revision 1.8 2005/03/02 17:48:48 jpm* Changement d'un commentaire.** Revision 1.7 2005/03/02 10:32:12 jpm* Modification commentaires et inclusion fichier config url.** Revision 1.6 2005/03/01 15:18:10 jpm* Modification de l'utilisation d'une variable globale.** Revision 1.5 2004/09/16 12:09:44 jpm* Modification de l'affichage des onglets.** Revision 1.4 2004/09/15 12:16:02 jpm* Suppresion du code spécifique au moteur annuaire.** Revision 1.3 2004/09/11 11:59:18 jpm* Transfert du contenu du fichierbb_aiguillage.inc.php directement dans ce fichier.** Revision 1.2 2004/09/10 18:39:44 jpm* Gestion des onglets.** Revision 1.1 2004/09/10 09:45:09 jpm* Ajout des fichiers BiblioBota configurer pour Papyrus.*** +-- Fin du code ----------------------------------------------------------------------------------------+*/?>