Subversion Repositories Sites.gentiana.org

Rev

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

Rev 83 Rev 86
Line 25... Line 25...
25 
*
 25 
*
26 
* Fonctions du module annuaire
 26 
* Fonctions du module annuaire
27 
*
 27 
*
28 
*@package annuaire
 28 
*@package annuaire
29 
//Auteur original :
 29 
//Auteur original :
30 
*@author        Alexandre Granier <alexandre@tela-botanica.org>
 30 
*@author		Alexandre Granier <alexandre@tela-botanica.org>
31 
//Autres auteurs :
 31 
//Autres auteurs :
32 
*@author        Aucun
 32 
*@author		Aucun
33 
*@copyright     Tela-Botanica 2000-2004
 33 
*@copyright	 Tela-Botanica 2000-2004
34 
*@version       $Revision: 1.1 $
 34 
*@version	   $Revision: 1.1 $
35 
// +------------------------------------------------------------------------------------------------------+
 35 
// +------------------------------------------------------------------------------------------------------+
36 
*/
 36 
*/
Line 37... Line 37...
37 
 
 37 
 
38 
// +------------------------------------------------------------------------------------------------------+
 38 
// +------------------------------------------------------------------------------------------------------+
39 
// |                                            ENTETE du PROGRAMME                                       |
 39 
// |											ENTETE du PROGRAMME									   |
Line 40... Line 40...
40 
// +------------------------------------------------------------------------------------------------------+
 40 
// +------------------------------------------------------------------------------------------------------+
41 
 
 41 
 
42 
 
 42 
 
Line 43... Line 43...
43 
 
 43 
 
44 
// +------------------------------------------------------------------------------------------------------+
 44 
// +------------------------------------------------------------------------------------------------------+
45 
// |                                           LISTE de FONCTIONS                                         |
 45 
// |										   LISTE de FONCTIONS										 |
46 
// +------------------------------------------------------------------------------------------------------+
 46 
// +------------------------------------------------------------------------------------------------------+
47 
 
 47 
 
48 
function AUTH_formulaire_login() {
 48 
function AUTH_formulaire_login() {
49 
    $res = '';
 49 
	$res = '';
50
50
51 
    $url = preg_replace ('/&amp;/', '&', $GLOBALS['ann_url']->getURL()) ;
 51 
	$url = preg_replace ('/&amp;/', '&', $GLOBALS['ann_url']->getURL()) ;
52 
 
 52 
 
53 
    $res .= '<p>'.ANN_IDENTIFICATION_PRESENTATION_XHTML.'</p>'."\n" ;
 53 
	$res .= '<p>'.ANN_IDENTIFICATION_PRESENTATION_XHTML.'</p>'."\n" ;
54
54
Line 55... Line 55...
55 
    $form = new HTML_QuickForm ('inscription', 'post', $url) ;
 55 
	$form = new HTML_QuickForm ('inscription', 'post', $url) ;
56 
    $form->addElement ('text', 'username', ANN_EMAIL) ;
 56 
	$form->addElement ('text', 'username', ANN_EMAIL) ;
Line 57... Line 57...
57 
    $form->addElement ('password', 'password', ANN_MOT_DE_PASSE) ;
 57 
	$form->addElement ('password', 'password', ANN_MOT_DE_PASSE) ;
58 
    $form->addElement('submit', 'valider', ANN_VALIDER);
 58 
	$form->addElement('submit', 'valider', ANN_VALIDER);
59 
    $res .= $form->toHTML() ;
 59 
	$res .= $form->toHTML() ;
60 
 
 60 
 
61 
    return $res;
 61 
	return $res;
62 
}
 62 
}
63 
 
 63 
 
Line 64... Line 64...
64 
/** function parcourrirAnnu ()  Affiche l'annuaire à partir d'une lettre
 64 
/** function parcourrirAnnu ()  Affiche l'annuaire à partir d'une lettre
Line 65... Line 65...
65 
*
 65 
*
66 
*
 66 
*
67 
*
 67 
*
68 
*	@return string HTML
 68 
*	@return string HTML
69 
*/
 69 
