diff options
| author | fukachan <fukachan> | 2003-05-15 03:26:03 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-05-15 03:26:03 +0000 |
| commit | d5310c1574445165cad9d72f45a12c0e8b711eea (patch) | |
| tree | 5f275d4f28f993f9520e6de86452bfc5a644795b /fml/lib/FML | |
| parent | f983a2c0f8a1bc58bffd676e26d9b93f998c1c15 (diff) | |
| download | fml8-d5310c1574445165cad9d72f45a12c0e8b711eea.tar.gz fml8-d5310c1574445165cad9d72f45a12c0e8b711eea.tar.bz2 fml8-d5310c1574445165cad9d72f45a12c0e8b711eea.zip | |
cgi support digeston and digestoff
Diffstat (limited to 'fml/lib/FML')
| -rw-r--r-- | fml/lib/FML/CGI/Admin/User.pm | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/fml/lib/FML/CGI/Admin/User.pm b/fml/lib/FML/CGI/Admin/User.pm index f6bbd8ca..a58eaa2d 100644 --- a/fml/lib/FML/CGI/Admin/User.pm +++ b/fml/lib/FML/CGI/Admin/User.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: User.pm,v 1.15 2002/12/18 04:49:28 fukachan Exp $ +# $FML: User.pm,v 1.16 2003/02/15 02:54:25 fukachan Exp $ # package FML::CGI::Admin::User; @@ -46,6 +46,7 @@ sub cgi_menu my $ml_name = $command_args->{ ml_name }; my $comname = $command_args->{ comname }; my $address_list = []; + my $selected_key = ''; # which address list to show at the scrolling list if ($comname eq 'subscribe' || @@ -55,6 +56,15 @@ sub cgi_menu $comname eq 'userdel' || $comname eq 'deluser' ) { $address_list = $curproc->get_address_list( 'member_maps' ); + $selected_key = 'members'; + } + elsif ($comname eq 'digeston') { + $address_list = $curproc->get_address_list( 'recipient_maps' ); + $selected_key = 'recipients'; + } + elsif ($comname eq 'digestoff') { + $address_list = $curproc->get_address_list( 'digest_recipient_maps' ); + $selected_key = 'digest recipients'; } elsif ($comname eq 'addadmin' || $comname eq 'adminadd' || @@ -62,6 +72,7 @@ sub cgi_menu $comname eq 'deladmin' || $comname eq 'byeadmin' ) { $address_list = $curproc->get_address_list( 'admin_member_maps' ); + $selected_key = 'admin_members'; } else { croak("not allowed command"); @@ -89,7 +100,7 @@ sub cgi_menu ), Tr( undef, td([ - "address: ", + "specify address: ", textfield(-name => 'address_specified', -default => $address, -override => 1, @@ -100,7 +111,7 @@ sub cgi_menu ), Tr( undef, td([ - "", + "select address<br>($selected_key)", scrolling_list(-name => 'address_selected', -values => $address_list, -size => 5) |