[LON-CAPA-cvs] cvs: loncom /auth lonroles.pm

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 20 Oct 2006 19:59:57 -0000


albertel		Fri Oct 20 15:59:57 2006 EDT

  Modified files:              
    /loncom/auth	lonroles.pm 
  Log:
  - set_arearole want the domain of the user not the role
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.167 loncom/auth/lonroles.pm:1.168
--- loncom/auth/lonroles.pm:1.167	Fri Oct 13 17:28:50 2006
+++ loncom/auth/lonroles.pm	Fri Oct 20 15:59:57 2006
@@ -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 @@
     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);