Subversion Repositories eFlore/Applications.bibliobota

Compare Revisions

Ignore whitespace Rev 1 → Rev 2

/trunk/biblio_bota.php
New file
0,0 → 1,253
<?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.1 2005-11-23 10:22:25 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.1 $ $Date: 2005-11-23 10:22:25 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Inclusion du fichier de configuration de la base de données de BiblioBota.*/
require_once 'client/biblio_bota/configuration/bb_config_bdd.inc.php';
/** Inclusion du fichier de configuration général de BiblioBota.*/
require_once '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 'DB.php';
/** Inclusion de la classe PEAR de gestion des URL. */
require_once 'Net/URL.php';
/** Inclusion du fichier de configuration des url de BiblioBota.*/
require_once 'client/biblio_bota/configuration/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'application
GEN_stockerStyleExterne('biblio_bota_consultation', BB_CHEMIN_STYLES.'bb_standard.css');
 
// Appel du fichier de traduction des textes de l'application Biblio Bota
if (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 = '&amp;consultation=avancee&amp;arg_0='.$arg_0.'&amp;arg_1='.$arg_1.'&amp;arg_2='.$arg_2.'&amp;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.'&amp;str='.$structure.$morceau_url_commun.'">'.
'Organisme'.
'</a>'."\n".
' </li>'."\n";
$sortie .= ' <li class="'.$class_onglet_coll.'">'.
'<a href="'.BB_URL_COURANTE_CONSULTATION.'&amp;coll='.$structure.$morceau_url_commun.'">'.
'Périodique'.
'</a>'."\n".
' </li>'."\n";
$sortie .= ' <li class="'.$class_onglet_livre.'">'.
'<a href="'.BB_URL_COURANTE_CONSULTATION.'&amp;book='.$structure.$morceau_url_commun.'">'.
'Livres'.
'</a>'."\n".
' </li>'."\n";
$sortie .= ' <li class="'.$class_onglet_media.'">'.
'<a href="'.BB_URL_COURANTE_CONSULTATION.'&amp;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()
{
global $_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>';
}
return remplaceEntiteHTLM($sortie);
}
 
// +------------------------------------------------------------------------------------------------------+
// | PIED du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* 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 ----------------------------------------------------------------------------------------+
*/
?>