Subversion Repositories Applications.papyrus

Rev

Rev 815 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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