--- loncom/interface/lonmenu.pm 2003/06/05 00:01:45 1.75
+++ 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.75 2003/06/05 00:01:45 www Exp $
+# $Id: lonmenu.pm,v 1.76 2003/06/06 02:24:49 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -158,13 +158,6 @@ ENDINLINEMENU
}
}
-# ===== Early call to LONCAPAreg for long-running pages, preferably used right
-# ===== before $r->rflush()
-
-sub regflush {
- return '';
-}
-
# ====================================== This gets called in the header section
sub registerurl {
@@ -187,30 +180,8 @@ sub registerurl {
((($ENV{'request.publicaccess'}) ||
(!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) &&
(!$forcereg))) {
- my $loadfunction='';
- my $inlineloadfunction='';
- my $unloadfunction='';
- unless (($ENV{'browser.interface'} eq 'textual') ||
- ($ENV{'environment.remote'} eq 'off') ||
- ($ENV{'request.publicaccess'})) {
- my $reopen=&Apache::lonmenu::reopenmenu();
- $loadfunction='swmenu='.$reopen.'swmenu.windowloaded(self.name);window.focus();';
- $inlineloadfunction=®flush();
- $unloadfunction='swmenu='.$reopen.'swmenu.windowunloaded(self.name);';
- }
- return $result.(<
-function LONCAPAreg() {
- $loadfunction
-}
-
-function LONCAPAstale() {
- $unloadfunction
-}
-
-$inlineloadfunction
-$force_title
-ENDFUNCTIONS
+ return $result.
+ ''.$force_title;
}
# Graphical display after login only
if ($Apache::lonxml::registered && !$forcereg) { return ''; }
@@ -398,12 +369,9 @@ ENDREGTEXT