| 810 |
florian |
1 |
<?php
|
|
|
2 |
|
|
|
3 |
//vim: set expandtab tabstop=4 shiftwidth=4:
|
|
|
4 |
// +-----------------------------------------------------------------------------------------------+
|
|
|
5 |
// | PHP version 4.0 |
|
|
|
6 |
// +-----------------------------------------------------------------------------------------------+
|
|
|
7 |
// | Copyright (c) 1997, 1998, 1999, 2000, 2001 The PHP Group |
|
|
|
8 |
// +-----------------------------------------------------------------------------------------------+
|
|
|
9 |
// | This source file is subject to version 2.0 of the PHP license, |
|
|
|
10 |
// | that is bundled with this package in the file LICENSE, and is |
|
|
|
11 |
// | available at through the world-wide-web at |
|
|
|
12 |
// | http://www.php.net/license/2_02.txt. |
|
|
|
13 |
// | If you did not receive a copy of the PHP license and are unable to |
|
|
|
14 |
// | obtain it through the world-wide-web, please send a note to |
|
|
|
15 |
// | license@php.net so we can mail you a copy immediately. |
|
|
|
16 |
// +-----------------------------------------------------------------------------------------------+
|
|
|
17 |
/**
|
|
|
18 |
*
|
|
|
19 |
*Fichier des fonctions du bottin
|
|
|
20 |
*
|
|
|
21 |
*@package bottin
|
|
|
22 |
//Auteur original :
|
|
|
23 |
*@author Florian SCHMITT <florian@ecole-et-nature.org>
|
|
|
24 |
//Autres auteurs :
|
|
|
25 |
*@copyright Outils-reseaux 2006-2040
|
|
|
26 |
*@version 05 avril 2006
|
|
|
27 |
// +-----------------------------------------------------------------------------------------------+
|
|
|
28 |
//
|
|
|
29 |
// $Id$
|
|
|
30 |
// FICHIER : $RCSfile$
|
|
|
31 |
// AUTEUR : $Author$
|
|
|
32 |
// VERSION : $Revision$
|
|
|
33 |
// DATE : $Date$
|
|
|
34 |
*/
|
|
|
35 |
|
|
|
36 |
|
| 1298 |
neiluj |
37 |
include_once 'inscription.fonct.wiki.php' ;
|
|
|
38 |
if (INS_UTILISE_SPIP) include_once 'inscription.fonct.spip.php' ;
|
| 1365 |
alexandre_ |
39 |
include_once PAP_CHEMIN_API_PEAR.'HTML/QuickForm.php';
|
| 1298 |
neiluj |
40 |
|
| 810 |
florian |
41 |
/** function inscription_onglets() Affiche les onglets de présentation de la structure
|
|
|
42 |
*
|
|
|
43 |
*
|
|
|
44 |
*
|
|
|
45 |
* @return string HTML
|
|
|
46 |
*/
|
|
|
47 |
function inscription_onglets() {
|
|
|
48 |
//on trouve l'id de la fiche en fonction de l'onglet choisi auparavant
|
|
|
49 |
if (isset($_GET['voir_fiche'])) {
|
|
|
50 |
$id_fiche=$_GET['voir_fiche'];
|
|
|
51 |
} elseif (isset($_GET['voir_abonnement'])) {
|
|
|
52 |
$id_fiche=$_GET['voir_abonnement'];
|
|
|
53 |
} elseif (isset($_GET['voir_actus'])) {
|
|
|
54 |
$id_fiche=$_GET['voir_actus'];
|
|
|
55 |
} elseif (isset($_GET['voir_ressources'])) {
|
|
|
56 |
$id_fiche=$_GET['voir_ressources'];
|
|
|
57 |
} elseif (isset($_GET['voir_competences'])) {
|
|
|
58 |
$id_fiche=$_GET['voir_competences'];
|
| 1298 |
neiluj |
59 |
} else {
|
|
|
60 |
$id_fiche = '';
|
| 810 |
florian |
61 |
}
|
|
|
62 |
|
|
|
63 |
//preparation de l'affichage des onglets
|
|
|
64 |
$res='<ul id="onglets_inscription">'."\n";
|
|
|
65 |
//partie présentation
|
|
|
66 |
$GLOBALS['ins_url']->addQueryString('voir_fiche', $id_fiche);
|
| 1298 |
neiluj |
67 |
$res .= '<li id="fiche"';
|
|
|
68 |
if (isset($_GET['voir_fiche'])) $res .= ' class="onglet_actif" ';
|
|
|
69 |
$res .= '><a href="'.$GLOBALS['ins_url']->getURL().'">'.INS_PRESENTATION.'</a>'."\n".'</li>'."\n";
|
| 810 |
florian |
70 |
$GLOBALS['ins_url']->removeQueryString('voir_fiche');
|
|
|
71 |
if ($id_fiche==$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID)) {
|
|
|
72 |
//partie abonnement
|
|
|
73 |
$GLOBALS['ins_url']->addQueryString('voir_abonnement', $id_fiche);
|
| 1298 |
neiluj |
74 |
$res .= '<li id="abonnements"';
|
|
|
75 |
if (isset($_GET['voir_abonnement'])) $res .= ' class="onglet_actif" ';
|
|
|
76 |
$res .= '><a href="'.$GLOBALS['ins_url']->getURL().'">'.INS_ABONNEMENTS.'</a></li>'."\n" ;
|
| 810 |
florian |
77 |
$GLOBALS['ins_url']->removeQueryString('voir_abonnement');
|
|
|
78 |
}
|
|
|
79 |
//partie actualites
|
|
|
80 |
$GLOBALS['ins_url']->addQueryString('voir_actus', $id_fiche);
|
|
|
81 |
$res .= '<li id="actus"><a href="'.$GLOBALS['ins_url']->getURL().'">'.INS_ACTUALITES.'</a>'."\n".'</li>'."\n";
|
|
|
82 |
$GLOBALS['ins_url']->removeQueryString('voir_actus');
|
|
|
83 |
//partie ressources
|
|
|
84 |
$GLOBALS['ins_url']->addQueryString('voir_ressources', $id_fiche);
|
|
|
85 |
$res .= '<li id="ressources"><a href="'.$GLOBALS['ins_url']->getURL().'">'.INS_RESSOURCES.'</a>'."\n".'</li>'."\n";
|
|
|
86 |
$GLOBALS['ins_url']->removeQueryString('voir_ressources');
|
|
|
87 |
//partie competences
|
| 833 |
florian |
88 |
//$GLOBALS['ins_url']->addQueryString('voir_competences', $id_fiche);
|
|
|
89 |
//$res .= '<li id="competences"><a href="'.$GLOBALS['ins_url']->getURL().'">'.INS_COMPETENCES.'</a>'."\n".'</li>'."\n";
|
|
|
90 |
//$GLOBALS['ins_url']->removeQueryString('voir_competences');
|
| 810 |
florian |
91 |
$res.= '</ul>'."\n";
|
|
|
92 |
return $res;
|
|
|
93 |
}
|
|
|
94 |
|
|
|
95 |
/** function affiche_onglet_info() sélectionne le type d'information à montrer pour une fiche
|
|
|
96 |
*
|
|
|
97 |
*
|
|
|
98 |
*
|
|
|
99 |
* @return string HTML
|
|
|
100 |
*/
|
|
|
101 |
function affiche_onglet_info() {
|
| 1292 |
neiluj |
102 |
include_once INS_CHEMIN_APPLI.'bibliotheque/inscription.fonct.php';
|
| 810 |
florian |
103 |
include_once INS_CHEMIN_APPLI.'bibliotheque/inscription.class.php';
|
|
|
104 |
if ( isset($_GET['voir_fiche']) ) {
|
|
|
105 |
$res=info($_GET['voir_fiche'], 'fiche');
|
|
|
106 |
} elseif (isset($_GET['voir_abonnement'])) {
|
|
|
107 |
$res=info($_GET['voir_abonnement'], 'abonnement');
|
|
|
108 |
} elseif (isset($_GET['voir_actus'])) {
|
|
|
109 |
$res=info($_GET['voir_actus'], 'actus');
|
|
|
110 |
} elseif (isset($_GET['voir_ressources'])) {
|
|
|
111 |
$res=info($_GET['voir_ressources'], 'ressources');
|
|
|
112 |
} elseif (isset($_GET['voir_competences'])) {
|
|
|
113 |
$res=info($_GET['voir_competences'], 'competences');
|
|
|
114 |
}
|
|
|
115 |
return $res;
|
|
|
116 |
}
|
|
|
117 |
|
|
|
118 |
/** function Annuaire_recherche () Moteur de recherche dans l'annuaire des inscrits
|
|
|
119 |
*
|
|
|
120 |
*
|
|
|
121 |
*
|
|
|
122 |
* @return string HTML
|
|
|
123 |
*/
|
|
|
124 |
function Annuaire_recherche() {
|
|
|
125 |
$res ='<h2>'.INS_RECHERCHE_ANNUAIRE_DES_INSCRITS.'</h2>'."\n";
|
|
|
126 |
$form =& new HTML_QuickForm('form_recherche_annuaire', 'post', str_replace('&', '&', $GLOBALS['ins_url']->getURL()));
|
|
|
127 |
$squelette =& $form->defaultRenderer();
|
|
|
128 |
$squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'<table>'."\n".'{content}'."\n".'</table>'."\n".'</form>'."\n");
|
|
|
129 |
$squelette->setElementTemplate( '<tr>'."\n".
|
|
|
130 |
'<td style="padding:5px;text-align:right;">{label}'.
|
|
|
131 |
'<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".
|
|
|
132 |
'<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n".
|
|
|
133 |
' : </td>'."\n".
|
|
|
134 |
'<td style="padding:5px;text-align:left;">{element}</td>'."\n".
|
|
|
135 |
'</tr>'."\n" );
|
|
|
136 |
$squelette->setElementTemplate( '<tr>'."\n".'<td colspan=2 style="padding:5px;">{label}{element}</td>'."\n".'</tr>'."\n", 'bouton_rechercher');
|
|
|
137 |
|
| 1292 |
neiluj |
138 |
$option_type=array ('0' => INS_PERSONNES_OU_STRUCTURES,
|
|
|
139 |
'1' => INS_PERSONNES,
|
|
|
140 |
'2' => INS_STRUCTURES);
|
|
|
141 |
$form->addElement('select', 'nom_type', INS_JE_RECHERCHE, $option_type);
|
|
|
142 |
|
| 810 |
florian |
143 |
//requete pour recuperer la liste des pays
|
|
|
144 |
$requete = 'SELECT '.INS_CHAMPS_ID_PAYS.', '.INS_CHAMPS_LABEL_PAYS.' FROM '.INS_TABLE_PAYS.' WHERE '.INS_CHAMPS_I18N_PAYS.'="fr-FR"';
|
|
|
145 |
$resultat = $GLOBALS['ins_db']->query($requete) ;
|
|
|
146 |
if (DB::isError($resultat)) {
|
|
|
147 |
die ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;
|
|
|
148 |
}
|
|
|
149 |
$option_pays = array('zz' => INS_TOUS_PAYS) ;
|
|
|
150 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
|
|
|
151 |
$option_pays[$ligne[INS_CHAMPS_ID_PAYS]] = $ligne[INS_CHAMPS_LABEL_PAYS] ;
|
|
|
152 |
}
|
|
|
153 |
$form->addElement('select', 'nom_pays', INS_PAYS, $option_pays);
|
|
|
154 |
|
|
|
155 |
//requete pour recuperer la liste des départements
|
|
|
156 |
$requete = 'SELECT '.INS_CHAMPS_ID_DEPARTEMENT.', '.INS_CHAMPS_NOM_DEPARTEMENT.' FROM '.INS_TABLE_DPT;
|
|
|
157 |
$resultat = $GLOBALS['ins_db']->query($requete) ;
|
|
|
158 |
if (DB::isError($resultat)) {
|
|
|
159 |
die ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;
|
|
|
160 |
}
|
|
|
161 |
$option_departements = array('0' => INS_TOUS_DEPARTEMENTS) ;
|
|
|
162 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
|
|
|
163 |
$option_departements[$ligne[INS_CHAMPS_ID_DEPARTEMENT]] = $ligne[INS_CHAMPS_NOM_DEPARTEMENT] ;
|
|
|
164 |
}
|
|
|
165 |
$form->addElement('select', 'nom_departement', INS_DEPARTEMENT_POUR_LA_FRANCE, $option_departements);
|
|
|
166 |
|
|
|
167 |
$form->addElement('text', 'nom_annuaire', INS_NOM_ANNUAIRE);
|
|
|
168 |
|
|
|
169 |
$form->addElement('submit', 'bouton_rechercher', INS_RECHERCHER);
|
|
|
170 |
|
|
|
171 |
//valeurs par defaut
|
|
|
172 |
$defauts=array('nom_pays'=>'fr','nom_departement'=>'0');
|
|
|
173 |
$form->setDefaults($defauts);
|
|
|
174 |
|
|
|
175 |
//affichage du formulaire
|
|
|
176 |
$res .=$form->toHtml();
|
|
|
177 |
|
|
|
178 |
//on teste si l'on affiche le resultat de la recherche ou
|
| 1292 |
neiluj |
179 |
if (isset($_POST['nom_type'])) {
|
| 810 |
florian |
180 |
$requete = 'SELECT '.INS_CHAMPS_ID.', '.INS_CHAMPS_NOM.', '.INS_CHAMPS_PRENOM.', '.INS_CHAMPS_VILLE.', '.INS_CHAMPS_CODE_POSTAL;
|
|
|
181 |
$requete .= ' FROM '.INS_ANNUAIRE.' WHERE ';
|
|
|
182 |
$req_where=0;
|
| 1292 |
neiluj |
183 |
if ($_POST['nom_type']==1) {
|
|
|
184 |
$requete .= INS_CHAMPS_EST_STRUCTURE.'=0 ';
|
|
|
185 |
$req_where=1;
|
|
|
186 |
} elseif ($_POST['nom_type']==2) {
|
|
|
187 |
$requete .= INS_CHAMPS_EST_STRUCTURE.'=1 ';
|
|
|
188 |
$req_where=1;
|
| 810 |
florian |
189 |
}
|
|
|
190 |
if ($_POST['nom_pays']!='0'and$_POST['nom_pays']!='zz') {
|
|
|
191 |
if ($req_where) {
|
|
|
192 |
$requete .= 'AND ';
|
|
|
193 |
} else {
|
|
|
194 |
$req_where=1;
|
|
|
195 |
}
|
|
|
196 |
$requete .= INS_CHAMPS_PAYS.'="'.$_POST['nom_pays'].'" ';
|
|
|
197 |
}
|
|
|
198 |
if ($_POST['nom_departement']!='0') {
|
|
|
199 |
if ($req_where) {
|
|
|
200 |
$requete .= 'AND ';
|
|
|
201 |
} else {
|
|
|
202 |
$req_where=1;
|
|
|
203 |
}
|
|
|
204 |
$requete .= INS_CHAMPS_DEPARTEMENT.'="'.$_POST['nom_departement'].'" ';
|
|
|
205 |
}
|
|
|
206 |
if ($_POST['nom_annuaire']!='') {
|
|
|
207 |
if ($req_where) {
|
|
|
208 |
$requete .= 'AND ';
|
|
|
209 |
} else {
|
|
|
210 |
$req_where=1;
|
|
|
211 |
}
|
|
|
212 |
$requete .= '('.INS_CHAMPS_NOM.' LIKE "%'.$_POST['nom_annuaire'].'%"'.
|
|
|
213 |
' OR '.INS_CHAMPS_PRENOM.' LIKE "%'.$_POST['nom_annuaire'].'%"'.
|
| 1292 |
neiluj |
214 |
' OR '.INS_CHAMPS_SIGLE_STRUCTURE.' LIKE "%'.$_POST['nom_annuaire'].'%"'.
|
|
|
215 |
' OR '.INS_CHAMPS_DESCRIPTION.' LIKE "%'.$_POST['nom_annuaire'].'%") ';
|
| 810 |
florian |
216 |
}
|
|
|
217 |
if (!$req_where) $requete .= '1';
|
|
|
218 |
$requete .=' ORDER BY '.INS_CHAMPS_NOM;
|
| 1292 |
neiluj |
219 |
$resultat = $GLOBALS['ins_db']->query($requete);
|
| 810 |
florian |
220 |
if ($resultat->numRows()>0) {
|
|
|
221 |
$res .='<h2>'.INS_RESULTATS_RECHERCHE.' ('.$resultat->numRows().' '.INS_ENTREES.')</h2>'."\n";
|
|
|
222 |
$res .='<p class="zone_info">'.INS_CLIQUER_ELEMENT_LISTE.'</p>'."\n";
|
|
|
223 |
$i=0;
|
|
|
224 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
|
|
|
225 |
$donnees_membres[$i++]=$ligne;
|
|
|
226 |
}
|
| 1292 |
neiluj |
227 |
$res .= listes_inscrit($donnees_membres);
|
|
|
228 |
}
|
|
|
229 |
else {
|
| 810 |
florian |
230 |
$res .='<h2>'.INS_RESULTATS_RECHERCHE.'</h2>'."\n";
|
|
|
231 |
$res .= '<p class="zone_alert">'.INS_PAS_DE_RESULTATS.'</p>'."\n";
|
|
|
232 |
}
|
| 1292 |
neiluj |
233 |
} else {
|
|
|
234 |
$res .='<h2>'.INS_DIX_DERNIERES_INSCRIPTIONS.'</h2>'."\n";
|
|
|
235 |
$requete = 'SELECT '.INS_CHAMPS_ID.', '.INS_CHAMPS_NOM.', '.INS_CHAMPS_PRENOM.', '.INS_CHAMPS_VILLE.', '.INS_CHAMPS_CODE_POSTAL;
|
|
|
236 |
$requete .= ' FROM '.INS_ANNUAIRE.' ORDER BY '.INS_CHAMPS_DATE.' DESC LIMIT 0 , 10';
|
|
|
237 |
$resultat = $GLOBALS['ins_db']->query($requete);
|
|
|
238 |
if ($resultat->numRows()>0) {
|
|
|
239 |
$i=0;
|
|
|
240 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
|
|
|
241 |
$donnees_membres[$i++]=$ligne;
|
|
|
242 |
}
|
|
|
243 |
$res .= listes_inscrit($donnees_membres, 0);
|
| 810 |
florian |
244 |
}
|
| 1292 |
neiluj |
245 |
else {
|
|
|
246 |
$res .= '<p class="zone_alert">'.INS_PAS_DE_RESULTATS.'</p>'."\n";
|
|
|
247 |
}
|
| 810 |
florian |
248 |
}
|
|
|
249 |
return $res ;
|
|
|
250 |
}
|
|
|
251 |
|
|
|
252 |
/**
|
|
|
253 |
* Renvoie le code HTML de la liste des inscrits
|
|
|
254 |
* en fonction de la requete passé en parametre
|
|
|
255 |
*
|
|
|
256 |
* @return Renvoie le code HTML de la liste des inscrits
|
|
|
257 |
*/
|
|
|
258 |
|
| 1292 |
neiluj |
259 |
function listes_inscrit(& $donnees_membres, $affiche_form_mail=1) {
|
| 810 |
florian |
260 |
$res = '';
|
| 833 |
florian |
261 |
if ($GLOBALS['AUTH']->getAuth()&&$affiche_form_mail) {$res .= '<form action="'.$GLOBALS['ins_url']->getURL().'" method="post" name="formmail">'."\n";}
|
|
|
262 |
$res .= '<ul style="clear:both;">'."\n";
|
| 814 |
alexandre_ |
263 |
if ($GLOBALS['AUTH']->getAuth()&&$affiche_form_mail) {
|
|
|
264 |
|
|
|
265 |
$res .= '<form action="'.$GLOBALS['ins_url']->getURL().'" method="post" name="formmail">'."\n";
|
|
|
266 |
}
|
| 810 |
florian |
267 |
$res .= '<ul>'."\n";
|
|
|
268 |
for ($i=0;$i<count($donnees_membres);$i++) {
|
| 1292 |
neiluj |
269 |
$id = array_shift($donnees_membres[$i]);
|
| 810 |
florian |
270 |
$GLOBALS['ins_url']->addQueryString('voir_fiche', $id);
|
| 812 |
florian |
271 |
$res .= '<li>'."\n";
|
| 810 |
florian |
272 |
if ($GLOBALS['AUTH']->getAuth()&&$affiche_form_mail) {
|
| 811 |
florian |
273 |
$res.='<input type="checkbox" name="select[]" value="'.$id.'" />'."\n";
|
| 810 |
florian |
274 |
}
|
| 1292 |
neiluj |
275 |
$res .= '<a href="'.$GLOBALS['ins_url']->getURL().'">'."\n";
|
|
|
276 |
$res .= '<strong>'.$donnees_membres[$i][INS_CHAMPS_NOM].
|
|
|
277 |
' '.$donnees_membres[$i][INS_CHAMPS_PRENOM].'</strong>'."\n".
|
|
|
278 |
' '.$donnees_membres[$i][INS_CHAMPS_CODE_POSTAL].
|
|
|
279 |
' '.$donnees_membres[$i][INS_CHAMPS_VILLE];
|
| 811 |
florian |
280 |
$res .= '</a>'."\n".'</li>'."\n";
|
| 810 |
florian |
281 |
}
|
|
|
282 |
$res .= '</ul>'."\n";
|
|
|
283 |
if ($GLOBALS['AUTH']->getAuth()&&$affiche_form_mail) {
|
|
|
284 |
$res .= INS_CHECK_UNCHECK ;
|
|
|
285 |
$res .= ' <input type="checkbox" name="selecttotal" onclick="javascript:setCheckboxes(\'formmail\');"><br />';
|
|
|
286 |
$res .= '<h3>'.INS_ENVOYER_MAIL.'</h3>'."\n";
|
|
|
287 |
$res .= '<p style="text-align:right;">'.INS_SUJET.' : <input style="border:1px solid #000;width:450px;" type="text" name="titre_mail"><br />'."\n".
|
|
|
288 |
INS_MESSAGE.' : <textarea style="border:1px solid #000;width:450px;" name="corps" rows="5" cols="60"></textarea></p>'."\n".
|
| 833 |
florian |
289 |
'<p style="width:100px;margin:4px auto;text-align:center;"><input name="bouton_envoi_mail" type="submit" value="'.INS_ENVOYER.'" /></p>'."\n".
|
| 1292 |
neiluj |
290 |
'<p style="width:100px;margin:4px auto;text-align:center;"><input type="submit" value="'.INS_ENVOYER.'" /></p>'."\n".
|
| 814 |
alexandre_ |
291 |
'<input type="hidden" name="fin" value="true" /><input type="hidden" name="mailer" value="1" />'.
|
| 810 |
florian |
292 |
'</form>'."\n";
|
|
|
293 |
} else {
|
|
|
294 |
if ($affiche_form_mail) $res .='<br /><p class="zone_info">'.INS_PAS_IDENTIFIE.'</p>'."\n";
|
|
|
295 |
}
|
|
|
296 |
return $res ;
|
|
|
297 |
}
|
|
|
298 |
|
|
|
299 |
|
|
|
300 |
|
|
|
301 |
/** envoie_mail_depuis_annuaire()
|
|
|
302 |
*
|
|
|
303 |
*
|
|
|
304 |
* @return envoie l'email
|
|
|
305 |
*/
|
|
|
306 |
|
|
|
307 |
function envoie_mail_depuis_annuaire() {
|
|
|
308 |
$requete = "select ".INS_CHAMPS_MAIL." from ".INS_ANNUAIRE.
|
|
|
309 |
" where ".INS_CHAMPS_ID."='".$GLOBALS['AUTH']->getAuthData (INS_CHAMPS_ID)."'";
|
|
|
310 |
$resultat = $GLOBALS['ins_db']->query($requete);
|
|
|
311 |
if (DB::isError($resultat)) {
|
|
|
312 |
die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo());
|
|
|
313 |
}
|
|
|
314 |
$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
|
|
|
315 |
$entete = "From: <".$ligne[INS_CHAMPS_MAIL].">\n";
|
|
|
316 |
|
| 933 |
florian |
317 |
$_POST['corps'] .= INS_PIED_MESSAGE;
|
| 810 |
florian |
318 |
$_POST['corps'] = stripslashes($_POST['corps']) ;
|
|
|
319 |
$liste = "" ;
|
|
|
320 |
$liste_numero = implode (',', $_POST['select']) ;
|
|
|
321 |
$requete_liste_mail = 'select '.INS_CHAMPS_MAIL.' from '.INS_ANNUAIRE.' where '.INS_CHAMPS_ID.
|
|
|
322 |
' in ('.$liste_numero.')' ;
|
|
|
323 |
$resultat_liste_mail = $GLOBALS['ins_db']->query($requete_liste_mail);
|
|
|
324 |
|
|
|
325 |
while ($ligne_liste_mail = $resultat_liste_mail->fetchRow(DB_FETCHMODE_ASSOC)) {
|
|
|
326 |
mail ($ligne_liste_mail[INS_CHAMPS_MAIL], stripslashes($_POST['titre_mail']), $_POST['corps'] , $entete) ;
|
|
|
327 |
$liste .= $ligne_liste_mail[INS_CHAMPS_MAIL]."\n" ;
|
|
|
328 |
}
|
|
|
329 |
|
|
|
330 |
$_POST['corps'] .= "\n----------------------------------------------------------------------------";
|
| 933 |
florian |
331 |
$_POST['corps'] .= "\n".INS_MESSAGE_ENVOYE_A." :\n $liste" ;
|
| 810 |
florian |
332 |
|
|
|
333 |
mail (INS_MAIL_ADMIN_APRES_INSCRIPTION, stripslashes($_POST['titre_mail']), $_POST['corps'], $entete);
|
|
|
334 |
$_POST['corps'] = '';
|
|
|
335 |
$_POST['titre_mail'] = '';
|
| 933 |
florian |
336 |
return '<div>'.INS_MAIL_ENVOYE.'</div>' ;
|
| 810 |
florian |
337 |
}
|
|
|
338 |
|
|
|
339 |
/** function carto_liste_fiches()
|
|
|
340 |
*
|
|
|
341 |
*
|
|
|
342 |
* @return string HTML
|
|
|
343 |
*/
|
| 1292 |
neiluj |
344 |
function carto_liste_fiches(&$monde, $nom_table1, $nom_table2, $nom_champs_pays, $nom_champs_cp, $requete_sql) {
|
| 810 |
florian |
345 |
|
|
|
346 |
global $mailer;
|
|
|
347 |
global $select;//utilisé dans liste_inscrit.php
|
|
|
348 |
|
|
|
349 |
$javascript = "
|
|
|
350 |
function confirmer () {
|
|
|
351 |
if (window.confirm ('Cliquez sur OK pour confirmer.')) {
|
|
|
352 |
window.formmail.submit();
|
|
|
353 |
}
|
|
|
354 |
}
|
|
|
355 |
|
|
|
356 |
function setCheckboxes(the_form)
|
|
|
357 |
{
|
|
|
358 |
var do_check=document.forms[the_form].elements['selecttotal'].checked;
|
|
|
359 |
var elts = document.forms[the_form].elements['select[]'];
|
|
|
360 |
var elts_cnt = (typeof(elts.length) != 'undefined')
|
|
|
361 |
? elts.length
|
|
|
362 |
: 0;
|
|
|
363 |
if (elts_cnt) {
|
|
|
364 |
for (var i = 0; i < elts_cnt; i++) {
|
|
|
365 |
elts[i].checked = do_check;
|
|
|
366 |
} // Fin for
|
|
|
367 |
}
|
|
|
368 |
else {
|
|
|
369 |
elts.checked = do_check;
|
|
|
370 |
} // Fin if... else
|
|
|
371 |
return true;
|
|
|
372 |
} // Fin de la fonction 'setCheckboxes()'
|
|
|
373 |
|
|
|
374 |
";
|
|
|
375 |
GEN_stockerCodeScript($javascript);
|
|
|
376 |
|
|
|
377 |
$res = '';
|
| 1292 |
neiluj |
378 |
$tabmonde = explode ('*',$monde->historique);
|
| 810 |
florian |
379 |
|
| 1292 |
neiluj |
380 |
// Premier cas, on vient de cliquer sur un pays qui n'est pas
|
|
|
381 |
// la France, on affiche les adhérents de ce pays
|
|
|
382 |
if (count($tabmonde) == 3) {
|
|
|
383 |
$argument = $tabmonde[2];
|
|
|
384 |
$query = 'SELECT * FROM carto_PAYS WHERE CP_ID_pays="'.$argument.'"';
|
|
|
385 |
$result = $GLOBALS['ins_db']->query($query);
|
|
|
386 |
if (DB::isError($result)) {
|
|
|
387 |
die ($result->getMessage().'<br />'.$result->getDebugInfo()) ;
|
| 810 |
florian |
388 |
}
|
| 1292 |
neiluj |
389 |
$row = $result->fetchRow(DB_FETCHMODE_OBJECT) ;
|
|
|
390 |
$pays = $row->CP_Intitule_pays;
|
|
|
391 |
$monde->nom = $monde->nom.'*'.$pays;
|
|
|
392 |
$tabonglet = explode ('*', $monde->historique);
|
|
|
393 |
$tabnom = explode ('*', $monde->nom);
|
|
|
394 |
$res .='<br /><strong>'.INS_RETOUR_A_LA_CARTE."\n";
|
|
|
395 |
foreach ($tabonglet as $key => $value) {
|
|
|
396 |
if ($key == 0) {
|
|
|
397 |
$chemin = $value;
|
|
|
398 |
$value = 'monde';
|
|
|
399 |
$res .= "<a class=\"chemin_carto\" href=\"".$monde->url."&historique_cartes=$chemin\"> > ".$tabnom[$key]."</a>";
|
|
|
400 |
} else if ($key == (count($tabonglet)-1)) {
|
|
|
401 |
$res .= "<a class=\"chemin_carto\"> > $pays</a>";
|
|
|
402 |
} else {
|
|
|
403 |
$chemin .= '*'.$value;
|
|
|
404 |
$res .= "<a class=\"chemin_carto\" href=\"".$monde->url."&historique_cartes=$chemin\"> > ".$tabnom[$key]."</a>";
|
|
|
405 |
}
|
|
|
406 |
}
|
|
|
407 |
$res .= '</strong>'."\n";
|
|
|
408 |
$capitale = $row->CP_Intitule_capitale;
|
|
|
409 |
$query2 = ' SELECT count('.$nom_champs_cp.') as nbr'.
|
|
|
410 |
' FROM '.$nom_table1;
|
|
|
411 |
if ($nom_table2!=0) $query2 .= ', '.$nom_table2;
|
|
|
412 |
$query2 .= ' WHERE '.$nom_champs_pays.'="'.$argument.'"';
|
|
|
413 |
if ($requete_sql!='') $query2 .= ' AND ('.$requete_sql.')';
|
|
|
414 |
|
|
|
415 |
$result2 = $GLOBALS['ins_db']->query($query2);
|
|
|
416 |
if (DB::isError($result2)) {
|
|
|
417 |
die ($result2->getMessage().'<br />'.$result2->getDebugInfo()) ;
|
|
|
418 |
}
|
|
|
419 |
$row2 = $result2->fetchRow(DB_FETCHMODE_OBJECT) ;
|
|
|
420 |
$res .= '<br /><br /><div class="info_pays">'.$pays.' (capitale: '.$capitale.') : ' ;
|
|
|
421 |
if ($row2->nbr == 0) {
|
|
|
422 |
$res .= INS_AUCUN_INSCRIT.' '.INS_LABEL_PROJET ;
|
|
|
423 |
|
|
|
424 |
}
|
|
|
425 |
else if ($row2->nbr == 1) {
|
|
|
426 |
$res .= $row2->nbr.' '.INS_INSCRIT.' '.INS_LABEL_PROJET ;
|
| 810 |
florian |
427 |
}
|
|
|
428 |
else {
|
| 1292 |
neiluj |
429 |
$res .= $row2->nbr.' '.INS_INSCRIT.'s '.INS_LABEL_PROJET ;
|
|
|
430 |
}
|
|
|
431 |
$res .= "</div>\n";
|
|
|
432 |
if ($row2->nbr>0) {
|
|
|
433 |
if ((INS_NECESSITE_LOGIN)and(!$GLOBALS['AUTH']->getAuth())) {
|
|
|
434 |
$res .= '<br /><p class="zone_alert">'.INS_VOUS_DEVEZ_ETRE_INSCRIT.'</p>'."\n" ;
|
|
|
435 |
}
|
|
|
436 |
else {
|
|
|
437 |
$requete = 'SELECT '.INS_CHAMPS_ID.', '.INS_CHAMPS_NOM.', '.INS_CHAMPS_PRENOM.', '.INS_CHAMPS_VILLE.', '.INS_CHAMPS_CODE_POSTAL.' FROM '.$nom_table1;
|
|
|
438 |
if ($nom_table2!=0) $requete .= ', '.$nom_table2;
|
|
|
439 |
$requete .= ' WHERE '.$nom_champs_pays.'="'.$argument.'"';
|
|
|
440 |
if ($requete_sql!='') $requete .= ' AND ('.$requete_sql.')';
|
|
|
441 |
$requete .= ' ORDER BY '.INS_CHAMPS_NOM.', '.INS_CHAMPS_PRENOM;
|
|
|
442 |
$resultat = $GLOBALS['ins_db']->query($requete);
|
|
|
443 |
$i=0;
|
|
|
444 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
|
|
|
445 |
$donnees_membres[$i++]=$ligne;
|
|
|
446 |
}
|
|
|
447 |
$res .= listes_inscrit($donnees_membres, 1);
|
|
|
448 |
if ($mailer==1) {
|
|
|
449 |
if (!is_array($select)) {
|
|
|
450 |
$res .= "<div>".INS_NO_DESTINATAIRE."</div>";
|
|
|
451 |
}
|
|
|
452 |
else {
|
|
|
453 |
$res .= '<div class="zone_info">'.INS_MESSAGE_ENVOYE.'</div>'."\n" ;
|
|
|
454 |
carto_envoie_mail() ;
|
|
|
455 |
}
|
|
|
456 |
}
|
|
|
457 |
else {
|
|
|
458 |
$res .= carto_texte_cocher() ;
|
|
|
459 |
}
|
|
|
460 |
$res .= carto_formulaire() ;
|
|
|
461 |
}
|
|
|
462 |
}
|
|
|
463 |
|
|
|
464 |
// 2 ème cas, on vient de cliquer sur un département français
|
|
|
465 |
} else if (count($tabmonde) == 4) {
|
|
|
466 |
$argument = $tabmonde[3];
|
|
|
467 |
$query = 'SELECT * FROM '.INS_TABLE_DPT.' WHERE '.INS_CHAMPS_ID_DEPARTEMENT.'='.$argument;
|
|
|
468 |
$result = $GLOBALS['ins_db']->query($query);
|
|
|
469 |
if (DB::isError($result)) {
|
|
|
470 |
die ($result->getMessage() .'<br />'.$result->getDebugInfo());
|
|
|
471 |
}
|
|
|
472 |
$row = $result->fetchRow(DB_FETCHMODE_ASSOC);
|
|
|
473 |
$nom = $row[INS_CHAMPS_NOM_DEPARTEMENT];
|
|
|
474 |
|
|
|
475 |
$query2 = ' SELECT count('.$nom_champs_cp.') as nbr'.
|
|
|
476 |
' FROM '.$nom_table1;
|
|
|
477 |
if ($nom_table2!=0) $query2 .= ', '.$nom_table2;
|
|
|
478 |
$query2 .= ' WHERE '.$nom_champs_cp.' LIKE "'.$argument.'%"'.
|
|
|
479 |
' AND '.$nom_champs_pays.'="FR"';
|
|
|
480 |
if ($requete_sql!='') $query2 .= ' AND ('.$requete_sql.')';
|
|
|
481 |
$result2 = $GLOBALS['ins_db']->query($query2);
|
|
|
482 |
if (DB::isError($result2)) {
|
|
|
483 |
die ($result2->getMessage().'<br />'.$result2->getDebugInfo()) ;
|
|
|
484 |
}
|
|
|
485 |
|
|
|
486 |
$row2 = $result2->fetchRow(DB_FETCHMODE_OBJECT);
|
|
|
487 |
$res .= '<br /><p class="zone_info">'."\n" ;
|
|
|
488 |
if ($row2->nbr == 0) {
|
|
|
489 |
$res .= INS_AUCUN_INSCRIT." ".INS_LABEL_PROJET ;
|
|
|
490 |
}
|
|
|
491 |
else if ($row2->nbr == 1) {
|
|
|
492 |
$res .= $row2->nbr." ".INS_INSCRIT." ".INS_LABEL_PROJET ;
|
|
|
493 |
}
|
|
|
494 |
else {
|
|
|
495 |
$res .= $row2->nbr." ".INS_INSCRIT."s ".INS_LABEL_PROJET ;
|
|
|
496 |
}
|
|
|
497 |
$res .= '</p>'."\n";
|
|
|
498 |
if ($row2->nbr>0) {
|
|
|
499 |
if ((INS_NECESSITE_LOGIN)and(!$GLOBALS['AUTH']->getAuth())) {
|
|
|
500 |
$res .= '<br /><p class="zone_alert">'.INS_VOUS_DEVEZ_ETRE_INSCRIT.'</p>'."\n" ;
|
|
|
501 |
} else {
|
|
|
502 |
$requete = 'SELECT '.INS_CHAMPS_ID.', '.INS_CHAMPS_NOM.', '.INS_CHAMPS_PRENOM.', '.INS_CHAMPS_VILLE.', '.INS_CHAMPS_CODE_POSTAL.' FROM '.$nom_table1;
|
|
|
503 |
if ($nom_table2!=0) $requete .= ', '.$nom_table2;
|
|
|
504 |
|
|
|
505 |
if (strlen($argument)==1) {
|
|
|
506 |
$argument='0'.$argument;
|
| 810 |
florian |
507 |
}
|
| 1292 |
neiluj |
508 |
|
|
|
509 |
$requete .= ' WHERE '.$nom_champs_cp.' LIKE "'.$argument.'%"'.
|
|
|
510 |
' AND '.$nom_champs_pays.'="FR"';
|
|
|
511 |
if ($requete_sql!='') $requete .= ' AND ('.$requete_sql.')';
|
|
|
512 |
$requete .= ' ORDER BY '.INS_CHAMPS_NOM.', '.INS_CHAMPS_PRENOM;
|
|
|
513 |
$resultat = $GLOBALS['ins_db']->query($requete);
|
|
|
514 |
$i=0;
|
|
|
515 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
|
|
|
516 |
$donnees_membres[$i++]=$ligne;
|
|
|
517 |
}
|
|
|
518 |
$res .= listes_inscrit($donnees_membres, 1);
|
|
|
519 |
|
|
|
520 |
if ($mailer==1) {
|
|
|
521 |
if (!is_array($select)) {
|
|
|
522 |
$res.= INS_NO_DESTINATAIRE;
|
|
|
523 |
} else {
|
|
|
524 |
$res .= '<p class="zone_info">'.INS_MESSAGE_ENVOYE."</p>\n" ;
|
|
|
525 |
carto_envoie_mail() ;
|
|
|
526 |
}
|
| 810 |
florian |
527 |
}
|
| 1292 |
neiluj |
528 |
}
|
| 810 |
florian |
529 |
}
|
|
|
530 |
}
|
|
|
531 |
return $res;
|
|
|
532 |
}
|
|
|
533 |
|
|
|
534 |
|
|
|
535 |
/** function carto_texte_cocher ()
|
|
|
536 |
*
|
|
|
537 |
*
|
|
|
538 |
* @return string HTML
|
|
|
539 |
*/
|
|
|
540 |
function carto_texte_cocher() {
|
|
|
541 |
$res = '<br />'.INS_CHECK_UNCHECK ;
|
|
|
542 |
$res .= ' <input type="checkbox" name="selecttotal" onclick="javascript:setCheckboxes(\'formmail\');" />'."\n";
|
|
|
543 |
return $res ;
|
|
|
544 |
}
|
|
|
545 |
|
|
|
546 |
|
|
|
547 |
/** function carto_formulaire ()
|
|
|
548 |
*
|
|
|
549 |
*
|
|
|
550 |
*
|
|
|
551 |
* @return string HTML
|
|
|
552 |
*/
|
|
|
553 |
function carto_formulaire($titre_mail="", $corps="") {
|
|
|
554 |
$res = '<br /><h2>'.INS_ENVOYER_MAIL.'</h2><br />'."\n".
|
|
|
555 |
INS_SUJET.' :<br /><input class="forml" type="text" name="titre_mail" size="60" value="'.$titre_mail.'" /><br /><br />'."\n".
|
|
|
556 |
INS_MESSAGE.' :<br /><textarea class="forml" name="corps" rows="5" cols="60">'.$corps.'</textarea><br /><br />'."\n".
|
|
|
557 |
'<input class="bouton" type="submit" onclick="javascript:confirmer();" value="'.INS_ENVOYER.'" />'."\n".
|
|
|
558 |
'</form>'."\n";
|
|
|
559 |
return $res ;
|
|
|
560 |
}
|
|
|
561 |
|
|
|
562 |
/** envoie_mail()
|
|
|
563 |
*
|
|
|
564 |
*
|
|
|
565 |
* @return envoie l'email
|
|
|
566 |
*/
|
|
|
567 |
function carto_envoie_mail() {
|
|
|
568 |
$requete = 'SELECT '.INS_CHAMPS_MAIL.' FROM '.INS_ANNUAIRE.' WHERE '.INS_CHAMPS_ID.'='.$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID);
|
|
|
569 |
$resultat = $GLOBALS['ins_db']->query($requete);
|
|
|
570 |
if (DB::isError($resultat)) {
|
|
|
571 |
die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo());
|
|
|
572 |
}
|
|
|
573 |
$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
|
| 814 |
alexandre_ |
574 |
|
| 1298 |
neiluj |
575 |
include_once PAP_CHEMIN_API_PEAR.'Mail.php' ;
|
| 810 |
florian |
576 |
|
| 814 |
alexandre_ |
577 |
$entetes['From'] = $ligne[INS_CHAMPS_MAIL];
|
|
|
578 |
|
|
|
579 |
$objet_mail =& Mail::factory('smtp');
|
|
|
580 |
$entetes['Subject'] = $GLOBALS['titre_mail'];
|
|
|
581 |
$entetes['Date'] = date("m-d-Y H:i") ;
|
| 810 |
florian |
582 |
$GLOBALS['corps'] .= INS_TEXTE_FIN_MAIL;
|
| 814 |
alexandre_ |
583 |
|
| 810 |
florian |
584 |
$liste = "" ;
|
| 814 |
alexandre_ |
585 |
$destinataire = array() ;
|
| 810 |
florian |
586 |
foreach ($GLOBALS['select'] as $key => $value) {
|
| 814 |
alexandre_ |
587 |
$requete = 'select '.INS_CHAMPS_MAIL.' from '.INS_ANNUAIRE.' where '.INS_CHAMPS_ID.'="'.$value.'"';
|
|
|
588 |
$mail = $GLOBALS['ins_db']->getOne($requete) ;
|
|
|
589 |
array_push ($destinataire, $mail) ;
|
|
|
590 |
$liste .= $mail."\n" ;
|
| 810 |
florian |
591 |
}
|
| 814 |
alexandre_ |
592 |
$objet_mail->send($destinataire, $entetes, $GLOBALS['corps']);
|
| 810 |
florian |
593 |
|
| 814 |
alexandre_ |
594 |
$GLOBALS['corps'] .= "
|
|
|
595 |
----------------------------------------------------------------------------".INS_MESSAGE_ENVOYE_A."
|
|
|
596 |
$liste" ;
|
| 810 |
florian |
597 |
|
| 814 |
alexandre_ |
598 |
mail(INS_MAIL_ADMIN, stripslashes(INS_SURVEILLANCE_ENVOI_MAIL.$GLOBALS['titre_mail']), $GLOBALS['corps'], $entetes);
|
| 810 |
florian |
599 |
$GLOBALS['corps'] = '';
|
|
|
600 |
$GLOBALS['titre_mail'] = '';
|
|
|
601 |
}
|
| 1298 |
neiluj |
602 |
|
|
|
603 |
|
|
|
604 |
//-----Fonctions de l'inscription-----------------------------------------------------+
|
|
|
605 |
|
|
|
606 |
|
|
|
607 |
/**
|
|
|
608 |
*
|
|
|
609 |
* @param array les valeurs renvoyés par le formulaire
|
|
|
610 |
* @return
|
|
|
611 |
*/
|
|
|
612 |
function inscription_demande($valeurs) {
|
|
|
613 |
// On stocke les informations dans un variable de session
|
|
|
614 |
// On coupe l'identifiant de session pour ne prendre que les 8 premiers caractères
|
|
|
615 |
// afin d'éviter d'obtenir une url trop longue
|
|
|
616 |
$chaine = substr (session_id(), 0, 8) ;
|
|
|
617 |
$requete_verif = 'select * from inscription_demande where id_identifiant_session="'.$chaine.'"' ;
|
|
|
618 |
$resultat_verif = $GLOBALS['ins_db']->query ($requete_verif) ;
|
|
|
619 |
if ($resultat_verif->numRows() != 0) {
|
|
|
620 |
$requete_suppression = 'delete from inscription_demande where id_identifiant_session="'.$chaine.'"' ;
|
|
|
621 |
$GLOBALS['ins_db']->query ($requete_suppression) ;
|
|
|
622 |
}
|
|
|
623 |
$requete = 'insert into inscription_demande set id_identifiant_session="'.$chaine.'", id_donnees="'.
|
|
|
624 |
addslashes(serialize($valeurs)).'", id_date=NOW()' ;
|
|
|
625 |
$resultat = $GLOBALS['ins_db']->query ($requete) ;
|
|
|
626 |
if (DB::isError ($resultat)) {
|
|
|
627 |
echo ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;
|
|
|
628 |
}
|
|
|
629 |
// On envoie un email de confirmation pour l'utilisateur
|
|
|
630 |
$GLOBALS['ins_url']->addQueryString ('id', $chaine) ;
|
|
|
631 |
|
|
|
632 |
|
|
|
633 |
if (INS_UTILISE_REECRITURE_URL) {
|
|
|
634 |
$url = 'http://'.$GLOBALS['ins_url']->host.'/'.INS_URL_PREFIXE.$chaine ;
|
|
|
635 |
} else {
|
|
|
636 |
$url = str_replace ('&', '&', $GLOBALS['ins_url']->getURL()) ;
|
|
|
637 |
}
|
|
|
638 |
|
|
|
639 |
require_once PAP_CHEMIN_RACINE.'api/pear/HTML/Template/IT.php';
|
|
|
640 |
$tpl = new HTML_Template_IT() ;
|
|
|
641 |
// Le gabarit du mail est dans un template
|
|
|
642 |
// template 2
|
|
|
643 |
$requete = 'select it_template from inscription_template where it_id_template=2'.
|
|
|
644 |
' and it_i18n like "%'.INS_LANGUE_DEFAUT.'"' ;
|
|
|
645 |
|
|
|
646 |
if (!$tpl -> setTemplate($GLOBALS['ins_db']->getOne ($requete))) {
|
|
|
647 |
echo 'erreur' ;
|
|
|
648 |
}
|
|
|
649 |
$tpl->setVariable('URL_INSCRIPTION', $url) ;
|
|
|
650 |
|
|
|
651 |
mail ($GLOBALS['email'], 'Inscription', $tpl->get(), 'From: '.INS_MAIL_ADMIN_APRES_INSCRIPTION) ;
|
|
|
652 |
}
|
|
|
653 |
|
|
|
654 |
/**
|
|
|
655 |
*
|
|
|
656 |
* @param array les valeurs renvoyés par le formulaire
|
|
|
657 |
* @return
|
|
|
658 |
*/
|
|
|
659 |
|
|
|
660 |
function inscription_validee($valeurs) {
|
|
|
661 |
inscription_insertion($valeurs) ;
|
|
|
662 |
$GLOBALS['AUTH']->username = $valeurs['email'] ;
|
|
|
663 |
$GLOBALS['AUTH']->password = $valeurs['mot_de_passe'] ;
|
|
|
664 |
// On loggue l'utilisateur
|
|
|
665 |
$GLOBALS['AUTH']->login() ;
|
|
|
666 |
// inscription à la lettre d'information
|
|
|
667 |
if (INS_CHAMPS_LETTRE != '' && isset ($valeurs['lettre'])) {
|
|
|
668 |
inscription_lettre(INS_MAIL_INSCRIPTION_LISTE) ;
|
|
|
669 |
}
|
|
|
670 |
}
|
|
|
671 |
|
|
|
672 |
/**
|
|
|
673 |
* Renvoie l'accueil de l'inscription
|
|
|
674 |
*
|
|
|
675 |
* @return string HTML
|
|
|
676 |
*/
|
|
|
677 |
function inscription_AUTH_formulaire_login() {
|
|
|
678 |
require_once PAP_CHEMIN_RACINE.'api/pear/HTML/Template/IT.php';
|
|
|
679 |
$tpl = new HTML_Template_IT() ;
|
|
|
680 |
// Le formulaire pour se logguer est dans un template
|
|
|
681 |
// template 1
|
|
|
682 |
$requete = 'SELECT it_template FROM inscription_template WHERE it_id_template=1'.
|
|
|
683 |
' AND it_i18n LIKE "%'.INS_LANGUE_DEFAUT.'"' ;
|
|
|
684 |
|
|
|
685 |
if (!$tpl -> setTemplate($GLOBALS['ins_db']->getOne ($requete))) {
|
|
|
686 |
echo 'erreur' ;
|
|
|
687 |
}
|
|
|
688 |
$tpl->setVariable('URL_INSCRIPTION', $GLOBALS['ins_url']->getURL());
|
|
|
689 |
return $tpl->get() ;
|
|
|
690 |
|
|
|
691 |
}
|
|
|
692 |
|
|
|
693 |
|
|
|
694 |
/** formulaire_envoi_passe() - Renvoie le code HTML d'un formulaire d'envoi de mot de passe par mail
|
|
|
695 |
*
|
|
|
696 |
* @return string HTML
|
|
|
697 |
*/
|
|
|
698 |
function inscription_formulaire_envoi_passe() {
|
|
|
699 |
$res = '<h2>'.INS_SI_PASSE_PERDU.'</h2>'."\n" ;
|
|
|
700 |
$res .= '<form action="'.$GLOBALS['ins_url']->getURL().'&action=sendpasswd" method="post">'."\n" ;
|
|
|
701 |
$res .= '<p class="label100">'.INS_EMAIL.' : </p>'."\n" ;
|
|
|
702 |
$res .= '<input type="text" value="';
|
|
|
703 |
if (isset($_POST['username'])) $res .= $_POST['username'];
|
|
|
704 |
$res .= '" name="mail" size="32" />'."\n" ;
|
|
|
705 |
$res .= '<input type="submit" value="'.INS_ENVOIE_PASSE.'" />' ;
|
|
|
706 |
$res .= '</form><br />'."\n" ;
|
|
|
707 |
$res .= inscription_AUTH_formulaire_login() ;
|
|
|
708 |
return $res;
|
|
|
709 |
}
|
|
|
710 |
|
|
|
711 |
|
|
|
712 |
function inscription_insertion($valeur) {
|
|
|
713 |
// =========== Insertion dans l'annuaire ===================
|
|
|
714 |
// Génération du nom wikini à partir du nom et du prénom
|
|
|
715 |
if (INS_UTILISE_WIKINI && INS_NOM_WIKINI_GENERE) {
|
|
|
716 |
$valeur['nom_wiki'] = inscription_genere_nom_wiki ($valeur['nom'], isset ($valeur['prenom']) ? $valeur['prenom'] : '') ;
|
|
|
717 |
} else {
|
|
|
718 |
if (!INS_NOM_WIKINI_GENERE) {
|
|
|
719 |
$valeur['nom_wiki'] = $valeur['nomwiki'];
|
|
|
720 |
}
|
|
|
721 |
}
|
|
|
722 |
$id_utilisateur = inscription_nextId(INS_ANNUAIRE, INS_CHAMPS_ID, $GLOBALS['ins_db']) ;
|
|
|
723 |
$requete = 'INSERT INTO '.INS_ANNUAIRE.' SET '.
|
|
|
724 |
INS_CHAMPS_ID.'="'.$id_utilisateur.'",'.
|
|
|
725 |
inscription_requete_annuaire($valeur) ;
|
|
|
726 |
|
|
|
727 |
$resultat = $GLOBALS['ins_db']->query($requete) ;
|
|
|
728 |
if (DB::isError($resultat)) {
|
|
|
729 |
die ($resultat->getMessage().$resultat->getDebugInfo()) ;
|
|
|
730 |
}
|
|
|
731 |
|
|
|
732 |
// ================ Insertion dans SPIP =========================================
|
|
|
733 |
if (INS_UTILISE_SPIP) {
|
|
|
734 |
inscription_spip($id_utilisateur, $valeur) ;
|
|
|
735 |
}
|
|
|
736 |
if (INS_UTILISE_WIKINI) inscription_interwikini_users('', $valeur) ;
|
|
|
737 |
return $id_utilisateur ;
|
|
|
738 |
}
|
|
|
739 |
|
|
|
740 |
|
|
|
741 |
/**
|
|
|
742 |
* Réalise une mise à jour dans la base de donnée
|
|
|
743 |
*
|
|
|
744 |
* @param array un tableau de valeur avec en clé les noms des champs du formulaire
|
|
|
745 |
* @return void
|
|
|
746 |
*/
|
|
|
747 |
function inscription_mise_a_jour($valeur, $id = '') {
|
|
|
748 |
// ====================Mise à jour dans l'annuaire gen_annuaire ====================
|
|
|
749 |
if ($id == '') {
|
|
|
750 |
$id = $GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID);
|
|
|
751 |
}
|
|
|
752 |
$requete = 'update '.INS_ANNUAIRE.' set '.
|
|
|
753 |
inscription_requete_annuaire ($valeur).
|
|
|
754 |
'where '.INS_CHAMPS_ID.'="'.$id.'"';
|
|
|
755 |
$resultat = $GLOBALS['ins_db']->query ($requete) ;
|
|
|
756 |
if (DB::isError($resultat)) {
|
|
|
757 |
die ($resultat->getMessage().$resultat->getDebugInfo()) ;
|
|
|
758 |
}
|
|
|
759 |
unset ($resultat) ;
|
|
|
760 |
|
|
|
761 |
// ========================= Mise à jour dans SPIP ================================
|
|
|
762 |
if (INS_UTILISE_SPIP) {
|
|
|
763 |
mod_inscription_spip($GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID), $valeur) ;
|
|
|
764 |
}
|
|
|
765 |
}
|
|
|
766 |
|
|
|
767 |
/** requete_annuaire () - Renvoie une chaine contenant les champs de l'annuaire avec leur valeur suite à le fonction process de QuickForm
|
|
|
768 |
*
|
|
|
769 |
* @return string une requete du type champs="valeur",...
|
|
|
770 |
*/
|
|
|
771 |
|
|
|
772 |
function inscription_requete_annuaire($valeur) {
|
|
|
773 |
$req = INS_CHAMPS_NOM.'="'.addslashes($valeur['nom']).'", ';
|
|
|
774 |
if (isset($valeur['est_structure']) && $valeur['est_structure'] == 0)
|
|
|
775 |
$req .= INS_CHAMPS_PRENOM.'="'.addslashes($valeur['prenom']).'", ';
|
|
|
776 |
// Initialisation de variable pour éviter des notices
|
|
|
777 |
foreach (array ('adresse_1', 'adresse_2', 'ville', 'telephone', 'fax', 'site') as $val) {
|
|
|
778 |
if (!isset ($valeur[$val])) $valeur[$val] = '' ;
|
|
|
779 |
}
|
|
|
780 |
|
|
|
781 |
$req .= INS_CHAMPS_MAIL.'="'.addslashes($valeur['email']).'", ' ;
|
|
|
782 |
$req .= INS_CHAMPS_PASSE.'="'.md5($valeur['mot_de_passe']).'", '.
|
|
|
783 |
INS_CHAMPS_PAYS.'="'.addslashes($valeur['pays']).'", '.
|
|
|
784 |
INS_CHAMPS_ADRESSE_1.'="'.addslashes($valeur['adresse_1']).'", '.
|
|
|
785 |
INS_CHAMPS_ADRESSE_2.'="'.addslashes($valeur['adresse_2']).'", '.
|
|
|
786 |
INS_CHAMPS_DATE_INSCRIPTION.'=NOW(), '.
|
|
|
787 |
INS_CHAMPS_CODE_POSTAL.'="'.addslashes($valeur['cp']).'", '.
|
|
|
788 |
INS_CHAMPS_VILLE.'="'.addslashes($valeur['ville']).'", '.
|
|
|
789 |
INS_CHAMPS_EST_STRUCTURE.'="'.addslashes($valeur['est_structure']).'", '.
|
|
|
790 |
INS_CHAMPS_TELEPHONE.'="'.addslashes($valeur['telephone']).'", '.
|
|
|
791 |
INS_CHAMPS_FAX.'="'.addslashes($valeur['fax']).'", '.
|
|
|
792 |
INS_CHAMPS_SITE_INTERNET.'="'.addslashes($valeur['site']).'" ';
|
|
|
793 |
|
|
|
794 |
if (isset($valeur['visible'])) $req .= ', '.INS_CHAMPS_VISIBLE.'="'.$valeur['visible'].'"';
|
|
|
795 |
else $req .= ', '.INS_CHAMPS_VISIBLE.'=0';
|
|
|
796 |
|
|
|
797 |
if (INS_CHAMPS_LETTRE != '') {
|
|
|
798 |
if (isset($valeur['lettre'])) {
|
|
|
799 |
$req .= ', '.INS_CHAMPS_LETTRE.'="'.$valeur['lettre'].'" ';
|
|
|
800 |
inscription_lettre('inscrire');
|
|
|
801 |
}
|
|
|
802 |
else {
|
|
|
803 |
$req .= ', '.INS_CHAMPS_LETTRE.'=0 ';
|
|
|
804 |
inscription_lettre('desinscrire');
|
|
|
805 |
}
|
|
|
806 |
}
|
|
|
807 |
|
|
|
808 |
if (isset($_FILES['image']['name']) && $_FILES['image']['name']!='') {
|
|
|
809 |
$chemin_destination=INS_CHEMIN_APPLI.'presentations/logos/'.$_FILES['image']['name'];
|
|
|
810 |
move_uploaded_file($_FILES['image']['tmp_name'], $chemin_destination);
|
|
|
811 |
$req .= ', '.INS_CHAMPS_LOGO.'="'.$_FILES['image']['name'].'"' ;
|
|
|
812 |
}
|
|
|
813 |
|
|
|
814 |
if (isset($valeur['sigle_structure'])) {
|
|
|
815 |
$req .= ', '.INS_CHAMPS_SIGLE_STRUCTURE.'="'.addslashes($valeur['sigle_structure']).'"' ;
|
|
|
816 |
}
|
|
|
817 |
if (isset($valeur['num_agrement'])) {
|
|
|
818 |
$req .= ', '.INS_CHAMPS_NUM_AGREMENT.'="'.addslashes($valeur['num_agrement']).'"' ;
|
|
|
819 |
}
|
|
|
820 |
// traitement du numéro de département pour la france
|
|
|
821 |
if ($valeur['pays'] == 'FR') {
|
|
|
822 |
if (preg_match("/^97|98[0-9]*/", $valeur['cp'])) {
|
|
|
823 |
$n_dpt = substr($valeur['cp'], 0, 3) ;
|
|
|
824 |
} else {
|
|
|
825 |
$n_dpt = substr($valeur['cp'], 0, 2) ;
|
|
|
826 |
}
|
|
|
827 |
$req .= ",".INS_CHAMPS_DEPARTEMENT."='$n_dpt'";
|
|
|
828 |
}
|
|
|
829 |
|
|
|
830 |
if (INS_UTILISE_WIKINI && isset ($valeur['nom_wiki'])) $req .= ','.INS_CHAMPS_NOM_WIKINI.'="'.$valeur['nom_wiki'].'"';
|
|
|
831 |
return $req ;
|
|
|
832 |
}
|
|
|
833 |
|
|
|
834 |
|
|
|
835 |
|
|
|
836 |
/** formulaire_defaults() - Renvoie un tableau avec les valeurs par défaut du formulaire d'inscription
|
|
|
837 |
*
|
|
|
838 |
* @return array Valeurs par défaut du formulaire d'inscription
|
|
|
839 |
*/
|
|
|
840 |
function inscription_formulaire_defaults($id = '') {
|
|
|
841 |
if ($id == '') {
|
|
|
842 |
$id = $GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID);
|
|
|
843 |
}
|
|
|
844 |
$requete = 'select '.INS_ANNUAIRE.'.* '.
|
|
|
845 |
'from '.INS_ANNUAIRE.' '.
|
|
|
846 |
'where '.INS_ANNUAIRE.'.'.INS_CHAMPS_ID.'= "'.$id.'"' ;
|
|
|
847 |
$resultat = $GLOBALS['ins_db']->query ($requete) ;
|
|
|
848 |
if (DB::isError($resultat)) {
|
|
|
849 |
die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) ;
|
|
|
850 |
}
|
|
|
851 |
$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC) ;
|
|
|
852 |
$valeurs_par_defaut = array() ;
|
|
|
853 |
$valeurs_par_defaut['email'] = $ligne[INS_CHAMPS_MAIL];
|
|
|
854 |
$valeurs_par_defaut['nom'] = $ligne[INS_CHAMPS_NOM];
|
|
|
855 |
$valeurs_par_defaut['prenom'] = $ligne[INS_CHAMPS_PRENOM] ;
|
|
|
856 |
$valeurs_par_defaut['pays'] = $ligne[INS_CHAMPS_PAYS] ;
|
|
|
857 |
if (INS_UTILISE_WIKINI) {$valeurs_par_defaut['nomwiki'] = $ligne[INS_CHAMPS_NOM_WIKINI] ;}
|
|
|
858 |
$valeurs_par_defaut['cp'] = $ligne[INS_CHAMPS_CODE_POSTAL] ;
|
|
|
859 |
$valeurs_par_defaut['ville'] = $ligne[INS_CHAMPS_VILLE] ;
|
|
|
860 |
$valeurs_par_defaut['adresse_1'] = $ligne[INS_CHAMPS_ADRESSE_1] ;
|
|
|
861 |
$valeurs_par_defaut['adresse_2'] = $ligne[INS_CHAMPS_ADRESSE_2] ;
|
|
|
862 |
$valeurs_par_defaut['telephone'] = $ligne[INS_CHAMPS_TELEPHONE] ;
|
|
|
863 |
$valeurs_par_defaut['fax'] = $ligne[INS_CHAMPS_FAX] ;
|
|
|
864 |
if (INS_CHAMPS_STRUCTURE != '' && isset($ligne[INS_CHAMPS_STRUCTURE])) {
|
|
|
865 |
$valeurs_par_defaut['structure'] = $ligne[INS_CHAMPS_STRUCTURE] ;
|
|
|
866 |
//$valeurs_par_defaut['type_structure'] = $ligne['a_type_structure'];
|
|
|
867 |
}
|
|
|
868 |
$valeurs_par_defaut['site'] = $ligne[INS_CHAMPS_SITE_INTERNET] ;
|
|
|
869 |
$valeurs_par_defaut['lettre'] = $ligne[INS_CHAMPS_LETTRE] ;
|
|
|
870 |
$valeurs_par_defaut['visible'] = $ligne[INS_CHAMPS_VISIBLE] ;
|
|
|
871 |
$valeurs_par_defaut['sigle_structure'] = $ligne[INS_CHAMPS_SIGLE_STRUCTURE] ;
|
|
|
872 |
if (INS_CHAMPS_NUM_AGREMENT != '') $valeurs_par_defaut['num_agrement'] = $ligne[INS_CHAMPS_NUM_AGREMENT] ;
|
|
|
873 |
return $valeurs_par_defaut ;
|
|
|
874 |
}
|
|
|
875 |
|
|
|
876 |
|
|
|
877 |
/** info() - Renvoie une fiche d'information sur la personne ou la structure
|
|
|
878 |
*
|
|
|
879 |
* @param integer identifiant de la fiche a afficher, mettre -1 pour voir sa propre fiche
|
|
|
880 |
* @param text nom de l'onglet de la fiche
|
|
|
881 |
*
|
|
|
882 |
* @return text Code HTML de la fiche
|
|
|
883 |
*/
|
|
|
884 |
function info($id=-1, $type_info='fiche') {
|
|
|
885 |
if ($id==-1) $id=$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID);
|
|
|
886 |
$requete = 'SELECT * FROM '.INS_ANNUAIRE.' WHERE '.INS_ANNUAIRE.'.'
|
|
|
887 |
.INS_CHAMPS_ID.'="'.$id.'"' ;
|
|
|
888 |
$resultat = $GLOBALS['ins_db'] -> query($requete) ;
|
|
|
889 |
if (DB::isError($resultat)) {
|
|
|
890 |
die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) ;
|
|
|
891 |
}
|
|
|
892 |
|
|
|
893 |
$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC) ;
|
|
|
894 |
|
|
|
895 |
//voir la présentation de la fiche
|
|
|
896 |
if ($type_info=='fiche') {
|
|
|
897 |
$res = '';
|
|
|
898 |
|
|
|
899 |
if ($ligne[INS_CHAMPS_EST_STRUCTURE] == 1) {
|
|
|
900 |
$res .= '<h2>'.INS_FICHE_STRUCTURE.'</h2>'."\n" ;
|
|
|
901 |
} else {
|
|
|
902 |
$res .= '<h2>'.INS_FICHE_PERSONNELLE.'</h2>'."\n" ;
|
|
|
903 |
}
|
|
|
904 |
$res .= '<div class="fiche">'."\n" ;
|
|
|
905 |
if ($ligne[INS_CHAMPS_LOGO] != NULL) {
|
|
|
906 |
$res .= '<img style="float:right;width:120px;height:120px;margin:0 0 10px 10px;" src="'.INS_CHEMIN_APPLI.'presentations/logos/'.$ligne[INS_CHAMPS_LOGO].'" alt="logo" />'."\n";
|
|
|
907 |
}
|
|
|
908 |
if ($ligne[INS_CHAMPS_EST_STRUCTURE] == 1) {
|
|
|
909 |
$res .= '<h3>'.$ligne[INS_CHAMPS_NOM].'</h3>'."\n";
|
|
|
910 |
$res .= inscription_ligne(INS_SIGLE_DE_LA_STRUCTURE, $ligne[INS_CHAMPS_SIGLE_STRUCTURE]) ;
|
|
|
911 |
if (INS_CHAMPS_NUM_AGREMENT != '') $res .= inscription_ligne(INS_NUM_AGREMENT, $ligne[INS_CHAMPS_NUM_AGREMENT]) ;
|
|
|
912 |
} else {
|
|
|
913 |
$res .= '<h3>'.$ligne[INS_CHAMPS_PRENOM].' '.$ligne[INS_CHAMPS_NOM].'</h3>'."\n";
|
|
|
914 |
}
|
|
|
915 |
|
|
|
916 |
$res .= inscription_ligne(INS_ADRESSE_1, $ligne[INS_CHAMPS_ADRESSE_1]) ;
|
|
|
917 |
$res .= inscription_ligne(INS_ADRESSE_2, $ligne[INS_CHAMPS_ADRESSE_2]) ;
|
|
|
918 |
$res .= inscription_ligne(INS_CODE_POSTAL, $ligne[INS_CHAMPS_CODE_POSTAL]) ;
|
|
|
919 |
$res .= inscription_ligne(INS_VILLE, $ligne[INS_CHAMPS_VILLE]) ;
|
|
|
920 |
$pays = new ListeDePays($GLOBALS['ins_db']) ;
|
|
|
921 |
$res .= inscription_ligne(INS_PAYS, $pays->getNomPays($ligne[INS_CHAMPS_PAYS], INS_LANGUE_DEFAUT)) ;
|
|
|
922 |
$res .= inscription_ligne(INS_TELEPHONE, $ligne[INS_CHAMPS_TELEPHONE]) ;
|
|
|
923 |
$res .= inscription_ligne(INS_FAX, $ligne[INS_CHAMPS_FAX]) ;
|
|
|
924 |
|
|
|
925 |
if ($ligne[INS_CHAMPS_SITE_INTERNET]!='') {
|
|
|
926 |
$res .= inscription_ligne(INS_SITE_INTERNET, '<a href="'.$ligne[INS_CHAMPS_SITE_INTERNET].'" onclick="javascript:window.open(this.href);return false;">'.$ligne[INS_CHAMPS_SITE_INTERNET].'</a>');
|
|
|
927 |
}
|
|
|
928 |
|
|
|
929 |
if ($GLOBALS['AUTH']->getAuth()) $res .= inscription_ligne(INS_EMAIL, '<a href="mailto:'.$ligne[INS_CHAMPS_MAIL].'">'.$ligne[INS_CHAMPS_MAIL].'</a>');
|
|
|
930 |
else $res .= '<br /><p class="zone_info">'.INS_PAS_IDENTIFIE.'</p>'."\n";
|
|
|
931 |
|
|
|
932 |
if (INS_UTILISE_WIKINI) {
|
|
|
933 |
$res .= inscription_ligne (INS_NOM_WIKI, $ligne[INS_CHAMPS_NOM_WIKINI])."\n" ;
|
|
|
934 |
}
|
|
|
935 |
|
|
|
936 |
$res .= '</ul>'."\n";
|
|
|
937 |
if ($id==$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID)) {
|
|
|
938 |
$res .= '<ul style="margin-top:10px; clear:both;">'."\n";
|
|
|
939 |
if ($ligne[INS_CHAMPS_VISIBLE] == 1) {
|
|
|
940 |
$res .= '<li>'.INS_VOUS_APPARAISSEZ.'</li>'."\n";
|
|
|
941 |
} else $res .= '<li>'.INS_VOUS_APPARAISSEZ_PAS.'</li>'."\n";
|
|
|
942 |
if (INS_CHAMPS_LETTRE != '') {
|
|
|
943 |
if ($ligne[INS_CHAMPS_LETTRE] == 1) {
|
|
|
944 |
$res .= '<li>'.INS_VOUS_RECEVEZ_LETTRE.'</li>'."\n";
|
|
|
945 |
} else $res .= '<li>'.INS_VOUS_RECEVEZ_PAS_LETTRE.'</li>'."\n";
|
|
|
946 |
}
|
|
|
947 |
$res .= '</ul>'."\n";
|
|
|
948 |
|
|
|
949 |
$res .= '<ul style="margin:15px;">'."\n";;
|
|
|
950 |
$res .= '<li><a href="'.$GLOBALS['ins_url']->getURL().'&action=modifier&form_structure='.$ligne[INS_CHAMPS_EST_STRUCTURE].'">'.INS_MODIFIER_INSCRIPTION.'</a></li>'."\n" ;
|
|
|
951 |
$res .= '<li><a href="'.$GLOBALS['ins_url']->getURL().'&action=supprimer&form_structure='.$ligne[INS_CHAMPS_EST_STRUCTURE].'" onclick="javascript:return confirm(\''.INS_SUPPRIMER_INSCRIPTION.'?\');">'.INS_SUPPRIMER_INSCRIPTION.'</a></li>'."\n" ;
|
|
|
952 |
$res .= '<li><a href="'.$GLOBALS['ins_url']->getURL().'&action=deconnexion">'.INS_DECONNEXION.'</a></li>'."\n" ;
|
|
|
953 |
$res .= '</ul>'."\n";
|
|
|
954 |
$res .= '</div>'."\n"; //div fiche
|
|
|
955 |
}
|
|
|
956 |
|
|
|
957 |
//voir les abonnements presents dans les applis clientes
|
|
|
958 |
} elseif ($type_info=='abonnement') {
|
|
|
959 |
$res = '<h1>'.$ligne[INS_CHAMPS_PRENOM].' '.$ligne[INS_CHAMPS_NOM].'</h1>'."\n";
|
|
|
960 |
$res .= '<h2>'.INS_GESTION_DES_ABONNEMENTS.'</h2>'."\n" ;
|
|
|
961 |
|
|
|
962 |
// Appel des actions d'abonnement des applications clientes
|
|
|
963 |
$d = dir(GEN_CHEMIN_CLIENT);
|
|
|
964 |
$abonnement='';
|
|
|
965 |
$abonnements='';
|
|
|
966 |
while (false !== ($repertoire = $d->read())) {
|
|
|
967 |
if (file_exists(GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.'bibliotheque'.GEN_SEP.$repertoire.'.abonnement.inc.php')) {
|
|
|
968 |
require_once GEN_CHEMIN_CLIENT.$repertoire.GEN_SEP.'bibliotheque'.GEN_SEP.$repertoire.'.abonnement.inc.php' ;
|
|
|
969 |
$abonnements .= $abonnement;
|
|
|
970 |
}
|
|
|
971 |
}
|
|
|
972 |
$d->close();
|
|
|
973 |
$res .= $abonnements;
|
|
|
974 |
|
|
|
975 |
//voir les actus
|
|
|
976 |
} elseif ($type_info=='actus') {
|
|
|
977 |
$res = '<h1>'.$ligne[INS_CHAMPS_PRENOM].' '.$ligne[INS_CHAMPS_NOM].'</h1>'."\n";
|
|
|
978 |
$res .= '<h2>'.INS_ACTUALITES_DEPOSEES.'</h2>'."\n" ;
|
|
|
979 |
require_once GEN_CHEMIN_CLIENT.'bazar'.GEN_SEP.'configuration'.GEN_SEP.'baz_config.inc.php';
|
|
|
980 |
require_once GEN_CHEMIN_CLIENT.'bazar'.GEN_SEP.'bibliotheque'.GEN_SEP.'bazar.fonct.rss.php';
|
|
|
981 |
$_GET['action']=1;
|
|
|
982 |
$res .= RSSversHTML(gen_RSS('', '', $id, 1, ''), 0, 'jma', 0);
|
|
|
983 |
|
|
|
984 |
//voir les ressources
|
|
|
985 |
} elseif ($type_info=='ressources') {
|
|
|
986 |
$res = '<h1>'.$ligne[INS_CHAMPS_PRENOM].' '.$ligne[INS_CHAMPS_NOM].'</h1>'."\n";
|
|
|
987 |
$res .= '<h2>'.INS_RESSOURCES_ASSOCIEES.'</h2>'."\n" ;
|
|
|
988 |
$requete = 'SELECT bf_id_fiche, bf_titre FROM bazar_fiche, bazar_appropriation WHERE ba_ce_id_fiche=bf_id_fiche AND ba_ce_id_structure='.$id ;
|
|
|
989 |
$resultat = $GLOBALS['ins_db'] -> query($requete) ;
|
|
|
990 |
$res .= '<ul>'."\n";
|
|
|
991 |
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
|
|
|
992 |
$res .= '<li><a href="'.INS_URL_BAZAR.'&action=8&id_fiche='.$ligne['bf_id_fiche'].'" onclick="window.open(this.href,\'_blank\');return false;">'.$ligne['bf_titre'].'</a></li>'."\n";
|
|
|
993 |
}
|
|
|
994 |
$res .= '</ul><br />'."\n";
|
|
|
995 |
|
|
|
996 |
//voir les competences
|
|
|
997 |
} elseif ($type_info=='competences') {
|
|
|
998 |
$res = '<h1>'.$ligne[INS_CHAMPS_PRENOM].' '.$ligne[INS_CHAMPS_NOM].'</h1>'."\n";
|
|
|
999 |
$res .= '<h2>'.INS_COMPETENCES_ASSOCIEES.'</h2>'."\n" ;
|
|
|
1000 |
}
|
|
|
1001 |
return $res ;
|
|
|
1002 |
}
|
|
|
1003 |
|
|
|
1004 |
|
|
|
1005 |
/** inscription_ligne() - Renvoie une ligne avec label et valeur
|
|
|
1006 |
*
|
|
|
1007 |
* @param string label Le label
|
|
|
1008 |
* @param string valeur
|
|
|
1009 |
* @return string HTML
|
|
|
1010 |
*/
|
|
|
1011 |
function inscription_ligne($label, $valeur) {
|
|
|
1012 |
if ($valeur == '') {
|
|
|
1013 |
return;
|
|
|
1014 |
}
|
|
|
1015 |
if (($label == '')or($label == ' ')) {
|
|
|
1016 |
return '<div class="inscription_infos">'.$valeur.'</div>'."\n";
|
|
|
1017 |
} else {
|
|
|
1018 |
return '<div class="inscription_infos"><strong class="inscription_label">'."\n".$label.' : </strong>'.$valeur.'</div>'."\n";
|
|
|
1019 |
}
|
|
|
1020 |
}
|
|
|
1021 |
|
|
|
1022 |
|
|
|
1023 |
/** Renvoie vrai si l'email passé en paramètre n'est pas déjà dans l'annuaire
|
|
|
1024 |
* ou si, en cas de modification d'inscription, l'inscrit ne modifie pas son email
|
|
|
1025 |
*
|
|
|
1026 |
* @return boolean
|
|
|
1027 |
*/
|
|
|
1028 |
function inscription_verif_doublonMail($mail, $id = '') {
|
|
|
1029 |
if ($id == '') {
|
|
|
1030 |
if (isset ($GLOBALS['AUTH'])) {
|
|
|
1031 |
$id = $GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID) ;
|
|
|
1032 |
}
|
|
|
1033 |
}
|
|
|
1034 |
if (isset ($id) && $id != '') {
|
|
|
1035 |
$requete_mail = "select ".INS_CHAMPS_MAIL." from ".INS_ANNUAIRE." where ".
|
|
|
1036 |
INS_CHAMPS_ID."=".$id ;
|
|
|
1037 |
$resultat_mail = $GLOBALS['ins_db']->query ($requete_mail) ;
|
|
|
1038 |
if (DB::isError ($resultat_mail)) {
|
|
|
1039 |
die ("Echec de la requete : $requete_mail<br />".$resultat_mail->getMessage()) ;
|
|
|
1040 |
}
|
|
|
1041 |
$ligne_mail = $resultat_mail->fetchRow(DB_FETCHMODE_ASSOC) ;
|
|
|
1042 |
if ($mail == $ligne_mail[INS_CHAMPS_MAIL]) {
|
|
|
1043 |
return true ;
|
|
|
1044 |
}
|
|
|
1045 |
}
|
|
|
1046 |
$requete = "select ".INS_CHAMPS_MAIL." from ".INS_ANNUAIRE." where ".INS_CHAMPS_MAIL."= \"$mail\"" ;
|
|
|
1047 |
$resultat = $GLOBALS['ins_db']->query ($requete) ;
|
|
|
1048 |
if (DB::isError ($resultat)) {
|
|
|
1049 |
die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) ;
|
|
|
1050 |
}
|
|
|
1051 |
if ($resultat->numRows() == 0) return true ;
|
|
|
1052 |
return false ;
|
|
|
1053 |
}
|
|
|
1054 |
|
|
|
1055 |
|
|
|
1056 |
function inscription_envoie_passe() {
|
|
|
1057 |
$res='';
|
|
|
1058 |
$requete = 'SELECT '.INS_CHAMPS_MAIL.' FROM '.INS_ANNUAIRE.' WHERE '.INS_CHAMPS_MAIL.'="'.$_POST['mail'].'"' ;
|
|
|
1059 |
$resultat = $GLOBALS['ins_db']->query($requete) ;
|
|
|
1060 |
if (DB::isError($resultat)) {
|
|
|
1061 |
die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
|
|
|
1062 |
}
|
|
|
1063 |
if ($resultat->numRows() == 0) {
|
|
|
1064 |
$res .= '<p class="erreur">'.INS_MAIL_INCONNU_DANS_ANNUAIRE.'</p>'."\n" ;
|
|
|
1065 |
} else {
|
|
|
1066 |
include_once PAP_CHEMIN_RACINE.'api/pear/Mail.php' ;
|
|
|
1067 |
$mail = & Mail::factory('smtp') ;
|
|
|
1068 |
$headers ['Return-Path'] = "<".INS_MAIL_ADMIN_APRES_INSCRIPTION.">" ;
|
|
|
1069 |
$headers ['From'] = "<".INS_MAIL_ADMIN_APRES_INSCRIPTION.">" ;
|
|
|
1070 |
$headers ['Subject'] = INS_MOT_DE_PASSE_CHANGE ;
|
|
|
1071 |
$headers ['Reply-To'] = "<".INS_MAIL_ADMIN_APRES_INSCRIPTION.">" ;
|
|
|
1072 |
$headers ['To'] = "<".$_POST['mail'].">" ;
|
|
|
1073 |
$nouveau_passe = create_new_random(6) ;
|
|
|
1074 |
// modification du mot de passe dans la base
|
|
|
1075 |
$requete = 'UPDATE '.INS_ANNUAIRE.' SET '.INS_CHAMPS_PASSE.'=MD5("'.$nouveau_passe.'") WHERE '.INS_CHAMPS_MAIL.'="'.$_POST['mail'].'"' ;
|
|
|
1076 |
$resultat = $GLOBALS['ins_db']->query($requete) ;
|
|
|
1077 |
if (DB::isError($resultat)) {
|
|
|
1078 |
die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
|
|
|
1079 |
}
|
|
|
1080 |
$body = INS_NOUVEAU_MOT_DE_PASSE_2.$nouveau_passe ;
|
|
|
1081 |
$body .= INS_NOUVEAU_MOT_DE_PASSE_LAIUS ;
|
|
|
1082 |
$mail->send($_POST['mail'], $headers, $body) ;
|
|
|
1083 |
if (PEAR::isError($mail)) {
|
|
|
1084 |
$res .= '<p class="erreur">'.INS_PROBLEME_ENVOI_MAIL.'</p>'."\n" ;
|
|
|
1085 |
return $res ;
|
|
|
1086 |
}
|
|
|
1087 |
$res .= '<p class="info">'.INS_NOUVEAU_MOT_DE_PASSE_ENVOYE.'</p>'."\n" ;
|
|
|
1088 |
}
|
|
|
1089 |
return $res ;
|
|
|
1090 |
}
|
|
|
1091 |
|
|
|
1092 |
/**
|
|
|
1093 |
* Inscrit un adhérent à la lettre d'actualité par l'envoie d'un email subscribe / unsubscribe
|
|
|
1094 |
* à la liste
|
|
|
1095 |
*
|
|
|
1096 |
* @global AUTH Un objet PEAR::Auth
|
|
|
1097 |
* @return boolean true en cas de succès
|
|
|
1098 |
*/
|
|
|
1099 |
|
|
|
1100 |
function inscription_lettre($action) {
|
|
|
1101 |
include_once PAP_CHEMIN_RACINE.'api/pear/Mail.php' ;
|
|
|
1102 |
$mail = & Mail::factory ('smtp') ;
|
|
|
1103 |
$email = $GLOBALS['AUTH']->getUsername() ;
|
|
|
1104 |
$headers ['Return-Path'] = $email ;
|
|
|
1105 |
$headers ['From'] = "<".$email.">" ;
|
|
|
1106 |
$headers ['Subject'] = $action ;
|
|
|
1107 |
$headers ['Reply-To'] = $email ;
|
|
|
1108 |
|
|
|
1109 |
$mail -> send ($action, $headers, "") ;
|
|
|
1110 |
if (PEAR::isError ($mail)) {
|
|
|
1111 |
echo '<p class="erreur">Le mail n\'est pas parti...</p>' ;
|
|
|
1112 |
return false ;
|
|
|
1113 |
}
|
|
|
1114 |
return true ;
|
|
|
1115 |
}
|
|
|
1116 |
|
|
|
1117 |
/**
|
|
|
1118 |
*
|
|
|
1119 |
* @global ins_db Un pointeur vers un objet PEAR::DB connecté
|
|
|
1120 |
* @return
|
|
|
1121 |
*/
|
|
|
1122 |
|
|
|
1123 |
function inscription_envoie_mail() //A COMPLETER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
1124 |
{
|
|
|
1125 |
include_once PAP_CHEMIN_RACINE.'api/pear/Mail/mime.php' ;
|
|
|
1126 |
include_once PAP_CHEMIN_RACINE.'api/pear/Mail.php' ;
|
|
|
1127 |
$crlf="\n";
|
|
|
1128 |
|
|
|
1129 |
$headers ['From'] = INS_MAIL_ADMIN_APRES_INSCRIPTION ;
|
|
|
1130 |
$headers ['Subject'] = INS_MAIL_COORD_SUJET ;
|
|
|
1131 |
$headers ['Reply-To'] = INS_MAIL_ADMIN_APRES_INSCRIPTION ;
|
|
|
1132 |
|
|
|
1133 |
$mime = new Mail_mime($crlf);
|
|
|
1134 |
|
|
|
1135 |
$requete = "select *, ".INS_CHAMPS_LABEL_PAYS." from ".INS_ANNUAIRE.",".INS_TABLE_PAYS.
|
|
|
1136 |
" where ".INS_CHAMPS_MAIL."=\"".$GLOBALS['AUTH']->getUsername()."\"".
|
|
|
1137 |
" and ".INS_CHAMPS_ID_PAYS."=".INS_CHAMPS_PAYS;
|
|
|
1138 |
|
|
|
1139 |
$resultat = $GLOBALS['ins_db']->query($requete) ;
|
|
|
1140 |
if (DB::isError ($resultat)) {
|
|
|
1141 |
die ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;
|
|
|
1142 |
}
|
|
|
1143 |
$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC) ;
|
|
|
1144 |
$body_entete = INS_MAIL_COORD_CORPS."\n" ;
|
|
|
1145 |
$body = "mail : ".$ligne[INS_CHAMPS_MAIL]."\n" ;
|
|
|
1146 |
$body .= "------------------------------------------\n";
|
|
|
1147 |
$body .= INS_NOM.": ".unhtmlentities($ligne[INS_CHAMPS_NOM])." \n" ;
|
|
|
1148 |
$body .= INS_PRENOM.' : '.unhtmlentities($ligne[INS_CHAMPS_PRENOM])." \n" ;
|
|
|
1149 |
$body .= INS_PAYS." : ".unhtmlentities($ligne[INS_CHAMPS_LABEL_PAYS])." \n" ;
|
|
|
1150 |
$body .= "-------------------------------------------\n" ;
|
|
|
1151 |
|
|
|
1152 |
$mime->setTXTBody($body);
|
|
|
1153 |
$mime->setHTMLBody(info()) ;
|
|
|
1154 |
|
|
|
1155 |
$body = $mime->get();
|
|
|
1156 |
$headers = $mime->headers($headers);
|
|
|
1157 |
|
|
|
1158 |
$mail = & Mail::factory('mail') ;
|
|
|
1159 |
|
|
|
1160 |
$mail -> send ($ligne[INS_CHAMPS_MAIL], $headers, $body) ;
|
|
|
1161 |
|
|
|
1162 |
// Envoi du mail aux administrateur du site
|
|
|
1163 |
foreach ($GLOBALS['mail_admin'] as $administrateur) {
|
|
|
1164 |
$mail -> send ($administrateur, $headers, $body) ;
|
|
|
1165 |
}
|
|
|
1166 |
if (PEAR::isError($mail)) {
|
|
|
1167 |
echo 'erreur d\'envoi' ;
|
|
|
1168 |
return false ;
|
|
|
1169 |
}
|
|
|
1170 |
return true ;
|
|
|
1171 |
}
|
|
|
1172 |
|
|
|
1173 |
|
|
|
1174 |
/**
|
|
|
1175 |
* Génère un nom wiki valide à partir des données saisies par l'utilisateur
|
|
|
1176 |
* fait une requete dans la base
|
|
|
1177 |
*
|
|
|
1178 |
* @return string un nom wiki valide
|
|
|
1179 |
*/
|
|
|
1180 |
|
|
|
1181 |
function inscription_genere_nom_wiki($prenom, $nom) {
|
|
|
1182 |
// 1. suppression des espaces
|
|
|
1183 |
$nom = trim ($nom) ;
|
|
|
1184 |
$prenom = trim ($prenom) ;
|
|
|
1185 |
|
|
|
1186 |
// 2. suppression des caractères non ascii et ajout de la première lettre en majuscule
|
|
|
1187 |
$nom = inscription_trim_non_ascii ($nom) ;
|
|
|
1188 |
$prenom = inscription_trim_non_ascii ($prenom) ;
|
|
|
1189 |
|
|
|
1190 |
// Vérification
|
|
|
1191 |
$nom_wiki = $prenom.$nom ;
|
|
|
1192 |
if (!preg_match('/^[A-Z][a-z]+[A-Z,0-9][A-Z,a-z,0-9]*$/', $nom_wiki)) {
|
|
|
1193 |
$nom_wiki = chr(rand(65, 90)).$nom_wiki.chr(rand(65, 90)) ;
|
|
|
1194 |
}
|
|
|
1195 |
return $nom_wiki ;
|
|
|
1196 |
}
|
|
|
1197 |
|
|
|
1198 |
/**
|
|
|
1199 |
* Cette fonction supprime les caractères autres que asccii et les chiffres
|
|
|
1200 |
*
|
|
|
1201 |
* @return string la chaine épurée
|
|
|
1202 |
*/
|
|
|
1203 |
|
|
|
1204 |
function inscription_trim_non_ascii ($nom) {
|
|
|
1205 |
$premiere_lettre = true ;
|
|
|
1206 |
for ($i = 0; $i < strlen ($nom); $i++) {
|
|
|
1207 |
if (!preg_match ('/[a-zA-Z0-9]/', $nom[$i])) {
|
|
|
1208 |
$nom[$i] = '_' ;
|
|
|
1209 |
}
|
|
|
1210 |
// remplacement de la première lettre en majuscule
|
|
|
1211 |
if (preg_match ('/[a-zA-Z]/', $nom[$i]) && $premiere_lettre) {
|
|
|
1212 |
$nom[$i] = strtoupper ($nom[$i]) ;
|
|
|
1213 |
$premiere_lettre = false ;
|
|
|
1214 |
} else {
|
|
|
1215 |
if (preg_match ('/[a-zA-Z]/', $nom[$i])) {
|
|
|
1216 |
$nom[$i] = strtolower ($nom[$i]) ;
|
|
|
1217 |
}
|
|
|
1218 |
}
|
|
|
1219 |
}
|
|
|
1220 |
$nom = preg_replace ('/_/', '', $nom) ;
|
|
|
1221 |
return $nom ;
|
|
|
1222 |
}
|
|
|
1223 |
|
|
|
1224 |
// For users prior to PHP 4.3.0 you may do this:
|
|
|
1225 |
//function unhtmlentities($string)
|
|
|
1226 |
//{
|
|
|
1227 |
// $trans_tbl = array_flip ($trans_tbl);
|
|
|
1228 |
// return strtr ($string, $trans_tbl);
|
|
|
1229 |
//}
|
|
|
1230 |
|
|
|
1231 |
//==============================================================================
|
|
|
1232 |
/** function create_new_random($n,$type) permet de générer un nombre de caractères aléatoires.
|
|
|
1233 |
*
|
|
|
1234 |
*
|
|
|
1235 |
*
|
|
|
1236 |
* ENTREE :
|
|
|
1237 |
* - $n : créer un 'mot' de $n caractères
|
|
|
1238 |
* - $type : permet de définir la liste des caractères disponibles
|
|
|
1239 |
*
|
|
|
1240 |
* SORTIE : chaine de $n caractères pris dans une liste $type
|
|
|
1241 |
*/
|
|
|
1242 |
function create_new_random($n,$type="")
|
|
|
1243 |
{
|
|
|
1244 |
$str = "";
|
|
|
1245 |
|
|
|
1246 |
switch ($type){
|
|
|
1247 |
default:{
|
|
|
1248 |
$chaine = "abcdefghkmnpqrstuvwxyzABCDEFGHKLMNPQRSTUVWXYZ23456789";
|
|
|
1249 |
}
|
|
|
1250 |
break;
|
|
|
1251 |
}
|
|
|
1252 |
|
|
|
1253 |
srand((double)microtime()*1000000);
|
|
|
1254 |
for($i = 0; $i < $n; $i++){
|
|
|
1255 |
$str .= $chaine[rand()%strlen($chaine)];
|
|
|
1256 |
}
|
|
|
1257 |
|
|
|
1258 |
return "$str";
|
|
|
1259 |
}
|
|
|
1260 |
|
|
|
1261 |
//==============================================================================
|
|
|
1262 |
/** function nextId () Renvoie le prochain identifiant numérique libre d'une table
|
|
|
1263 |
*
|
|
|
1264 |
* On passe en paramètre le nom de la table et l'identifiant de la base selon PEAR DB
|
|
|
1265 |
*
|
|
|
1266 |
* @param mixed handler de connexion
|
|
|
1267 |
* @param string Nom de la table
|
|
|
1268 |
* return interger l'identifiant
|
|
|
1269 |
*/
|
|
|
1270 |
function inscription_nextId($table, $colonne_identifiant)
|
|
|
1271 |
{
|
|
|
1272 |
$requete = 'select MAX('.$colonne_identifiant.') as maxi from '.$table ;
|
|
|
1273 |
$resultat = $GLOBALS['ins_db']->query($requete) ;
|
|
|
1274 |
if (DB::isError($resultat)) {
|
|
|
1275 |
die (__FILE__ . __LINE__ . $resultat->getMessage() . $requete);
|
|
|
1276 |
return $GLOBALS['ins_db']->raiseError($resultat) ;
|
|
|
1277 |
}
|
|
|
1278 |
|
|
|
1279 |
if ($resultat->numRows() > 1) {
|
|
|
1280 |
return $GLOBALS['ins_db']->raiseError("<br />La table $table a un identifiant non unique<br/>") ;
|
|
|
1281 |
}
|
|
|
1282 |
$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;
|
|
|
1283 |
return $ligne->maxi + 1 ;
|
|
|
1284 |
}
|
|
|
1285 |
|
|
|
1286 |
|
| 810 |
florian |
1287 |
//-- Fin du code source ------------------------------------------------------------
|
|
|
1288 |
/*
|
|
|
1289 |
* $Log$
|
| 1365 |
alexandre_ |
1290 |
* Revision 1.12 2007/04/11 08:30:12 neiluj
|
|
|
1291 |
* remise en état du CVS...
|
|
|
1292 |
*
|
| 1298 |
neiluj |
1293 |
* Revision 1.8.2.1 2007/01/26 10:28:43 alexandre_tb
|
|
|
1294 |
* correction d un notice
|
|
|
1295 |
*
|
|
|
1296 |
* Revision 1.8 2006/12/01 13:23:15 florian
|
|
|
1297 |
* integration annuaire backoffice
|
|
|
1298 |
*
|
|
|
1299 |
* Revision 1.7 2006/10/05 13:53:54 florian
|
|
|
1300 |
* amélioration des fichiers sql
|
|
|
1301 |
*
|
| 979 |
florian |
1302 |
* Revision 1.6 2006/09/13 12:31:18 florian
|
|
|
1303 |
* ménage: fichier de config Papyrus, fichiers temporaires
|
|
|
1304 |
*
|
| 933 |
florian |
1305 |
* Revision 1.5 2006/04/28 12:44:05 florian
|
|
|
1306 |
* integration bazar
|
|
|
1307 |
*
|
| 833 |
florian |
1308 |
* Revision 1.4 2006/04/11 08:39:52 alexandre_tb
|
|
|
1309 |
* correction de l'envoie de mail par la carto
|
|
|
1310 |
*
|
| 814 |
alexandre_ |
1311 |
* Revision 1.3 2006/04/10 14:21:51 florian
|
|
|
1312 |
* correction bug affichage formulaire de mail en double
|
|
|
1313 |
*
|
| 812 |
florian |
1314 |
* Revision 1.2 2006/04/10 14:15:10 florian
|
|
|
1315 |
* les cases à cocher apparaissent à nouveau
|
|
|
1316 |
*
|
| 811 |
florian |
1317 |
* Revision 1.1 2006/04/10 14:01:36 florian
|
|
|
1318 |
* uniformisation de l'appli bottin: plus qu'un fichier de fonctions
|
| 810 |
florian |
1319 |
*
|
| 811 |
florian |
1320 |
*
|
| 810 |
florian |
1321 |
*/
|
|
|
1322 |
?>
|