From fc24cdb762db7151177f5276ebf15a31bd70ffa7 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Fri, 26 Jul 2002 00:40:10 +0000
Subject: update $primary_admin_recipient_map too

---
 fml/lib/FML/Command/Admin/deladmin.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/fml/lib/FML/Command/Admin/deladmin.pm b/fml/lib/FML/Command/Admin/deladmin.pm
index c0937b60..349c322f 100644
--- a/fml/lib/FML/Command/Admin/deladmin.pm
+++ b/fml/lib/FML/Command/Admin/deladmin.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: deladmin.pm,v 1.4 2002/07/02 12:07:33 fukachan Exp $
+# $FML: deladmin.pm,v 1.1 2002/07/13 09:45:41 fukachan Exp $
 #
 
 package FML::Command::Admin::deladmin;
@@ -61,6 +61,7 @@ sub process
     my ($self, $curproc, $command_args) = @_;
     my $config        = $curproc->{ config };
     my $member_map    = $config->{ primary_admin_member_map };
+    my $recipient_map = $config->{ primary_admin_recipient_map };
     my $options       = $command_args->{ options };
     my $address       = $command_args->{ command_data } || $options->[ 0 ];
 
@@ -73,7 +74,7 @@ sub process
     # FML::Command::UserControl specific parameters
     my $uc_args = {
 	address => $address,
-	maplist => [ $member_map ],
+	maplist => [ $member_map, $recipient_map ],
     };
     my $r = '';
 
-- 
cgit v1.2.1