Subversion Repositories Applications.papyrus

Rev

Rev 1292 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1292 Rev 1298
Line 24... Line 24...
24
//Autres auteurs :
24
//Autres auteurs :
25
*@copyright         Tela-Botanica 2000-2004
25
*@copyright         Tela-Botanica 2000-2004
26
*@version             03 mai 2004
26
*@version             03 mai 2004
27
// +-----------------------------------------------------------------------------------------------+
27
// +-----------------------------------------------------------------------------------------------+
28
//
28
//
29
// $Id: cartographie.php,v 1.8 2007-04-06 08:35:46 neiluj Exp $
29
// $Id: cartographie.php,v 1.9 2007-04-11 08:30:12 neiluj Exp $
30
// FICHIER : $RCSfile: cartographie.php,v $
30
// FICHIER : $RCSfile: cartographie.php,v $
31
// AUTEUR    : $Author: neiluj $
31
// AUTEUR    : $Author: neiluj $
32
// VERSION : $Revision: 1.8 $
32
// VERSION : $Revision: 1.9 $
33
// DATE        : $Date: 2007-04-06 08:35:46 $
33
// DATE        : $Date: 2007-04-11 08:30:12 $
34
*/
34
*/
35
include_once PAP_CHEMIN_RACINE.'/client/bottin/configuration/bottin.config.inc.php';
35
include_once PAP_CHEMIN_RACINE.'/client/bottin/configuration/bottin.config.inc.php';
36
include_once INS_CHEMIN_APPLI.'configuration/cartographie.config.inc.php';
36
include_once INS_CHEMIN_APPLI.'configuration/cartographie.config.inc.php';
37
include_once INS_CHEMIN_APPLI.'bibliotheque/cartographie.fonct.php';
37
include_once INS_CHEMIN_APPLI.'bibliotheque/bottin.fonct.php';
38
include_once INS_CHEMIN_APPLI.'bibliotheque/lib.carto.php';
38
include_once INS_CHEMIN_APPLI.'bibliotheque/lib.carto.php';
39
include_once INS_CHEMIN_APPLI.'bibliotheque/cartographie.fonct.php';
-
 
40
//include_once 'HTML/QuickForm.php' ;
-
 
Line 41... Line 39...
41
 
39
 
-
 
40
//================================================================================================
-
 
41
if ( isset($_GET['voir_fiche']) or isset($_GET['voir_abonnement']) or isset($_GET['voir_actus']) or isset($_GET['voir_ressources']) or isset($_GET['voir_competences']) ) {
-
 
42
	//---------------le menu de l'appli-----------
-
 
43
	function afficherContenuNavigation () {
-
 
44
		$res =inscription_onglets();
-
 
45
		return $res ;
-
 
46
	}
-
 
47
}
42
//================================================================================================
48
 
-
 
49
//================================================================================================
-
 
