[freeside-commits] freeside/httemplate/misc delete-mailinglistmember.html, 1.1, 1.2

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/httemplate/misc
In directory wavetail.420.am:/tmp/cvs-serv16897/httemplate/misc

Added Files:
	delete-mailinglistmember.html 
Log Message:
adding svc_mailinglist for communigate "groups" (mailing lists), RT#7514

--- NEW FILE: delete-mailinglistmember.html ---
% 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>