[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'}) &&