version 1.258, 2003/05/28 21:05:33
|
version 1.260, 2003/05/29 18:42:22
|
Line 151 $Apache::lonxml::counter_changed=0;
|
Line 151 $Apache::lonxml::counter_changed=0;
|
#internal check on whether to look at style defs |
#internal check on whether to look at style defs |
$Apache::lonxml::usestyle=1; |
$Apache::lonxml::usestyle=1; |
|
|
|
#locations used to store the parameter string for style substitutions |
|
$Apache::lonxml::style_values=''; |
|
$Apache::lonxml::style_end_values=''; |
|
|
sub xmlbegin { |
sub xmlbegin { |
my $output=''; |
my $output=''; |
if ($ENV{'browser.mathml'}) { |
if ($ENV{'browser.mathml'}) { |
Line 523 sub inner_xmlparse {
|
Line 527 sub inner_xmlparse {
|
'<LONCAPA_INTERNAL_TURN_STYLE_ON />'; |
'<LONCAPA_INTERNAL_TURN_STYLE_ON />'; |
&Apache::lonxml::newparser($pars,\$string); |
&Apache::lonxml::newparser($pars,\$string); |
$Apache::lonxml::style_values=$$parstack[-1]; |
$Apache::lonxml::style_values=$$parstack[-1]; |
|
$Apache::lonxml::style_end_values=$$parstack[-1]; |
} else { |
} else { |
$result = &callsub("start_$token->[1]", $target, $token, $stack, |
$result = &callsub("start_$token->[1]", $target, $token, $stack, |
$parstack, $pars, $safeeval, $style_for_target); |
$parstack, $pars, $safeeval, $style_for_target); |
Line 534 sub inner_xmlparse {
|
Line 539 sub inner_xmlparse {
|
my $string=$$style_for_target{'/'.$token->[1]}. |
my $string=$$style_for_target{'/'.$token->[1]}. |
'<LONCAPA_INTERNAL_TURN_STYLE_ON end="'.$token->[1].'" />'; |
'<LONCAPA_INTERNAL_TURN_STYLE_ON end="'.$token->[1].'" />'; |
&Apache::lonxml::newparser($pars,\$string); |
&Apache::lonxml::newparser($pars,\$string); |
$Apache::lonxml::style_values=$$parstack[-1]; |
$Apache::lonxml::style_values=$Apache::lonxml::style_end_values; |
|
$Apache::lonxml::style_end_values=''; |
$dontpop=1; |
$dontpop=1; |
} else { |
} else { |
#clear out any tags that didn't end |
#clear out any tags that didn't end |