Subversion Repositories Applications.papyrus

Rev

Rev 1681 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1681 Rev 1693
Line 659... Line 659...
659 
    			'From: '.$GLOBALS['ins_config']['ic_from_mail_confirmation']) ;
 659 
    			'From: '.$GLOBALS['ins_config']['ic_from_mail_confirmation']) ;
660 
}
 660 
}
Line 661... Line 661...
661 
 
 661 
 
662 
/**
 662 
/**
663 
 *
 663 
 *
664 
 * @param   array   les valeurs renvoyés par le formulaire
 664 
 * @param   array   les valeurs renvoyes par le formulaire
665 
 * @return
 665 
 * @return
Line 666... Line 666...
666 
 */
 666 
 */
667 
 
 667 
 
Line 769... Line 769...
769 
    if (INS_UTILISE_SPIP) {
 769 
    if (INS_UTILISE_SPIP) {
770 
        mod_inscription_spip($GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID), $valeur) ;
 770 
        mod_inscription_spip($GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID), $valeur) ;
771 
    }
 771 
    }
772 
}
 772 
}
Line 773... Line 773...
773 
 
 773 
 
774 
/** requete_annuaire () - Renvoie une chaine contenant les champs de l'annuaire avec leur valeur suite à le fonction process de QuickForm
 774 
/** requete_annuaire () - Renvoie une chaine contenant les champs de l'annuaire avec leur valeur suite a la fonction process de QuickForm
775 
*
 775 
*
776 
* @return   string  une requete du type champs="valeur",...
 776 
* @return   string  une requete du type champs="valeur",...
Line 777... Line 777...
777 
*/
 777 
*/
Line 824... Line 824...
824 
		}
824 
		}
825 
		elseif ($tableau[$i]['type'] == 'mot_de_passe') {
 825 
		elseif ($tableau[$i]['type'] == 'mot_de_passe') {
826 
			$requete .= $tableau[$i]['nom_bdd'].'="'.md5($valeur['mot_de_passe']).'",';
 826 
			$requete .= $tableau[$i]['nom_bdd'].'="'.md5($valeur['mot_de_passe']).'",';
827 
		}
827 
		}
828 
		elseif ($tableau[$i]['type'] == 'newsletter') {
 828 
		elseif ($tableau[$i]['type'] == 'newsletter') {
- 
 
 829 
			if (!isset($valeur[$tableau[$i]['nom_bdd']])) $valeur[$tableau[$i]['nom_bdd']] = 0;
829 
			$requete .= $tableau[$i]['nom_bdd'].'="'.$valeur[$tableau[$i]['nom_bdd']].'",';
 830 
			$requete .= $tableau[$i]['nom_bdd'].'="'.$valeur[$tableau[$i]['nom_bdd']].'",';
830 
			// Si le champs newletter vaut cad, la case est coche, on inscrit le pretendant
 831 
			// Si le champs newletter vaut cad, la case est coche, on inscrit le pretendant
831 
			// a la lettre d actualite
 832 
			// a la lettre d actualite
- 
 
 833
- 
 
 834 
			if (isset($GLOBALS['anciennes_valeurs_annuaire'])) {
- 
 
 835
- 
 
 836 
				if ($GLOBALS['anciennes_valeurs_annuaire'][$tableau[$i]['nom_bdd']] != $valeur[$tableau[$i]['nom_bdd']]) {
832 
			if ($valeur[$tableau[$i]['nom_bdd']] == 1) {
 837 
					if ($valeur[$tableau[$i]['nom_bdd']] == 1) {
833 
				inscription_lettre($tableau[$i]['limite1']);
 838 
						inscription_lettre($tableau[$i]['limite1']);
- 
 
 839 
					} else {
- 
 
 840 
						desinscription_lettre($tableau[$i]['limite2']);
- 
 
 841 
					}
- 
 
 842 
				}
834 
			} else {
 843 
			} else {
- 
 
 844 
				if ($valeur[$tableau[$i]['nom_bdd']] == 1) {
- 
 
 845 
					inscription_lettre($tableau[$i]['limite1']);
- 
 
 846 
				} else {
835 
				desinscription_lettre($tableau[$i]['limite2']);
 847 
					desinscription_lettre($tableau[$i]['limite2']);
- 
 
 848 
				}
836 
			}
 849 
			}
837 
		}
 850 
		}
838 
	}
 851 
	}
839 
    // traitement du numero de departement pour la france
 852 
    // traitement du numero de departement pour la france
840 
    if ($valeur['a_ce_pays'] == 'fr') {
 853 
    if ($valeur['a_ce_pays'] == 'fr') {
Line 1000... Line 1013...
1000 
				//$requete .= 'a_latitude="'.$valeur['latitude'].'", a_longitude="'.$valeur['longitude'].'",';
 1013 
				//$requete .= 'a_latitude="'.$valeur['latitude'].'", a_longitude="'.$valeur['longitude'].'",';
1001 
			}
1014 
			}
