Subversion Repositories Applications.papyrus

<?php

//vim: set expandtab tabstop=4 shiftwidth=4:

// +------------------------------------------------------------------------------------------------------+

// | PHP version 4.1                                                                                      |

// +------------------------------------------------------------------------------------------------------+

// | Copyright (C) 2001 COUDOUNEAU Laurent (lc@gsite.org)                                                 |

// | Copyright (C) 2003 Tela Botanica (accueil@tela-botanica.org)                                         |

// +------------------------------------------------------------------------------------------------------+

// |                                                                                                      |

// | This library is free software; you can redistribute it and/or                                        |

// | modify it under the terms of the GNU Lesser General Public                                           |

// | License as published by the Free Software Foundation; either                                         |

// | version 2.1 of the License, or (at your option) any later version.                                   |

// |                                                                                                      |

// | This library 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                                    |

// | Lesser General Public License for more details.                                                      |

// |                                                                                                      |

// | 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.15 2004-12-06 12:12:28 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 :

* - le site présent sur le serveur demandé,

* - l'identification,

* - la langue,

* - le menu,

* - la page

* - l'application

*

*@package Papyrus

//Auteur original :

*@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.15 $ $Date: 2004-12-06 12:12:28 $

// +------------------------------------------------------------------------------------------------------+

*/

// +------------------------------------------------------------------------------------------------------+

// |                                            ENTÊTE du PROGRAMME                                       |

// +------------------------------------------------------------------------------------------------------+

/** <br> Inclusion de la bibliothèque de fonctions servant à l'initialisation des variables globales de Papyrus. */

require_once GEN_CHEMIN_BIBLIO.'pap_initialisation.fonct.php';

/** <br> Inclusion de l'objet PEAR servant à négocier le language avec le navigateur client. */

require_once 'HTTP.php';

/** <br> Inclusion de la classe PEAR gérant les URL.

* Utilisé pour l'url demandée par le client.

*/

require_once 'Net/URL.php';

// +------------------------------------------------------------------------------------------------------+

// |                                            CORPS du PROGRAMME                                        |

// +------------------------------------------------------------------------------------------------------+

// +------------------------------------------------------------------------------------------------------+

// Gestion des sites : disponiblent sur le serveur courant.

// Liste des catégories de site à prendre en compte :

$site_liste_id = '102, 103';// 102 = site "principal" et 103 = site "externe"

