[LON-CAPA-cvs] cvs: loncom /auth roles.tab /interface loncommon.pm

raeburn raeburn at source.lon-capa.org
Tue Jan 18 16:03:15 EST 2022


raeburn		Tue Jan 18 21:03:15 2022 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
    /loncom/auth	roles.tab 
  Log:
  - Bug 6955
    Domain Coordinator receives 'evb' (Evade communication blocking) privilege.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1374 loncom/interface/loncommon.pm:1.1375
--- loncom/interface/loncommon.pm:1.1374	Sat Jan 15 20:21:06 2022
+++ loncom/interface/loncommon.pm	Tue Jan 18 21:03:15 2022
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1374 2022/01/15 20:21:06 raeburn Exp $
+# $Id: loncommon.pm,v 1.1375 2022/01/18 21:03:15 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5225,6 +5225,17 @@
                     }
                 }
             }
+        } 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();
Index: loncom/auth/roles.tab
diff -u loncom/auth/roles.tab:1.74 loncom/auth/roles.tab:1.75
--- loncom/auth/roles.tab:1.74	Wed May 20 16:48:56 2020
+++ loncom/auth/roles.tab	Tue Jan 18 21:03:15 2022
@@ -1,6 +1,6 @@
 su:s csu&U:sma:mau:cdc&U:dro:psa:adv
 dc:s bre:sma:adv:mcr:srm
-dc:d cli&UIK:cau&UIK:cca&UIK:caa&UIK:cdg&UIK:cdh&UIK:cda&UIK:mau:ccc&U:cco&U:cin&UIK:cta&UIK:cep&UIK:ccr&UIK:cst&UIK:cad&UIK:csc&UIK:dro:mky:psa:usc:mpq:mut:vac:eco&U
+dc:d cli&UIK:cau&UIK:cca&UIK:caa&UIK:cdg&UIK:cdh&UIK:cda&UIK:mau:ccc&U:cco&U:cin&UIK:cta&UIK:cep&UIK:ccr&UIK:cst&UIK:cad&UIK:csc&UIK:dro:mky:psa:usc:mpq:mut:vac:eco&U:evb
 cc:s bre:sma:mcr:vsa:adv:vcl
 cc:c cin&IK:cta&IK:cep&IK:ccr&IK:cst&IK:mip&I:are:cre:ere:vgr:gan:dcm:evb:srm:dff:opa:mgr:mqg:mgq:rin:pch:plc:mdc:usc:vsa:vcl:mdg:vcg:pav:pfo:whn:las:pac:dch
 co:s bro:sma:mcr:vsa:adv:vcl 




More information about the LON-CAPA-cvs mailing list