loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.258, 2003/05/28 21:05:33	version 1.259, 2003/05/29 18:41:04
Line 523 sub inner_xmlparse {	Line 523 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 535 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