Subversion Repositories Sites.tela-botanica.org

Rev

Rev 368 | Go to most recent revision | Show entire file | Ignore 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 86... Line 97...
86
        $requete = "SELECT ".ANN_ANNUAIRE.".*, ".ANN_TABLE_PAYS.".* FROM ".ANN_ANNUAIRE.",".ANN_TABLE_PAYS." WHERE ".ANN_CHAMPS_PAYS." = ".ANN_GC_ID." AND ";
97
        }
87
        if ($_REQUEST['lettre'] != "tous") $requete .= " ".ANN_CHAMPS_NOM." LIKE \"".$_REQUEST['lettre']."%\"" ;
98
        $requete .= " ORDER BY ".ANN_CHAMPS_NOM ;
88
        $requete .= " ORDER BY ".ANN_CHAMPS_NOM ;
99
        
89
        
100
        $res .= listes_inscrit ($requete, $GLOBALS['ann_url']->getURL(), $select, '', $GLOBALS['ann_db'], $niveau = 'pays').
90
        $res .= listes_inscrit ($requete, $GLOBALS['ann_url']->getURL(), $select, '', $GLOBALS['ann_db'], $niveau = 'pays').carto_texte_cocher().
101
        		carto_texte_cocher().
91
                        carto_formulaire($_POST['titre'], $_POST['corps']) ;
102
                carto_formulaire($_POST['titre'], $_POST['corps']) ;
92
    }
-
 
93
    return $res ;
103
    }
-
 
104
    return $res;
-
 
105
}
-
 
106
 
94
}
107
/**
95
 
108
 *  Renvoie le code HTML de la liste des inscrits
-
 
109
 *  en fonction de la requete passé en parametre
96
/**
110
 *
97
 *  Renvoie le code HTML de la liste des inscrits
111
 * @return  Renvoie le code HTML de la liste des inscrits
98
 *  en fonction de la requete passé en parametre
112
 */
99
 *
113
function listes_inscrit ($requete, $url, $select, $argument, &$db, $niveau = 'pays') {
100
 * @return  Renvoie le code HTML de la liste des inscrits
114
    $resultat = $GLOBALS['ann_db']->query($requete);
101
 */
115
    (DB::isError($resultat)) ? die($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) : '';
102
 
116
    
103
function listes_inscrit ($requete, $url, $select, $argument, &$db, $niveau = 'pays') {
117
	if ($resultat->numRows() > 0) {
104
    $res = "<div>";
118
	    $res = "<form action=\"$url?mailer=1&amp;lettre=".$_REQUEST['lettre']."\" method=\"post\" name=\"formmail\">\n";
105
    $res .= "<form action=\"$url?mailer=1&amp;lettre=".$_REQUEST['lettre']."\" method=\"post\" name=\"formmail\">\n
119
	    $res .= '<div id="annuaire" class="conteneur_table">    
-
 
120
	                <table id="table_inscrit" class="table_cadre">
106
                <table id=\"table_inscrit\" class=\"table_cadre\">\n
121
	                    <colgroup>
107
                    <colgroup>
122
	                        <col />
108
                        <col />
123
	                        <col />
109
                        <col />
124
	                        <col />
110
                        <col />
125
	                        <col />
111
                        <col />
126
	                        <col />
112
                        <col />
127
	                        <col />
113
                        <col />
128
	                        <col />
-
 
129
	                    </colgroup>
114
                        <col />
130
	                        <thead class="entete_fixe">
115
                    </colgroup>
-
 
116
                        <thead>\n
-
 
117
                                <th>&nbsp;</th>
-
 
118
                                <th>".ANN_NOM."</th>
131
	                        	<tr>
119
                                <th>".ANN_PRENOM."</th>
-
 
120
                                <th>".ANN_DATE_INS."</th>
132
	                                <th>&nbsp;</th>
121
                                <th>".ANN_CP."</th>
133
	                                <th>'.ANN_NOM.'</th>
122
                                <th>".ANN_VILLE."</th>
134
	                                <th>'.ANN_PRENOM.'</th>
123
								<th>".ANN_PAYS."</th>
135
	                                <th>'.ANN_DATE_INS.'</th>
124
                        </thead>";
136
	                                <th>'.ANN_CP.'</th>
125
 
137
	                                <th>'.ANN_VILLE.'</th>
126
    $resultat= $GLOBALS['ann_db']->query($requete);
-
 
127
    if (DB::isError($resultat)) {
138
									<th>'.ANN_PAYS.'</th>
128
        die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) ;
139
								</tr>
129
    }
140
	                        </thead>
130
    $indic=0;
141
	                        <tbody class="contenu_deroulant">';
131
    $i=1;
142
	    $indic = 0;
132
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
143
	    $i = 1;
133
        if ($indic==0) {
144
	    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
134
            $res.="<tr class=\"ligne_impaire\">\n";
145
	        if ($indic==0) {
135
            $indic=1;
146
	            $res.="<tr class=\"ligne_impaire\">\n";
136
        }
147
	            $indic=1;
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
	        }
-
 
152
	        $res.= "<td><input type=\"checkbox\" name=\"select[]\" value=\"".$ligne[ANN_CHAMPS_MAIL]."\" /></td>\n
-
 
153
	                        <td>".strtoupper($ligne[ANN_CHAMPS_NOM])."&nbsp;</td>\n
-
 
154
	                        <td>".str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', $ligne[ANN_CHAMPS_PRENOM]))))."&nbsp;</td>\n
141
        $res.="<td><input type=\"checkbox\" name=\"select[]\" value=\"".$ligne[ANN_CHAMPS_MAIL]."\"></td>\n
155
	                        <td>".date("d m Y", strtotime($ligne[ANN_CHAMPS_DATE_INS]))."&nbsp;</td>\n
142
                        <td>".strtoupper($ligne[ANN_CHAMPS_NOM])."&nbsp;</td>\n
156
	                        <td>".$ligne[ANN_CHAMPS_CODE_POSTAL]."&nbsp;</td>\n
Line 143... Line 157...
143
                        <td>".str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', $ligne[ANN_CHAMPS_PRENOM]))))."&nbsp;</td>\n
157
	                        <td>".strtoupper($ligne[ANN_CHAMPS_VILLE])."&nbsp;</td>\n
144
                        <td>".date("d m Y", strtotime($ligne[ANN_CHAMPS_DATE_INS]))."&nbsp;</td>\n
158
	                        <td>".str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', ($ligne[ANN_GC_NOM])))))."&nbsp;</td>\n" ;
145
                        <td>".$ligne[ANN_CHAMPS_CODE_POSTAL]."&nbsp;</td>\n
159
	        $res .= "</tr>\n";
146
                        <td>".strtoupper($ligne[ANN_CHAMPS_VILLE])."&nbsp;</td>\n
160
	    }
147
                        <td>".str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', ($ligne[ANN_GC_NOM])))))."&nbsp;</td>\n" ;
-
 
148
        $res .= "</tr>\n";
161
	    $res .= "</tbody></table></div>\n";
149
    }
