WebSVN – Applications.papyrus – Diff – /trunk/papyrus/pap_initialise_info.inc.php

 // | You should have received a copy of the GNU Lesser General Public                                     |
 // | License along with this library; if not, write to the Free Software                                  |
 // | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
 // |                                                                                                      |
 // +------------------------------------------------------------------------------------------------------+
-// CVS : $Id: pap_initialise_info.inc.php,v 1.9 2004-10-15 18:29:19 jpm Exp $
+// CVS : $Id: pap_initialise_info.inc.php,v 1.10 2004-10-22 17:23:59 jpm Exp $
 /**
 *Initialisation de Papyrus : vérification et récupération de paramètres généraux.
+*
 * La page contient le code initialisant l'éxecution du rendu d'une page par Papyrus.
 * Nous y trouvons la recherche des informations disponibles sur :
 *@author            Laurent COUDOUNEAU <laurent.coudouneau@ema.fr>
 //Autres auteurs :
 *@author            Alexandre GRANIER <alex@tela-botanica.org>
 *@author            Jean-Pascal MILCENT <jpm@tela-botanica.org>
 *@copyright         Tela-Botanica 2000-2004
-*@version           $Revision: 1.9 $ $Date: 2004-10-15 18:29:19 $
+*@version           $Revision: 1.10 $ $Date: 2004-10-22 17:23:59 $
 // +------------------------------------------------------------------------------------------------------+
 */
 // +------------------------------------------------------------------------------------------------------+
         die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );
+    }
     // Aucun site trouvé
+    if ($resultat->numRows() == 0) {
-    if ($resultat->numRows() == 0) {
+        // Appel à l'application Installateur si nécessaire
+        /** <br> Inclusion du programme Installateur de Papyrus.
+        * L'abscence de site oblige à relancer l'installation et le script sql qui regénèrera la base de données.*/
-        die( 'ERREUR Génésia : impossible de trouver de sites.<br />'.
+        include_once GEN_CHEMIN_APPLICATION.'installateur/installateur.php';
-                    'Ligne n° : '. __LINE__ .'<br />'.
+        $_GEN_commun['sortie'] = afficherContenuCorps();
+        include_once GEN_CHEMIN_PAP.'pap_envoi.inc.php';
+        // Fin du programme Papyrus.
-                    'Fichier n° : '. __FILE__ .'<br />');
+        exit(0);
+    }
     // Nous avons trouvé un site.
     $_GEN_commun['info_site'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
     $resultat->free();
     $resultat->free();
+}
 //Gestion de l'erreur aucun site trouvable.
+if (! isset($_GEN_commun['info_site'])) {
-if (! isset($_GEN_commun['info_site'])) {
+    // Appel à l'application Installateur si nécessaire
+    /** <br> Inclusion du programme Installateur de Papyrus.
+    * L'abscence de site oblige à relancer l'installation et le script sql qui regénèrera la base de données.*/
-    die('ERREUR Génésia : impossible de trouver les informations du site.<br />'.
+    include_once GEN_CHEMIN_APPLICATION.'installateur/installateur.php';
-        'Site : '.$_GEN_commun['url_site'].'<br />'.
+    $_GEN_commun['sortie'] .= afficherContenuCorps();
-        'Ligne n° : '. __LINE__ .'<br />'.
+    include_once GEN_CHEMIN_PAP.'pap_envoi.inc.php';
+    // Fin du programme Papyrus.
-        'Fichier n° : '. __FILE__ .'<br />');
+    exit(0);
+}
 // +------------------------------------------------------------------------------------------------------+
     $_GEN_commun['info_menu'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
     $resultat->free();
+}
 if (empty($_GEN_commun['url_menu'])) {
-    die('ERREUR Génésia : identifiant de menu introuvable. <br />'.
-        'Ligne n° : '. __LINE__ .'<br />'.
-        'Fichier : '. __FILE__ );
+    trigger_error ('identifiant de menu introuvable', E_USER_NOTICE);
+}
 // +------------------------------------------------------------------------------------------------------+
 // Gestion de l'application du menu demandé.
 // Recherche de la première application liée
+if (isset($_GEN_commun['info_menu']->gm_id_menu)) {
-// Recherche de la première application liée
+    $info_appli_menu = GEN_donnerIdPremiereApplicationLiee($_GEN_commun['info_menu']->gm_id_menu);
-$info_appli_menu = GEN_donnerIdPremiereApplicationLiee($_GEN_commun['info_menu']->gm_id_menu);
+    if (is_array($info_appli_menu)) {
-$id_application = $info_appli_menu['gm_ce_application'];
+        $id_application = $info_appli_menu['gm_ce_application'];
-$id_menu_actif = $info_appli_menu['gm_id_menu'];
+        $id_menu_actif = $info_appli_menu['gm_id_menu'];
-(DB::isError($resultat_applicaton))
+        (DB::isError($resultat_applicaton))
-    ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_applicaton->getMessage(), $requete_applicaton))
+            ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_applicaton->getMessage(), $requete_applicaton))
-    : '';
+            : '';
-$_GEN_commun['info_application'] = $resultat_applicaton->fetchRow(DB_FETCHMODE_OBJECT) ;
         $_GEN_commun['info_application'] = $resultat_applicaton->fetchRow(DB_FETCHMODE_OBJECT) ;
