--- loncom/interface/lonmenu.pm 2006/07/18 21:55:24 1.198
+++ loncom/interface/lonmenu.pm 2006/07/31 22:53:07 1.201
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.198 2006/07/18 21:55:24 albertel Exp $
+# $Id: lonmenu.pm,v 1.201 2006/07/31 22:53:07 albertel 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 = '
 | ';
+
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-CAPA |
@@ -230,7 +234,6 @@ 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'}.' | '
@@ -246,8 +249,7 @@ $utility
$form
@@ -459,12 +461,13 @@ sub innerregister {
$is_const_dir = 1;
} else {
$currdir =~ s#[^/]+$##;
+ my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);
$menuitems=(<