if ( (! isset($_GET[GEN_URL_CLE_SITE]) || empty($_GET[GEN_URL_CLE_SITE])) && (! isset($_GET[GEN_URL_CLE_MENU]) || empty($_GET[GEN_URL_CLE_MENU])) ) {

    $requete =  'SELECT gen_site.*, GSR02.* '.

                'FROM gen_site, gen_site_relation AS GSR01, gen_site_relation AS GSR02 '.

                'WHERE GSR01.gsr_id_site_01 = GSR01.gsr_id_site_02 '.

                'AND GSR01.gsr_id_valeur = 101 '.// 101 = site défaut

                'AND GSR01.gsr_id_site_01 = gs_id_site '.

                'AND GSR02.gsr_id_site_01 = GSR02.gsr_id_site_02 '.

                'AND GSR02.gsr_id_valeur IN ('.$site_liste_id.') '.

                'AND GSR02.gsr_id_site_01 = gs_id_site';

    $resultat = $db->query($requete);

    if (DB::isError($resultat)) {

        die( BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete) );

    }

    // Aucun site trouvé

    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.*/

        include_once GEN_CHEMIN_APPLICATION.'installateur/installateur.php';

        $_GEN_commun['sortie'] = afficherContenuCorps();

        include_once GEN_CHEMIN_PAP.'pap_envoi.inc.php';

        // Fin du programme Papyrus.

        exit(0);

    }

    // Nous avons trouvé un site.

    $_GEN_commun['info_site'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);

    $resultat->free();

    if (GEN_URL_ID_TYPE_SITE == 'int') {

        $_GEN_commun['url_site'] = $_GEN_commun['info_site']->gs_code_num;

    } else {

        $_GEN_commun['url_site'] = $_GEN_commun['info_site']->gs_code_alpha;

    }

} else if ( (! isset($_GET[GEN_URL_CLE_SITE]) || empty($_GET[GEN_URL_CLE_SITE])) && (isset($_GET[GEN_URL_CLE_MENU]) || !empty($_GET[GEN_URL_CLE_MENU])) ) {

    // Le code du menu est présent dans l'url mais pas celui du site

    // Nous récupérons les infos du menu et du sites dans la variable globale de Papyrus.

    $_GEN_commun['url_menu'] = $_GET[GEN_URL_CLE_MENU];

    // Récupération des informations sur le menu demandé

    $requete =  'SELECT * '.

                'FROM gen_menu '.

                'WHERE ';

    $requete .= (GEN_URL_ID_TYPE_MENU == 'int')

        ? 'gm_code_num = '.$_GEN_commun['url_menu']

        : 'gm_code_alpha = "'.$_GEN_commun['url_menu'].'"';

    $resultat = $db->query($requete);

    (DB::isError($resultat))

        ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete))

        : '';

    $_GEN_commun['info_menu'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);

    $resultat->free();

    if ($_GEN_commun['info_menu']->gm_ce_site != 0) {

        // Récupération des infos du site

        $requete =  'SELECT * '.

                    'FROM gen_site, gen_site_relation '.

                    'WHERE gsr_id_site_01 = gsr_id_site_02 '.

                    'AND gsr_id_valeur IN ('.$site_liste_id.') '.

                    'AND gsr_id_site_01 = gs_id_site '.

                    'AND gs_id_site = '. $_GEN_commun['info_menu']->gm_ce_site;

        $resultat = $db->query($requete);

        (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';

        $_GEN_commun['info_site'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);

        $_GEN_commun['url_site'] = (GEN_URL_ID_TYPE_SITE == 'int')

            ? $_GEN_commun['info_site']->gs_code_num

            : $_GEN_commun['info_site']->gs_code_alpha;

        $resultat->free();

    } else {

        // Récupération des infos du site

        $requete =  'SELECT * '.

                    'FROM gen_site, gen_site_relation '.

                    'WHERE gsr_id_site_01 = gsr_id_site_02 '.

                    'AND gsr_id_valeur = 101 '.

                    'AND gsr_id_site_01 = gs_id_site ';

        $resultat = $db->query($requete);

        (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';

        $_GEN_commun['info_site'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);

        $_GEN_commun['url_site'] = (GEN_URL_ID_TYPE_SITE == 'int')

            ? $_GEN_commun['info_site']->gs_code_num

            : $_GEN_commun['info_site']->gs_code_alpha;

        $resultat->free();

    }

} else {

    // Récupération de la valeur identifiant le site depuis l'url

    $_GEN_commun['url_site'] = $_GET[GEN_URL_CLE_SITE];

    // Récupération des informations sur le site

    $requete =  'SELECT * '.

                'FROM gen_site, gen_site_relation '.

                'WHERE gsr_id_site_01 = gsr_id_site_02 '.

                'AND gsr_id_valeur IN ('.$site_liste_id.') '.

                'AND gsr_id_site_01 = gs_id_site '.

                'AND ';

    $requete .= (GEN_URL_ID_TYPE_SITE == 'int')

        ? 'gs_code_num = '.$_GEN_commun['url_site']

        : 'gs_code_alpha = "'.$_GEN_commun['url_site'].'"';

    $resultat = $db->query($requete);

    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';

    $_GEN_commun['info_site'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);

    $resultat->free();

}

//Gestion de l'erreur aucun site trouvable.

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.*/

    include_once GEN_CHEMIN_APPLICATION.'installateur/installateur.php';

    $_GEN_commun['sortie'] .= afficherContenuCorps();

    include_once GEN_CHEMIN_PAP.'pap_envoi.inc.php';

    // Fin du programme Papyrus.

    exit(0);

} else if ($_GEN_commun['info_site']->gsr_id_valeur == 103) {

    // Gestion de la redirection pour les sites "externes"

    header('Location:'.$_GEN_commun['info_site']->gs_url);

    exit(0);

}

