Rev 43 | Rev 86 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
<?php/*vim: set expandtab tabstop=4 shiftwidth=4: */// +------------------------------------------------------------------------------------------------------+// | PHP version 4.1 |// +------------------------------------------------------------------------------------------------------+// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |// +------------------------------------------------------------------------------------------------------+// | This library is free software; you can redistribute it and/or |// | modify it under the terms of the GNU Lesser General Public |// | License as published by the Free Software Foundation; either |// | version 2.1 of the License, or (at your option) any later version. |// | |// | This library is distributed in the hope that it will be useful, |// | but WITHOUT ANY WARRANTY; without even the implied warranty of |// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |// | Lesser General Public License for more details. |// | |// | You should have received a copy of the GNU Lesser General Public |// | License along with this library; if not, write to the Free Software |// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |// +------------------------------------------------------------------------------------------------------+// CVS : $Id: annuaire.fonct.php,v 1.1 2005/03/24 08:46:07 alex Exp $/*** Fonctions du module annuaire** Fonctions du module annuaire**@package annuaire//Auteur original :*@author Alexandre Granier <alexandre@tela-botanica.org>//Autres auteurs :*@author Aucun*@copyright Tela-Botanica 2000-2004*@version $Revision: 1.1 $// +------------------------------------------------------------------------------------------------------+*/// +------------------------------------------------------------------------------------------------------+// | ENTETE du PROGRAMME |// +------------------------------------------------------------------------------------------------------+// +------------------------------------------------------------------------------------------------------+// | LISTE de FONCTIONS |// +------------------------------------------------------------------------------------------------------+function AUTH_formulaire_login() {$res = '';$url = preg_replace ('/&/', '&', $GLOBALS['ann_url']->getURL()) ;$res .= '<p>'.ANN_IDENTIFICATION_PRESENTATION_XHTML.'</p>'."\n" ;$form = new HTML_QuickForm ('inscription', 'post', $url) ;$form->addElement ('text', 'username', ANN_EMAIL) ;$form->addElement ('password', 'password', ANN_MOT_DE_PASSE) ;$form->addElement('submit', 'valider', ANN_VALIDER);$res .= $form->toHTML() ;return $res;}/** function parcourrirAnnu () Affiche l'annuaire à partir d'une lettre**** @return string HTML*/function parcourrirAnnu($event) {$res = '<p id="annuaire_alphabet">';// Alphabet pour la rechercher par lettre du nom des inscritsfor ($i = 65 ; $i <91 ; $i++) {$GLOBALS['ann_url']->addQueryString('lettre', chr($i));$url_lettre = $GLOBALS['ann_url']->getURL();$GLOBALS['ann_url']->removeQueryString('lettre');$res .= '<a href="'.$url_lettre.'">'.chr($i).'</a> '."\n";}$GLOBALS['ann_url']->addQueryString('lettre', 'tous');$url_lettre = $GLOBALS['ann_url']->getURL();$GLOBALS['ann_url']->removeQueryString('lettre');$res .= '<a href="'.$url_lettre.'">'.'Tous'.'</a>'."\n";$res .= '</p>'."\n";// Si une lettre est sélectionnéeif (empty($_REQUEST['lettre'])) {$_REQUEST['lettre'] = ANN_LETTRE_DEFAUT;}if (!empty($_REQUEST['lettre'])) {$requete = "SELECT ".ANN_ANNUAIRE.".*, ".ANN_TABLE_PAYS.".* FROM ".ANN_ANNUAIRE.",".ANN_TABLE_PAYS." WHERE ".ANN_CHAMPS_PAYS." = ".ANN_GC_ID." ";if ($_REQUEST['lettre'] != 'tous') {$requete .= " AND ".ANN_CHAMPS_NOM." LIKE \"".$_REQUEST['lettre']."%\"" ;}$requete .= " ORDER BY ".ANN_CHAMPS_NOM ;$res .= listes_inscrit ($requete, $GLOBALS['ann_url']->getURL(), $select, '', $GLOBALS['ann_db'], $niveau = 'pays').carto_texte_cocher().carto_formulaire($_POST['titre'], $_POST['corps']) ;}return $res;}/*** Renvoie le code HTML de la liste des inscrits* en fonction de la requete passé en parametre** @return Renvoie le code HTML de la liste des inscrits*/function listes_inscrit ($requete, $url, $select, $argument, &$db, $niveau = 'pays') {$resultat = $GLOBALS['ann_db']->query($requete);(DB::isError($resultat)) ? die($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) : '';if ($resultat->numRows() > 0) {$res = "<form action=\"$url?mailer=1&lettre=".$_REQUEST['lettre']."\" method=\"post\" name=\"formmail\">\n";$res .= '<div id="annuaire" class="conteneur_table"><table id="table_inscrit" class="table_cadre"><colgroup><col /><col /><col /><col /><col /><col /><col /></colgroup><thead class="entete_fixe"><tr><th> </th><th>'.ANN_NOM.'</th><th>'.ANN_PRENOM.'</th><th>'.ANN_DATE_INS.'</th><th>'.ANN_CP.'</th><th>'.ANN_VILLE.'</th><th>'.ANN_PAYS.'</th></tr></thead><tbody class="contenu_deroulant">';$indic = 0;$i = 1;while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {if ($indic==0) {$res.="<tr class=\"ligne_impaire\">\n";$indic=1;} else {$res.="<tr class=\"ligne_paire\">\n";$indic=0;}$res.= "<td><input type=\"checkbox\" name=\"select[]\" value=\"".$ligne[ANN_CHAMPS_MAIL]."\" /></td>\n<td>".strtoupper($ligne[ANN_CHAMPS_NOM])." </td>\n<td>".str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', $ligne[ANN_CHAMPS_PRENOM]))))." </td>\n<td>".date("d m Y", strtotime($ligne[ANN_CHAMPS_DATE_INS]))." </td>\n<td>".$ligne[ANN_CHAMPS_CODE_POSTAL]." </td>\n<td>".strtoupper($ligne[ANN_CHAMPS_VILLE])." </td>\n<td>".str_replace(' - ', '-', ucwords(strtolower(str_replace('-', ' - ', ($ligne[ANN_GC_NOM])))))." </td>\n" ;$res .= "</tr>\n";}$res .= "</tbody></table></div>\n";} else {$res = '<p class="information">Aucun inscrit n\'a de nom commençant par '.$_REQUEST['lettre'].'</p>';}return $res;}function carto_formulaire ($titre_mail="", $corps = "") {$res = '<h2 class="chapo">'.ANN_ENVOYER_MAIL.'</h2>'."\n";$res .= '<p class="attention surveillance">'.ANN_SURVEILLANCE.'</p>' ;$res .= '<p class="information message_a_tous">'.sprintf(ANN_MESSAGE_A_TOUS, '<a href="'.ANN_URL_ACTUALITE.'">'.ANN_ACTUALITE.'</a>').'</p>' ;$res .= '<table>'."\n".'<tr><td class="texte">'.ANN_SUJET.' :</td>'."\n".'<td><input class="forml" type="text" name="titre_mail" size="60" value="'.$GLOBALS['titre_mail'].'"/></td>'."\n".'</tr><tr><td class="texte" valign="top">'.ANN_MESSAGE.' : </td>'."\n".'<td><textarea class="forml" name="corps" rows="5" cols="60">'.$GLOBALS['corps'].'</textarea></td>'."\n".'</tr><tr><td></td><td align="center">';$res.='<input class="spip_bouton" type="submit" value="'.ANN_ENVOYER.'" />';$res .= '</td>'."\n";$res .= '</tr>'."\n";$res .= '</table>'."\n";$res .= '</form>'."\n";return $res ;}/** function carto_texte_cocher ()*** @return string HTML*/function carto_texte_cocher () {$res .= '<div class="texte">'.ANN_CHECK_UNCHECK ;$res .= " <input type=\"checkbox\" name=\"selecttotal\" onclick=\"javascript:setCheckboxes('formmail');\"/></div>";return $res ;}/** envoie_mail()*** @return envoie l'email*/function envoie_mail () {$requete = "select ".ANN_CHAMPS_MAIL." from ".ANN_ANNUAIRE." where ".ANN_CHAMPS_ID."='".$GLOBALS['AUTH']->getAuthData (ANN_CHAMPS_ID)."'";$resultat = $GLOBALS['ann_db']->query($requete);if (DB::isError($resultat)) {die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo());}$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC);$entete = "From: <".$ligne[ANN_CHAMPS_MAIL].">\n";$_POST['corps'] .= ANN_PIED_MESSAGE;$_POST['corps'] = stripslashes($_POST['corps']) ;$liste = "" ;foreach ($_POST['select'] as $key => $value) {mail ($value, stripslashes($_POST['titre_mail']), $_POST['corps'] , $entete) ;$liste .= $value."\n" ;}$_POST['corps'] .= "\n----------------------------------------------------------------------------";$_POST['corps'] .= "\n".ANN_MESSAGE_APPLI."\n" ;$_POST['corps'] .= "\n".ANN_MESSAGE_ENVOYE_A." :\n $liste" ;mail (ANN_MAIL_ADMIN, stripslashes($_POST['titre_mail']), $_POST['corps'], $entete);$_POST['corps'] = '';$_POST['titre_mail'] = '';return '<div class="information">'.ANN_MAIL_ENVOYER.'</div>' ;}?>