version 1.71, 2003/05/24 12:43:55
|
version 1.73, 2003/05/27 19:57:51
|
Line 158 ENDINLINEMENU
|
Line 158 ENDINLINEMENU
|
} |
} |
} |
} |
|
|
|
# ===== Early call to LONCAPAreg for long-running pages, preferably used right |
|
# ===== before $r->rflush() |
|
|
|
sub regflush { |
|
return '<script type="text/javascript">'.&loadevents.'</script>'; |
|
} |
|
|
# ====================================== This gets called in the header section |
# ====================================== This gets called in the header section |
|
|
sub registerurl { |
sub registerurl { |
Line 181 sub registerurl {
|
Line 188 sub registerurl {
|
(!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) && |
(!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) && |
(!$forcereg))) { |
(!$forcereg))) { |
my $loadfunction=''; |
my $loadfunction=''; |
|
my $inlineloadfunction=''; |
my $unloadfunction=''; |
my $unloadfunction=''; |
unless (($ENV{'browser.interface'} eq 'textual') || |
unless (($ENV{'browser.interface'} eq 'textual') || |
($ENV{'environment.remote'} eq 'off') || |
($ENV{'environment.remote'} eq 'off') || |
($ENV{'request.publicaccess'})) { |
($ENV{'request.publicaccess'})) { |
my $reopen=&Apache::lonmenu::reopenmenu(); |
my $reopen=&Apache::lonmenu::reopenmenu(); |
$loadfunction='swmenu='.$reopen.'swmenu.windowloaded(self.name);'; |
$loadfunction='swmenu='.$reopen.'swmenu.windowloaded(self.name);'; |
|
$inlineloadfunction=®flush(); |
$unloadfunction='swmenu='.$reopen.'swmenu.windowunloaded(self.name);'; |
$unloadfunction='swmenu='.$reopen.'swmenu.windowunloaded(self.name);'; |
} |
} |
return $result.(<<ENDFUNCTIONS); |
return $result.(<<ENDFUNCTIONS); |
Line 199 function LONCAPAstale() {
|
Line 208 function LONCAPAstale() {
|
$unloadfunction |
$unloadfunction |
} |
} |
</script> |
</script> |
|
$inlineloadfunction |
$force_title |
$force_title |
ENDFUNCTIONS |
ENDFUNCTIONS |
} |
} |