loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.69, 2001/05/04 16:10:17	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">
	// BEGIN LON-CAPA Internal
function LONCAPAreg() {	function LONCAPAreg() {
if (window.location.pathname!="/res/adm/pages/menu.html") {	if (window.location.pathname!="/res/adm/pages/menu.html") {
menu=window.open("","LONCAPAmenu");	menu=window.open("","LONCAPAmenu");
Line 54 sub registerurl {	Line 65 sub registerurl {
menu.currentStale=1;	menu.currentStale=1;
}	}
}	}
	// END LON-CAPA Internal
</script>	</script>
ENDSCRIPT	ENDSCRIPT
}	}