version 1.21, 2006/05/22 22:35:46
|
version 1.22, 2006/05/25 22:39:59
|
Line 397 sub group_administration {
|
Line 397 sub group_administration {
|
} |
} |
} |
} |
|
|
my %toolprivs = (); |
my %toolprivs = |
%{$toolprivs{'email'}} = ( |
( |
sgm => 'Send group mail', |
email => { |
sgb => 'Broadcast mail', |
sgm => 'Send group mail', |
); |
sgb => 'Broadcast mail', |
%{$toolprivs{'discussion'}} = ( |
}, |
cgb => 'Create boards', |
discussion => { |
pgd => 'Post', |
cgb => 'Create boards', |
pag => 'Anon. posts', |
pgd => 'Post', |
rgi => 'Get identities', |
pag => 'Anon. posts', |
vgb => 'View boards', |
rgi => 'Get identities', |
); |
vgb => 'View boards', |
%{$toolprivs{'chat'}} = ( |
}, |
pgc => 'Chat', |
chat => { |
); |
pgc => 'Chat', |
%{$toolprivs{'files'}} = ( |
}, |
rgf => 'Retrieve', |
files => { |
ugf => 'Upload', |
rgf => 'Retrieve', |
dgf => 'Delete', |
ugf => 'Upload', |
); |
dgf => 'Delete', |
%{$toolprivs{'roster'}} = ( |
}, |
vgm => 'View', |
roster => { |
); |
vgm => 'View', |
%{$toolprivs{'homepage'}} = ( |
}, |
vgh => 'View page', |
homepage => { |
mgh => 'Modify page', |
vgh => 'View page', |
); |
mgh => 'Modify page', |
my %fixedprivs = (); |
}, |
%{$fixedprivs{'email'}} = ('sgm' => 1); |
); |
%{$fixedprivs{'discussion'}} = ('vgb' => 1); |
|
%{$fixedprivs{'chat'}} = ('pgc' => 1); |
my %fixedprivs = |
%{$fixedprivs{'files'}} = ('rgf' => 1); |
( |
%{$fixedprivs{'roster'}} = ('vgm' => 1); |
email => {sgm => 1}, |
%{$fixedprivs{'homepage'}} = ('vgh' => 1); |
discussion => {vgb => 1}, |
|
chat => {pgc => 1}, |
my %elements = (); |
files => {rgf => 1}, |
%{$elements{'create'}} = (); |
roster => {vgm => 1}, |
%{$elements{'modify'}} = (); |
homepage => {vgh => 1}, |
%{$elements{'create'}{'pick_name'}} = ( |
); |
startdate_month => 'selectbox', |
|
startdate_hour => 'selectbox', |
my %elements = |
enddate_month => 'selectbox', |
( |
enddate_hour => 'selectbox', |
create => { |
startdate_day => 'text', |
pick_name => { |
startdate_year => 'text', |
startdate_month => 'selectbox', |
startdate_minute => 'text', |
startdate_hour => 'selectbox', |
startdate_second => 'text', |
enddate_month => 'selectbox', |
enddate_day => 'text', |
enddate_hour => 'selectbox', |
enddate_year => 'text', |
startdate_day => 'text', |
enddate_minute => 'text', |
startdate_year => 'text', |
enddate_second => 'text', |
startdate_minute => 'text', |
groupname => 'text', |
startdate_second => 'text', |
description => 'text', |
enddate_day => 'text', |
tool => 'checkbox', |
enddate_year => 'text', |
granularity => 'radio', |
enddate_minute => 'text', |
no_end_date => 'checkbox', |
enddate_second => 'text', |
); |
groupname => 'text', |
%{$elements{'modify'}{'change_settings'}} = ( |
description => 'text', |
%{$elements{'create'}{'pick_name'}}, |
tool => 'checkbox', |
specificity => 'radio', |
granularity => 'radio', |
defpriv => 'checkbox', |
no_end_date => 'checkbox', |
autorole => 'checkbox', |
}, |
autoadd => 'radio', |
pick_members => { |
autodrop => 'radio', |
member => 'checkbox', |
); |
defpriv => 'checkbox', |
|
}, |
|
}, |
|
); |
|
|
|
$elements{'modify'} = { |
|
change_settings => { |
|
%{$elements{'create'}{'pick_name'}}, |
|
specificity => 'radio', |
|
defpriv => 'checkbox', |
|
autorole => 'checkbox', |
|
autoadd => 'radio', |
|
autodrop => 'radio', |
|
}, |
|
add_members => { |
|
types => 'selectbox', |
|
roles => 'selectbox', |
|
}, |
|
}; |
|
|
if (ref($stored{'autorole'}) eq 'ARRAY') { |
if (ref($stored{'autorole'}) eq 'ARRAY') { |
foreach my $role (@{$stored{'autorole'}}) { |
foreach my $role (@{$stored{'autorole'}}) { |
unless ($role eq 'cc') { |
unless ($role eq 'cc') { |
Line 470 sub group_administration {
|
Line 489 sub group_administration {
|
} |
} |
} |
} |
} |
} |
%{$elements{'create'}{'pick_members'}} = ( |
|
member => 'checkbox', |
|
defpriv => 'checkbox', |
|
); |
|
|
|
%{$elements{'modify'}{'add_members'}} = ( |
|
types => 'selectbox', |
|
roles => 'selectbox', |
|
); |
|
|
|
if (($action eq 'create') && ($state eq 'pick_name')) { |
if (($action eq 'create') && ($state eq 'pick_name')) { |
$elements{'create'}{'pick_name'}{'types'} = 'selectbox'; |
$elements{'create'}{'pick_name'}{'types'} = 'selectbox'; |
Line 2114 sub current_membership {
|
Line 2124 sub current_membership {
|
my($end,$start,@userprivs) = split(/:/,$membership{$key}); |
my($end,$start,@userprivs) = split(/:/,$membership{$key}); |
unless ($start == -1) { |
unless ($start == -1) { |
$allnames{$udom}{$uname} = 1; |
$allnames{$udom}{$uname} = 1; |
%{$current{$user}} = (); |
$current{$user} = { |
$current{$user}{uname} = $uname; |
uname => $uname, |
$current{$user}{udom} = $udom; |
udom => $udom, |
$current{$user}{start} = |
start => &Apache::lonlocal::locallocaltime($start), |
&Apache::lonlocal::locallocaltime($start); |
currtools => []; |
|
newtools => []; |
|
}; |
|
|
if ($end == 0) { |
if ($end == 0) { |
$current{$user}{end} = 'No end date'; |
$current{$user}{end} = 'No end date'; |
} else { |
} else { |
Line 2136 sub current_membership {
|
Line 2149 sub current_membership {
|
$current{$user}{changestate} = 'expire'; |
$current{$user}{changestate} = 'expire'; |
$num_expire ++; |
$num_expire ++; |
} |
} |
@{$current{$user}{currtools}} = (); |
|
@{$current{$user}{newtools}} = (); |
|
if (@userprivs > 0) { |
if (@userprivs > 0) { |
foreach my $tool (sort(keys(%{$fixedprivs}))) { |
foreach my $tool (sort(keys(%{$fixedprivs}))) { |
foreach my $priv (keys(%{$$fixedprivs{$tool}})) { |
foreach my $priv (keys(%{$$fixedprivs{$tool}})) { |