Subversion Repositories Applications.papyrus

Rev

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

Rev 1651 Rev 1681
Line 1112... Line 1112...
1112 
/** Renvoie vrai si l'email passe en parametre n'est pas deja dans l'annuaire
 1112 
/** Renvoie vrai si l'email passe en parametre n'est pas deja dans l'annuaire
1113 
*   ou si, en cas de modification d'inscription, l'inscrit ne modifie pas son email
 1113 
*   ou si, en cas de modification d'inscription, l'inscrit ne modifie pas son email
1114 
*
 1114 
*
1115 
*   @return boolean
1115 
*   @return boolean
1116 
*/
 1116 
*/
1117 
function inscription_verif_doublonMail($mail, $id = '') {
 1117 
function inscription_verif_doublonMail($mail) {
1118 
	if ($id == '') {
 1118 
	if (!isset($GLOBALS['id_utilisateur'])) {
1119 
		if (isset ($GLOBALS['AUTH'])) {
 1119 
		if (isset ($GLOBALS['AUTH'])) {
1120 
			$id = $GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID) ;
 1120 
			$GLOBALS['id_utilisateur'] = $GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID) ;
1121 
		}
 1121 
		}
1122 
	}
 1122 
	}
1123 
    if (isset ($id) && $id != '') {
 1123 
    if (isset ($GLOBALS['id_utilisateur']) && $GLOBALS['id_utilisateur'] != '') {
1124 
        $requete_mail = "select ".INS_CHAMPS_MAIL." from ".INS_ANNUAIRE." where ".
 1124 
        $requete_mail = "select ".INS_CHAMPS_MAIL." from ".INS_ANNUAIRE." where ".
1125 
        				INS_CHAMPS_ID."=".$id ;
 1125 
        				INS_CHAMPS_ID."=".$GLOBALS['id_utilisateur'] ;
1126 
        $resultat_mail = $GLOBALS['ins_db']->query ($requete_mail) ;
 1126 
        $resultat_mail = $GLOBALS['ins_db']->query ($requete_mail) ;
1127 
        if (DB::isError ($resultat_mail)) {
 1127 
        if (DB::isError ($resultat_mail)) {
1128 
            die ("Echec de la requete : $requete_mail<br />".$resultat_mail->getMessage()) ;
 1128 
            die ("Echec de la requete : $requete_mail<br />".$resultat_mail->getMessage()) ;
1129 
        }
 1129 
        }
1130 
        $ligne_mail = $resultat_mail->fetchRow(DB_FETCHMODE_ASSOC) ;
 1130 
        $ligne_mail = $resultat_mail->fetchRow(DB_FETCHMODE_ASSOC) ;
Line 1401... Line 1401...
1401 
 
 1401 
 
1402 
 
 1402 
 
1403 
//-- Fin du code source    ------------------------------------------------------------
 1403 
//-- Fin du code source    ------------------------------------------------------------
- 
 
 1404 
/*
- 
 
 1405 
* $Log$
- 
 
 1406 
* Revision 1.27  2007-10-12 09:59:06  alexandre_tb
1404 
/*
 1407 
* suppression de code inutile
1405 
* $Log$
 1408 
*
1406 
* Revision 1.26  2007-10-10 12:22:23  alexandre_tb
 1409 
* Revision 1.26  2007-10-10 12:22:23  alexandre_tb
1407 
* correction bug login à l inscription
 1410 
* correction bug login à l inscription
1408 
* remplacement d un die en return
 1411 
* remplacement d un die en return