Subversion Repositories Applications.papyrus

Rev

Rev 820 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 820 Rev 1081
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.5 2006-04-19 13:49:04 alexandre_tb Exp $
29
// $Id: cartographie.php,v 1.6 2006-12-01 13:23:17 florian Exp $
30
// FICHIER : $RCSfile: cartographie.php,v $
30
// FICHIER : $RCSfile: cartographie.php,v $
31
// AUTEUR    : $Author: alexandre_tb $
31
// AUTEUR    : $Author: florian $
32
// VERSION : $Revision: 1.5 $
32
// VERSION : $Revision: 1.6 $
33
// DATE        : $Date: 2006-04-19 13:49:04 $
33
// DATE        : $Date: 2006-12-01 13:23:17 $
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/bottin.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';
Line 45... Line 45...
45
		return $res ;
45
		return $res ;
46
	}
46
	}
47
}
47
}
Line 48... Line 48...
48
 
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 49... Line 104...
49
//================================================================================================
104
}
50
 
-
 
51
function afficherContenuCorps() 
105
 
52
{
106
function afficherContenuCorps() {
53
    global $image_x;
107
    global $image_x;
54
    global $image_y;
108
    global $image_y;
55
    global $historique_cartes;
109
    global $historique_cartes;
Line 65... Line 119...
65
    $resultat = $GLOBALS['ins_db']->query($requete) ;
119
    $resultat = $GLOBALS['ins_db']->query($requete) ;
66
    if (DB::isError($resultat)) {
120
    if (DB::isError($resultat)) {
67
       	die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
121
       	die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
68
    }
122
    }
69
    if ($resultat->numRows()>0) {
123
    if ($resultat->numRows()>0) {
241
    } else {
278
    } else {
242
    	return '<p class="zone_alert">'.INS_FAUT_CONFIGURER_CARTO.'</p>'."\n";
279
    	return '<p class="zone_alert">'.INS_FAUT_CONFIGURER_CARTO.'</p>'."\n";
243
    }
280
    }
244
}
281
}
Line 245... Line 282...
245
 
282
 
246
 
283
 
247
//-- Fin du code source    ------------------------------------------------------------
284
//-- Fin du code source    ------------------------------------------------------------
-
 
285
/*
-
 
286
* $Log: not supported by cvs2svn $
-
 
287
* Revision 1.5  2006/04/19 13:49:04  alexandre_tb
248
/*
288
* correction de bug sur l'utilisation de l'id_menu de papyrus
249
* $Log: not supported by cvs2svn $
289
*
250
* Revision 1.4  2006/04/10 14:01:36  florian
290
* Revision 1.4  2006/04/10 14:01:36  florian
251
* uniformisation de l'appli bottin: plus qu'un fichier de fonctions
291
* uniformisation de l'appli bottin: plus qu'un fichier de fonctions
252
*
292
*