Subversion Repositories Sites.tela-botanica.org

Rev

Rev 368 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 368 Rev 406
Line 37... Line 37...
37 
 
 37 
 
38 
// +------------------------------------------------------------------------------------------------------+
 38 
// +------------------------------------------------------------------------------------------------------+
39 
// |                                            ENTETE du PROGRAMME                                       |
 39 
// |                                            ENTETE du PROGRAMME                                       |
Line 40... Line -...
40 
// +------------------------------------------------------------------------------------------------------+
 - 
 
- 
 
 40 
// +------------------------------------------------------------------------------------------------------+
Line 41... Line 41...
41 
 
 41 
 
42 
include_once "HTML/QuickForm.php" ;
 42 
 
43 
 
 43 
 
Line 44... Line -...
44 
// +------------------------------------------------------------------------------------------------------+
 - 
 
45 
// |                                           LISTE de FONCTIONS                                         |
 44 
// +------------------------------------------------------------------------------------------------------+
46 
// +------------------------------------------------------------------------------------------------------+
 45 
// |                                           LISTE de FONCTIONS                                         |
- 
 
 46 
// +------------------------------------------------------------------------------------------------------+
47 
 
 47 
 
- 
 
 48 
function AUTH_formulaire_login() {
- 
 
 49 
    $res = '';
- 
 
 50
48 
 
 51 
    $url = preg_replace ('/&/', '&', $GLOBALS['ann_url']->getURL()) ;
49 
function AUTH_formulaire_login() {
 52 
 
50 
    $res = '';
 53 
    $res .= '<p>'.ANN_IDENTIFICATION_PRESENTATION_XHTML.'</p>'."\n" ;
51 
    $url = preg_replace ('/&amp;/', '&', $GLOBALS['ann_url']->getURL()) ;
 54
52 
    $form = new HTML_QuickForm ('inscription', 'post', $url) ;
 - 
 
53 
    $form->addElement ('text', 'username', ANN_EMAIL) ;
 55 
    $form = new HTML_QuickForm ('inscription', 'post', $url) ;
Line 54... Line -...
54 
    $form->addElement ('password', 'password', ANN_MOT_DE_PASSE) ;
 - 
 
55 
    $form->addElement('submit', 'valider', ANN_VALIDER);
 56 
    $form->addElement ('text', 'username', ANN_EMAIL) ;
56
57 
    $form->addElement ('password', 'password', ANN_MOT_DE_PASSE) ;
Line 57... Line 58...
57 
    $res .= $form->toHTML() ;
 58 
    $form->addElement('submit', 'valider', ANN_VALIDER);
58 
 
 59 
    $res .= $form->toHTML() ;
59 
    $res .= "<div>".ANN_TEXTE_PERDU."</div>\n" ;
 60 
 
60 
    return $res;
 61 
    return $res;
61 
}
 62 
}
62 
 
 63 
 
63 
/** function parcourrirAnnu ()  Affiche l'annuaire à partir d'une lettre
 - 
 
64 
*
 64 
/** function parcourrirAnnu ()  Affiche l'annuaire à partir d'une lettre
Line 65... Line 65...
65 
*
 65 
*
Line 66... Line 66...
66 
*
 66 
*
67 
*	@return string HTML
 67 
*
- 
 
 68 
*	@return string HTML
68 
*/
 69 
*/
- 
 
 70 
