[LON-CAPA-cvs] cvs: loncom /interface lonmenu.pm

[raeburn]

raeburn		Thu Oct  6 20:03:35 2016 EDT

  Modified files:              
    /loncom/interface	lonmenu.pm 
  Log:
  - "People" item in inline menu will link to User Management menu if user
    has either cst or vcl priv. 
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.452 loncom/interface/lonmenu.pm:1.453
--- loncom/interface/lonmenu.pm:1.452	Mon Aug 15 15:52:16 2016
+++ loncom/interface/lonmenu.pm	Thu Oct  6 20:03:34 2016
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.452 2016/08/15 15:52:16 raeburn Exp $
+# $Id: lonmenu.pm,v 1.453 2016/10/06 20:03:34 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -386,7 +386,8 @@
         undef($canviewroster);
     }
     my $canviewgrps   = &Apache::lonnet::allowed('vcg', $crs_sec); 
-    my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec); 
+    my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec);
+    my $canviewusers  = &Apache::lonnet::allowed('vcl', $crs_sec); 
     my $canviewwnew   = &Apache::lonnet::allowed('whn', $crs_sec); 
     my $canmodpara    = &Apache::lonnet::allowed('opa', $crs_sec);
     my $canvgr        = &Apache::lonnet::allowed('vgr', $crs_sec);
@@ -457,9 +458,9 @@
         next if    $$menuitem[4]  eq 'vgr'
                 && !$canvgr;
         next if    $$menuitem[4]   eq 'cst'
-                && !$canmodifyuser;
+                && !$canmodifyuser && !$canviewusers;
         next if    $$menuitem[4]   eq 'ncst'
-                && ($canmodifyuser || !$canviewroster);
+                && ($canmodifyuser || $canviewusers || !$canviewroster);
         next if    $$menuitem[4]   eq 'mgr'
                 && !$canmgr;
         next if    $$menuitem[4]   eq 'showresv'