loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.388, 2005/11/10 21:38:27	version 1.389, 2005/11/15 16:38:12
Line 418 sub inner_xmlparse {	Line 418 sub inner_xmlparse {
my $result;	my $result;
my $token;	my $token;
my $dontpop=0;	my $dontpop=0;
	my $startredirection = $Apache::lonxml::redirection;
while ( $#$pars > -1 ) {	while ( $#$pars > -1 ) {
while ($token = $$pars['-1']->get_token) {	while ($token = $$pars['-1']->get_token) {
if (($token->[0] eq 'T') \|\| ($token->[0] eq 'C') ) {	if (($token->[0] eq 'T') \|\| ($token->[0] eq 'C') ) {
Line 528 sub inner_xmlparse {	Line 529 sub inner_xmlparse {
# }	# }

if ($target eq 'grade') { &endredirection(); }	if ($target eq 'grade') { &endredirection(); }
if ( $Apache::lonxml::redirection ) {	if ( $Apache::lonxml::redirection > $startredirection) {
&error("Unclean exit of parser, text still being redirected. This is likely due to there being missing end tags.");	while ($Apache::lonxml::redirection > $startredirection) {
while ($Apache::lonxml::redirection) {	$finaloutput .= &endredirection();
$finaloutput.=&endredirection();
}	}
}	}
if (($ENV{'QUERY_STRING'}) && ($target eq 'web')) {	if (($ENV{'QUERY_STRING'}) && ($target eq 'web')) {