// +------------------------------------------------------------------------------------------------------+

// Gestion de l'internationalisation du site

// Nous recherchons la valeur de l'internationalisation du site passée dans l'url ou présente

// dans le navigateur du client. Si nous trouvons pas la langue dans l'url, récupération depuis

// le navigateur et comparaison aux langues disponibles pour le site demandé.

// Initialisation de variable :

$i18n = '';

// Nous recherchons les internationalisations disponibles pour le site demandé.

// Si un site possède une traduction, il peut alors posséder des menus traduits.

$requete =  'SELECT gs_ce_i18n '.

            'FROM gen_site, gen_site_relation '.

            'WHERE gsr_id_site_01 = '.$_GEN_commun['info_site']->gs_id_site.' '.

            'AND gsr_id_site_02 = gs_id_site '.

            'AND gsr_id_valeur = 1 '.

            'ORDER BY gsr_ordre';

$resultat = $db->query($requete);

(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';

// Récupération de la première valeur de langue d'un site.

$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);

if (! $ligne) {

    // Pas de traduction pour le site: nous regardons si le site possede une valeur d'i18n.

    if (! empty($_GEN_commun['info_site']->gs_ce_i18n) ) {

        $i18n_possible = array($_GEN_commun['info_site']->gs_ce_i18n => true);

    } else {

        // Sinon utilisation de la valeur par défaut définit dans le fichier de config.

        $i18n_possible = array(GEN_I18N_ID_DEFAUT => true);

    }

    // Utilisation de la fonction statique de Pear HTTP pour négocier cette i18n.

    $i18n = HTTP::negotiateLanguage($i18n_possible, GEN_I18N_ID_DEFAUT);

} else {

    // La première traduction du site

    // peut être utilisé comme valeur par défaut.

    $i18n_site_url = $ligne->gs_ce_i18n;

    // Stockage des valeurs de l'i18n dans un tableau

    $aso_i18n_site = array();

    $aso_i18n_site[$_GEN_commun['info_site']->gs_ce_i18n] = true;

    $aso_i18n_site[$ligne->gs_ce_i18n] = true;

    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {

        $aso_i18n_site[$ligne->gs_ce_i18n] = true;

    }

    $resultat->free();

    // Utilisation de la fonction statique de Pear HTTP pour négocier cette i18n.

    $i18n = HTTP::negotiateLanguage($aso_i18n_site, $i18n_site_url);

}

// Nous stockons la valeur trouvé pour l'url demandée dans la variable globale de Génésia.

$_GEN_commun['i18n'] = $i18n;

// Recherche de la présence de la valeur d'i18n dans l'url

if ( (! isset($_GET[GEN_URL_CLE_I18N])) || (empty($_GET[GEN_URL_CLE_I18N])) ) {

    $_GEN_commun['url_i18n'] = '';

} else {

    // L'i18n est trouvé dans l'url, nous écrasons donc la valeur i18n.

    $_GEN_commun['url_i18n'] = $_GET[GEN_URL_CLE_I18N];

    $_GEN_commun['i18n'] = $_GEN_commun['url_i18n'];

}

// Nous récupérons des informations sur l'internationalisation

$requete =  'SELECT * '.

            'FROM gen_i18n '.

            'WHERE gi_id_i18n = "'.$_GEN_commun['i18n'].'"';

$resultat = $db->query($requete);

