' ;
return $res ;
}
/**
* La fonction carto_getNbInscrits renvoit une phrase complete indiquant le
* nombre d'inscrits dans zone passee en argument
* @param string identifiant de carte ex: europe
* @return string
*/
function carto_ad_consulterNbreInscrits ($id_carte)
{
global $NOM_FICHIER;
$titre_carte = carto_consulterTitreCarte($id_carte);
$type_zone_carte = carto_consulterTypeZoneCarte ($id_carte);
switch ($type_zone_carte){
case '0' :
$requete =
' SELECT count(u_id) as nbr'.
' FROM annuaire_tela'.
' WHERE u_french_dpt <> 999';
break;
case '1' :
$requete =
' SELECT count(u_id) as nbr'.
' FROM annuaire_tela, carto_PAYS'.
' WHERE u_country = cp_id_pays'.
' AND cp_id_continent = "'.carto_consulterIdZoneGeoCarte ($id_carte).'"';
break;
case '2' :
$requete =
' SELECT count(u_id) as nbr'.
' FROM annuaire_tela'.
' WHERE u_french_dpt != "999"'.
' AND u_country = "fr"';
break;
}
$resultat = mysql_query($requete) or die('
Erreur de requête
'.
'Nom du fichier : '.$NOM_FICHIER.' '.
'Nom fonction : carto_ad_consulterNbreInscrits '.
'Requete : '.$requete.
'
'.$titre_carte.' : ' ;
if ($ligne->nbr == 0) {
$res .= 'aucun inscrit' ;
}
else if ($ligne->nbr == 1) {
$res .= $ligne->nbr.' inscrit' ;
}
else {
$res .= $ligne->nbr.' inscrits ';
}
return $res.' à Tela Botanica
' ;
}
/**
* Envoie un email à tous les adhérents sélectionnés
*
* @return string Renvoie le message 'votre message a été envoyé'
*/
function envoie_mail (&$db) {
$res = "
Votre message a été envoyé
" ;
$requete = "select ".CAR_CHAMPS_MAIL." from ".CAR_ANNUAIRE.
" where ".CAR_CHAMPS_ID."='".$GLOBALS['car_auth']->getAuthData (CAR_CHAMPS_ID)."'";
$resultat = $db->query($requete);
if (DB::isError($resultat)) {
die ($resultat->getMessage().' '.$resultat->getDebugInfo());
}
$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
$entete = "From: <".$ligne[CAR_CHAMPS_MAIL].">\n";
$_POST['corps'] .= CAR_TEXTE_FIN_MAIL;
$_POST['corps'] = stripslashes($_POST['corps']) ;
$liste = "" ;
foreach ($_POST['select'] as $key => $value) {
mail($value, stripslashes($_POST['titre_mail']), $_POST['corps'], $entete) ;
$liste .= $value."\n" ;
}
$_POST['corps'] .= "\n----------------------------------------------------------------------------";
$_POST['corps'] .= "\n".CAR_MESSAGE_APPLI."\n" ;
$_POST['corps'] .= "\n".CAR_MESSAGE_ENVOYE_A.":\n $liste" ;
// Envoie du message aux administrateurs
foreach ($GLOBALS['mail_admin'] as $courriel) {
if (!mail($courriel, stripslashes($_POST['titre_mail']), $_POST['corps'], $entete)) {
trigger_error("Le courriel n'a pas été envoyé à : $courriel", E_USER_WANRNING);
}
}
$_POST['corps']='';
$_POST['titre_mail']='';
return $res ;
}
function envoie_mail_modere (&$db) {
$res = '
'.CAR_MAIL_ATTENTE_MODERATION.'
' ;
$requete = "select ".CAR_CHAMPS_MAIL." from ".CAR_ANNUAIRE.
" where ".CAR_CHAMPS_ID."='".$GLOBALS['car_auth']->getAuthData (CAR_CHAMPS_ID)."'";
$resultat = $db->query($requete);
if (DB::isError($resultat)) {
die ($resultat->getMessage().' '.$resultat->getDebugInfo());
}
$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
$liste = '';
$entete = '' ;
foreach ($_POST['select'] as $key => $value) {
$liste .= $value."\n" ;
}
$precorps = $ligne[CAR_CHAMPS_MAIL]." ".CAR_EXPEDITEUR_ORIGINAL." \n" ;
$precorps .= CAR_LISTE_DESTINATAIRES." : ".$liste." \n" ;
$precorps .= CAR_TITRE_MAIL.' : '.$_POST['titre_mail']." \n" ;
$precorps .= "\n------".CAR_CONTENU_MESSAGE."------\n";
$corps = stripslashes($precorps.$_POST['corps']) ;
$corps .= "\n----------------------------------------------------------------------------";
$corps .= "\n".CAR_MESSAGE_APPLI."\n" ;
// Envoie du message au modérateur
foreach ($GLOBALS['mail_admin'] as $courriel) {
if(!mail($courriel,CAR_TITRE_MAIL_MODERATION,$corps, $entete))
{
trigger_error("Le courriel n'a pas été envoyé à : $courriel", E_USER_WARNING);
}
}
$_POST['corps']='';
$_POST['titre_mail']='';
return $res ;
}
//-- Fin du code source ------------------------------------------------------------
/*
* $Log: car_cartographie.fonct.php,v $
* Revision 1.4 2005/03/11 17:27:23 alex
* modification html
*
* Revision 1.3 2005/03/11 17:24:39 alex
* modification html
*
* Revision 1.2 2005/03/11 15:18:45 alex
* migration version 4
*
* Revision 1.1 2004/11/30 13:37:19 tam
* installation
*
* Revision 1.1.1.1 2004/11/23 17:48:17 tam
* Importation
*
* Revision 1.1 2004/11/23 17:30:13 tam
* installation
*
*
*/
?>