loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.38, 2002/01/06 02:19:25	version 1.40, 2002/01/17 17:42:34
Line 101 sub end_m {	Line 101 sub end_m {
#-- <html> tag	#-- <html> tag
sub start_html {	sub start_html {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
	if ($ENV{'browser.mathml'}) {
	&tth::ttminit();
	} else {
	&tth::tthinit();
	}
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = &Apache::lonxml::xmlbegin().	$currentstring = &Apache::lonxml::xmlbegin().
&Apache::lonxml::fontsettings();	&Apache::lonxml::fontsettings();
Line 346 sub end_m {	Line 351 sub end_m {
$currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"';	$currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"';
}	}
$currentstring.='>';	$currentstring.='>';
	if ($ENV{'request.state'} ne 'published') {
	$currentstring.=(<<EDITBUTTON);
	<form method="post">
	<input type="submit" name="showmode" value="Edit" />
	</form>
	EDITBUTTON
	}
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = '\begin{document}';	$currentstring = '\begin{document}';
}	}