(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';

$_GEN_commun['info_i18n'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);

$resultat->free();

//Gestion de l'erreur aucune internationalisation trouvable.

if (empty($_GEN_commun['i18n'])) {

    die('ERREUR Génésia : valeur internationalisation introuvable. <br />'.

        'Ligne n° : '. __LINE__ .'<br />'.

        'Fichier : '. __FILE__ );

}

// Récupération des informations sur la langue

$requete =  'SELECT * '.

            'FROM gen_i18n_langue '.

            'WHERE gil_id_langue = "'.$_GEN_commun['info_i18n']->gi_ce_langue.'"';

$resultat = $db->query($requete);

(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';

$_GEN_commun['info_i18n_langue'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);

$resultat->free();

// Récupération des informations sur le pays

$requete =  'SELECT * '.

            'FROM gen_i18n_pays '.

            'WHERE gip_id_pays = "'.$_GEN_commun['info_i18n']->gi_ce_pays.'"';

$resultat = $db->query($requete);

(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';

$_GEN_commun['info_i18n_pays'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);

$resultat->free();

// +------------------------------------------------------------------------------------------------------+

// Gestion des menus

// Nous vérifions le cas où le code du menu est introuvable dans l'url.

if ( (! isset($_GET[GEN_URL_CLE_MENU])) || (empty($_GET[GEN_URL_CLE_MENU])) ) {

    // Recherche du premier menu du site courant:

    $requete =  'SELECT gen_menu.* '.

                'FROM gen_menu, gen_menu_relation '.

                'WHERE gm_ce_site = '.$_GEN_commun['info_site']->gs_id_site.' '.

                'AND gmr_id_menu_01 = gm_id_menu '.

                'AND gmr_id_menu_01 = gmr_id_menu_02 '.

                'AND gmr_id_valeur = 101 ';// 101 = menu par "defaut"

    $resultat = $db->query($requete);

    (DB::isError($resultat))

        ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete))

        : '';

    // Nous avons trouvé un menu "défaut" pour le site courant.

    $_GEN_commun['info_menu'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);

    $resultat->free();

    // Stockage du code du menu demandée dans la variable globale de Papyrus.

    if (GEN_URL_ID_TYPE_MENU == 'int') {

        $_GEN_commun['url_menu'] = $_GEN_commun['info_menu']->gm_code_num;

    } else {

        $_GEN_commun['url_menu'] = $_GEN_commun['info_menu']->gm_code_alpha;

    }

} else if (! isset($_GET['url_menu']) && empty($_GEN_commun['url_menu'])) {

    // Le code du menu est présent dans l'url et il n'a pas encore été récupéré

    // Nous le récupérons dans la variable globale de Papyrus.

    $_GEN_commun['url_menu'] = $_GET[GEN_URL_CLE_MENU];

    // Récupération des informations sur le menu demandé

    $requete = 'SELECT * '.

                'FROM gen_menu '.

                'WHERE ';

    $requete .= (GEN_URL_ID_TYPE_MENU == 'int')

        ? 'gm_code_num = '.$_GEN_commun['url_menu']

        : 'gm_code_alpha = "'.$_GEN_commun['url_menu'].'"';

    $resultat = $db->query($requete);

    (DB::isError($resultat))

        ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete))

        : '';

    $_GEN_commun['info_menu'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);

    $resultat->free();

}

if (empty($_GEN_commun['url_menu'])) {

    trigger_error ('identifiant de menu introuvable', E_USER_NOTICE);

}

// +------------------------------------------------------------------------------------------------------+

// Gestion des traductions

// Si le résultat de la négociation de l'internationalisation donne une langue différente

//  de celle du site principal, nous récupérons les éventuelles valeurs traduite pour le site.

if ($_GEN_commun['i18n'] != $_GEN_commun['info_site']->gs_ce_i18n) {

    // Récupération des informations sur la traduction du site

    $requete =  'SELECT * '.

                'FROM gen_site '.

                'WHERE gs_ce_i18n = "'.$_GEN_commun['i18n'].'" '.

                'AND gs_code_alpha = "'.$_GEN_commun['info_site']->gs_code_alpha.'"';

    $resultat = $db->query($requete);

    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';

    // Nous crééons l'entrée 'traduction_info_site' dans _GEN_commun que si nous avons bien trouvé une

    // traduction pour le site. Il faut donc tester l'existence de cette entrée avant de l'utiliser.

    if ($resultat->numRows() > 0) {

        $_GEN_commun['traduction_info_site'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);

    }

    $resultat->free();

}

