version 1.27, 2006/06/28 16:00:05
|
version 1.28, 2006/06/28 16:01:01
|
Line 2121 sub current_membership {
|
Line 2121 sub current_membership {
|
my $addtools = 0; |
my $addtools = 0; |
my $num_reenable = 0; |
my $num_reenable = 0; |
my $num_activate = 0; |
my $num_activate = 0; |
my $num_expire - 0; |
my $num_expire = 0; |
foreach my $key (sort(keys(%membership))) { |
foreach my $key (sort(keys(%membership))) { |
if ($key =~ /^\Q$groupname\E:([^:]+):([^:]+)$/) { |
if ($key =~ /^\Q$groupname\E:([^:]+):([^:]+)$/) { |
my $uname = $1; |
my $uname = $1; |