*/
70 
function parcourrirAnnu($event) {
 70 
function parcourrirAnnu($event) {
71 
 
 71 
 
72 
    $res = '<p id="annuaire_alphabet">';
 72 
	$res = '<p id="annuaire_alphabet">';
73 
 
 73 
 
74 
    // Alphabet pour la rechercher par lettre du nom des inscrits
 74 
	// Alphabet pour la rechercher par lettre du nom des inscrits
75 
    for ($i = 65 ; $i < 91 ; $i++) {
 75 
	for ($i = 65 ; $i < 91 ; $i++) {
76 
        $GLOBALS['ann_url']->addQueryString('lettre', chr($i));
 76 
		$GLOBALS['ann_url']->addQueryString('lettre', chr($i));
Line 77... Line 77...
77 
        $url_lettre = $GLOBALS['ann_url']->getURL();
 77 
		$url_lettre = $GLOBALS['ann_url']->getURL();
78 
        $GLOBALS['ann_url']->removeQueryString('lettre');
 78 
		$GLOBALS['ann_url']->removeQueryString('lettre');
79 
        $res .= '<a href="'.$url_lettre.'">'.chr($i).'</a>&nbsp;'."\n";
 79 
		$res .= '<a href="'.$url_lettre.'">'.chr($i).'</a>&nbsp;'."\n";
80 
    }
 80 
	}
81 
    $GLOBALS['ann_url']->addQueryString('lettre', 'tous');
 81 
	$GLOBALS['ann_url']->addQueryString('lettre', 'tous');
82 
    $url_lettre = $GLOBALS['ann_url']->getURL();
 82 
	$url_lettre = $GLOBALS['ann_url']->getURL();
83 
	$GLOBALS['ann_url']->removeQueryString('lettre');
 83 
	$GLOBALS['ann_url']->removeQueryString('lettre');
84 
    $res .= '<a href="'.$url_lettre.'">'.'Tous'.'</a>'."\n";
 84 
	$res .= '<a href="'.$url_lettre.'">'.'Tous'.'</a>'."\n";
85 
    $res .= '</p>'."\n";
 85 
	$res .= '</p>'."\n";
86 
 
 86 
 
87 
    // Si aucune lettre n'est sélectionnée, attribution de la lettre par défaut
 87 
	// Si aucune lettre n'est sélectionnée, attribution de la lettre par défaut
88 
    if (empty($_REQUEST['lettre'])) {
 88 
	if (empty($_REQUEST['lettre'])) {
89 
    	$_REQUEST['lettre'] = ANN_LETTRE_DEFAUT;
 89 
		$_REQUEST['lettre'] = ANN_LETTRE_DEFAUT;
90 
    }
 90 
	}
91 
	// Si une lettre est sélectionnée
 91 
	// Si une lettre est sélectionnée
92 
    if (!empty($_REQUEST['lettre'])) {
 92 
	if (!empty($_REQUEST['lettre'])) {
93 
        $requete = "SELECT ".ANN_ANNUAIRE.".*, ".ANN_TABLE_PAYS.".* FROM ".ANN_ANNUAIRE.",".ANN_TABLE_PAYS." WHERE ".ANN_CHAMPS_PAYS." = ".ANN_GC_ID." ";
 93 
		$requete = "SELECT ".ANN_ANNUAIRE.".*, ".ANN_TABLE_PAYS.".* FROM ".ANN_ANNUAIRE.",".ANN_TABLE_PAYS." WHERE ".ANN_CHAMPS_PAYS." = ".ANN_GC_ID." ";
94 
        if ($_REQUEST['lettre'] != 'tous') {
 94 
		if ($_REQUEST['lettre'] != 'tous') {
Line 95... Line 95...
95 
        	$requete .= " AND ".ANN_CHAMPS_NOM." LIKE \"".$_REQUEST['lettre']."%\"" ;
 95 
			$requete .= " AND ".ANN_CHAMPS_NOM." LIKE \"".$_REQUEST['lettre']."%\"" ;
96 
        }
 96 
		}
97 
        $requete .= " ORDER BY ".ANN_CHAMPS_NOM ;
 97 
		$requete .= " ORDER BY ".ANN_CHAMPS_NOM ;
98
98
99 
        $res .= listes_inscrit ($requete, $GLOBALS['ann_url']->getURL(), $select, '', $GLOBALS['ann_db'], $niveau = 'pays').
 99 
		$res .= listes_inscrit ($requete, $GLOBALS['ann_url']->getURL(), $select, '', $GLOBALS['ann_db'], $niveau = 'pays').
100 
        		carto_texte_cocher().
 100 
				carto_texte_cocher().
101 
                carto_formulaire($_POST['titre'], $_POST['corps']) ;
 101 
				carto_formulaire($_POST['titre'], $_POST['corps']) ;
102 
    }
 102 
	}
103 
    return $res;
 103 
	return $res;
104 
}
 104 
}
105 
 
 105 
 
