--- loncom/xml/londefdef.pm 2002/01/06 02:19:25 1.38 +++ loncom/xml/londefdef.pm 2002/01/17 17:42:34 1.40 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Tags Default Definition Module # -# $Id: londefdef.pm,v 1.38 2002/01/06 02:19:25 harris41 Exp $ +# $Id: londefdef.pm,v 1.40 2002/01/17 17:42:34 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -101,7 +101,12 @@ sub end_m { #-- tag sub start_html { my ($target,$token) = @_; - my $currentstring = ''; + my $currentstring = ''; + if ($ENV{'browser.mathml'}) { + &tth::ttminit(); + } else { + &tth::tthinit(); + } if ($target eq 'web') { $currentstring = &Apache::lonxml::xmlbegin(). &Apache::lonxml::fontsettings(); @@ -346,6 +351,13 @@ sub end_m { $currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"'; } $currentstring.='>'; + if ($ENV{'request.state'} ne 'published') { + $currentstring.=(< + + +EDITBUTTON + } } elsif ($target eq 'tex') { $currentstring = '\begin{document}'; }