--- loncom/interface/lonmenu.pm 2005/06/08 02:27:21 1.155 +++ loncom/interface/lonmenu.pm 2005/09/20 07:52:03 1.161 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.155 2005/06/08 02:27:21 www Exp $ +# $Id: lonmenu.pm,v 1.161 2005/09/20 07:52:03 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -84,6 +84,7 @@ sub menubuttons { my $docs=''; my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'})); my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.symb'})); + my $face= 'face="Arial,Helvetica,sans-serif"'; if ($env{'request.state'} eq 'construct') { if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) { my $returnurl = $env{'request.filename'}; @@ -106,12 +107,12 @@ ENDNAV ($env{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) { my $escreload=&Apache::lonnet::escape('return:'); $reloadlink=(<$lt{'ret'} +$lt{'ret'} ENDRELOAD } if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { $docs=(<$lt{'docs'} +$lt{'docs'} ENDDOCS } } @@ -124,8 +125,8 @@ $utility $lt{'main'} $reloadlink $navmaps $docs -$lt{'roles'} -$lt{'exit'} +$lt{'roles'} +$lt{'exit'}
- +
$reloadlink $navmaps $docs +$lt{'launch'} $form
-$lt{'main'} +$lt{'main'} -$lt{'launch'} -$lt{'roles'} +$lt{'roles'} -$lt{'exit'} +$lt{'exit'} - +Logo LON-CAPA
-
@@ -301,7 +320,7 @@ sub innerregister { my $newmail=''; if ($noremote) { - $newmail='
'; + $newmail='
'; } if (($textual) && ($env{'request.symb'}) && ($env{'request.course.id'})) { my ($mapurl,$rid,$resurl)= @@ -326,7 +345,7 @@ sub innerregister { $newmail = $titletable; } else { if ($noremote) { - $newmail.='
'; + $newmail.='
'; } } my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');'); @@ -344,7 +363,7 @@ sub innerregister { my $hwkadd=''; if ($env{'request.symb'} ne '' && - $env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) { + $env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form|task)$/) { if (&Apache::lonnet::allowed('mgr',$crs)) { $hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_3]', "gocmd('/adm/grades','gradingmenu')", @@ -1124,7 +1143,6 @@ ENDUTILITY sub serverform { return(<