WebSVN – eFlore/Archives.herbiers – Diff – /trunk/herbier.php

 // |                                                                                                      |
 // | 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: herbier.php,v 1.3 2006-10-30 18:57:17 jp_milcent Exp $
+// CVS : $Id: herbier.php,v 1.4 2006-10-31 10:31:36 jp_milcent Exp $
 /**
 * Application Herbier
+*
 * Cette application permet de consulter et d'administrer des collection botanique comprise dans le modèle
 * d'Herbier.
 //Auteur original :
 *@author        Alexandre GRANIER <alexandre@tela-botanica.org>
 //Autres auteurs :
 *@author        Jean-Pascal MILCENT <jpm@clapas.org>
 *@copyright     Tela-Botanica 2000-2005
-*@version       $Revision: 1.3 $ $Date: 2006-10-30 18:57:17 $
+*@version       $Revision: 1.4 $ $Date: 2006-10-31 10:31:36 $
 // +------------------------------------------------------------------------------------------------------+
 */
 // +------------------------------------------------------------------------------------------------------+
 require_once HB_CHEMIN_BIBLIO.'hb_commun.fonct.php';
 /** Inclusion de la classe PEAR d'abstraction de base de donnée. */
 require_once HB_CHEMIN_API_PEAR.'DB.php';
 /** Inclusion de la classe PEAR de gestion des URL. */
 require_once HB_CHEMIN_API_PEAR.'Net'.GEN_SEP.'URL.php';
+// Création de l'objet URL si nous hors de Papyrus
+if (!defined('PAP_VERSION')) {
+	$GLOBALS['_GEN_commun']['url'] = new Net_URL('http://'.$_SERVER['HTTP_HOST'].$_SERVER['PHP_SELF']);
+}
 /** Inclusion du fichier de configuration des url de BiblioBota.*/
 require_once HB_CHEMIN_CONFIG.'hb_config_url.inc.php';
 /** Definition de la variable globale stokant la connexion à la base de données. */
 $GLOBALS['_HERBIER_']['bdd'] =& DB::connect(HB_DSN);
 if (DB::isError($GLOBALS['_HERBIER_']['bdd'])) {
     die (BOG_afficherErreurSql(__FILE__, __LINE__, mysql_error(), null, $GLOBALS['_HERBIER_']['bdd']->getMessage()));
 }
+// Stockage des styles de l'application si nous sommes dans Papyrus
+if (defined('PAP_VERSION')) {
-// Stockage des styles de l'application
+	GEN_stockerStyleExterne('herbier', HB_CHEMIN_STYLES.'herbier.css');
 GEN_stockerStyleExterne('herbier', HB_CHEMIN_STYLES.'herbier.css');
 // Appel du fichier de traduction des textes de l'application Herbier
     // +------------------------------------------------------------------------------------------------------+
     // Initialisation des variables
     $sortie = '';
     if (!defined('HB_ARGUMENT_AUTH') || HB_ARGUMENT_AUTH == 0 || (HB_ARGUMENT_AUTH == 1 && $GLOBALS['_HERBIER_']['auth']->getAuth())) {
         // Nous incluons l'application demandée :
-        $chemin_application = HB_CHEMIN_APPLI.HB_ARGUMENT_APPLI.GEN_SEP.HB_ARGUMENT_APPLI.'.menu.php';
+        $chemin_application = HB_CHEMIN_MODULE.HB_ARGUMENT_APPLI.GEN_SEP.HB_ARGUMENT_APPLI.'.menu.php';
         if (file_exists($chemin_application)) {
             include_once $chemin_application;
+        }
+    }
     // +------------------------------------------------------------------------------------------------------+
     // Initialisation des variables
     $sortie = '';
     if (!defined('HB_ARGUMENT_AUTH') || HB_ARGUMENT_AUTH == 0 || (HB_ARGUMENT_AUTH == 1 && $GLOBALS['_HERBIER_']['auth']->getAuth())) {
         // Nous incluons l'application demandée :
-        $chemin_application = HB_CHEMIN_APPLI.HB_ARGUMENT_APPLI.GEN_SEP.HB_ARGUMENT_APPLI.'.php';
+        $chemin_application = HB_CHEMIN_MODULE.HB_ARGUMENT_APPLI.GEN_SEP.HB_ARGUMENT_APPLI.'.php';
         if (file_exists($chemin_application)) {
             include_once $chemin_application;
         } else {
-            $sortie = '<p class="pap_erreur">'.'Application inexistantes!'.'</p>';
+            $sortie = 	'<p class="pap_erreur">'.
+						'Application inexistantes!'.'<br />'.
+						'Fichier : '.$chemin_application.
+						'</p>';
+        }
     } elseif (HB_ARGUMENT_AUTH == 1) {
         return GEN_afficherInfoIdentification($GLOBALS['_HERBIER_']['url']->getURL());
     } else {
         $sortie =   '<p class="pap_erreur">'.
 /* +--Fin du code ----------------------------------------------------------------------------------------+
+*
+* $Log: not supported by cvs2svn $
+* Revision 1.3  2006/10/30 18:57:17  jp_milcent
 * Début gestion des flux rss.
 * $Log: not supported by cvs2svn $
 * Revision 1.2  2006/09/22 09:19:28  jp_milcent
 * Utilisation de mysql_connect et mysql_select_db suite à disfonctionnement.
 * Amélioration de la gestion des chemins des fichiers inclus.

Subversion Repositories eFlore/Archives.herbiers

(root)/trunk/herbier.php – Rev 6 → 8