--- 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'} - - Logo - LON-CAPA  - - + LON-CAPALogo + 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'} -LogoLON-CAPA +LON-CAPALogo $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.'';