// Si le résultat de la négociation de l'internationalisation donne une langue différente

//  de celle du menu, nous récupérons les éventuelles valeurs traduite pour le menu.

if ($_GEN_commun['i18n'] != $_GEN_commun['info_menu']->gm_ce_i18n) {

    // Récupération des informations sur la traduction du menu

    $requete =  'SELECT * '.

                'FROM gen_menu '.

                'WHERE gm_ce_i18n = "'.$_GEN_commun['i18n'].'" '.

                'AND gm_code_alpha = "'.$_GEN_commun['info_menu']->gm_code_alpha.'"';

    $resultat = $db->query($requete);

    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';

    // Nous crééons l'entrée 'traduction_info_menu' dans _GEN_commun que si nous avons bien trouvé une

    // traduction pour le menu. Il faut donc tester l'existence de cette entrée avant de l'utiliser.

    if ($resultat->numRows() > 0) {

        $_GEN_commun['traduction_info_menu'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);

    }

    $resultat->free();

}

// +------------------------------------------------------------------------------------------------------+

// Gestion de l'application du menu demandé.

// Recherche de la première application liée

if (isset($_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_menu_actif = $info_appli_menu['gm_id_menu'];

        // Si le menu n'a pas d'application lié, on recalcule l'objet $_GEN_commun['info_menu']

        if ($id_menu_actif != $_GEN_commun['info_menu']->gm_id_menu) {

            $requete =  'SELECT gen_menu.* '.

                        'FROM gen_menu '.

                        'WHERE gm_id_menu = '.$id_menu_actif;

            $resultat = $db->query($requete);

            (DB::isError($resultat))

                ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete))

                : '';

            // Nous avons trouvé un menu "défaut" pour le site courant.

            $_GEN_commun['info_menu'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);

            $resultat->free();

        }

        // Recherche des informations sur l'application liée

        $requete_applicaton =   'SELECT * '.

                                'FROM gen_application '.

                                'WHERE gap_id_application = '.$id_application;

        $resultat_applicaton = $db->query($requete_applicaton);

        (DB::isError($resultat_applicaton))

            ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_applicaton->getMessage(), $requete_applicaton))

            : '';

        $_GEN_commun['info_application'] = $resultat_applicaton->fetchRow(DB_FETCHMODE_OBJECT) ;

        $resultat_applicaton->free();

    } else {

        // Gestion des erreurs sur la recherche de l'application liée.

        trigger_error('application du menu demandée introuvable', E_USER_NOTICE);

    }

} else if ( empty($_GEN_commun['info_application']) ) {

    // Gestion des erreurs sur la recherche de l'application liée.

    trigger_error('application du menu demandée introuvable', E_USER_NOTICE);

}

// +------------------------------------------------------------------------------------------------------+

// Gestion des arguments de l'application

if (isset($_GEN_commun['info_menu']->gm_application_arguments)) {

    $arguments = explode(' ', $_GEN_commun['info_menu']->gm_application_arguments);

    // Initialisaton de la variable globale $GS_ARGUMENTS

    $_GEN_commun['info_application']->cache = false;

    $_GEN_commun['info_application']->cache_duree = 0;

    for ($i = 0; $i < count($arguments); $i++) {

        $attr = explode('=', $arguments[$i]);

        if ($attr[0] == 'cache_duree') {

            $_GEN_commun['info_application']->cache_duree = $attr[1];

            if ($_GEN_commun['info_application']->cache_duree > 0) {

                $_GEN_commun['info_application']->cache = true;

            }

        } else if ($attr[0] != '') {

            $_GEN_commun['info_application']->$attr[0] = (isset($attr[1]) ? $attr[1] : '');

        }

    }

}

