--- loncom/auth/lonroles.pm 2006/10/13 21:28:50 1.167 +++ loncom/auth/lonroles.pm 2006/10/20 19:59:57 1.168 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.167 2006/10/13 21:28:50 albertel Exp $ +# $Id: lonroles.pm,v 1.168 2006/10/20 19:59:57 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1038,7 +1038,9 @@ sub set_privileges { my $area = '/'.$dcdom.'/'.$pickedcourse; my $role = 'cc'; 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 = (); &Apache::lonnet::standard_roleprivs(\%ccrole,$role,$dcdom,$spec,$pickedcourse,$area); my ($author,$adv)= &Apache::lonnet::set_userprivs(\%userroles,\%ccrole);