106 
/**
 106 
/**
107 
 *  Renvoie le code HTML de la liste des inscrits
 107 
 *  Renvoie le code HTML de la liste des inscrits
108 
 *  en fonction de la requete passé en parametre
 108 
 *  en fonction de la requete passé en parametre
109 
 *
 109 
 *
110 
 * @return  Renvoie le code HTML de la liste des inscrits
 110 
 * @return  Renvoie le code HTML de la liste des inscrits
111 
 */
 111 
 */
112 
function listes_inscrit ($requete, $url, $select, $argument, &$db, $niveau = 'pays') {
 112 
function listes_inscrit ($requete, $url, $select, $argument, &$db, $niveau = 'pays') {
113 
    $resultat = $GLOBALS['ann_db']->query($requete);
 113 
	$resultat = $GLOBALS['ann_db']->query($requete);
114 
    (DB::isError($resultat)) ? die($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) : '';
 114 
	(DB::isError($resultat)) ? die($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) : '';
115
115
116 
	if ($resultat->numRows() > 0) {
 116 
	if ($resultat->numRows() > 0) {
117 
	    $res = "<form action=\"$url?mailer=1&amp;lettre=".$_REQUEST['lettre']."\" method=\"post\" name=\"formmail\">\n";
 117 
		$res = "<form action=\"$url?mailer=1&amp;lettre=".$_REQUEST['lettre']."\" method=\"post\" name=\"formmail\">\n";
118 
	    $res .= '<div id="annuaire" class="conteneur_table">
118 
		$res .= '<div id="annuaire" class="conteneur_table">
119 
	                <table id="table_inscrit" class="table_cadre">
 119 
					<table id="table_inscrit" class="table_cadre">
120 
	                    <colgroup>
 120 
						<colgroup>
121 
	                        <col />
 121 
							<col />
122 
	                        <col />
 122 
							<col />
123 
	                        <col />
 123 
							<col />
124 
	                        <col />
 124 
							<col />
125 
	                        <col />
 125 
							<col />
126 
	                        <col />
 126 
							<col />
127 
	                        <col />
 127 
							<col />
128 
	                    </colgroup>
 128 
						</colgroup>
129 
	                        <thead class="entete_fixe">
 129 
							<thead class="entete_fixe">
130 
	                        	<tr>
 130 
								<tr>
131 
	                                <th>&nbsp;</th>
 131 
									<th>&nbsp;</th>
132 
	                                <th>'.ANN_NOM.'</th>
 132 
									<th>'.ANN_NOM.'</th>
133 
	                                <th>'.ANN_PRENOM.'</th>
 133 
									<th>'.ANN_PRENOM.'</th>
134 
	                                <th>'.ANN_DATE_INS.'</th>
 134 
									<th>'.ANN_DATE_INS.'</th>
135 
	                                <th>'.ANN_CP.'</th>
 135 
									<th>'.ANN_CP.'</th>
136 
	                                <th>'.ANN_VILLE.'</th>
 136 
									<th>'.ANN_VILLE.'</th>
137 
									<th>'.ANN_PAYS.'</th>
 137 
									<th>'.ANN_PAYS.'</th>
138 
								</tr>
 138 
								</tr>
139 
	                        </thead>
 139 
							</thead>
140 
	                        <tbody class="contenu_deroulant">';
 140 
							<tbody class="contenu_deroulant">';
141 
	    $indic = 0;
 141 
		$indic = 0;
142 
	    $i = 1;
 142 
		$i = 1;
143 
	    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
 143 
		while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
144 
	        if ($indic==0) {
 144 
			if ($indic==0) {
145 
	            $res.="<tr class=\"ligne_impaire\">\n";
 145 
				$res.="<tr class=\"ligne_impaire\">\n";
146 
	            $indic=1;
 146 
				$indic=1;
147 
	        } else {
 147 
			} else {
148 
	            $res.="<tr class=\"ligne_paire\">\n";
 148 
				$res.="<tr class=\"ligne_paire\">\n";
149 
	            $indic=0;
 149 
				$indic=0;
150 
	        }
 150 
			}
151 
	        $res.= "<td><input type=\"checkbox\" name=\"select[]\" value=\"".$ligne[ANN_CHAMPS_MAIL]."\" /></td>\n
 151 
			$res.= "<td><input type=\"checkbox\" name=\"select[]\" value=\"".$ligne[ANN_CHAMPS_MAIL]."\" /></td>\n
152 
	                        <td>".strtoupper($ligne[ANN_CHAMPS_NOM])."&nbsp;</td>\n
 152 
							<td>".strtoupper($ligne[ANN_CHAMPS_NOM])."&nbsp;</td>\n
153 
	                        <td>".str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', $ligne[ANN_CHAMPS_PRENOM]))))."&nbsp;</td>\n
 153 
							<td>".str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', $ligne[ANN_CHAMPS_PRENOM]))))."&nbsp;</td>\n
154 
	                        <td>".date("d m Y", strtotime($ligne[ANN_CHAMPS_DATE_INS]))."&nbsp;</td>\n
 154 
							<td>".date("d m Y", strtotime($ligne[ANN_CHAMPS_DATE_INS]))."&nbsp;</td>\n
Line 155... Line 155...
155 
	                        <td>".$ligne[ANN_CHAMPS_CODE_POSTAL]."&nbsp;</td>\n
 155 
							<td>".$ligne[ANN_CHAMPS_CODE_POSTAL]."&nbsp;</td>\n
156 
	                        <td>".strtoupper($ligne[ANN_CHAMPS_VILLE])."&nbsp;</td>\n
 156 
							<td>".strtoupper($ligne[ANN_CHAMPS_VILLE])."&nbsp;</td>\n
157 
	                        <td>".str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', ($ligne[ANN_GC_NOM])))))."&nbsp;</td>\n" ;
 157 
							<td>".str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', ($ligne[ANN_GC_NOM])))))."&nbsp;</td>\n" ;
158 
	        $res .= "</tr>\n";
 158 
			$res .= "</tr>\n";
159 
	    }
 159 
		}
160 
	    $res .= "</tbody></table></div>\n";
 160 
		$res .= "</tbody></table></div>\n";
161 
	} else {
 161 
	} else {
162 
		$res = '<p class="information">Aucun inscrit n\'a de nom commençant par '.$_REQUEST['lettre'].'</p>'."\n";
 162 
		$res = '<p class="information">Aucun inscrit n\'a de nom commençant par '.$_REQUEST['lettre'].'</p>'."\n";
163 
	}
 163 
	}
