loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.521, 2022/05/29 03:19:00
+version 1.522, 2022/06/08 01:42:20
  Line 1949  sub check_for_rcrs {
      if (!$showreqcrs) {
          foreach my $type (@reqtypes) {
              if ($env{'environment.reqcrsotherdom.'.$type} ne '') {
-                 $showreqcrs = 1;
+                 my @domains = split(',',$env{'environment.reqcrsotherdom.'.$type});
-                 last;
+                 foreach my $entry (@domains) {
+                     my ($extdom,$extopt) = split(':',$entry);
+                     if (&Apache::lonnet::will_trust('reqcrs',$env{'user.domain'},$extdom)) {
+                         $showreqcrs = 1;
+                         last;
+                     }
+                 }
+                 if ($showreqcrs) {
+                     last;
+                 }
              }
          }
      }