version 1.24, 2006/05/30 12:46:09
|
version 1.26, 2006/06/27 18:49:14
|
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 2979 sub process_membership {
|
Line 2981 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.':'; |