RT#38363: use cust_payby when saving cards during payments
[freeside.git] / httemplate / misc / delete-mailinglistmember.html
1 % if ( $error ) {
2 %   errorpage($error);
3 % } else {
4 <% $cgi->redirect($p."search/mailinglistmember.html?listnum=$listnum") %>
5 % }
6 <%init>
7
8 my($query) = $cgi->keywords;
9 $query =~ /^(\d+)$/ || die "Illegal devicenum";
10 my $membernum = $1;
11
12 my $mailinglistmember =
13   qsearchs('mailinglistmember', { 'membernum' => $membernum } )
14     or die "unknown membernum $membernum";
15
16 my $listnum = $mailinglistmember->listnum;
17
18 my $error = $mailinglistmember->delete;
19
20 </%init>