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

www www@source.lon-capa.org
Mon, 17 Jan 2011 01:35:32 -0000


www		Mon Jan 17 01:35:32 2011 EDT

  Modified files:              
    /loncom/interface	lonmenu.pm mydesk.tab 
  Log:
  For 3.0: move more stuff out of former Main Menu
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.342 loncom/interface/lonmenu.pm:1.343
--- loncom/interface/lonmenu.pm:1.342	Sun Jan 16 22:45:05 2011
+++ loncom/interface/lonmenu.pm	Mon Jan 17 01:35:32 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.342 2011/01/16 22:45:05 www Exp $
+# $Id: lonmenu.pm,v 1.343 2011/01/17 01:35:32 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -271,8 +271,9 @@
     my $canmodifyuser = &Apache::lonnet::allowed('cst', $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); 
-    my $author        = getauthor();
+    my $canvgr        = &Apache::lonnet::allowed('vgr', $crs_sec);
+    my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec); 
+    my $author        = &getauthor();
 
     my %groups = &Apache::lonnet::get_active_groups(
                      $env{'user.domain'}, $env{'user.name'},
@@ -293,6 +294,12 @@
                 && !$canvgr;
         next if    $$menuitem[4]   eq 'cst'
                 && !$canmodifyuser;
+        next if    $$menuitem[4]   eq 'ncst'
+                && $canmodifyuser;
+        next if    $$menuitem[4]   eq 'mgr'
+                && !$canmgr;
+        next if    $$menuitem[4]   eq 'nmgr'
+                && $canmgr;
         next if    $$menuitem[4]   eq 'whn'
                 && !$canviewwnew;
         next if    $$menuitem[4]   eq 'opa'
Index: loncom/interface/mydesk.tab
diff -u loncom/interface/mydesk.tab:1.144 loncom/interface/mydesk.tab:1.145
--- loncom/interface/mydesk.tab:1.144	Sun Jan 16 22:45:05 2011
+++ loncom/interface/mydesk.tab	Mon Jan 17 01:35:32 2011
@@ -43,14 +43,20 @@
 #   - always: show this link even if user hasn't selected a role
 #   - whn: access what's new
 #   - cst: Grant/revoke role of Student:Grant/revoke role of Member 
+#   - ncst: Not grant/revoke roles
 #   - opa: Set assessment parameters
 #   - nvgr: cannot view other people's grades 
+#   - mgr: Manage grades
+#   - nmgr: cannot manage grade
 #   - author: authors (au, ca, aa)
 # prim:link:icon:alt:text:condition
 scnd:/adm/whatsnew:::What's New:whn
 scnd:/adm/navmaps?postdata=[url]&postsymb=[symb]:::Contents:
 scnd:/adm/createuser:::People:cst
+scnd:/adm/viewclasslist:::People:ncst
 scnd:/adm/coursegroups:::Groups:showgroups
+scnd:/adm/slotrequest?command=manageresv:::Slots:nmgr
+scnd:/adm/slotrequest?command=showslots:::Slots:mgr
 scnd:/adm/quickgrades:::Grades:nvgr
 scnd:/adm/grades:::Grades:vgr
 scnd:/adm/parmset:::Settings:opa