162
	} else {
150
    $res .= "</table></div>\n";
163
		$res = '<p class="information">Aucun inscrit n\'a de nom commençant par '.$_REQUEST['lettre'].'</p>';
151
    return $res ;
164
	}
152
}
165
    return $res;
153
 
166
}
154
 
-
 
155
function carto_formulaire ($titre_mail="", $corps = "") {
167
 
156
    global $HTTP_USER_AGENT ;
168
 
-
 
169
function carto_formulaire ($titre_mail="", $corps = "") {
-
 
170
    $res = '<div id="redaction">'."\n";
-
 
171
    $res .= '<div id="redaction_tete"></div>'."\n";
157
    $res = "<h2 class=\"chapo\">".ANN_ENVOYER_MAIL."</h2>\n";
172
    $res .= '<h2 class="chapo">'.ANN_ENVOYER_MAIL.'</h2>'."\n";
158
    $res .= '<p class="attention surveillance">'.ANN_SURVEILLANCE.'</p>' ;
173
    $res .= '<table>'."\n"
159
    $res .= '<p class="information message_a_tous">'.sprintf(ANN_MESSAGE_A_TOUS, '<a href="'.ANN_URL_ACTUALITE.'">'.ANN_ACTUALITE.'</a>').'</p>' ;
174
            .'<tr><td class="texte">'.ANN_SUJET.' :</td>'."\n"
-
 
175
            .'<td><input class="forml" type="text" name="titre_mail" size="60" value="'.$GLOBALS['titre_mail'].'"/></td>'."\n"
160
    $res .= '<table>'."\n"
176
            .'</tr><tr><td class="texte" valign="top">'.ANN_MESSAGE.'&nbsp;:&nbsp;</td>'."\n"
161
            .'<tr><td class="texte">'.ANN_SUJET.' :</td>'."\n"
177
            .'<td><textarea class="forml" name="corps" rows="5" cols="60">'.$GLOBALS['corps'].'</textarea></td>'."\n"
Line 162... Line 178...
162
            .'<td><input class="forml" type="text" name="titre_mail" size="60" value="'.$GLOBALS['titre_mail'].'"></td>'."\n"
178
            .'</tr><tr><td></td><td align="center">';
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 191... Line 207...
191
 *
207
 *
192
 * @return  envoie l'email
208
 * @return  envoie l'email
193
 */
209
 */
Line 194... Line 210...
194
 
210
 
195
function envoie_mail () {
211
function envoie_mail () {
196
    $requete = "select ".ANN_CHAMPS_MAIL." from ".ANN_ANNUAIRE.
212
    $requete = 	"select ".ANN_CHAMPS_MAIL." from ".ANN_ANNUAIRE.
197
            " where ".ANN_CHAMPS_ID."='".$GLOBALS['AUTH']->getAuthData (ANN_CHAMPS_ID)."'";
213
            	" where ".ANN_CHAMPS_ID."='".$GLOBALS['AUTH']->getAuthData (ANN_CHAMPS_ID)."'";
198
    $resultat = $GLOBALS['ann_db']->query($requete);
214
    $resultat = $GLOBALS['ann_db']->query($requete);
199
    if (DB::isError($resultat)) {
215
    if (DB::isError($resultat)) {
200
        die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo());
216
        die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo());
201
    }
217
    }
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