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

raeburn raeburn at source.lon-capa.org
Mon May 5 07:37:41 EDT 2014


raeburn		Mon May  5 11:37:41 2014 EDT

  Modified files:              (Branch: version_2_10_X)
    /loncom/auth	lonroles.pm 
  Log:
  - For 2.10
    - Backport 1.303
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.256.2.7 loncom/auth/lonroles.pm:1.256.2.8
--- loncom/auth/lonroles.pm:1.256.2.7	Tue Mar 25 10:18:04 2014
+++ loncom/auth/lonroles.pm	Mon May  5 11:37:41 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.256.2.7 2014/03/25 10:18:04 raeburn Exp $
+# $Id: lonroles.pm,v 1.256.2.8 2014/05/05 11:37:41 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1604,7 +1604,7 @@
             my $otherserver;
             if (($major eq '' && $minor eq '') || 
                 (($reqdmajor > $major) || (($reqdmajor == $major) && ($reqdminor > $minor)))) {
-                my ($userdomserver) = &Apache::lonnet::choose_server($env{'user.domain'},undef,$required);
+                my ($userdomserver) = &Apache::lonnet::choose_server($env{'user.domain'},undef,$required,1);
                 my $switchlcrev = 
                     &Apache::lonnet::get_server_loncaparev($env{'user.domain'},
                                                            $userdomserver);
@@ -1613,7 +1613,7 @@
                     (($reqdmajor == $swmajor) && ($reqdminor > $swminor))) {
                     my $cdom = $env{'course.'.$tcourseid.'.domain'};
                     if ($cdom ne $env{'user.domain'}) {
-                        my ($coursedomserver,$coursehostname) = &Apache::lonnet::choose_server($cdom); 
+                        my ($coursedomserver,$coursehostname) = &Apache::lonnet::choose_server($cdom,undef,$required,1); 
                         my $serverhomeID = &Apache::lonnet::get_server_homeID($coursehostname);
                         my $serverhomedom = &Apache::lonnet::host_domain($serverhomeID);
                         my %defdomdefaults = &Apache::lonnet::get_domain_defaults($serverhomedom);




More information about the LON-CAPA-cvs mailing list