// +------------------------------------------------------------------------------------------------------+

// Gestion des applettes

$requete =  'SELECT * '.

            'FROM gen_application '.

            'WHERE gap_bool_applette = 1 ';

$resultat = $_GEN_commun['pear_db']->query($requete);

(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';

$_GEN_commun['info_applette'] = array();

$i = 0;

while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {

    $_GEN_commun['info_applette'][$i] = $ligne;

    $i++;

}

$resultat->free();

// +------------------------------------------------------------------------------------------------------+

// 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']);

}

if ( (isset($_GEN_commun['url_menu'])) && (!empty($_GEN_commun['url_menu'])) ) {

    $_GEN_commun['url']->addQueryString(GEN_URL_CLE_MENU, $_GEN_commun['url_menu']);

}

if ( (isset($_GEN_commun['url_i18n'])) && (!empty($_GEN_commun['url_i18n'])) ) {

    $_GEN_commun['url']->addQueryString(GEN_URL_CLE_I18N, $_GEN_commun['url_i18n']);

}

if ( (isset($_GET[GEN_URL_CLE_DATE])) && (!empty($_GET[GEN_URL_CLE_DATE])) ) {

    $_GEN_commun['url_date'] = $_GET[GEN_URL_CLE_DATE];

    $_GEN_commun['url']->addQueryString(GEN_URL_CLE_DATE, $_GEN_commun['url_date']);

}

if ( (isset($_GET[GEN_URL_CLE_FORMAT])) && (!empty($_GET[GEN_URL_CLE_FORMAT])) ) {

    $_GEN_commun['url_format'] = $_GET[GEN_URL_CLE_FORMAT];

    $_GEN_commun['url']->addQueryString(GEN_URL_CLE_DATE, $_GEN_commun['url_format']);

}

