--- loncom/interface/lonmenu.pm 2003/05/23 13:56:39 1.67
+++ loncom/interface/lonmenu.pm 2003/06/06 02:24:49 1.76
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.67 2003/05/23 13:56:39 www Exp $
+# $Id: lonmenu.pm,v 1.76 2003/06/06 02:24:49 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -164,7 +164,7 @@ sub registerurl {
my $forcereg=shift;
my $target = shift;
my $result = '';
-
+ if ($ENV{'REQUEST_URI'} eq '/res/adm/pages/menu.html') { return ''; }
my $force_title='';
if ($ENV{'request.state'} eq 'construct') {
$force_title=&Apache::lonxml::display_title();
@@ -180,8 +180,8 @@ sub registerurl {
((($ENV{'request.publicaccess'}) ||
(!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) &&
(!$forcereg))) {
- return $result.
- ''.$force_title;
+ return $result.
+ ''.$force_title;
}
# Graphical display after login only
if ($Apache::lonxml::registered && !$forcereg) { return ''; }
@@ -196,6 +196,7 @@ sub innerregister {
my $forcereg=shift;
my $target = shift;
my $result = '';
+ if ($ENV{'REQUEST_URI'} eq '/res/adm/pages/menu.html') { return ''; }
$Apache::lonxml::registered=1;
@@ -371,7 +372,6 @@ var swmenu=null;
function LONCAPAreg() {
swmenu=$reopen;
- swmenu.noclient=0;
swmenu.clearTimeout(swmenu.menucltim);
$timesync
$newmail
@@ -399,7 +399,6 @@ var swmenu=null;
'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+
'clearbut(9,1);clearbut(9,2);clearbut(9,3);clearbut(6,3);clearbut(6,1)',
2000);
- swmenu.noclient=1;
}
// END LON-CAPA Internal
@@ -423,7 +422,6 @@ var swmenu=null;
function LONCAPAreg() {
swmenu=$reopen
- swmenu.noclient=0;
$timesync
swmenu.currentStale=1;
swmenu.clearbut(2,1);
@@ -440,8 +438,6 @@ var swmenu=null;
}
function LONCAPAstale() {
- swmenu=$reopen
- swmenu.noclient=1;
}
// END LON-CAPA Internal
@@ -454,10 +450,12 @@ ENDDONOTREGTHIS
}
sub loadevents() {
+ if ($ENV{'REQUEST_URI'} eq '/res/adm/pages/menu.html') { return ''; }
return 'LONCAPAreg();';
}
sub unloadevents() {
+ if ($ENV{'REQUEST_URI'} eq '/res/adm/pages/menu.html') { return ''; }
return 'LONCAPAstale();';
}
@@ -570,6 +568,7 @@ ENDRESIZE
window.status='Opening LON-CAPA Remote Control';
var menu=window.open("/res/adm/pages/menu.html","$menuname",
"height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");
+self.name='loncapaclient';
ENDOPEN
return '';
}