164 
    return $res;
 164 
	return $res;
165 
}
 165 
}
166 
 
 166 
 
167 
 
 167 
 
168 
function carto_formulaire ($titre_mail="", $corps = "") {
 168 
function carto_formulaire ($titre_mail="", $corps = "") {
169 
    $res = '<h2 class="chapo">'.ANN_ENVOYER_MAIL.'</h2>'."\n";
 169 
	$res = '<h2 class="chapo">'.ANN_ENVOYER_MAIL.'</h2>'."\n";
170 
    $res .= '<p class="attention surveillance">'.ANN_SURVEILLANCE.'</p>'."\n";
 170 
	$res .= '<p class="attention surveillance">'.ANN_SURVEILLANCE.'</p>'."\n";
171 
    $res .= '<p class="information message_a_tous">'.sprintf(ANN_MESSAGE_A_TOUS, '<a href="'.ANN_URL_ACTUALITE.'">'.ANN_ACTUALITE.'</a>').'</p>'."\n";
 171 
	$res .= '<p class="information message_a_tous">'.sprintf(ANN_MESSAGE_A_TOUS, '<a href="'.ANN_URL_ACTUALITE.'">'.ANN_ACTUALITE.'</a>').'</p>'."\n";
Line 172... Line 172...
172 
    $res .= '<table>'."\n".
 172 
	$res .= '<table>'."\n".
173 
            '<tr><td class="texte">'.ANN_SUJET.' :</td>'."\n".
 173 
			'<tr><td class="texte">'.ANN_SUJET.' :</td>'."\n".
174 
            '<td><input class="forml" type="text" name="titre_mail" size="60" value="'.$GLOBALS['titre_mail'].'"/></td>'."\n".
 174 
			'<td><input class="forml" type="text" name="titre_mail" size="60" value="'.$GLOBALS['titre_mail'].'"/></td>'."\n".
175 
            '</tr><tr><td class="texte" valign="top">'.ANN_MESSAGE.'&nbsp;:&nbsp;</td>'."\n".
 175 
			'</tr><tr><td class="texte" valign="top">'.ANN_MESSAGE.'&nbsp;:&nbsp;</td>'."\n".
176 
            '<td><textarea class="forml" name="corps" rows="5" cols="60">'.$GLOBALS['corps'].'</textarea></td>'."\n".
 176 
			'<td><textarea class="forml" name="corps" rows="5" cols="60">'.$GLOBALS['corps'].'</textarea></td>'."\n".
177 
            '</tr><tr><td></td><td align="center">';
 177 
			'</tr><tr><td></td><td align="center">';
178 
    $res .= '<input class="spip_bouton" type="submit" value="'.ANN_ENVOYER.'" />'."\n";
 178 
	$res .= '<input class="spip_bouton" type="submit" value="'.ANN_ENVOYER.'" />'."\n";
179 
    $res .= '</td>'."\n";
 179 
	$res .= '</td>'."\n";
180 
	$res .= '</tr>'."\n";
 180 
	$res .= '</tr>'."\n";
181 
	$res .= '</table>'."\n";
 181 
	$res .= '</table>'."\n";
182 
	$res .= '</form>'."\n";
 182 
	$res .= '</form>'."\n";
Line 183... Line 183...
183 
    return $res;
 183 
	return $res;
184 
}
 184 
}
185 
 
 185 
 
