loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.1075.2.161.2.2, 2022/01/16 23:25:47
+version 1.1075.2.161.2.3, 2022/01/19 15:16:07
  Line 4755  sub blockcheck {
                      }
                  }
              }
+         } elsif (($activity eq 'com') || ($activity eq 'port') || ($activity eq 'blogs') ||
+                 ($activity eq 'about') || ($activity eq 'wishlist') || ($activity eq 'passwd')) {
+             my $checkrole;
+             if ($env{'request.role.domain'} eq '') {
+                 $checkrole = "cm./$env{'user.domain'}/";
+             } else {
+                 $checkrole = "cm./$env{'request.role.domain'}/";
+             }
+             if (($checkrole) && (&Apache::lonnet::allowed('evb',undef,undef,$checkrole))) {
+                 $has_evb = 1;
+             }
          }
          unless ($has_evb || $check_ipaccess) {
              my @machinedoms = &Apache::lonnet::current_machine_domains();