//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 .= '
'.ANN_IDENTIFICATION_PRESENTATION_XHTML.'
'."\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() { $res = ''; // Alphabet pour la rechercher par lettre du nom des inscrits for ($i = 65 ; $i <91 ; $i++) { $GLOBALS['ann_url']->addQueryString('lettre', chr($i)); $url_lettre = $GLOBALS['ann_url']->getURL(); $GLOBALS['ann_url']->removeQueryString('lettre'); $res .= ''.chr($i).' '."\n"; } if (ANN_TOUS_BOOL) { $GLOBALS['ann_url']->addQueryString('lettre', 'tous'); $url_lettre = $GLOBALS['ann_url']->getURL(); $GLOBALS['ann_url']->removeQueryString('lettre'); $res .= ''.'Tous'.''."\n"; } $res .= '
'."\n"; // Si aucune lettre n'est sélectionnée, attribution de la lettre par défaut if (empty($_REQUEST['lettre'])) { $_REQUEST['lettre'] = ANN_LETTRE_DEFAUT; } // Une lettre est disponible... $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(), '', $GLOBALS['ann_db'], $niveau = 'pays'). carto_texte_cocher(). carto_formulaire(); 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, $argument, &$db, $niveau = 'pays') { $resultat = $GLOBALS['ann_db']->query($requete); (DB::isError($resultat)) ? die($resultat->getMessage().'