version 1.24, 2006/05/30 12:46:09
|
version 1.28, 2006/06/28 16:01:01
|
Line 421 sub group_administration {
|
Line 421 sub group_administration {
|
files => { |
files => { |
rgf => 'Retrieve', |
rgf => 'Retrieve', |
ugf => 'Upload', |
ugf => 'Upload', |
|
mgf => 'Modify', |
dgf => 'Delete', |
dgf => 'Delete', |
|
agf => 'Control Access', |
}, |
}, |
roster => { |
roster => { |
vgm => 'View', |
vgm => 'View', |
Line 1086 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 2120 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; |
Line 2979 sub process_membership {
|
Line 2980 sub process_membership {
|
} |
} |
} else { |
} else { |
if (@{$defprivs} > 0) { |
if (@{$defprivs} > 0) { |
foreach my $priv (@{$defprivs}) { |
if (grep/^\Q$priv\E$/,@{$defprivs}) { |
foreach my $user (sort(keys(%{$usertools}))) { |
foreach my $user (sort(keys(%{$usertools}))) { |
if ($$usertools{$user}{$tool}) { |
if ($$usertools{$user}{$tool}) { |
$group_privs{$user} .= $priv.':'; |
$group_privs{$user} .= $priv.':'; |