version 1.925.2.9, 2010/01/16 19:56:54
|
version 1.925.2.10, 2010/01/18 15:44:35
|
Line 10739 sub new_roles_update {
|
Line 10739 sub new_roles_update {
|
} |
} |
} |
} |
if (@newroles) { |
if (@newroles) { |
&Apache::lonnet::appenv(\%userroles,[@newroles,'cm']); |
|
my ($author,$adv) = &Apache::lonnet::set_userprivs(\%userroles,\%allroles, |
my ($author,$adv) = &Apache::lonnet::set_userprivs(\%userroles,\%allroles, |
\%allgroups); |
\%allgroups); |
|
&Apache::lonnet::appenv(\%userroles,[@newroles,'cm']); |
$userenv{'user.adv'} = $adv; |
$userenv{'user.adv'} = $adv; |
$userenv{'user.author'} = $author; |
$userenv{'user.author'} = $author; |
$userenv{'user.refresh.time'} = $refresh; |
$userenv{'user.refresh.time'} = $refresh; |