blob: 6b91de80780e45284a366eda7514c0819098a59d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
% if ( $error ) {
% errorpage($error);
% } else {
<% $cgi->redirect($p."search/mailinglistmember.html?listnum=$listnum") %>
% }
<%init>
my($query) = $cgi->keywords;
$query =~ /^(\d+)$/ || die "Illegal devicenum";
my $membernum = $1;
my $mailinglistmember =
qsearchs('mailinglistmember', { 'membernum' => $membernum } )
or die "unknown membernum $membernum";
my $listnum = $mailinglistmember->listnum;
my $error = $mailinglistmember->delete;
</%init>
|