1002 
			elseif ($tableau[$i]['type'] == 'mot_de_passe') {
 1015 
			elseif ($tableau[$i]['type'] == 'mot_de_passe') {
1003 
				$requete .= $tableau[$i]['nom_bdd'].'="'.md5($valeur['a_mot_de_passe']).'",';
 1016 
				$requete .= $tableau[$i]['nom_bdd'].'="'.md5($valeur['a_mot_de_passe']).'",';
1004 
			} else if ($tableau[$i]['type'] == 'labelhtml') {
 1017 
			} else if ($tableau[$i]['type'] == 'labelhtml') {
1005 
				$res .= '<div>'.$tableau[$i]['label'].'</div>';
 1018 
				if ($tableau[$i]['obligatoire'] != 0) $res .= '<div>'.$tableau[$i]['label'].'</div>';
1006 
			} else if ($tableau[$i]['type'] == 'lien_internet') {
 1019 
			} else if ($tableau[$i]['type'] == 'lien_internet' && $valeur[$tableau[$i]['nom_bdd']] != 'http://') {
- 
 
 1020 
				$res .= inscription_ligne ($tableau[$i]['label'],
1007 
				$res .= inscription_ligne ($tableau[$i]['label'], '<a href="'.$valeur[$tableau[$i]['nom_bdd']].'">'.$valeur[$tableau[$i]['nom_bdd']].'</a>');
 1021 
							'<a href="'.$valeur[$tableau[$i]['nom_bdd']].'">'.$valeur[$tableau[$i]['nom_bdd']].'</a>');
1008 
			}
 1022 
			}
1009 
		}
 1023 
		}
Line 1010... Line -...
1010
- 
 
1011
- 
 
1012
1024
1013 
	    if ($type_info == 'fiche') {
 1025 
	    if ($type_info == 'fiche') {
1014 
		    if ($id==$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID)) {
- 
 
1015 
			    $res .= '<ul style="margin-top:10px; clear:both;">'."\n";
- 
 
1016 
			    if ($ligne[INS_CHAMPS_VISIBLE] == 1) {
 - 
 
1017 
			    	$res .= '<li>'.INS_VOUS_APPARAISSEZ.'</li>'."\n";
 - 
 
1018 
			    } else $res .= '<li>'.INS_VOUS_APPARAISSEZ_PAS.'</li>'."\n";
 - 
 
1019 
			    if (INS_CHAMPS_LETTRE != '') {
 - 
 
1020 
			    		if ($ligne[INS_CHAMPS_LETTRE] == 1) {
 - 
 
1021 
			    			$res .= '<li>'.INS_VOUS_RECEVEZ_LETTRE.'</li>'."\n";
 - 
 
1022 
			    		} else $res .= '<li>'.INS_VOUS_RECEVEZ_PAS_LETTRE.'</li>'."\n";
 - 
 
1023 
			    }
 - 
 
1024 
			    $res .= '</ul>'."\n";
 - 
 
1025
1026 
		    if ($id==$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID)) {
1026 
			    $res .= '<ul style="margin:15px;">'."\n";;
 1027 
			    $res .= '<ul style="margin:15px;">'."\n";;
1027 
		    	$GLOBALS['ins_url']->addQueryString('id_inscription', $ligne['a_ce_id_inscription']);
 1028 
		    	$GLOBALS['ins_url']->addQueryString('id_inscription', $ligne['a_ce_id_inscription']);
1028 
			    $GLOBALS['ins_url']->addQueryString('action', 'modifier');
 1029 
			    $GLOBALS['ins_url']->addQueryString('action', 'modifier');
1029 
			    //$GLOBALS['ins_url']->addQueryString('id_inscription', $GLOBALS['ins_config']['ic_id_inscription']);
 1030 
			    //$GLOBALS['ins_url']->addQueryString('id_inscription', $GLOBALS['ins_config']['ic_id_inscription']);
Line 1228... Line 1229...
1228 
    }
 1229 
    }
1229 
    return true ;
 1230 
    return true ;
1230 
}
 1231 
}
Line 1231... Line 1232...
1231 
 
 1232 
 
1232 
/**
 - 
 
1233 
 *
 - 
 
1234 
 * @global  ins_db  Un pointeur vers un objet PEAR::DB connecté
 - 
 
1235 
 * @return
 - 
 
1236 
 */
 - 
 
1237 
 
 - 
 
1238 
function inscription_envoie_mail() //A COMPLETER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 - 
 
