version 1.26, 2006/06/27 18:49:14
|
version 1.28, 2006/06/28 16:01:01
|
Line 1088 sub group_members {
|
Line 1088 sub group_members {
|
$$group_info{'totalmembers'} = 'Unknown - an error occurred'; |
$$group_info{'totalmembers'} = 'Unknown - an error occurred'; |
return $tmp; |
return $tmp; |
} |
} |
my $now = time; |
|
my $totalmembers = 0; |
my $totalmembers = 0; |
my $active = 0; |
my $active = 0; |
my $previous = 0; |
my $previous = 0; |
Line 2122 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; |