--- loncom/interface/lonmenu.pm 2006/06/27 18:16:03 1.186
+++ loncom/interface/lonmenu.pm 2006/07/10 22:34:36 1.194
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.186 2006/06/27 18:16:03 albertel Exp $
+# $Id: lonmenu.pm,v 1.194 2006/07/10 22:34:36 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -63,7 +63,7 @@ sub initlittle {
'docs' => 'Course Documents',
'exit' => 'Exit',
'launch' => 'Launch Remote Control',
- 'groups' => 'Course Groups',
+ 'groups' => 'Groups',
'gdoc' => 'Group Documents',
'teams' => 'Teams',
);
@@ -100,11 +100,11 @@ sub menubuttons {
}
if ($env{'request.course.id'}) {
my %coursegroups;
- my $viewgrps_permission =
- &Apache::lonnet::allowed('vcg',$env{'request.course.id'});
+ my $viewgrps_permission =
+ &Apache::lonnet::allowed('vcg',$env{'request.course.id'});
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'});
- }
+ }
if ((keys(%coursegroups) > 0) || ($viewgrps_permission)) {
$showgroups = 1;
}
@@ -129,11 +129,11 @@ ENDRELOAD
$lt{'docs'}
ENDDOCS
}
- if ($showgroups) {
- $groups =(<$lt{'groups'}
-ENDGROUPS
- }
+# if ($showgroups) {
+# $groups =(<$lt{'groups'}
+#ENDGROUPS
+# }
}
my $form=&serverform();
my $utility=&utilityfunctions();
@@ -175,11 +175,8 @@ ENDMAINMENU
$lt{'exit'}
|
-
-
- LON-CAPA
- |
-
+ LON-CAPA |
+
ENDINLINEMENU
@@ -201,12 +198,12 @@ my $is_group = (&Apache::loncommon::cour
$text |
ENDDOCS
}
- if ($showgroups) {
- my $text = ($is_group) ? $lt{'groups'} : $lt{'teams'};
- $groups =(<$text
-ENDGROUPS
- }
+# if ($showgroups) {
+# my $text = ($is_group) ? $lt{'teams'} : $lt{'groups'};
+# $groups =(<$text
+#ENDGROUPS
+# }
if (
($env{'request.noversionuri'}=~m[^/(res|public)/] &&
$env{'request.symb'} eq '')
@@ -257,7 +254,7 @@ $groups
$remote
$lt{'roles'} |
$lt{'exit'} |
-LON-CAPA |
+LON-CAPA |
$form
@@ -445,10 +442,7 @@ sub innerregister {
('','',6,1,'cstr.gif','edit[_1]','resource[_2]',
"go('".$cfile."');","Edit this resource");
} elsif ($editbutton eq '') {
- $editbutton=&switch('','',6,1,'port.gif',
- 'port-[_1]','folio[_1]',
- "go('/adm/portfolio');",
- "Enter my portfolio space");
+ $editbutton=&clear(6,1);
}
}
###
@@ -780,7 +774,7 @@ ENDRESIZE
$returnval.=(<'.$returnval.'';