Changeset 32472 in spip-zone


Ignore:
Timestamp:
Oct 29, 2009, 4:56:56 PM (10 years ago)
Author:
scaron@…
Message:

Conservation des abonnés CleverMail? après désinscription

Location:
_plugins_/clevermail/2_0
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • _plugins_/clevermail/2_0/action/clevermail_list_subscriber_remove.php

    r29678 r32472  
    44  $arg = $securiser_action();
    55  $lsr_id = $arg;
    6  
     6
    77  if (sql_countsel("spip_cm_lists_subscribers", "lsr_id=".sql_quote($lsr_id)) == 1) {
    88          include_spip('inc/autoriser');
     
    1515      if (sql_countsel("spip_cm_lists_subscribers", "sub_id=".intval($abonnement['sub_id'])) == 0) {
    1616        // No more subscription, subscriber address is removed
    17         sql_delete("spip_cm_subscribers", "sub_id = ".intval($abonnement['sub_id']));
     17        //sql_delete("spip_cm_subscribers", "sub_id = ".intval($abonnement['sub_id']));
     18        sql_updateq("spip_cm_subscribers",
     19                                array('sub_email' => md5(substr($abonne,0,strpos($abonne, '@'))).substr($abonne,strpos($abonne, '@'))),
     20                                        "sub_id = ".intval($abonnement['sub_id']));
    1821      }
    19             spip_log('Suppression du l\'abonnement de « '.$abonne.' » à la liste « '.$liste.' » (id='.$abonnement['lst_id'].')', 'clevermail');
     22        spip_log('Suppression du l\'abonnement de « '.$abonne.' » à la liste « '.$liste.' » (id='.$abonnement['lst_id'].')', 'clevermail');
    2023          }
    2124  }
  • _plugins_/clevermail/2_0/balise/clevermail_validation.php

    r29701 r32472  
    1616            $sub = sql_fetsel("*", "spip_cm_subscribers", "sub_id = ".intval($action['sub_id']));
    1717            $list = sql_fetsel("*", "spip_cm_lists", "lst_id = ".intval($action['lst_id']));
    18                
     18
    1919            sql_insertq("spip_cm_lists_subscribers", array('lst_id' => $action['lst_id'], 'sub_id' => $action['sub_id'], 'lsr_mode' => $action['pnd_mode'], 'lsr_id' => $action['pnd_action_id']));
    2020            $return = '<p>'._T('clevermail:inscription_validee', array('lst_name' => $list['lst_name'])).'</p>';
     
    3737            // remove posts from this list already queued
    3838            sql_delete("spip_cm_posts_queued", "sub_id = ".intval($action['sub_id'])." AND pst_id IN (".implode(',', sql_fetsel("lst_id", "spip_cm_posts", "lst_id=".intval($action['lst_id']), "lst_id")).")");
    39            
     39
    4040            $return = '<p>'._T('clevermail:desinscription_validee').'</p>';
    4141
     
    5050            $envoyer_mail($destinataire, $sujet, $corps, $expediteur);
    5151          }
    52                
     52
    5353                      $abonnement = sql_fetsel("sub_id, lst_id", "spip_cm_lists_subscribers", "lsr_id=".sql_quote($lsr_id));
    5454                      $abonne = sql_getfetsel("sub_email", "spip_cm_subscribers", "sub_id=".intval($abonnement['sub_id']));
     
    5656                      if (sql_countsel("spip_cm_lists_subscribers", "sub_id=".intval($abonnement['sub_id'])) == 0) {
    5757                        // Plus aucun abonnement, on retire l'adresse complètement
    58                         sql_delete("spip_cm_subscribers", "sub_id = ".intval($abonnement['sub_id']));
     58                        //sql_delete("spip_cm_subscribers", "sub_id = ".intval($abonnement['sub_id']));
     59                        sql_updateq("spip_cm_subscribers",
     60                                array('sub_email' => md5(substr($abonne,0,strpos($abonne, '@'))).substr($abonne,strpos($abonne, '@'))),
     61                                        "sub_id = ".intval($abonnement['sub_id']));
    5962                      }
    6063                      spip_log('Suppression du l\'abonnement de « '.$abonne.' » de la liste « '.$liste.' » (id='.$abonnement['lst_id'].')', 'clevermail');
Note: See TracChangeset for help on using the changeset viewer.