loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.166, 2006/10/10 20:16:19	version 1.168, 2006/10/20 19:59:57
Line 40 use Apache::lonhtmlcommon;	Line 40 use Apache::lonhtmlcommon;
use Apache::lonannounce;	use Apache::lonannounce;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonpageflip();	use Apache::lonpageflip();
	use Apache::lonnavdisplay();
use GDBM_File;	use GDBM_File;
use LONCAPA;	use LONCAPA;

Line 1037 sub set_privileges {	Line 1038 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,'','',
	$env{'user.domain'},
	$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);