[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /interface lonrequestcourse.pm
From:       raeburn <raeburn () source ! lon-capa ! org>
Date:       2019-01-27 15:46:27
Message-ID: cvsraeburn1548603987 () cvsserver
[Download RAW message or body]

raeburn		Sun Jan 27 15:46:27 2019 EDT

  Modified files:              
    /loncom/interface	lonrequestcourse.pm 
  Log:
  - Trust settings for requesting course creation in another domain.
    - Eliminate %trustchecked (never populated).
  
  
Index: loncom/interface/lonrequestcourse.pm
diff -u loncom/interface/lonrequestcourse.pm:1.105 \
                loncom/interface/lonrequestcourse.pm:1.106
--- loncom/interface/lonrequestcourse.pm:1.105	Thu Dec 27 18:14:25 2018
+++ loncom/interface/lonrequestcourse.pm	Sun Jan 27 15:46:26 2019
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Request a course
 #
-# $Id: lonrequestcourse.pm,v 1.105 2018/12/27 18:14:25 raeburn Exp $
+# $Id: lonrequestcourse.pm,v 1.106 2019/01/27 15:46:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3371,14 +3371,14 @@
                     return $env{'user.domain'};
                 }
             }
-            my (@possible_doms,%willtrust,%trustchecked);
+            my (@possible_doms,%willtrust);
             foreach my $type (@{$types}) {
                 my $dom_str = $env{'environment.reqcrsotherdom.'.$type};
                 if ($dom_str ne '') {
                     my @domains = split(',',$dom_str);
                     foreach my $entry (@domains) {
                         my ($extdom,$extopt) = split(':',$entry);
-                        unless ($trustchecked{$extdom}) {
+                        unless (exists($willtrust{$extdom})) {
                             $willtrust{$extdom} = \
&Apache::lonnet::will_trust('reqcrs',$env{'user.domain'},$extdom);  }
                         if ($willtrust{$extdom}) {


_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs


[prev in list] [next in list] [prev in thread] [next in thread]