-$resultat_applicaton->free() ;
+        $resultat_applicaton->free();
+    }
-// Gestion des erreurs sur la recherche de l'application liée.
-if ( empty($_GEN_commun['info_application']) ) {
+    // Gestion des erreurs sur la recherche de l'application liée.
-    die('ERREUR Génésia : application de la page demandée introuvable. <br />'.
+    trigger_error ('application du menu demandée introuvable', E_USER_NOTICE);
-        'Page : '.$page_id.'<br />'.
+} else if ( empty($_GEN_commun['info_application']) ) {
-        'Ligne n° : '. __LINE__ . '<br />'.
+    // Gestion des erreurs sur la recherche de l'application liée.
-        'Fichier : '. __FILE__ . '<br />');
+    trigger_error ('application du menu demandée introuvable', E_USER_NOTICE);
+}
+// +------------------------------------------------------------------------------------------------------+
-// +------------------------------------------------------------------------------------------------------+
+// Gestion des arguments de l'application
 // Gestion des arguments de l'application
 if (isset($_GEN_commun['info_menu']->gm_application_arguments)) {
-$arguments = explode(' ', $_GEN_commun['info_menu']->gm_application_arguments);
+    $arguments = explode(' ', $_GEN_commun['info_menu']->gm_application_arguments);
+            }
-    } else if ($attr[0] != '') {
+        } else if ($attr[0] != '') {
-        $_GEN_commun['info_application']->$attr[0] = (isset($attr[1]) ? $attr[1] : '');
+            $_GEN_commun['info_application']->$attr[0] = (isset($attr[1]) ? $attr[1] : '');
+        }
+    }
+}
 // +------------------------------------------------------------------------------------------------------+
 // Gestion des applettes
 // +------------------------------------------------------------------------------------------------------+
 // Gestion de l'objet URL
+$_GEN_commun['url'] = & new Net_URL('http://'.$_SERVER['HTTP_HOST'].$_SERVER['PHP_SELF']);
+if ( (isset($_GEN_commun['url_site'])) && (!empty($_GEN_commun['url_site'])) ) {
+    $_GEN_commun['url']->addQueryString(GEN_URL_CLE_SITE, $_GEN_commun['url_site']);
+}
 $_GEN_commun['url'] = & new Net_URL('http://'.$_SERVER['HTTP_HOST'].$_SERVER['PHP_SELF']);
+if ( (isset($_GEN_commun['url_menu'])) && (!empty($_GEN_commun['url_menu'])) ) {
-$_GEN_commun['url']->addQueryString(GEN_URL_CLE_SITE, $_GEN_commun['url_site']);
+    $_GEN_commun['url']->addQueryString(GEN_URL_CLE_MENU, $_GEN_commun['url_menu']);
 $_GEN_commun['url']->addQueryString(GEN_URL_CLE_MENU, $_GEN_commun['url_menu']);
     $_GEN_commun['url']->addQueryString(GEN_URL_CLE_DATE, $_GEN_commun['url_format']);
+}
 /* +--Fin du code ---------------------------------------------------------------------------------------+
+* $Log: not supported by cvs2svn $
+* Revision 1.9  2004/10/15 18:29:19  jpm
+* Modif pour gérer l'appli installateur de Papyrus.
 * $Log: not supported by cvs2svn $
 * Revision 1.8  2004/09/23 14:30:53  jpm
 * Correction bogue sur les menus.
+*
 * Revision 1.7  2004/09/23 10:46:46  jpm

Subversion Repositories Applications.papyrus

(root)/trunk/papyrus/pap_initialise_info.inc.php – Rev 67 → 93