Subversion Repositories Applications.papyrus

Compare Revisions

Ignore whitespace Rev 1688 → Rev 1689

/branches/livraison_aha/client/bottin/bibliotheque/bottin.fonct.php
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
*