--- loncom/interface/lonmenu.pm 2006/07/18 19:45:15 1.197 +++ loncom/interface/lonmenu.pm 2006/07/31 21:53:45 1.200 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.197 2006/07/18 19:45:15 raeburn Exp $ +# $Id: lonmenu.pm,v 1.200 2006/07/31 21:53:45 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -90,6 +90,10 @@ sub menubuttons { my $escurl=&escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'})); my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'})); + my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); + $logo = 'LON-CAPA Logo'; + if ($env{'request.state'} eq 'construct') { if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) { my $returnurl = $env{'request.filename'}; @@ -167,14 +171,14 @@ ENDMAINMENU my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain); my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain); if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') { - my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); return (< - + $logo + + $lt{'exit'} - LON-CAPALogo @@ -230,18 +234,12 @@ ENDCRELOAD } my $form=&serverform(); my $utility=&utilityfunctions(); - my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); my $remote; 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'); + + my $helplink=&Apache::loncommon::top_nav_help('Help'); return (< // BEGIN LON-CAPA Internal @@ -251,8 +249,7 @@ $utility - +$logo $reloadlink $navmaps @@ -260,8 +257,8 @@ $docs $groups $remote - - + +
$lt{'main'}$lt{'roles'}$helplink$lt{'exit'}$helplink$lt{'exit'}
$form @@ -464,12 +461,14 @@ sub innerregister { $is_const_dir = 1; } else { $currdir =~ s#[^/]+$##; + my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn); + &Apache::lonnet::logthis("thisdisfn = $thisdisfn cleaned: $cleandisfn"); $menuitems=(<