661,7 → 661,7 |
|
/** |
* |
* @param array les valeurs renvoyés par le formulaire |
* @param array les valeurs renvoyes par le formulaire |
* @return |
*/ |
|
771,7 → 771,7 |
} |
} |
|
/** requete_annuaire () - Renvoie une chaine contenant les champs de l'annuaire avec leur valeur suite à le fonction process de QuickForm |
/** requete_annuaire () - Renvoie une chaine contenant les champs de l'annuaire avec leur valeur suite a la fonction process de QuickForm |
* |
* @return string une requete du type champs="valeur",... |
*/ |
826,13 → 826,26 |
$requete .= $tableau[$i]['nom_bdd'].'="'.md5($valeur['mot_de_passe']).'",'; |
} |
elseif ($tableau[$i]['type'] == 'newsletter') { |
if (!isset($valeur[$tableau[$i]['nom_bdd']])) $valeur[$tableau[$i]['nom_bdd']] = 0; |
$requete .= $tableau[$i]['nom_bdd'].'="'.$valeur[$tableau[$i]['nom_bdd']].'",'; |
// Si le champs newletter vaut cad, la case est coche, on inscrit le pretendant |
// a la lettre d actualite |
if ($valeur[$tableau[$i]['nom_bdd']] == 1) { |
inscription_lettre($tableau[$i]['limite1']); |
|
if (isset($GLOBALS['anciennes_valeurs_annuaire'])) { |
|
if ($GLOBALS['anciennes_valeurs_annuaire'][$tableau[$i]['nom_bdd']] != $valeur[$tableau[$i]['nom_bdd']]) { |
if ($valeur[$tableau[$i]['nom_bdd']] == 1) { |
inscription_lettre($tableau[$i]['limite1']); |
} else { |
desinscription_lettre($tableau[$i]['limite2']); |
} |
} |
} else { |
desinscription_lettre($tableau[$i]['limite2']); |
if ($valeur[$tableau[$i]['nom_bdd']] == 1) { |
inscription_lettre($tableau[$i]['limite1']); |
} else { |
desinscription_lettre($tableau[$i]['limite2']); |
} |
} |
} |
} |
1002,27 → 1015,15 |
elseif ($tableau[$i]['type'] == 'mot_de_passe') { |
$requete .= $tableau[$i]['nom_bdd'].'="'.md5($valeur['a_mot_de_passe']).'",'; |
} else if ($tableau[$i]['type'] == 'labelhtml') { |
$res .= '<div>'.$tableau[$i]['label'].'</div>'; |
} else if ($tableau[$i]['type'] == 'lien_internet') { |
$res .= inscription_ligne ($tableau[$i]['label'], '<a href="'.$valeur[$tableau[$i]['nom_bdd']].'">'.$valeur[$tableau[$i]['nom_bdd']].'</a>'); |
if ($tableau[$i]['obligatoire'] != 0) $res .= '<div>'.$tableau[$i]['label'].'</div>'; |
} else if ($tableau[$i]['type'] == 'lien_internet' && $valeur[$tableau[$i]['nom_bdd']] != 'http://') { |
$res .= inscription_ligne ($tableau[$i]['label'], |
'<a href="'.$valeur[$tableau[$i]['nom_bdd']].'">'.$valeur[$tableau[$i]['nom_bdd']].'</a>'); |
} |
} |
|
|
|
if ($type_info == 'fiche') { |
if ($id==$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID)) { |
$res .= '<ul style="margin-top:10px; clear:both;">'."\n"; |
if ($ligne[INS_CHAMPS_VISIBLE] == 1) { |
$res .= '<li>'.INS_VOUS_APPARAISSEZ.'</li>'."\n"; |
} else $res .= '<li>'.INS_VOUS_APPARAISSEZ_PAS.'</li>'."\n"; |
if (INS_CHAMPS_LETTRE != '') { |
if ($ligne[INS_CHAMPS_LETTRE] == 1) { |
$res .= '<li>'.INS_VOUS_RECEVEZ_LETTRE.'</li>'."\n"; |
} else $res .= '<li>'.INS_VOUS_RECEVEZ_PAS_LETTRE.'</li>'."\n"; |
} |
$res .= '</ul>'."\n"; |
|
$res .= '<ul style="margin:15px;">'."\n";; |
$GLOBALS['ins_url']->addQueryString('id_inscription', $ligne['a_ce_id_inscription']); |
$GLOBALS['ins_url']->addQueryString('action', 'modifier'); |
1230,65 → 1231,7 |
} |
|
/** |
* |
* @global ins_db Un pointeur vers un objet PEAR::DB connecté |
* @return |
*/ |
|
function inscription_envoie_mail() //A COMPLETER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
{ |
include_once PAP_CHEMIN_RACINE.'api/pear/Mail/mime.php' ; |
include_once PAP_CHEMIN_RACINE.'api/pear/Mail.php' ; |
$crlf="\n"; |
|
$headers ['From'] = $GLOBALS['ins_config']['ic_from_mail_confirmation'] ; |
$headers ['Subject'] = INS_MAIL_COORD_SUJET ; |
$headers ['Reply-To'] = $GLOBALS['ins_config']['ic_from_mail_confirmation'] ; |
|
$mime = new Mail_mime($crlf); |
|
$requete = "select *, ".INS_CHAMPS_LABEL_PAYS." from ".INS_ANNUAIRE.",".INS_TABLE_PAYS. |
" where ".INS_CHAMPS_MAIL."=\"".$GLOBALS['AUTH']->getUsername()."\"". |
" and ".INS_CHAMPS_ID_PAYS."=".INS_CHAMPS_PAYS; |
|
$resultat = $GLOBALS['ins_db']->query($requete) ; |
if (DB::isError ($resultat)) { |
die ("Echec de la requete : $requete<br />".$resultat->getMessage()) ; |
} |
$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC) ; |
$valeur = $ligne; |
$body_entete = INS_MAIL_COORD_CORPS."\n" ; |
$body = "mail : ".$ligne[INS_CHAMPS_MAIL]."\n" ; |
$body .= "------------------------------------------\n"; |
$body .= INS_NOM.": ".unhtmlentities($ligne[INS_CHAMPS_NOM])." \n" ; |
$body .= INS_PRENOM.' : '.unhtmlentities($ligne[INS_CHAMPS_PRENOM])." \n" ; |
$body .= INS_PAYS." : ".unhtmlentities($ligne[INS_CHAMPS_LABEL_PAYS])." \n" ; |
$body .= "-------------------------------------------\n" ; |
|
$mime->setTXTBody($body); |
$mime->setHTMLBody(info()) ; |
|
$body = $mime->get(); |
$headers = $mime->headers($headers); |
|
$mail = & Mail::factory('mail') ; |
|
$mail -> send ($ligne[INS_CHAMPS_MAIL], $headers, $body) ; |
|
// Envoi du mail aux administrateur du site |
foreach ($GLOBALS['mail_admin'] as $administrateur) { |
$mail -> send ($administrateur, $headers, $body) ; |
} |
if (PEAR::isError($mail)) { |
echo 'erreur d\'envoi' ; |
return false ; |
} |
return true ; |
} |
|
|
/** |
* Genere un nom wiki valide a partir des données saisies par l'utilisateur |
* Genere un nom wiki valide a partir des donnees saisies par l'utilisateur |
* fait une requete dans la base |
* |
* @return string un nom wiki valide |
1299,7 → 1242,7 |
$nom = trim ($nom) ; |
$prenom = trim ($prenom) ; |
|
// 2. suppression des caractères non ascii et ajout de la première lettre en majuscule |
// 2. suppression des caracteres non ascii et ajout de la premiere lettre en majuscule |
$nom = inscription_trim_non_ascii ($nom) ; |
$prenom = inscription_trim_non_ascii ($prenom) ; |
|
1312,9 → 1255,9 |
} |
|
/** |
* Cette fonction supprime les caractères autres que asccii et les chiffres |
* Cette fonction supprime les caracteres autres que asccii et les chiffres |
* |
* @return string la chaine épurée |
* @return string la chaine e½puree |
*/ |
|
function inscription_trim_non_ascii ($nom) { |
1337,23 → 1280,16 |
return $nom ; |
} |
|
// For users prior to PHP 4.3.0 you may do this: |
//function unhtmlentities($string) |
//{ |
// $trans_tbl = array_flip ($trans_tbl); |
// return strtr ($string, $trans_tbl); |
//} |
|
//============================================================================== |
/** function create_new_random($n,$type) permet de générer un nombre de caractères alçatoires. |
/** function create_new_random($n,$type) permet de generer un nombre de caracteres aleatoires. |
* |
* |
* |
* ENTREE : |
* - $n : créer un 'mot' de $n caractères |
* - $type : permet de définir la liste des caractères disponibles |
* - $n : creer un 'mot' de $n caracteres |
* - $type : permet de definir la liste des caracteres disponibles |
* |
* SORTIE : chaine de $n caractères pris dans une liste $type |
* SORTIE : chaine de $n caracteres pris dans une liste $type |
*/ |
function create_new_random($n,$type="") |
{ |
1375,9 → 1311,9 |
} |
|
//============================================================================== |
/** function nextId () Renvoie le prochain identifiant numérique libre d'une table |
/** function nextId () Renvoie le prochain identifiant numerique libre d'une table |
* |
* On passe en paramètre le nom de la table et l'identifiant de la base selon PEAR DB |
* On passe en parametre le nom de la table et l'identifiant de la base selon PEAR DB |
* |
* @param mixed handler de connexion |
* @param string Nom de la table |
1403,6 → 1339,9 |
//-- Fin du code source ------------------------------------------------------------ |
/* |
* $Log$ |
* Revision 1.28 2007-11-08 09:27:26 alexandre_tb |
* modification de inscription_verif_doublon_mail pour compatibilite avec annuaire_backoffice |
* |
* Revision 1.27 2007-10-12 09:59:06 alexandre_tb |
* suppression de code inutile |
* |