50
function construit_hierarchie(&$info_zone, &$carto_config, $info_zone_hierarchie, &$monde) {
-
 
51
	static $i=0;
-
 
52
	$i++;
-
 
53
	
-
 
54
	//on ajoute la carto en cours en tant que fils
-
 
55
	$monde->ajouterFils($info_zone_hierarchie->czh_code_alpha, $info_zone_hierarchie->czh_identifiant_table_info_couleur,
-
 
56
						$info_zone_hierarchie->czh_nom, $info_zone_hierarchie->czh_fichier_masque,
-
 
57
						$info_zone_hierarchie->czh_fichier_image, '');
-
 
58
	$monde->fils[$info_zone_hierarchie->czh_code_alpha]->definirCouleurs ('255', '255', '255','255', '250', '130','255', '204', '0','255', '153', '0') ;
-
 
59
			    		
-
 
60
	//requete pour trouver les fils de la carte de depart voulue
-
 
61
	$requete_zone_fils = 'SELECT * FROM carto_zone_hierarchie '.
-
 
62
						 'WHERE czh_id_zone_pere='.$info_zone_hierarchie->czh_id_zone;/*echo $requete_zone_fils;*/
-
 
63
	$resultat_zone_fils = $GLOBALS['ins_db']->query($requete_zone_fils) ;
-
 
64
	if (DB::isError($resultat_zone_fils )) {
-
 
65
    	echo ($resultat_zone_fils->getMessage().'<br />'.$resultat_zone_fils->getDebugInfo()).'<br />'.$requete_zone_fils ;
-
 
66
	}
-
 
67
	
-
 
68
	if ($resultat_zone_fils->numRows()!=0) {
-
 
69
		while ($ligne_zone_fils  = $resultat_zone_fils ->fetchRow(DB_FETCHMODE_OBJECT)) {
-
 
70
			//requete pour obtenir toutes les infos (repartition par zones, nom des tables et champs pour les couleurs,.. ) pour la carte à afficher
-
 
71
			$requete_01 = 'SELECT '.$ligne_zone_fils->czh_nom_champs_id_pere.',count('.$ligne_zone_fils->czh_nom_champs_id_pere.') AS nbr'.
-
 
72
			    		  ' FROM '.$carto_config['cc_table1'].', '.$ligne_zone_fils->czh_nom_table_info_couleur;
-
 
73
			if ($carto_config['cc_table2']!=0) $requete_01 .=  ', '.$carto_config['cc_table2'];     
-
 
74
			$requete_01 .= ' WHERE '.$ligne_zone_fils->czh_champs_jointure_annuaire.' = '.$ligne_zone_fils->czh_nom_champs_id;
-
 
75
			if ($carto_config['cc_sql']!='') $requete_01 .=  ' AND ('.$carto_config['cc_sql'].')';
-
 
76
			$requete_01 .= ' GROUP BY '.$ligne_zone_fils->czh_nom_champs_id_pere;
-
 
77
			$resultat_01 = $GLOBALS['ins_db']->query($requete_01) ;
-
 
78
			if (DB::isError($resultat_01)) {
-
 
79
			    echo ($resultat_01->getMessage().'<br />'.$resultat_01->getDebugInfo()).'<br />'.$requete_01 ;
-
 
80
			}    
-
 
81
			$tableau_repartition=array();    
-
 
82
			while ($ligne_01 = $resultat_01->fetchRow(DB_FETCHMODE_OBJECT)) {
-
 
83
				$id=$ligne_zone_fils->czh_nom_champs_id_pere;
-
 
84
			    $tableau_repartition[$ligne_01->$id] = $ligne_01->nbr; 		
-
 
85
			}
-
 
86
			$info_zone[$i]['nom_table_zone'] =$info_zone_hierarchie->czh_nom_table_info_couleur;
-
 
87
			$info_zone[$i]['nom_chp_id_zone'] =$info_zone_hierarchie->czh_nom_champs_id;
-
 
88
			$info_zone[$i]['nom_chp_nom_zone'] =$info_zone_hierarchie->czh_nom_champs_intitule;
-
 
89
			$info_zone[$i]['nom_chp_rouge'] =$info_zone_hierarchie->czh_nom_champs_couleur_R;
-
 
90
			$info_zone[$i]['nom_chp_vert'] =$info_zone_hierarchie->czh_nom_champs_couleur_V;
-
 
91
			$info_zone[$i]['nom_chp_bleu'] =$info_zone_hierarchie->czh_nom_champs_couleur_B;
-
 
92
			$info_zone[$i]['nom_chp_zone_sup'] =$info_zone_hierarchie->czh_nom_champs_id_pere;
-
 
93
			$info_zone[$i]['tableau_valeurs_zone'] = $tableau_repartition;
-
 
94
			if ($i == 1) {				
-
 
95
				$monde->_info_table_zg = $info_zone[1];		    
-
 
96
				$monde->definirCouleurs('255', '255', '255','255', '250', '130','255', '204', '0','255', '153', '0') ;
-
 
97
				construit_hierarchie($info_zone, $carto_config, $ligne_zone_fils, $monde);						
-
 
98
			} else {
-
 
99
				$monde->_info_table_zg = $info_zone[$i];	
-
 
100
	    		construit_hierarchie($info_zone, $carto_config, $ligne_zone_fils, $monde->fils[$info_zone_hierarchie->czh_code_alpha]);
-
 
101
			}					
-
 
102
		}								
-
 
103
	}
Line 43... Line 104...
43
//================================================================================================
104
}
44
 
