| 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 |
| * |