--- loncom/interface/lonmenu.pm 2006/07/07 21:55:05 1.193
+++ loncom/interface/lonmenu.pm 2006/07/18 19:45:15 1.197
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.193 2006/07/07 21:55:05 raeburn Exp $
+# $Id: lonmenu.pm,v 1.197 2006/07/18 19:45:15 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -65,7 +65,6 @@ sub initlittle {
'launch' => 'Launch Remote Control',
'groups' => 'Groups',
'gdoc' => 'Group Documents',
- 'teams' => 'Teams',
);
}
@@ -101,7 +100,7 @@ sub menubuttons {
if ($env{'request.course.id'}) {
my %coursegroups;
my $viewgrps_permission =
- &Apache::lonnet::allowed('vcg',$env{'request.course.id'});
+ &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
if (!$viewgrps_permission) {
%coursegroups = &Apache::lonnet::get_active_groups($env{'user.domain'},$env{'user.name'},$env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'});
}
@@ -129,12 +128,12 @@ ENDRELOAD
$lt{'docs'}
ENDDOCS
}
-# if ($showgroups) {
-# $groups =(<$lt{'groups'}
-#ENDGROUPS
-# }
-# }
+ if ($showgroups) {
+ $groups =(<$lt{'groups'}
+ENDGROUPS
+ }
+ }
my $form=&serverform();
my $utility=&utilityfunctions();
my $output=(<$text
ENDDOCS
}
-# if ($showgroups) {
-# my $text = ($is_group) ? $lt{'teams'} : $lt{'groups'};
-# $groups =(<$text
-#ENDGROUPS
-# }
+ if ($showgroups) {
+ $groups =(<$lt{'groups'}
+ENDGROUPS
+ }
if (
($env{'request.noversionuri'}=~m[^/(res|public)/] &&
$env{'request.symb'} eq '')
@@ -237,6 +235,13 @@ ENDCRELOAD
if ($env{'user.adv'}) {
$remote = ''.$lt{'launch'}.' | '
}
+ my $helptopic='Student_Intro';
+ if ($env{'request.role'}=~/^(ca|au)/) {
+ $helptopic='Authoring_Intro';
+ } elsif ($env{'request.role'}=~/^cc/) {
+ $helptopic='Course_Coordination_Intro';
+ }
+ my $helplink=&Apache::loncommon::help_open_topic($helptopic,'Help');
return (<
// BEGIN LON-CAPA Internal
@@ -246,6 +251,8 @@ $utility
$form
@@ -383,7 +390,7 @@ sub innerregister {
&Apache::lonnet::allowed('opa',$crs)) {
$hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]',
"gocmd('/adm/parmset','set')",
- 'Modify deadlines, etc, for this resource');
+ 'Modify parameter settings for this resource');
}
# -- End Homework
###