version 1.192, 2004/01/08 19:49:59
|
version 1.194, 2004/01/28 17:16:27
|
Line 84 sub end_output {
|
Line 84 sub end_output {
|
sub start_m { |
sub start_m { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
my $inside = &Apache::lonxml::get_all_text("/m",$parser,$style); |
my $inside = &Apache::lonxml::get_all_text_unbalanced("/m",$parser); |
$inside=~s-<LONCAPA_INTERNAL_TURN_STYLE_ON />--g; |
|
if ($target eq 'web' || $target eq 'analyze') { |
if ($target eq 'web' || $target eq 'analyze') { |
$Apache::lonxml::prevent_entity_encode++; |
$Apache::lonxml::prevent_entity_encode++; |
$inside ='\\documentstyle{article}'.$inside; |
$inside ='\\documentstyle{article}'.$inside; |
Line 152 sub end_tthoption {
|
Line 151 sub end_tthoption {
|
sub start_html { |
sub start_html { |
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
if ($ENV{'browser.mathml'}) { |
my $options=$ENV{'course.'.$ENV{'request.course.id'}.'.tthoptions'}; |
&tth::ttminit(); |
&init_tth(); |
if ($ENV{'browser.unicode'}) { |
|
&tth::ttmoptions('-L -u1'); |
|
} else { |
|
&tth::ttmoptions('-L -u0'); |
|
} |
|
} else { |
|
&tth::tthinit(); |
|
if ($ENV{'browser.unicode'}) { |
|
&tth::tthoptions('-L -u1'); |
|
} else { |
|
&tth::tthoptions('-L -u0'); |
|
} |
|
} |
|
if ($target eq 'web' || $target eq 'edit') { |
if ($target eq 'web' || $target eq 'edit') { |
$currentstring = &Apache::lonxml::xmlbegin(). |
$currentstring = &Apache::lonxml::xmlbegin(). |
&Apache::lonxml::fontsettings(); |
&Apache::lonxml::fontsettings(); |