loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.393, 2005/12/08 19:37:05	version 1.394, 2005/12/20 20:32:55
Line 364 sub xmlparse {	Line 364 sub xmlparse {
&initdepth();	&initdepth();
&init_alarm();	&init_alarm();
my $finaloutput = &inner_xmlparse($target,\@stack,\@parstack,\@pars,	my $finaloutput = &inner_xmlparse($target,\@stack,\@parstack,\@pars,
$safeeval,\%style_for_target);	$safeeval,\%style_for_target,1);

if ($env{'request.uri'}) {	if ($env{'request.uri'}) {
&writeallows($env{'request.uri'});	&writeallows($env{'request.uri'});
Line 411 sub latex_special_symbols {	Line 411 sub latex_special_symbols {
}	}

sub inner_xmlparse {	sub inner_xmlparse {
my ($target,$stack,$parstack,$pars,$safeeval,$style_for_target)=@_;	my ($target,$stack,$parstack,$pars,$safeeval,$style_for_target,$start)=@_;
my $finaloutput = '';	my $finaloutput = '';
my $result;	my $result;
my $token;	my $token;
Line 526 sub inner_xmlparse {	Line 526 sub inner_xmlparse {
# $finaloutput.=&endredirection;	# $finaloutput.=&endredirection;
# }	# }

if ($target eq 'grade') { &endredirection(); }	if ( $start && $target eq 'grade') { &endredirection(); }
if ( $Apache::lonxml::redirection > $startredirection) {	if ( $Apache::lonxml::redirection > $startredirection) {
while ($Apache::lonxml::redirection > $startredirection) {	while ($Apache::lonxml::redirection > $startredirection) {
$finaloutput .= &endredirection();	$finaloutput .= &endredirection();