Go to most recent revision | Blame | Last modification | View Log | RSS feed
<?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.1 2005-09-22 14:02:49 ddelon Exp $// FICHIER : $RCSfile: cartographie.php,v $// AUTEUR : $Author: ddelon $// VERSION : $Revision: 1.1 $// DATE : $Date: 2005-09-22 14:02:49 $*/include_once 'configuration/ins_annuaire.config.inc.php';include_once INS_CHEMIN_APPLI.'configuration/cartographie.config.inc.php';include_once INS_CHEMIN_APPLI.'bibliotheque/cartographie.fonct.php';include_once INS_CHEMIN_APPLI.'bibliotheque/lib.carto.php';include_once INS_CHEMIN_APPLI.'bibliotheque/cartographie.fonct.php';//include_once 'HTML/QuickForm.php' ;// Ajout d'une feuille de style externeGEN_stockerStyleExterne('cartographie', 'presentations/cartographie.css') ;if (isset($GLOBALS['logout']) && $GLOBALS['logout']==1) {$GLOBALS['AUTH']->logout();}//================================================================================================//================================================================================================function afficherContenuCorps(){global $image_x;global $image_y;global $historique_cartes;global $mailer;global $fin;global $sendpwd;//utilisé dans liste_inscrit.phpglobal $select;//utilisé dans liste_inscrit.phpglobal $liste_zone_carte;//=================================================================================================$requete_01 ="SELECT CP_ID_Continent,count(cp_id_continent) AS nbr"." FROM ".INS_ANNUAIRE.", carto_PAYS"." WHERE ".INS_CHAMPS_PAYS." = cp_id_pays"." GROUP BY cp_id_continent";$resultat_01 = $GLOBALS['ins_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['ins_db']->query($requete_02) ;if (DB::isError($resultat_02)) {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 '.INS_ANNUAIRE.', carto_PAYS'.' WHERE '.INS_CHAMPS_PAYS.'= cp_id_pays'.' AND cp_id_continent = "'.$ligne_02->CC_ID_Continent.'"'.' GROUP BY cp_id_pays';$resultat_03 = $GLOBALS['ins_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;}//============================================================================================================//récupération du numéro de département à partir du code postal$requete_cp = 'SELECT a_code_postal FROM '.INS_ANNUAIRE.' WHERE '.INS_CHAMPS_PAYS.' = "fr"';$resultat_cp = $GLOBALS['ins_db']->query($requete_cp) ;if (DB::isError($resultat_cp)) {die('<H2 class="erreur">Erreur de requête</H2>'.'<b>Requete : </b>'.$requete_cp.'<br/><br/><b>Erreur : </b>'.$resultat_cp->getMessage());}$tableau_ad_dpt_france = array();while ($ligne_cp = $resultat_cp->fetchRow(DB_FETCHMODE_ASSOC)) {if (preg_match("/^97|98[0-9]*/", $ligne_cp['a_code_postal'])) {$n_dpt = substr($ligne_cp['a_code_postal'], 0, 3) ;} else {$n_dpt = substr($ligne_cp['a_code_postal'], 0, 2) ;}$requete_04 = 'SELECT cd_id_departement '.' FROM '.INS_ANNUAIRE.', carto_DEPARTEMENT'.' WHERE '.INS_CHAMPS_PAYS.' = "fr"'.' AND cd_id_departement = '.$n_dpt;$resultat_04 = $GLOBALS['ins_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());}while ($ligne_04 = $resultat_04->fetchRow(DB_FETCHMODE_OBJECT)) {$tableau_ad_dpt_france[$ligne_04->cd_id_departement] = $resultat_04->numRows();}}$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', INS_CHEMIN_APPLI.'presentations/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 = $GLOBALS['ins_url']->getURL();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['ins_db']->query ($requete_05) ;if (DB::isError($resultat_05)) {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 imgif (!$img ) {include 'bibliotheque/cartographie.fonct.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 .= '<br /><div style="text-align: center;"><strong>'.INS_COULEUR.'</strong></div><br />'."\n";$res .= '<br /><small><strong>'.INS_AVERTISSEMENT_TITRE.' : </strong>';$res .= INS_AVERTISSEMENT.'</small>'."\n";return $res;}}//-- Fin du code source ------------------------------------------------------------/** $Log: not supported by cvs2svn $* Revision 1.2 2005/09/22 13:30:49 florian* modifs pour compatibilité XHTML Strict + corrections de bugs (mais ya encore du boulot!!)** 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.***/?>