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

matthew lon-capa-cvs@mail.lon-capa.org
Thu, 11 Nov 2004 18:43:25 -0000


matthew		Thu Nov 11 13:43:25 2004 EDT

  Modified files:              
    /loncom/interface	mydesk.tab lonmenu.pm 
  Log:
  Added courseenv_???  ability to lonmenu.pm, which specifies a course 
  environment parameter to check before showing a button.  Modified mydesk.tab
  to use this for student_classlist_view.
  
  
Index: loncom/interface/mydesk.tab
diff -u loncom/interface/mydesk.tab:1.59 loncom/interface/mydesk.tab:1.60
--- loncom/interface/mydesk.tab:1.59	Fri Aug 27 19:38:08 2004
+++ loncom/interface/mydesk.tab	Thu Nov 11 13:43:25 2004
@@ -10,6 +10,7 @@
 # pro = p???     allowed if the user has the permissions given in ???
 # course         allowed if in course
 # course_p???    allowed if in course and have permissions
+# courseenv_????   allowed if in course and course environment key exists
 # author         allowed if an author
 #
 1:1:smp:any:courses.gif:choose[_1]:course[_1]:go('/adm/roles');:Choose the course to work on
@@ -32,7 +33,7 @@
 4:3:clear
 4:3:pvgr:$crs:stat.gif:course[_6]:stats[_1]:gopost('/adm/statistics','Problem Statistics');:View course assessment statistics
 5:1:clear
-5:1:course:any:clst.gif:course[_12]:roster[_1]:go('/adm/viewclasslist');:View course roster
+5:1:courseenv_student_classlist_view:any:clst.gif:course[_12]:roster[_1]:go('/adm/viewclasslist');:View course roster
 5:1:pcst:$crs:enrl.gif:course[_7]:enroll[_1]:go('/adm/dropadd');:Drop/Add students in this course
 5:1:pmky:$requested_domain:keys.gif:manage[_1]:acc keys[_1]:go('/adm/managekeys');:Manage Access Keys
 5:2:clear
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.123 loncom/interface/lonmenu.pm:1.124
--- loncom/interface/lonmenu.pm:1.123	Wed Nov 10 11:22:25 2004
+++ loncom/interface/lonmenu.pm	Thu Nov 11 13:43:25 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.123 2004/11/10 16:22:25 www Exp $
+# $Id: lonmenu.pm,v 1.124 2004/11/11 18:43:25 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -885,6 +885,11 @@
             if ($ENV{'request.course.fn'}) {
                $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);
 	    }
+        } elsif ($pro =~ /^courseenv_(.*)$/) {
+            my $key = $1;
+            if ($ENV{'course.'.$ENV{'request.course.id'}.'.'.$key}) {
+                $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);
+            }
         } elsif ($pro =~ /^course_(.*)$/) {
             # Check for permissions inside of a course
             if (($ENV{'request.course.id'}) &&