Subversion Repositories Applications.papyrus

<?php

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

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

// | PHP version 4.0                                                                               |

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

// | Copyright (c) 1997, 1998, 1999, 2000, 2001 The PHP Group                                      |

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

// | This source file is subject to version 2.0 of the PHP license,                                |

// | that is bundled with this package in the file LICENSE, and is                                 |

// | available at through the world-wide-web at                                                    |

// | http://www.php.net/license/2_02.txt.                                                          |

// | If you did not receive a copy of the PHP license and are unable to                            |

// | obtain it through the world-wide-web, please send a note to                                   |

// | license@php.net so we can mail you a copy immediately.                                        |

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

/**

*

*Page permettant l'affichage des informations de cartographie des inscrits

*

*@package cartographie

//Auteur original :

*@author                Alexandre GRANIER <alexandre@tela-botanica.org>

//Autres auteurs :

*@copyright         Tela-Botanica 2000-2004

*@version             03 mai 2004

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

//

// $Id: cartographie.php,v 1.2 2005-07-04 22:13:02 ddelon Exp $

// FICHIER : $RCSfile: cartographie.php,v $

// AUTEUR    : $Author: ddelon $

// VERSION : $Revision: 1.2 $

// DATE        : $Date: 2005-07-04 22:13:02 $

*/

include_once 'client/cartographie/configuration/car_config.inc.php' ;

if (isset($lang)) {

    include_once CAR_CHEMIN_APPLI."/langues/car_langue_$lang.inc.php" ;

} else {

    include_once CAR_CHEMIN_APPLI.'/langues/car_langue_fr.inc.php' ;

}

include_once CAR_CHEMIN_APPLI.'/bibliotheque/lib.carto.php' ;

include_once CAR_CHEMIN_APPLI.'/bibliotheque/car_cartographie.fonct.php' ;

include_once 'HTML/QuickForm.php' ;

// Ajout d'une feuille de style externe

GEN_stockerStyleExterne ('cartographie', 'client/cartographie/cartographie.css') ;

if (isset($GLOBALS['logout']) && $GLOBALS['logout']==1) {

    $GLOBALS['car_auth']->logout();

}

//================================================================================================

//================================================================================================

function AUTH_formulaire_login() {

     // l'url de la page en cours

    $url = CAR_URL;

    $res = '';

    $form = new HTML_QuickForm ('inscription', 'post', preg_replace ('/&/', '&', $url).'&historique_cartes='.$GLOBALS['historique_cartes'].'&fin=true') ;

    $form->addElement ('text', 'username', CAR_EMAIL) ;

    $form->addElement ('password', 'password', CAR_MOT_DE_PASSE) ;

    $form->addElement('submit', 'connexion', CAR_VALIDER);

    $res .= $form->toHTML() ;

    $res .= "<div>".CAR_LAIUS_INSCRIPTION."&nbsp;<a href=\"\">".CAR_S_INSCRIRE."</a></div>\n" ;

    $res .= "<div>".CAR_TEXTE_PERDU."</div>\n" ;

    return $res;

}

function afficherContenuCorps ()

