loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.346, 2004/10/21 02:43:34	version 1.347, 2004/11/29 22:45:51
Line 1157 sub inserteditinfo {	Line 1157 sub inserteditinfo {
if ($filetype eq 'html') {	if ($filetype eq 'html') {
my $addbuttons=&Apache::lonhtmlcommon::htmlareaaddbuttons();	my $addbuttons=&Apache::lonhtmlcommon::htmlareaaddbuttons();
$initialize=&Apache::lonhtmlcommon::htmlareaheaders().	$initialize=&Apache::lonhtmlcommon::htmlareaheaders().
&Apache::lonhtmlcommon::spellheader().(<<FULLPAGE);	&Apache::lonhtmlcommon::spellheader();
	if (!&Apache::lonhtmlcommon::htmlareablocked() &&
	&Apache::lonhtmlcommon::htmlareabrowser()) {
	$initialize.=(<<FULLPAGE);
<script type="text/javascript">	<script type="text/javascript">
$addbuttons	$addbuttons

Line 1170 $addbuttons	Line 1173 $addbuttons
}	}
</script>	</script>
FULLPAGE	FULLPAGE
	} else {
	$initialize.=(<<FULLPAGE);
	<script type="text/javascript">
	$addbuttons
	function initDocument() {
	}
	</script>
	FULLPAGE
	}
$result=~s/\<body([^\>]*)\>/\<body onload="initDocument()" $1\>/i;	$result=~s/\<body([^\>]*)\>/\<body onload="initDocument()" $1\>/i;
$xml_help=&Apache::loncommon::helpLatexCheatsheet();	$xml_help=&Apache::loncommon::helpLatexCheatsheet();
}	}