186 
 
 186 
 
187 
/** function carto_texte_cocher ()
 187 
/** function carto_texte_cocher ()
188 
*
 188 
*
189 
*
 189 
*
190 
*	@return string  HTML
 190 
*	@return string  HTML
191 
*/
 191 
*/
192 
function carto_texte_cocher () {
 192 
function carto_texte_cocher () {
193 
    $res .= '<div class="texte">'.ANN_CHECK_UNCHECK."\n";
 193 
	$res .= '<div class="texte">'.ANN_CHECK_UNCHECK."\n";
194 
    $res .= '&nbsp;<input type="checkbox" name="selecttotal" onclick="javascript:setCheckboxes(\'formmail\');"/>'."\n";
 194 
	$res .= '&nbsp;<input type="checkbox" name="selecttotal" onclick="javascript:setCheckboxes(\'formmail\');"/>'."\n";
195 
    $res .= '</div>';
 195 
	$res .= '</div>';
196 
    return $res;
 196 
	return $res;
197 
}
 197 
}
198 
 
 198 
 
199 
 
 199 
 
200 
/** envoie_mail()
 200 
/** envoie_mail()
201 
 *
 201 
 *
202 
 *
 202 
 *
203 
 * @return  envoie l'email
 203 
 * @return  envoie l'email
204 
 */
 204 
 */
205 
function envoie_mail () {
 205 
function envoie_mail () {
206 
    $requete = 	'SELECT '.ANN_CHAMPS_MAIL.' '.
 206 
	$requete = 	'SELECT '.ANN_CHAMPS_MAIL.' '.
207 
    			'FROM '.ANN_ANNUAIRE.' '.
 207 
				'FROM '.ANN_ANNUAIRE.' '.
208 
            	'WHERE '.ANN_CHAMPS_ID.' = "'.$GLOBALS['AUTH']->getAuthData(ANN_CHAMPS_ID).'" ';
 208 
				'WHERE '.ANN_CHAMPS_ID.' = "'.$GLOBALS['AUTH']->getAuthData(ANN_CHAMPS_ID).'" ';
209 
    $resultat = $GLOBALS['ann_db']->query($requete);
 209 
	$resultat = $GLOBALS['ann_db']->query($requete);
210 
    if (DB::isError($resultat)) {
 210 
	if (DB::isError($resultat)) {
211 
        die($resultat->getMessage().'<br />'.$resultat->getDebugInfo());
 211 
		die($resultat->getMessage().'<br />'.$resultat->getDebugInfo());
212 
    }
 212 
	}
213 
    $ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
 213 
	$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
214 
    $entete = 'From: <'.$ligne[ANN_CHAMPS_MAIL].">\n";
 214 
	$entete = 'From: <'.$ligne[ANN_CHAMPS_MAIL].">\n";
215
215
216 
    $_POST['corps'] .= "\n".ANN_PIED_MESSAGE;
 216 
	$_POST['corps'] .= "\n".ANN_PIED_MESSAGE;
217 
    $_POST['corps'] = stripslashes($_POST['corps']);
 217 
	$_POST['corps'] = stripslashes($_POST['corps']);