{

    global $image_x;

    global $image_y;

    global $historique_cartes;

    global $mailer;

    global $fin;

    global $sendpwd;//utilisé dans liste_inscrit.php

    global $select;//utilisé dans liste_inscrit.php

    global $liste_zone_carte;

    //===========================================================================================================

    $requete_01 =

        "SELECT CP_ID_Continent,count(cp_id_continent) as nbr".

        " FROM ".CAR_ANNUAIRE.", carto_PAYS".

        " WHERE ".CAR_CHAMPS_CE_PAYS." = cp_id_pays".

        " GROUP BY cp_id_continent";

    $resultat_01 = $GLOBALS['car_db']->query ($requete_01) ;

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

        die ($resultat_01->getMessage().'<br />'.$resultat_01->getDebugInfo()) ;

    }

    $tableau_ad_continent=array();

    while ($ligne_01 = $resultat_01->fetchRow(DB_FETCHMODE_OBJECT)) {

        $tableau_ad_continent[$ligne_01->CP_ID_Continent] = $ligne_01->nbr;

    }

    $info_continent['nom_table_zone'] = 'carto_CONTINENT';

    $info_continent['nom_chp_id_zone'] = 'CC_ID_Continent';

    $info_continent['nom_chp_nom_zone'] = 'CC_Intitule_continent';

    $info_continent['nom_chp_rouge'] = 'CC_Couleur_R';

    $info_continent['nom_chp_vert'] = 'CC_Couleur_V';

    $info_continent['nom_chp_bleu'] = 'CC_Couleur_B';

    $info_continent['nom_chp_zone_sup'] = '';

    $info_continent['tableau_valeurs_zone'] = $tableau_ad_continent;

    //============================================================================================================

    $requete_02 = 'SELECT CC_ID_Continent FROM carto_CONTINENT';

    $resultat_02 = $GLOBALS['car_db']->query ($requete_02) ;

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

        die ($resultat_02->getMessage().'<br />'.$resultat_02->getDebugInfo()) ;

    }

    while ($ligne_02 = $resultat_02->fetchRow(DB_FETCHMODE_OBJECT)) {

        $requete_03 =

             'SELECT CP_ID_Pays, count(cp_id_pays) as nbr '.

            ' FROM '.CAR_ANNUAIRE.', carto_PAYS'.

            ' WHERE '.CAR_CHAMPS_CE_PAYS.'= cp_id_pays'.

            ' AND cp_id_continent = "'.$ligne_02->CC_ID_Continent.'"'.

            ' GROUP BY cp_id_pays';

        $resultat_03 = $GLOBALS['car_db']->query ($requete_03) ;

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

            die ($resultat_03->getMessage().'<br />'.$resultat_03->getDebugInfo()) ;

        }

        $tableau_ad_pays = array();

        while ($ligne_03 = $resultat_03->fetchRow(DB_FETCHMODE_OBJECT)) {

            $tableau_ad_pays[$ligne_03->CP_ID_Pays] = $ligne_03->nbr;

        }

        $info_pays[$ligne_02->CC_ID_Continent]['nom_table_zone'] = 'carto_PAYS';

        $info_pays[$ligne_02->CC_ID_Continent]['nom_chp_id_zone'] = 'CP_ID_Pays';

        $info_pays[$ligne_02->CC_ID_Continent]['nom_chp_nom_zone'] = 'CP_Intitule_pays';

        $info_pays[$ligne_02->CC_ID_Continent]['nom_chp_rouge'] = 'CP_Couleur_R';

        $info_pays[$ligne_02->CC_ID_Continent]['nom_chp_vert'] = 'CP_Couleur_V';

        $info_pays[$ligne_02->CC_ID_Continent]['nom_chp_bleu'] = 'CP_Couleur_B';

        $info_pays[$ligne_02->CC_ID_Continent]['nom_chp_zone_sup'] = 'CP_ID_Continent';

        $info_pays[$ligne_02->CC_ID_Continent]['tableau_valeurs_zone'] = $tableau_ad_pays;

    }

    //============================================================================================================

    $requete_04 = "SELECT * ,count(cd_id_departement) as nbr".

        " FROM ".CAR_ANNUAIRE.", carto_DEPARTEMENT".

        " WHERE ".CAR_CHAMPS_CE_PAYS." = 'fr'".

        " AND  a_numero_dpt = cd_id_departement".

        " GROUP BY cd_id_Departement";

    $resultat_04 = $GLOBALS['car_db']->query ($requete_04) ;

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

        die('

            <H2 class="erreur">Erreur de requête</H2>'.

            '<b>Requete : </b>'.$requete_04.

            '<br/><br/><b>Erreur : </b>'.$resultat_04->getMessage());

    }

    $tableau_ad_dpt_france = array();

    while ($ligne_04 = $resultat_04->fetchRow(DB_FETCHMODE_OBJECT)) {

        $tableau_ad_dpt_france[$ligne_04->CD_ID_Departement] = $ligne_04->nbr;

    }

    $info_dpt_france['nom_table_zone'] = 'carto_DEPARTEMENT';

    $info_dpt_france['nom_chp_id_zone'] = 'CD_ID_Departement';

    $info_dpt_france['nom_chp_nom_zone'] = 'CD_Intitule_departement';

    $info_dpt_france['nom_chp_rouge'] = 'CD_Couleur_R';

    $info_dpt_france['nom_chp_vert'] = 'CD_Couleur_V';

    $info_dpt_france['nom_chp_bleu'] = 'CD_Couleur_B';

    $info_dpt_france['nom_chp_zone_sup'] = 'CD_ID_Pays';

    $info_dpt_france['tableau_valeurs_zone'] = $tableau_ad_dpt_france;

    //============================================================================================================

    //============================================================================================================

    // On cree tout d'abord l'arborescence

    $monde = new Carto_Carte ('continent', '', 'Monde', 'monde_masque5c.png', 'monde5c.png', CAR_CHEMIN_APPLI.'/fonds/', $info_continent);

    $monde->definirCouleurs ('255', '255', '255','255', '250', '130','255', '204', '0','255', '153', '0') ;

    $monde->historique_cartes = $historique_cartes;

    $monde->image_x = $image_x;

    $monde->image_y = $image_y;

    $monde->liste_zone_carte = $liste_zone_carte;

    $monde->url = CAR_URL;

    foreach ($info_pays as $cle => $valeur) {

        $requete_05 =

            "SELECT CDC_Titre_carte, CDC_ID_Carte, CDC_Carte_fond, CDC_Carte_masque, CDC_ID_Zone_geo_carte".

            " FROM carto_DESCRIPTION_CARTE, carto_ACTION ".

            " WHERE CA_ID_Zone_geo = '$cle'".

            " AND CA_Type_zone = 1".

            " AND CA_ID_Carte_destination = CDC_ID_Carte";

        $resultat_05 = $GLOBALS['car_db']->query ($requete_05) ;

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

            die ($resultat_05->getMessage().'<br />'.$resultat_05->getDebugInfo()) ;

        }

        $ligne_05 = $resultat_05->fetchRow(DB_FETCHMODE_OBJECT);

        $monde->ajouterFils($ligne_05->CDC_ID_Carte, $ligne_05->CDC_ID_Zone_geo_carte, $ligne_05->CDC_Titre_carte,

                                        $ligne_05->CDC_Carte_masque, $ligne_05->CDC_Carte_fond, $valeur);

        $monde->fils[$ligne_05->CDC_ID_Carte]->definirCouleurs ('255', '255', '255','255', '250', '130','255', '204', '0','255', '153', '0') ;

    }

    $monde->fils['europe']->ajouterFils('france', 'fr', 'France' ,'france_masque.png', 'france.png', $info_dpt_france);

    $monde->fils['europe']->fils['france']->definirCouleurs ('255', '255', '255','255', '250', '130','255', '204', '0','255', '153', '0') ;

    // Une fois l'arborescence créée on lance la methode donnerFormulaireImage() pour recuperer la carte

    // (dans $img). S'il n'y a pas de carte a afficher donnerFormulaireImage() renvoi false. On peut alors recuperer

    // le niveau ou on en est grace a $monde->historique (du type continent*namerique*ca).

    $res = '';

    $img = false;

    if ($mailer == 1 || $fin == true) {

        $objet_carte = $_SESSION['carte'] ;

        $monde = unserialize($objet_carte);}

    else {

        $img = $monde->donnerFormulaireImage();

    }

    // On teste donc img

    if (!$img ) {

        include 'liste_inscrit.php';

        return $res;

    }

    else {

        $historique_carte = new Carto_HistoriqueCarte ($monde, '>', 'chemin_carto');

        $res .= $historique_carte->afficherHistoriqueCarte();

        $res .= "<br />\n" ;

        $tab = explode('*',$monde->historique);

        $res .= $img;

        $res .= ''.CAR_CLIQUER;

        $res .= '<br />'.CAR_COULEUR."\n";

        $res .= '<div class="avertissement_carto" id="d"><strong>'.CAR_AVERTISSEMENT_TITRE.' : </strong>';

        $res .= CAR_AVERTISSEMENT."</div>\n";

        return $res;

    }

}

//-- Fin du code source    ------------------------------------------------------------

/*

* $Log: not supported by cvs2svn $

* Revision 1.1  2004/12/15 13:33:03  alex

* version initiale

*

* Revision 1.2  2004/06/18 08:48:03  alex

* améliorations diverses

*

* Revision 1.1  2004/06/09 13:56:47  alex

* corrections diverses

*

* Revision 1.9  2003/05/06 12:49:27  alex

* remplacement include par include_once

*

* Revision 1.8  2003/03/07 15:20:32  jpm

* Correction d'une erreur de texte.

*

* Revision 1.7  2003/02/28 08:43:33  jpm

* Gestion des nouvelles tables MySql carto.

*

* Revision 1.6  2003/02/21 13:50:19  jpm

* Mise à jour nouvel objet Carto_Carte.

*

* Revision 1.5  2003/02/17 14:33:52  jpm

* Modification pour être compatible avec la nouvelle classe carte.

*

*

*/

?>