--- loncom/interface/lonmenu.pm 2005/02/07 23:37:45 1.144 +++ loncom/interface/lonmenu.pm 2005/02/13 22:52:48 1.146 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.144 2005/02/07 23:37:45 albertel Exp $ +# $Id: lonmenu.pm,v 1.146 2005/02/13 22:52:48 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -156,7 +156,7 @@ ENDMAINMENU ENDNAV if ( ($ENV{'request.noversionuri'}=~m[^/(res|public)/] && - $ENV{'request.symb'} ne '') + $ENV{'request.symb'} eq '') || (($ENV{'request.noversionuri'}=~/^\/adm\//) && ($ENV{'request.noversionuri'}!~/^\/adm\/wrapper\//) && @@ -177,6 +177,7 @@ ENDRELOAD } my $form=&serverform(); my $utility=&utilityfunctions(); + my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); return (< // BEGIN LON-CAPA Internal @@ -193,7 +194,7 @@ $navmaps $lt{'launch'} - + LON-CAPA $form @@ -302,7 +303,7 @@ sub innerregister { my $tableend=($noremote?'':'').($textinter?'':''); # ============================================================================= # ============================ This is for URLs that actually can be registered - if (($ENV{'request.noversionuri'}!~/^\/(res\/)*adm\//) || ($forcereg)) { + if (($ENV{'request.noversionuri'}!~m|^/(res/)*adm/|) || ($forcereg)) { # -- This applies to homework problems for users with grading privileges my $crs='/'.$ENV{'request.course.id'}; if ($ENV{'request.course.sec'}) { @@ -311,7 +312,8 @@ sub innerregister { $crs=~s/\_/\//g; my $hwkadd=''; - if ($ENV{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) { + if ($ENV{'request.symb'} ne '' && + $ENV{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) { if (&Apache::lonnet::allowed('vgr',$crs)) { $hwkadd.=&switch('','',7,1,'subm.gif','view sub-[_1]','missions[_1]', "gocmd('/adm/grades','submission')", @@ -323,7 +325,8 @@ sub innerregister { 'Modify user grades for this assessment resource'); } } - if (&Apache::lonnet::allowed('opa',$crs)) { + if ($ENV{'request.symb'} ne '' && + &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'); @@ -408,7 +411,8 @@ s&7&1&del.gif&delete[_1]&resource[_2]&go s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$thisdisfn')&Prepare a printable document ENDMENUITEMS } - } elsif (defined($ENV{'request.course.id'})) { + } elsif (defined($ENV{'request.course.id'}) && + $ENV{'request.symb'} ne '') { $menuitems=(<