1239 
{
 - 
 
1240 
    include_once PAP_CHEMIN_RACINE.'api/pear/Mail/mime.php' ;
 - 
 
1241 
    include_once PAP_CHEMIN_RACINE.'api/pear/Mail.php' ;
 - 
 
1242 
    $crlf="\n";
 - 
 
1243
- 
 
1244 
    $headers ['From'] = $GLOBALS['ins_config']['ic_from_mail_confirmation'] ;
 - 
 
1245 
    $headers ['Subject'] = INS_MAIL_COORD_SUJET ;
 - 
 
1246 
    $headers ['Reply-To'] = $GLOBALS['ins_config']['ic_from_mail_confirmation'] ;
 - 
 
1247
- 
 
1248 
    $mime = new Mail_mime($crlf);
 - 
 
1249
- 
 
1250 
    $requete = "select *, ".INS_CHAMPS_LABEL_PAYS." from ".INS_ANNUAIRE.",".INS_TABLE_PAYS.
 - 
 
1251 
            " where ".INS_CHAMPS_MAIL."=\"".$GLOBALS['AUTH']->getUsername()."\"".
 - 
 
1252 
            " and ".INS_CHAMPS_ID_PAYS."=".INS_CHAMPS_PAYS;
 - 
 
1253 
 
 - 
 
1254 
    $resultat = $GLOBALS['ins_db']->query($requete) ;
 - 
 
1255 
    if (DB::isError ($resultat)) {
 - 
 
1256 
        die ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;
 - 
 
1257 
    }
 - 
 
1258 
    $ligne  = $resultat->fetchRow(DB_FETCHMODE_ASSOC) ;
 - 
 
1259 
    $valeur = $ligne;
 - 
 
1260 
    $body_entete = INS_MAIL_COORD_CORPS."\n" ;
 - 
 
1261 
    $body = "mail : ".$ligne[INS_CHAMPS_MAIL]."\n" ;
 - 
 
1262 
    $body .= "------------------------------------------\n";
 - 
 
1263 
    $body .= INS_NOM.": ".unhtmlentities($ligne[INS_CHAMPS_NOM])." \n" ;
 - 
 
1264 
    $body .= INS_PRENOM.' : '.unhtmlentities($ligne[INS_CHAMPS_PRENOM])." \n" ;
 - 
 
1265 
    $body .= INS_PAYS." : ".unhtmlentities($ligne[INS_CHAMPS_LABEL_PAYS])." \n" ;
 - 
 
1266 
    $body .= "-------------------------------------------\n" ;
 - 
 
1267 
 
 - 
 
1268 
    $mime->setTXTBody($body);
 - 
 
1269 
    $mime->setHTMLBody(info()) ;
 - 
 
1270
- 
 
1271 
    $body = $mime->get();
 - 
 
1272 
    $headers = $mime->headers($headers);
 - 
 
1273
- 
 
1274 
    $mail = & Mail::factory('mail') ;
 - 
 
1275
- 
 
1276 
    $mail -> send ($ligne[INS_CHAMPS_MAIL], $headers, $body) ;
 - 
 
1277
- 
 
1278 
        // Envoi du mail aux administrateur du site
 - 
 
1279 
    foreach ($GLOBALS['mail_admin'] as $administrateur) {
 - 
 
1280 
        $mail -> send ($administrateur, $headers, $body) ;
 - 
 
1281 
    }
 - 
 
1282 
    if (PEAR::isError($mail)) {
 - 
 
1283 
        echo 'erreur d\'envoi' ;
 - 
 
1284 
        return false ;
 - 
 
1285 
    }
 - 
 
1286 
    return true ;
 - 
 
1287 
}
 - 
 
1288 
 
 - 
 
1289 
 
 - 
 
1290 
/**
 1233 
/**
1291 
 *  Genere un nom wiki valide a partir des données saisies par l'utilisateur
 1234 
 *  Genere un nom wiki valide a partir des donnees saisies par l'utilisateur
1292 
 *  fait une requete dans la base
 1235 
 *  fait une requete dans la base
1293 
 *
 1236 
 *
1294 
 * @return  string un nom wiki valide
 1237 
 * @return  string un nom wiki valide
Line 1295... Line 1238...
1295 
 */
 1238 
 */
1296 
 
 1239 
 
1297 
function inscription_genere_nom_wiki($prenom, $nom) {
 1240 
function inscription_genere_nom_wiki($prenom, $nom) {
1298 
    // 1. suppression des espaces
 1241 
    // 1. suppression des espaces
Line 1299... Line 1242...
1299 
    $nom = trim ($nom) ;
 1242 
    $nom = trim ($nom) ;
1300 
    $prenom = trim ($prenom) ;
 1243 
    $prenom = trim ($prenom) ;
1301
1244
Line 1302... Line 1245...
1302 
    // 2. suppression des caractères non ascii et ajout de la première lettre en majuscule
 1245 
    // 2. suppression des caracteres non ascii et ajout de la premiere lettre en majuscule
1303 
    $nom = inscription_trim_non_ascii ($nom) ;
 1246 
    $nom = inscription_trim_non_ascii ($nom) ;
Line 1310... Line 1253...
1310 
    }
 1253 
    }
