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>