function parcourrirAnnu($event) {
- 
 
 71 
 
- 
 
 72 
    $res = '<p id="annuaire_alphabet">';
69 
 
 73 
 
- 
 
 74 
    // Alphabet pour la rechercher par lettre du nom des inscrits
- 
 
 75 
    for ($i = 65 ; $i <91 ; $i++) {
- 
 
 76 
        $GLOBALS['ann_url']->addQueryString('lettre', chr($i));
- 
 
 77 
        $url_lettre = $GLOBALS['ann_url']->getURL();
- 
 
 78 
        $GLOBALS['ann_url']->removeQueryString('lettre');
70 
function parcourrirAnnu($event) {
 79 
        $res .= '<a href="'.$url_lettre.'">'.chr($i).'</a>&nbsp;'."\n";
- 
 
 80 
    }
71 
 
 81 
    if (ANN_TOUS_BOOL) {
72 
    $res = '<div><table><tr>';
 82 
    	$GLOBALS['ann_url']->addQueryString('lettre', 'tous');
- 
 
 83 
    	$url_lettre = $GLOBALS['ann_url']->getURL();
73 
 
 84 
		$GLOBALS['ann_url']->removeQueryString('lettre');
74 
    // ecrire toutes les lettres avec un lien
 - 
 
75 
    for ($i = 65 ; $i <91 ; $i++) {
 - 
 
76 
        $res .= '<td><a style="font-size:15px;" href="'.$GLOBALS['ann_url']->getURL().'&amp;lettre=';
 - 
 
77 
        $res .= chr($i) ;
 85 
    	$res .= '<a href="'.$url_lettre.'">'.'Tous'.'</a>'."\n";
78 
        $res .= '">';
 86 
    }
- 
 
 87 
    $res .= '</p>'."\n";
79 
        $res .= chr($i) ;
 88 
 
- 
 
 89 
    // Si une lettre est sélectionnée
80 
        $res .= "</a></td>\n";
 90 
    if (empty($_REQUEST['lettre'])) {
Line 81... Line 91...
81 
    }
 91 
    	$_REQUEST['lettre'] = ANN_LETTRE_DEFAUT;
- 
 
 92 
    }
82 
    $res .= "</tr></table></div>\n";
 93 
    if (!empty($_REQUEST['lettre'])) {
83 
 
 94 
        $requete = "SELECT ".ANN_ANNUAIRE.".*, ".ANN_TABLE_PAYS.".* FROM ".ANN_ANNUAIRE.",".ANN_TABLE_PAYS." WHERE ".ANN_CHAMPS_PAYS." = ".ANN_GC_ID." ";
84 
    // si une lettre est selectionne
 95 
        if ($_REQUEST['lettre'] != 'tous') {
85 
    if (!empty($_REQUEST['lettre'])) {
 96 
        	$requete .= " AND ".ANN_CHAMPS_NOM." LIKE \"".$_REQUEST['lettre']."%\"" ;
Line 97... Line 108...
97 
 *  Renvoie le code HTML de la liste des inscrits
 108 
 *  Renvoie le code HTML de la liste des inscrits
98 
 *  en fonction de la requete passé en parametre
 109 
 *  en fonction de la requete passé en parametre
99 
 *
 110 
 *
100 
 * @return  Renvoie le code HTML de la liste des inscrits
 111 
 * @return  Renvoie le code HTML de la liste des inscrits
101 
 */
 112 
 */
102 
 
 - 
 
103 
function listes_inscrit ($requete, $url, $select, $argument, &$db, $niveau = 'pays') {
 113 
function listes_inscrit ($requete, $url, $select, $argument, &$db, $niveau = 'pays') {
- 
 
 114 
    $resultat = $GLOBALS['ann_db']->query($requete);
- 
 
 115 
    (DB::isError($resultat)) ? die($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) : '';
- 
 
 116
104 
    $res = "<div>";
 117 
	if ($resultat->numRows() > 0) {
105 
    $res .= "<form action=\"$url?mailer=1&amp;lettre=".$_REQUEST['lettre']."\" method=\"post\" name=\"formmail\">\n
 118 
	    $res = "<form action=\"$url?mailer=1&amp;lettre=".$_REQUEST['lettre']."\" method=\"post\" name=\"formmail\">\n";
- 
 
 119 
	    $res .= '<div id="annuaire" class="conteneur_table">
106 
                <table id=\"table_inscrit\" class=\"table_cadre\">\n
 120 
	                <table id="table_inscrit" class="table_cadre">
107 
                    <colgroup>
 121 
	                    <colgroup>
108 
                        <col />
 122 
	                        <col />
109 
                        <col />
 123 
	                        <col />
110 
                        <col />
 124 
	                        <col />
111 
                        <col />
 125 
	                        <col />
112 
                        <col />
 126 
	                        <col />
113 
                        <col />
 127 
	                        <col />
114 
                        <col />
 128 
	                        <col />
115 
                    </colgroup>
 129 
	                    </colgroup>
- 
 
 130 
	                        <thead class="entete_fixe">
116 
                        <thead>\n
 131 
	                        	<tr>
117 
                                <th>&nbsp;</th>
 132 
	                                <th>&nbsp;</th>
118 
                                <th>".ANN_NOM."</th>
 133 
	                                <th>'.ANN_NOM.'</th>
119 
                                <th>".ANN_PRENOM."</th>
 134 
	                                <th>'.ANN_PRENOM.'</th>
120 
                                <th>".ANN_DATE_INS."</th>
 135 
	                                <th>'.ANN_DATE_INS.'</th>
121 
                                <th>".ANN_CP."</th>
 136 
	                                <th>'.ANN_CP.'</th>
122 
                                <th>".ANN_VILLE."</th>
 137 
	                                <th>'.ANN_VILLE.'</th>
123 
								<th>".ANN_PAYS."</th>
 138 
									<th>'.ANN_PAYS.'</th>
- 
 
 139 
								</tr>
124 
                        </thead>";
 140 
	                        </thead>
125 
 
 - 
 
126 
    $resultat= $GLOBALS['ann_db']->query($requete);
 - 
 
127 
    if (DB::isError($resultat)) {
 - 
 
128 
        die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) ;
 141 
	                        <tbody class="contenu_deroulant">';
129 
    }
 - 
 
130 
    $indic=0;
 142 
	    $indic = 0;
131 
    $i=1;
 143 
	    $i = 1;
132 
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
 144 
	    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
133 
        if ($indic==0) {
 145 
	        if ($indic==0) {
134 
            $res.="<tr class=\"ligne_impaire\">\n";
 146 
	            $res.="<tr class=\"ligne_impaire\">\n";
135 
            $indic=1;
 147 
	            $indic=1;
136 
        }
 - 
 
137 
        else {
 148 
	        } else {
138 
            $res.="<tr class=\"ligne_paire\">\n";
 149 
	            $res.="<tr class=\"ligne_paire\">\n";
139 
            $indic=0;
 150 
	            $indic=0;
140 
        }
 151 
	        }
141 
        $res.="<td><input type=\"checkbox\" name=\"select[]\" value=\"".$ligne[ANN_CHAMPS_MAIL]."\"></td>\n
 152 
	        $res.= "<td><input type=\"checkbox\" name=\"select[]\" value=\"".$ligne[ANN_CHAMPS_MAIL]."\" /></td>\n
142 
                        <td>".strtoupper($ligne[ANN_CHAMPS_NOM])."&nbsp;</td>\n
 153 
	                        <td>".strtoupper($ligne[ANN_CHAMPS_NOM])."&nbsp;</td>\n
143 
                        <td>".str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', $ligne[ANN_CHAMPS_PRENOM]))))."&nbsp;</td>\n
 154 
	                        <td>".str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', $ligne[ANN_CHAMPS_PRENOM]))))."&nbsp;</td>\n
144 
                        <td>".date("d m Y", strtotime($ligne[ANN_CHAMPS_DATE_INS]))."&nbsp;</td>\n
 155 
	                        <td>".date("d m Y", strtotime($ligne[ANN_CHAMPS_DATE_INS]))."&nbsp;</td>\n
145 
                        <td>".$ligne[ANN_CHAMPS_CODE_POSTAL]."&nbsp;</td>\n
 156 
	                        <td>".$ligne[ANN_CHAMPS_CODE_POSTAL]."&nbsp;</td>\n
146 
                        <td>".strtoupper($ligne[ANN_CHAMPS_VILLE])."&nbsp;</td>\n
 157 
	                        <td>".strtoupper($ligne[ANN_CHAMPS_VILLE])."&nbsp;</td>\n
147 
                        <td>".str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', ($ligne[ANN_GC_NOM])))))."&nbsp;</td>\n" ;
 158 
	                        <td>".str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', ($ligne[ANN_GC_NOM])))))."&nbsp;</td>\n" ;
148 
        $res .= "</tr>\n";
 159 
	        $res .= "</tr>\n";
149 
    }
 160 
	    }
150 
    $res .= "</table></div>\n";
 161 
	    $res .= "</tbody></table></div>\n";
- 
 
 162 
	} else {
- 
 
 163 
		$res = '<p class="information">Aucun inscrit n\'a de nom commençant par '.$_REQUEST['lettre'].'</p>';
- 
 
 164 
	}
151 
    return $res ;
 165 
    return $res;
152 
}
 166 
}
Line 153... Line 167...
153 
 
 167 
 
154 
 
 168 
 
155 
function carto_formulaire ($titre_mail="", $corps = "") {
 169 
function carto_formulaire ($titre_mail="", $corps = "") {
156 
    global $HTTP_USER_AGENT ;
 170 
    $res = '<div id="redaction">'."\n";
157 
    $res = "<h2 class=\"chapo\">".ANN_ENVOYER_MAIL."</h2>\n";
 - 
 
158 
    $res .= '<p class="attention surveillance">'.ANN_SURVEILLANCE.'</p>' ;
 171 
    $res .= '<div id="redaction_tete"></div>'."\n";
159 
    $res .= '<p class="information message_a_tous">'.sprintf(ANN_MESSAGE_A_TOUS, '<a href="'.ANN_URL_ACTUALITE.'">'.ANN_ACTUALITE.'</a>').'</p>' ;
 172 
    $res .= '<h2 class="chapo">'.ANN_ENVOYER_MAIL.'</h2>'."\n";
160 
    $res .= '<table>'."\n"
 173 
    $res .= '<table>'."\n"
161 
            .'<tr><td class="texte">'.ANN_SUJET.' :</td>'."\n"
 174 
            .'<tr><td class="texte">'.ANN_SUJET.' :</td>'."\n"
162 
            .'<td><input class="forml" type="text" name="titre_mail" size="60" value="'.$GLOBALS['titre_mail'].'"></td>'."\n"
 175 
            .'<td><input class="forml" type="text" name="titre_mail" size="60" value="'.$GLOBALS['titre_mail'].'"/></td>'."\n"
163 
            .'</tr><tr><td class="texte" valign="top">'.ANN_MESSAGE.'&nbsp;:&nbsp;</td>'."\n"
 176 
            .'</tr><tr><td class="texte" valign="top">'.ANN_MESSAGE.'&nbsp;:&nbsp;</td>'."\n"
164 
            .'<td><textarea class="forml" name="corps" rows="5" cols="60">'.$GLOBALS['corps'].'</textarea></td>'."\n"
 - 
 
165 
            .'</tr><tr><td></td><td align="center">';
 177 
            .'<td><textarea class="forml" name="corps" rows="5" cols="60">'.$GLOBALS['corps'].'</textarea></td>'."\n"
166 
    if (ereg ("Gecko",$HTTP_USER_AGENT)) {
 178 
            .'</tr><tr><td></td><td align="center">';
- 
 
 179 
    $res .='<input class="spip_bouton" type="submit" value="'.ANN_ENVOYER.'" />';
- 
 
 180 
    $res .= '</td>'."\n";
- 
 
 181 
	$res .= '</tr>'."\n";
167 
        $res.='<input class="spip_bouton" type="submit" value="'.ANN_ENVOYER.'" />';
 182 
	$res .= '</table>'."\n";
168 
    } else {
 183 
	$res .= '</form>'."\n";
169 
        $res.='<input class="spip_bouton" type="submit" onclick="javascript:confirmer();" value="'.ANN_ENVOYER.'" />';
 184 
	$res .= '<div id="redaction_pied"/></div>'."\n";
- 
 
 185 
	$res .= '</div>'."\n";
170 
    }
 186 
    $res .= '<p class="attention surveillance">'.ANN_SURVEILLANCE.'</p>' ;
171 
    $res.="</td>\n</tr>\n</table>\n</form>\n";
 187 
    $res .= '<p class="information message_a_tous">'.sprintf(ANN_MESSAGE_A_TOUS, '<a href="'.ANN_URL_ACTUALITE.'">'.ANN_ACTUALITE.'</a>').'</p>' ;
Line 172... Line 188...
172 
    return $res ;
 188 
    return $res ;
Line 179... Line 195...
179 
*	@return string  HTML
 195 
*	@return string  HTML
180 
*/
 196 
*/
Line 181... Line 197...
181 
 
 197 
 
182 
function carto_texte_cocher () {
 198 
function carto_texte_cocher () {
183 
    $res .= '<div class="texte">'.ANN_CHECK_UNCHECK ;
 199 
    $res .= '<div class="texte">'.ANN_CHECK_UNCHECK ;
184 
    $res .= "&nbsp;<input type=\"checkbox\" name=\"selecttotal\" onclick=\"javascript:setCheckboxes('formmail');\"></div>";
 200 
    $res .= "&nbsp;<input type=\"checkbox\" name=\"selecttotal\" onclick=\"javascript:setCheckboxes('formmail');\"/></div>";
185 
    return $res ;
 201 
    return $res ;
Line 186... Line 202...
186 
}
 202 
}
Line 217... Line 233...
217 
    mail (ANN_MAIL_ADMIN, stripslashes($_POST['titre_mail']), $_POST['corps'], $entete);
 233 
    mail (ANN_MAIL_ADMIN, stripslashes($_POST['titre_mail']), $_POST['corps'], $entete);
218 
    $_POST['corps'] = '';
 234 
    $_POST['corps'] = '';
219 
    $_POST['titre_mail'] = '';
 235 
    $_POST['titre_mail'] = '';
220 
    return '<div class="information">'.ANN_MAIL_ENVOYER.'</div>' ;
 236 
    return '<div class="information">'.ANN_MAIL_ENVOYER.'</div>' ;
221 
}
 237 
}
222 
 
 - 
 
223 
/* +--Fin du code ----------------------------------------------------------------------------------------+
 - 
 
224 
*
 - 
 
225 
* $Log: annuaire.fonct.php,v $
 - 
 
226 
* Revision 1.1  2005/03/24 08:46:07  alex
 - 
 
227 
* version initiale
 - 
 
228 
*
 - 
 
229 
* Revision 1.2  2005/01/06 15:18:31  alex
 - 
 
230 
* modification de la fonction de formulaire d'authentification
 - 
 
231 
*
 - 
 
232 
* Revision 1.1.1.1  2005/01/03 17:27:49  alex
 - 
 
233 
* Import initial
 - 
 
234 
*
 - 
 
235 
* Revision 1.1  2005/01/03 17:18:49  alex
 - 
 
236 
* retour vers la liste des participants après un ajout.
 - 
 
237 
*
 - 
 
238 
*
 - 
 
239 
*
 - 
 
240 
* +-- Fin du code ----------------------------------------------------------------------------------------+
 - 
 
241 
*/
 - 
 
242 
?>
 238 
?>
243 

            239