-
 
45
function afficherContenuCorps() 
105
 
46
{
106
function afficherContenuCorps() {
47
    global $image_x;
107
    global $image_x;
48
    global $image_y;
108
    global $image_y;
49
    global $historique_cartes;
109
    global $historique_cartes;
50
    global $mailer;
110
    global $mailer;
51
    global $fin;
111
    global $fin;
52
    global $sendpwd;//utilisé dans liste_inscrit.php
112
    global $sendpwd;//utilisé dans liste_inscrit.php
Line 53... Line 113...
53
    global $select;//utilisé dans liste_inscrit.php
113
    global $select;//utilisé dans liste_inscrit.php
54
    global $liste_zone_carte;
114
    global $liste_zone_carte;
55
    
115
    
56
//=================================================================================================
116
	//=================================================================================================
57
//Gestion de la configuration    
117
	//Gestion de la configuration    
58
    $requete = 'SELECT * FROM carto_config WHERE cc_menu_id='.$_GET['menu'];
118
    $requete = 'SELECT * FROM carto_config WHERE cc_menu_id='.$GLOBALS['_GEN_commun']['info_menu']->gm_id_menu;
59
    $resultat = $GLOBALS['ins_db']->query($requete) ;
119
    $resultat = $GLOBALS['ins_db']->query($requete) ;
60
    if (DB::isError($resultat)) {
120
    if (DB::isError($resultat)) {
61
       	die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
121
       	die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
62
    }
-
 
63
    if ($resultat->numRows()>0) {
-
 
64
       	while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
-
 
65
        	//valeurs par defaut enregistrees dans la table
-
 
66
        	$titre=$ligne['cc_titre_carto'];
-
 
67
        	$nom_table1=$ligne['cc_table1'];
-
 
68
        	$nom_table2=$ligne['cc_table2'];
-
 
69
        	$nom_champs_pays=$ligne['cc_pays'];
-
 
70
        	$nom_champs_cp=$ligne['cc_cp'];
-
 
71
        	$requete_sql=$ligne['cc_sql'];
-
 
72
        }
-
 
73
            
-
 
74
//=================================================================================================
-
 
75
    $requete_01 = 'SELECT CP_ID_Continent,count(cp_id_continent) AS nbr'.
-
 
76
        		  ' FROM '.$nom_table1.', carto_PAYS';
-
 
77
    if ($nom_table2!=0) $requete_01 .=  ', '.$nom_table2;     
-
 
78
    $requete_01 .= ' WHERE '.$nom_champs_pays.' = cp_id_pays';
-
 
79
    if ($requete_sql!='') $requete_01 .=  ' AND ('.$requete_sql.')';
-
 
80
    $requete_01 .= ' GROUP BY cp_id_continent';
-
 
81
    $resultat_01 = $GLOBALS['ins_db']->query($requete_01) ;
-
 
82
    if (DB::isError($resultat_01)) {
-
 
83
        die ($resultat_01->getMessage().'<br />'.$resultat_01->getDebugInfo()) ;
-
 
84
    }    
-
 
85
    $tableau_ad_continent=array();    
-
 
86
    while ($ligne_01 = $resultat_01->fetchRow(DB_FETCHMODE_OBJECT)) {
-
 
87
        $tableau_ad_continent[$ligne_01->CP_ID_Continent] = $ligne_01->nbr; 
-
 
88
    
-
 
89
    }
-
 
90
    $info_continent['nom_table_zone'] = 'carto_CONTINENT';
-
 
91
    $info_continent['nom_chp_id_zone'] = 'CC_ID_Continent';
-
 
92
    $info_continent['nom_chp_nom_zone'] = 'CC_Intitule_continent';
-
 
93
    $info_continent['nom_chp_rouge'] = 'CC_Couleur_R';
-
 
94
    $info_continent['nom_chp_vert'] = 'CC_Couleur_V';
-
 
95
    $info_continent['nom_chp_bleu'] = 'CC_Couleur_B';
-
 
96
    $info_continent['nom_chp_zone_sup'] = '';
-
 
97
    $info_continent['tableau_valeurs_zone'] = $tableau_ad_continent;
-
 
98
    
-
 
99
    //============================================================================================================
-
 
100
    
-
 
101
    $requete_02 = 'SELECT CC_ID_Continent FROM carto_CONTINENT';
-
 
102
    
-
 
103
    $resultat_02 = $GLOBALS['ins_db']->query($requete_02) ;
-
 
104
    if (DB::isError($resultat_02)) {
-
 
105
        die ($resultat_02->getMessage().'<br />'.$resultat_02->getDebugInfo()) ;
-
 
106
    }
-
 
107
    
-
 
108
    while ($ligne_02 = $resultat_02->fetchRow(DB_FETCHMODE_OBJECT)) {
-
 
109
        $requete_03 = 'SELECT CP_ID_Pays, count(cp_id_pays) as nbr '.
-
 
110
                      ' FROM '.$nom_table1.', carto_PAYS';
-
 
111
        if ($nom_table2!=0) $requete_03 .=  ', '.$nom_table2;
-
 
112
        $requete_03 .= ' WHERE '.$nom_champs_pays.'= cp_id_pays';
-
 
113
        if ($requete_sql!='') $requete_03 .=  ' AND ('.$requete_sql.')';
-
 
114
        $requete_03 .= ' AND cp_id_continent = "'.$ligne_02->CC_ID_Continent.'"'.
-
 
115
                       ' GROUP BY cp_id_pays';
-
 
116
        $resultat_03 = $GLOBALS['ins_db']->query($requete_03) ;
-
 
117
        if (DB::isError($resultat_03)) {
-
 
118
            die ($resultat_03->getMessage().'<br />'.$resultat_03->getDebugInfo()) ;
-
 
119
        }
-
 
120
        
-
 
121
        $tableau_ad_pays = array();
-
 
Line 227... Line 274...
227
    return $res;
274
	        return $res;
228
    
275
	    
229
//----------------------------------------------------------------------------------------------------------------------
276
	//----------------------------------------------------------------------------------------------------------------------
230
// Cas ou la carto n'a pas encore ete configuree        
277
	// Cas ou la carto n'a pas encore ete configuree        
Line 231... Line 278...
231
    } else {
278
    } else {
232
    	return '<p class="zone_alert">'.INS_FAUT_CONFIGURER_CARTO.'</p>'."\n";
279
    	return '<p class="zone_alert">'.INS_FAUT_CONFIGURER_CARTO.'</p>'."\n";
233
    }
280
    }
-
 
281
}
-
 
282
 
-
 
283
 
-
 
284
//-- Fin du code source    ------------------------------------------------------------
-
 
285
/*
-
 
286
* $Log: not supported by cvs2svn $
-
 
287
* Revision 1.6  2006/12/01 13:23:17  florian
-
 
288
* integration annuaire backoffice
-
 
289
*
-
 
290
* Revision 1.5  2006/04/19 13:49:04  alexandre_tb
-
 
291
* correction de bug sur l'utilisation de l'id_menu de papyrus
-
 
292
*
234
}
293
* Revision 1.4  2006/04/10 14:01:36  florian
235
 
294
* uniformisation de l'appli bottin: plus qu'un fichier de fonctions
236
 
295
*
237
//-- Fin du code source    ------------------------------------------------------------
296
* Revision 1.3  2006/04/04 12:23:05  florian
238
/*
297
* modifs affichage fiches, généricité de la carto, modification totale de l'appli annuaire