--- loncom/interface/lonmenu.pm 2003/06/19 03:03:32 1.78
+++ loncom/interface/lonmenu.pm 2003/07/24 17:53:59 1.81
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.78 2003/06/19 03:03:32 www Exp $
+# $Id: lonmenu.pm,v 1.81 2003/07/24 17:53:59 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -229,7 +229,7 @@ sub innerregister {
}
if (&Apache::lonmsg::newmail()) {
$newmail=($textual?
- 'You have new messages
':
+ 'You have new messages
':
'swmenu.setstatus("you have","messages");');
}
if ($noremote) {
@@ -245,17 +245,23 @@ sub innerregister {
my $hwkadd='';
if
($ENV{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) {
- if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) {
+ my $crs='/'.$ENV{'request.course.id'};
+ if ($ENV{'request.course.sec'}) {
+ $crs.='_'.$ENV{'request.course.sec'};
+ }
+ $crs=~s/\_/\//g;
+
+ if (&Apache::lonnet::allowed('vgr',$crs)) {
$hwkadd.=&switch('','',7,1,'subm.gif','view sub-','missions',
"gocmd('/adm/grades','submission')",
'View user submissions for this assessment resource');
}
- if (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'})) {
+ if (&Apache::lonnet::allowed('mgr',$crs)) {
$hwkadd.=&switch('','',7,2,'pgrd.gif','problem','grades',
"gocmd('/adm/grades','gradingmenu')",
'Modify user grades for this assessment resource');
}
- if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {
+ if (&Apache::lonnet::allowed('opa',$crs)) {
$hwkadd.=&switch('','',7,3,'pparm.gif','problem','parms',
"gocmd('/adm/parmset','set')",
'Modify deadlines, etc, for this assessment resource');
@@ -334,8 +340,8 @@ ENDMENUITEMS
unless ($ENV{'REQUEST_URI'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) {
$menuitems.=(<