version 1.68, 2001/05/04 15:29:32
|
version 1.71, 2001/05/04 19:18:43
|
Line 16 use Safe;
|
Line 16 use Safe;
|
use Safe::Hole; |
use Safe::Hole; |
use Opcode; |
use Opcode; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
|
use Apache::lontexconvert; |
|
|
|
|
sub xmlbegin { |
sub xmlbegin { |
Line 37 sub xmlend {
|
Line 38 sub xmlend {
|
return '</html>'; |
return '</html>'; |
} |
} |
|
|
|
sub fontsettings() { |
|
my $headerstring=''; |
|
if (($ENV{'browser.os'} eq 'mac') && (!$ENV{'browser.mathml'})) { |
|
$headerstring.= |
|
'<meta Content-Type="text/html; charset=x-mac-roman">'; |
|
} |
|
return $headerstring; |
|
} |
|
|
sub registerurl { |
sub registerurl { |
return (<<ENDSCRIPT); |
return (<<ENDSCRIPT); |
<script language="JavaScript"> |
<script language="JavaScript"> |
if (window.location.pathname!="/res/adm/pages/menu.html") { |
// BEGIN LON-CAPA Internal |
menu=window.open("","LONCAPAmenu"); |
function LONCAPAreg() { |
menu.currentURL=window.location.pathname; |
if (window.location.pathname!="/res/adm/pages/menu.html") { |
menu.currentStale=0; |
menu=window.open("","LONCAPAmenu"); |
|
menu.currentURL=window.location.pathname; |
|
menu.currentStale=0; |
|
} |
|
} |
|
|
|
function LONCAPAstale() { |
|
if (window.location.pathname!="/res/adm/pages/menu.html") { |
|
menu=window.open("","LONCAPAmenu"); |
|
menu.currentStale=1; |
|
} |
} |
} |
|
// END LON-CAPA Internal |
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
} |
} |
|
|
|
sub loadevents() { |
|
return 'LONCAPAreg();'; |
|
} |
|
|
|
sub unloadevents() { |
|
return 'LONCAPAstale();'; |
|
} |
|
|
sub register { |
sub register { |
my $space; |
my $space; |
my @taglist; |
my @taglist; |