1311 
    return $nom_wiki ;
 1254 
    return $nom_wiki ;
1312 
}
 1255 
}
Line 1313... Line 1256...
1313 
 
 1256 
 
1314 
/**
 1257 
/**
1315 
 *	Cette fonction supprime les caractères autres que asccii et les chiffres
 1258 
 *	Cette fonction supprime les caracteres autres que asccii et les chiffres
1316 
 *
 1259 
 *
1317 
 * @return	string la chaine épurée
 1260 
 * @return	string la chaine e½puree
Line 1318... Line 1261...
1318 
 */
 1261 
 */
1319 
 
 1262 
 
1320 
function inscription_trim_non_ascii ($nom) {
 1263 
function inscription_trim_non_ascii ($nom) {
Line 1335... Line 1278...
1335 
    }
 1278 
    }
1336 
    $nom = preg_replace ('/_/', '', $nom) ;
 1279 
    $nom = preg_replace ('/_/', '', $nom) ;
1337 
    return $nom ;
 1280 
    return $nom ;
1338 
}
 1281 
}
Line 1339... Line -...
1339 
 
 - 
 
1340 
// For users prior to PHP 4.3.0 you may do this:
 - 
 
1341 
//function unhtmlentities($string)
 - 
 
1342 
//{
 - 
 
1343 
//    $trans_tbl = array_flip ($trans_tbl);
 - 
 
1344 
//    return strtr ($string, $trans_tbl);
 - 
 
1345 
//}
 - 
 
1346 
 
 1282 
 
1347 
//==============================================================================
 1283 
//==============================================================================
1348 
/** function create_new_random($n,$type) permet de générer un nombre de caractères alçatoires.
 1284 
/** function create_new_random($n,$type) permet de generer un nombre de caracteres aleatoires.
1349 
*
 1285 
*
1350 
*
1286 
*
1351 
*
 1287 
*
1352 
*  ENTREE :
 1288 
*  ENTREE :
1353 
*  - $n : créer un 'mot' de $n caractères
 1289 
*  - $n : creer un 'mot' de $n caracteres
1354 
*  - $type : permet de définir la liste des caractères disponibles
 1290 
*  - $type : permet de definir la liste des caracteres disponibles
1355 
*
 1291 
*
1356 
*  SORTIE : chaine de $n caractères pris dans une liste $type
 1292 
*  SORTIE : chaine de $n caracteres pris dans une liste $type
1357 
*/
 1293 
*/
1358 
function create_new_random($n,$type="")
 1294 
function create_new_random($n,$type="")
1359 
{
 1295 
{
Line 1373... Line 1309...
1373
1309
1374 
    return "$str";
 1310 
    return "$str";
Line 1375... Line 1311...
1375 
}
 1311 
}
1376 
 
 1312 
 
1377 
//==============================================================================
 1313 
//==============================================================================
1378 
/** function nextId () Renvoie le prochain identifiant numérique libre d'une table
 1314 
/** function nextId () Renvoie le prochain identifiant numerique libre d'une table
1379 
*
 1315 
*
1380 
*   On passe en paramètre le nom de la table et l'identifiant de la base selon PEAR DB
 1316 
*   On passe en parametre le nom de la table et l'identifiant de la base selon PEAR DB
1381 
*
 1317 
*
1382 
*   @param  mixed   handler de connexion
 1318 
*   @param  mixed   handler de connexion
1383 
*   @param  string  Nom de la table
 1319 
*   @param  string  Nom de la table
Line 1401... Line 1337...
1401 
 
 1337 
 
1402 
 
 1338 
 
1403 
//-- Fin du code source    ------------------------------------------------------------
 1339 
//-- Fin du code source    ------------------------------------------------------------
- 
 
 1340 
/*
- 
 
 1341 
* $Log$
- 
 
 1342 
* Revision 1.28  2007-11-08 09:27:26  alexandre_tb
1404 
/*
 1343 
* modification de inscription_verif_doublon_mail pour compatibilite avec annuaire_backoffice
1405 
* $Log$
 1344 
*
1406 
* Revision 1.27  2007-10-12 09:59:06  alexandre_tb
 1345 
* Revision 1.27  2007-10-12 09:59:06  alexandre_tb
1407 
* suppression de code inutile
 1346 
* suppression de code inutile
1408 
*
 1347 
*