| 448 |
ddelon |
1 |
<?
|
|
|
2 |
// +--------------------------------------------------------------------------------+
|
|
|
3 |
// | liste_inscrit.php |
|
|
|
4 |
// +--------------------------------------------------------------------------------+
|
|
|
5 |
// | Copyright (c) 2002 |
|
|
|
6 |
// +--------------------------------------------------------------------------------+
|
|
|
7 |
// | |
|
|
|
8 |
// +--------------------------------------------------------------------------------+
|
|
|
9 |
// | Auteur : Alexandre Granier <alexandre@tela-botanica.org> |
|
|
|
10 |
// +--------------------------------------------------------------------------------+
|
|
|
11 |
//
|
| 1298 |
neiluj |
12 |
// $Id: cartographie.fonct.liste_inscrit.php,v 1.5 2007-04-11 08:30:12 neiluj Exp $
|
| 448 |
ddelon |
13 |
|
|
|
14 |
global $HTTP_USER_AGENT;
|
|
|
15 |
|
|
|
16 |
$classe_titre = 'titlePage' ;
|
|
|
17 |
|
| 1298 |
neiluj |
18 |
$javascript = 'function confirmer ()
|
| 448 |
ddelon |
19 |
{
|
| 1298 |
neiluj |
20 |
if (window.confirm (\'Cliquez sur OK pour confirmer.\')) {
|
| 448 |
ddelon |
21 |
window.formmail.submit();
|
|
|
22 |
}
|
|
|
23 |
}
|
|
|
24 |
function setCheckboxes(the_form)
|
|
|
25 |
{
|
| 1298 |
neiluj |
26 |
var do_check=document.forms[the_form].elements[\'selecttotal\'].checked;
|
|
|
27 |
var elts = document.forms[the_form].elements[\'select[]\'];
|
|
|
28 |
var elts_cnt = (typeof(elts.length) != \'undefined\')
|
| 448 |
ddelon |
29 |
? elts.length
|
|
|
30 |
: 0;
|
|
|
31 |
if (elts_cnt) {
|
|
|
32 |
for (var i = 0; i < elts_cnt; i++) {
|
|
|
33 |
elts[i].checked = do_check;
|
|
|
34 |
} // Fin for
|
|
|
35 |
}
|
|
|
36 |
else {
|
|
|
37 |
elts.checked = do_check;
|
|
|
38 |
} // Fin if... else
|
|
|
39 |
return true;
|
| 1298 |
neiluj |
40 |
}
|
| 448 |
ddelon |
41 |
|
| 1298 |
neiluj |
42 |
';
|
|
|
43 |
|
| 1292 |
neiluj |
44 |
GEN_stockerCodeScript($javascript);
|
| 448 |
ddelon |
45 |
$res = "";
|
|
|
46 |
$tabmonde = explode ('*',$monde->historique);
|
|
|
47 |
// Premier cas, on vient de cliquer sur un pays qui n'est pas
|
|
|
48 |
// la France, on affiche les adhérents de ce pays
|
|
|
49 |
if (count($tabmonde) == 3) {
|
|
|
50 |
$argument = $tabmonde[2];
|
|
|
51 |
$query = 'SELECT * FROM carto_PAYS WHERE CP_ID_pays="'.$argument.'"';
|
|
|
52 |
$result = $GLOBALS['ins_db']->query($query);
|
|
|
53 |
if (DB::isError($result)) {
|
|
|
54 |
die ($result->getMessage().'<br />'.$result->getDebugInfo()) ;
|
|
|
55 |
}
|
|
|
56 |
$row = $result->fetchRow(DB_FETCHMODE_OBJECT) ;
|
|
|
57 |
|
|
|
58 |
$pays = $row->CP_Intitule_pays;
|
|
|
59 |
$monde->nom = $monde->nom.'*'.$pays;
|
|
|
60 |
|
|
|
61 |
$tabonglet = explode ('*', $monde->historique);
|
|
|
62 |
$tabnom = explode ('*', $monde->nom);
|
|
|
63 |
$res .= "<b>\n";
|
|
|
64 |
foreach ($tabonglet as $key => $value) {
|
|
|
65 |
if ($key == 0) {
|
|
|
66 |
$chemin = $value;
|
|
|
67 |
$value = 'monde';
|
|
|
68 |
$res .= "<a class=\"chemin_carto\" href=\"".$monde->url."&historique_cartes=$chemin\"> > ".$tabnom[$key]."</a>";
|
|
|
69 |
}
|
|
|
70 |
else if ($key == (count($tabonglet)-1)) {
|
|
|
71 |
$res .= "<a class=\"chemin_carto\"> > $pays</a>";
|
|
|
72 |
}
|
|
|
73 |
else {
|
|
|
74 |
$chemin .= '*'.$value;
|
|
|
75 |
$res .= "<a class=\"chemin_carto\" href=\"".$monde->url."&historique_cartes=$chemin\"> > ".$tabnom[$key]."</a>";
|
|
|
76 |
}
|
|
|
77 |
}
|
|
|
78 |
|
|
|
79 |
$res .= "</b>\n";
|
|
|
80 |
|
|
|
81 |
$capitale = $row->CP_Intitule_capitale;
|
|
|
82 |
|
|
|
83 |
$query2 = " SELECT count(".INS_CHAMPS_ID.") as nbr".
|
|
|
84 |
" from ".INS_ANNUAIRE.
|
|
|
85 |
" where ".INS_CHAMPS_PAYS."='$argument'";
|
|
|
86 |
|
|
|
87 |
$result2 = $GLOBALS['ins_db']->query($query2);
|
|
|
88 |
if (DB::isError($result2)) {
|
|
|
89 |
die ($result2->getMessage().'<br />'.$result2->getDebugInfo()) ;
|
|
|
90 |
}
|
|
|
91 |
$row2 = $result2->fetchRow(DB_FETCHMODE_OBJECT) ;
|
|
|
92 |
$res .= "<br /><br /><div class=\"$classe_titre\">$pays (capitale: $capitale) : " ;
|
|
|
93 |
if ($row2->nbr == 0) {
|
|
|
94 |
$res .= INS_AUCUN_INSCRIT.' '.INS_LABEL_PROJET ;
|
|
|
95 |
|
|
|
96 |
}
|
|
|
97 |
else if ($row2->nbr == 1) {
|
|
|
98 |
$res .= $row2->nbr.' '.INS_INSCRIT.INS_LABEL_PROJET ;
|
|
|
99 |
}
|
|
|
100 |
else {
|
|
|
101 |
$res .= $row2->nbr.' '.INS_INSCRIT.'s '.INS_LABEL_PROJET ;
|
|
|
102 |
}
|
|
|
103 |
$res .= "</div>\n";
|
|
|
104 |
if ($row2->nbr>0) {
|
| 1298 |
neiluj |
105 |
if ((INS_NECESSITE_LOGIN)and(!$GLOBALS['AUTH']->getAuth())) {
|
|
|
106 |
$res .= '<br /><p class="zone_alert">'.INS_VOUS_DEVEZ_ETRE_INSCRIT.'</p>'."\n" ;
|
| 448 |
ddelon |
107 |
}
|
|
|
108 |
else {
|
|
|
109 |
$requete = 'SELECT * FROM '.INS_ANNUAIRE.
|
|
|
110 |
' WHERE '.INS_CHAMPS_PAYS.'="'.$argument.'"'.
|
|
|
111 |
' ORDER BY '.INS_CHAMPS_NOM.', '.INS_CHAMPS_PRENOM;
|
|
|
112 |
|
|
|
113 |
if ($row2->nbr > 1) {
|
|
|
114 |
$res .= listes_inscrit($requete, $select, $url) ;
|
|
|
115 |
if ($mailer==1) {
|
|
|
116 |
if (!is_array($select)) {
|
|
|
117 |
$res .= "<div>".INS_NO_DESTINATAIRE."</div>";
|
|
|
118 |
}
|
|
|
119 |
else {
|
|
|
120 |
$res .= "<div class=\"$classe_titre\">".INS_MESSAGE_ENVOYE."</div>\n" ;
|
|
|
121 |
carto_envoie_mail() ;
|
|
|
122 |
}
|
|
|
123 |
}
|
|
|
124 |
else {
|
|
|
125 |
$res .= carto_texte_cocher() ;
|
|
|
126 |
}
|
|
|
127 |
$res .= carto_formulaire($titre_mail, $corps) ;
|
|
|
128 |
}
|
|
|
129 |
}
|
|
|
130 |
}
|
|
|
131 |
}
|
|
|
132 |
|
|
|
133 |
// 2 ème cas, on vient de cliquer sur un département français
|
|
|
134 |
|
|
|
135 |
else if (count($tabmonde) == 4) {
|
| 1298 |
neiluj |
136 |
$numero_departement = $tabmonde[3];
|
| 448 |
ddelon |
137 |
|
| 1298 |
neiluj |
138 |
$query = 'SELECT * FROM '.INS_TABLE_DPT.' WHERE '.INS_CHAMPS_ID_DEPARTEMENT.'='.$numero_departement;
|
| 448 |
ddelon |
139 |
$result = $GLOBALS['ins_db']->query($query);
|
|
|
140 |
if (DB::isError($result)) {
|
|
|
141 |
die ($result->getMessage() .'<br />'.$result->getDebugInfo());
|
|
|
142 |
}
|
|
|
143 |
$row = $result->fetchRow(DB_FETCHMODE_ASSOC);
|
|
|
144 |
$nom = $row[INS_CHAMPS_NOM_DEPARTEMENT];
|
|
|
145 |
|
|
|
146 |
$tabonglet=explode ('*', $monde->historique);
|
|
|
147 |
$tabnom=explode ('*', $monde->nom);
|
|
|
148 |
$res.="<div><b>\n";
|
|
|
149 |
foreach ($tabonglet as $key=>$value) {
|
|
|
150 |
if ($key==0) {
|
|
|
151 |
$chemin=$value;
|
|
|
152 |
$value='monde';
|
| 1298 |
neiluj |
153 |
$res.= "<a class=\"chemin_carto\" href=\"".
|
|
|
154 |
$monde->url."&historique_cartes=$chemin\"> > ".$tabnom[$key]."</a>";
|
| 448 |
ddelon |
155 |
}
|
|
|
156 |
else if ($key==(count($tabonglet)-1)) {
|
|
|
157 |
$res.="<a class=\"chemin_carto\"> > $nom</a>";
|
|
|
158 |
}
|
|
|
159 |
else {
|
|
|
160 |
$chemin.='*'.$value;
|
|
|
161 |
$res.= "<a class=\"chemin_carto\" href=\"".$monde->url."&historique_cartes=$chemin\"> > ".$tabnom[$key]."</a>";
|
|
|
162 |
}
|
|
|
163 |
}
|
|
|
164 |
$res .= "</b></div>\n";
|
|
|
165 |
|
|
|
166 |
$query2 = ' SELECT count('.INS_CHAMPS_ID.') as nbr'.
|
|
|
167 |
' FROM '.INS_ANNUAIRE.
|
| 1298 |
neiluj |
168 |
' WHERE '.INS_CHAMPS_CODE_POSTAL.' LIKE "'.$numero_departement.'%"'.
|
| 448 |
ddelon |
169 |
' AND '.INS_CHAMPS_PAYS.'="FR"';
|
|
|
170 |
$result2 = $GLOBALS['ins_db']->query($query2);
|
|
|
171 |
if (DB::isError($result2)) {
|
|
|
172 |
die ($result2->getMessage().'<br />'.$result2->getDebugInfo()) ;
|
|
|
173 |
}
|
|
|
174 |
|
|
|
175 |
$row2 = $result2->fetchRow(DB_FETCHMODE_OBJECT);
|
|
|
176 |
$res .= "<br /><br /><div class=\"$classe_titre\">" ;
|
|
|
177 |
if ($row2->nbr == 0) {
|
|
|
178 |
$res .= INS_AUCUN_INSCRIT." ".INS_LABEL_PROJET ;
|
|
|
179 |
}
|
|
|
180 |
else if ($row2->nbr == 1) {
|
|
|
181 |
$res .= $row2->nbr." ".INS_INSCRIT." ".INS_LABEL_PROJET ;
|
|
|
182 |
}
|
|
|
183 |
else {
|
|
|
184 |
$res .= $row2->nbr." ".INS_INSCRIT."s ".INS_LABEL_PROJET ;
|
|
|
185 |
}
|
|
|
186 |
$res .= "</div><br />\n";
|
|
|
187 |
if ($row2->nbr>0) {
|
| 1298 |
neiluj |
188 |
if ((INS_NECESSITE_LOGIN)and(!$GLOBALS['AUTH']->getAuth())) {
|
|
|
189 |
$res .= '<br /><p class="zone_alert">'.INS_VOUS_DEVEZ_ETRE_INSCRIT.'</p>'."\n" ;
|
| 448 |
ddelon |
190 |
} else {
|
|
|
191 |
$requete = 'SELECT * FROM '.INS_ANNUAIRE.
|
|
|
192 |
' WHERE '.INS_CHAMPS_CODE_POSTAL.' LIKE "'.$argument.'%"'.
|
|
|
193 |
' AND '.INS_CHAMPS_PAYS.'="FR"';
|
|
|
194 |
' ORDER BY '.INS_CHAMPS_NOM.', '.INS_CHAMPS_PRENOM;
|
|
|
195 |
$res .= listes_inscrit($requete, $select, $_SERVER['REQUEST_URI']) ;
|
|
|
196 |
if ($mailer==1) {
|
|
|
197 |
if (!is_array($select)) {
|
|
|
198 |
$res.= INS_NO_DESTINATAIRE;
|
|
|
199 |
} else {
|
|
|
200 |
$res .= "<div class=\"$classe_titre\">".INS_MESSAGE_ENVOYE."</div>\n" ;
|
|
|
201 |
carto_envoie_mail() ;
|
|
|
202 |
}
|
|
|
203 |
} else {
|
|
|
204 |
$res .=carto_texte_cocher() ;
|
|
|
205 |
}
|
|
|
206 |
$res .= carto_formulaire() ;
|
|
|
207 |
}
|
|
|
208 |
}
|
|
|
209 |
}
|
|
|
210 |
?>
|