source: spip-zone/_plugins_/Association/Associaspip/action/modifier_relances.php @ 47177

Last change on this file since 47177 was 47177, checked in by jeannolapin@…, 10 years ago

Associaspip Nettoyage de code: suppressions des traces de l'interface avec Inscription2 + Correction d'un bug dans le lien page de membre -> livre de comptes dans le cas d'un don.

File size: 2.0 KB
Line 
1<?php
2/***************************************************************************\
3 *  Associaspip, extension de SPIP pour gestion d'associations             *
4 *                                                                         *
5 *  Copyright (c) 2007 Bernard Blazin & François de Montlivault (V1)       *
6 *  Copyright (c) 2010-2011 Emmanuel Saint-James & Jeannot Lapin (V2)       *
7 *                                                                         *
8 *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
9 *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
10\***************************************************************************/
11
12
13if (!defined("_ECRIRE_INC_VERSION")) return;
14
15// envoi du mail aux destinataires sélectionnés et chgt du statut de relance
16
17function action_modifier_relances() {
18               
19        $securiser_action = charger_fonction('securiser_action', 'inc');
20        $count = $securiser_action();
21
22        $sujet = _request('sujet');
23        $message=html_entity_decode(_request('message'), ENT_QUOTES, 'UTF-8');
24        $statut_tab=(isset($_POST["statut"])) ? $_POST["statut"]:array(); /* contient un tableau id_auteur => statut_interne */
25
26        $adresse=$GLOBALS['association_metas']['email'];
27        $exp=$GLOBALS['association_metas']['nom'].'<'.$adresse.'>'; 
28        $envoyer_mail = charger_fonction('envoyer_mail', 'inc');
29       
30        /* on recupere les adresses emails de tous les auteurs selectionnes, a reprendre quand on pourra interfacer avec Coordonnees */
31        $id_auteurs_list = sql_in('id_auteur', array_keys($statut_tab));
32        $auteurs_info = sql_select('id_auteur, email', 'spip_auteurs', $id_auteurs_list);
33       
34        /* boucle sur tous les auteurs selectionnés */
35        while ($auteur_info = sql_fetch($auteurs_info)) {
36                $id_auteur = $auteur_info['id_auteur'];
37                $email = $auteur_info['email'];
38                if (!$envoyer_mail($email, $sujet, $message, $exp)) {
39                        spip_log("non envoi du mail a ".$email);
40                } elseif ($statut_tab[$id_auteur]=="echu") {
41                                sql_updateq('spip_asso_membres', 
42                                        array("statut_interne"=> 'relance'),
43                                            "id_auteur=$id_auteur");
44                        }
45        }
46}
47?>
Note: See TracBrowser for help on using the repository browser.