source: trunk/spip/esqueleto-redcta/plugins/spip-listes_1_9_2/action/spiplistes_supprimer_abonne.php @ 90

<?php
if (!defined("_ECRIRE_INC_VERSION")) return;

include_spip('inc/autoriser');
function action_spiplistes_supprimer_abonne_dist()
{
        $securiser_action = charger_fonction('securiser_action', 'inc');
        $id_auteur = $securiser_action();
        $redirect = urldecode(_request('redirect'));

        //changer de statut
        if (autoriser('supprimer','auteur',$id_auteur)){
                $result = spip_query("SELECT * FROM spip_auteurs WHERE id_auteur="._q($id_auteur));
                if ($row = spip_fetch_array($result)) {
                        $id_auteur=$row['id_auteur'];
                        $statut=$row['statut'];
        
                        if($statut=='6forum'){
                                spip_query("DELETE FROM spip_auteurs_listes WHERE id_auteur="._q($id_auteur));
                                spip_query("DELETE FROM spip_auteurs WHERE id_auteur="._q($id_auteur));
                                spip_query("DELETE FROM `spip_auteurs_elargis` WHERE id_auteur="._q($id_auteur));
                        }
                }
        }       
        if ($redirect){
                redirige_par_entete(str_replace("&amp;","&",$redirect));
        }
}

?>