loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.153, 2006/06/02 13:58:37	version 1.154, 2006/06/02 21:22:10
Line 1037 sub set_privileges {	Line 1037 sub set_privileges {
my $area = '/'.$dcdom.'/'.$pickedcourse;	my $area = '/'.$dcdom.'/'.$pickedcourse;
my $role = 'cc';	my $role = 'cc';
my $spec = $role.'.'.$area;	my $spec = $role.'.'.$area;
my $userroles = &Apache::lonnet::set_arearole($role,$area,'','',$dcdom,$env{'user.name'});	my %userroles = &Apache::lonnet::set_arearole($role,$area,'','',$dcdom,$env{'user.name'});
my %ccrole = ();	my %ccrole = ();
&Apache::lonnet::standard_roleprivs(\%ccrole,$role,$dcdom,$spec,$pickedcourse,$area);	&Apache::lonnet::standard_roleprivs(\%ccrole,$role,$dcdom,$spec,$pickedcourse,$area);
my ($author,$adv)= &Apache::lonnet::set_userprivs(\$userroles,\%ccrole);	my ($author,$adv)= &Apache::lonnet::set_userprivs(\%userroles,\%ccrole);
my @newprivs = split/\n/,$userroles;	&Apache::lonnet::appenv(%userroles);
my %newccroles = ();
foreach (@newprivs) {
my ($key,$val) = split/=/,$_;
$newccroles{$key} = $val;
}
&Apache::lonnet::appenv(%newccroles);
&Apache::lonnet::log($env{'user.domain'},	&Apache::lonnet::log($env{'user.domain'},
$env{'user.name'},	$env{'user.name'},
$env{'user.home'},	$env{'user.home'},