/* +--Fin du code ---------------------------------------------------------------------------------------+

* $Log: not supported by cvs2svn $

* Revision 1.14  2004/11/15 17:14:09  jpm

* Gestion des url avec seulement le code d'un menu.

*

* Revision 1.13  2004/11/03 17:14:38  jpm

* Gestion des sites externes.

*

* Revision 1.12  2004/10/26 18:42:21  jpm

* Gestion des sites externes.

*

* Revision 1.11  2004/10/25 16:28:47  jpm

* Ajout de nouvelles balises Papyrus, ajout vérification mise à jour de Papyrus, meilleure gestion des sessions...

*

* Revision 1.10  2004/10/22 17:23:59  jpm

* Début amélioration de la gestion des erreurs et de l'installation.

*

* Revision 1.9  2004/10/15 18:29:19  jpm

* Modif pour gérer l'appli installateur de Papyrus.

*

* 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

* Amélioration de la gestion du menu actif quand un menu n'a pas d'application liée.

*

* Revision 1.6  2004/09/10 16:38:34  jpm

* Ajout de l'initialisation d'une variable stockant les infos de débogage.

*

* Revision 1.5  2004/06/30 07:35:16  jpm

* Correction d'un bogue du à une mauvaise gestion de la résolution des conflits entre fichier CVS.

*

* Revision 1.4  2004/06/30 07:25:37  jpm

* Ajout d'un commentaire.

*

* Revision 1.3  2004/06/18 15:52:45  alex

* Actualisation de la variable $_GEN_commun['info_menu'] lorsque un menu n'a pas d'application lié

*

* Revision 1.2  2004/06/17 07:03:01  jpm

* Correction d'un bogue concernant l'internationalisation par défaut quand la langue du navigateur ne correspond pas à celle du site.

*

* Revision 1.1  2004/06/16 08:13:20  jpm

* Changement de nom de Génésia en Papyrus.

* Changement de l'arborescence.

*

* Revision 1.24  2004/05/05 14:33:37  jpm

* Gestion de l'indication de langue dans l'url.

* Utile que si on veut forcer la langue.

*

* Revision 1.23  2004/05/05 10:42:35  jpm

* Amélioration de la gestion de l'internationalisation.

*

* Revision 1.22  2004/05/04 16:17:05  jpm

* Légère amélioration du code (libération de ressource).

 de ressource).

*

* Revision 1.21  2004/05/03 11:21:58  jpm

* Fin de la gestion des applettes et suppression de l'info_menu_hierarchie de _GEN_commun.

* Ajout de la récupération d'une info sur la hiérarchie.

* Surement à supprimer car inutile.

* Ajout de la récupération d'une info sur la hiérarchie.

* Surement à supprimer car inutile.

* Changement du modèle de la base de données.

* Revision 1.19  2004/04/28 12:04:31  jpm

* Changement du modèle de la base de données.

*

* Revision 1.18  2004/04/22 08:28:12  jpm

* Transformation de $GS_GLOBAL en $_GEN_commun.

*

* Revision 1.17  2004/04/09 16:43:32  jpm

* Suppression d'un blanc.

* Récupération de la création de l'objet URL.

* Revision 1.16  2004/04/09 16:20:11  jpm

* Récupération de la création de l'objet URL.

* Gestion des tables i18n.

* Utilisation de la classe Pear HTTP pour la négociation du langage à utiliser pour le site.

* Revision 1.15  2004/04/05 16:37:43  jpm

* Utilisation de la classe Pear HTTP pour la négociation du langage à utiliser pour le site.

* Déplacement dans le fichier gen_initialisation_pear.inc.php de la création des objets Pear Net_URL et Auth.

* Revision 1.14  2004/04/02 16:29:30  jpm

* Déplacement dans le fichier gen_initialisation_pear.inc.php de la création des objets Pear Net_URL et Auth.

*

* Revision 1.13  2004/04/01 11:27:13  jpm

* Ajout et modification de commentaires pour PhpDocumentor.

* Prise en compte du nouveau modèle de Génésia révision 1.9.

* Revision 1.12  2004/03/31 16:50:04  jpm

* Prise en compte du nouveau modèle de Papyrus révision 1.9.

* Déplacement des fonctions de gestion d'erreur dans la bibliotheque de l'application Installateur.

* Modification des commentaires vis à vis du nouveau modèle.

* Déplacement des fonctions de gestion d'erreur dans la bibliotheque de l'application Installateur.

* Suppression de l'attribution d'une configuration par défaut.

* Changement et simplification des noms des variables globales.

* Traduction en français de certaines variables et partie de code.

* Remplacement de variable par des constante provenant du fichier de configuration.

* Traduction en français de certaines variables et partie de code.

* Mise en forme requête sql.

* Revision 1.10  2004/03/24 07:20:03  jpm

* Mise en forme requête sql.

* Ajout de commentaire dans l'entête.

* Mise en conformité avec la convention de codage.

* Ajout de commentaire dans l'entête.

* Mise en conformité avec la convention de codage.

*

* Revision 1.8  2004/03/23 16:31:54  jpm

* Ajout du code provenant de gen_noyau.inc.php.

* Ajout, formatage et traduction des commentaires.

*

* Amélioration de la conformité avec la convention de codage.

* Changement requête sql pour le nouveau modèle de Génésia.

* Amélioration de la conformité avec la convention de codage.

* Changement requête sql pour le nouveau modèle de Papyrus.

*

* Correction des requêtes sql pour mise en conformité avec le nouveau modèle de Génésia et la convention de codage.

* Ajout de commentaires et mise en forme.

* Correction des requêtes sql pour mise en conformité avec le nouveau modèle de Papyrus et la convention de codage.

*

* Revision 1.5  2003/12/16 16:57:59  alex

* mise à jour pour compatibilité avec genesia

* Ajout de commentaires et début de mise en conformité

* Revision 1.4  2003/11/24 16:05:02  jpm

* Ajout de commentaires et début de mise en conformité

* avec la convention de codage.

*

*

* +--Fin du code ----------------------------------------------------------------------------------------+

*/

?>