loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.223, 2003/01/07 17:02:10	version 1.224, 2003/01/13 22:18:34
Line 774 sub inner_xmlparse {	Line 774 sub inner_xmlparse {
if ($token->[0] eq 'E') {	if ($token->[0] eq 'E') {
&end_tag($stack,$parstack,$token);	&end_tag($stack,$parstack,$token);
}	}
}	}
if ($#$pars > -1) {	if ($#$pars > -1) {
pop @$pars;	pop @$pars;
pop @Apache::lonxml::pwd;	pop @Apache::lonxml::pwd;
Line 1116 sub store_counter {	Line 1116 sub store_counter {
sub get_all_text {	sub get_all_text {
my($tag,$pars)= @_;	my($tag,$pars)= @_;
&Apache::lonxml::debug("Got a ".ref($pars));	&Apache::lonxml::debug("Got a ".ref($pars));
	my $gotfullstack=1;
if (ref($pars) ne 'ARRAY') {	if (ref($pars) ne 'ARRAY') {
	$gotfullstack=0;
$pars=[$pars];	$pars=[$pars];
}	}
my $depth=0;	my $depth=0;
Line 1148 sub get_all_text {	Line 1150 sub get_all_text {
pop(@$pars);	pop(@$pars);
pop(@Apache::lonxml::pwd);	pop(@Apache::lonxml::pwd);
}	}
if (($depth >=0) && ($#$pars == 0) ) { $top_empty=1; }	if (($depth >=0) && ($#$pars == 0) ) { &debug("here4");$top_empty=1; }
	}
	if ($top_empty && $depth >= 0) {
	#never found the end tag ran out of text, throw error send back blank
	&error('Never found end tag for <'.$tag.'>');
	if ($gotfullstack) {
	my $newstring='</'.$tag.'>'.$result;
	&Apache::lonxml::newparser($pars,\$newstring);
	}
	$result='';
}	}
} else {	} else {
while ($#$pars > -1) {	while ($#$pars > -1) {