loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.282, 2003/10/01 21:13:50	version 1.283, 2003/10/02 05:45:38
Line 867 sub store_counter {	Line 867 sub store_counter {

sub get_all_text {	sub get_all_text {
my($tag,$pars,$style)= @_;	my($tag,$pars,$style)= @_;
&Apache::lonxml::debug("Got a ".ref($pars));
my $gotfullstack=1;	my $gotfullstack=1;
if (ref($pars) ne 'ARRAY') {	if (ref($pars) ne 'ARRAY') {
$gotfullstack=0;	$gotfullstack=0;
$pars=[$pars];	$pars=[$pars];
}	}
&Apache::lonxml::debug("Got a ".ref($style));
if (ref($style) ne 'HASH') {	if (ref($style) ne 'HASH') {
$style={};	$style={};
} else {
&Apache::lonhomework::showhash(%$style);
}	}
my $depth=0;	my $depth=0;
my $token;	my $token;
Line 901 sub get_all_text {	Line 897 sub get_all_text {
} elsif ($token->[0] eq 'E') {	} elsif ($token->[0] eq 'E') {
if ( $token->[1] =~ /^$tag$/i) { $depth--; }	if ( $token->[1] =~ /^$tag$/i) { $depth--; }
#skip sending back the last end tag	#skip sending back the last end tag
if ($depth == 0 && exists($$style{'/'.$token->[1]})) {	if ($depth == 0 && exists($$style{'/'.$token->[1]}) && $Apache::lonxml::usestyle) {
my $string=	my $string=
'<LONCAPA_INTERNAL_TURN_STYLE_OFF end="yes" />'.	'<LONCAPA_INTERNAL_TURN_STYLE_OFF end="yes" />'.
$$style{'/'.$token->[1]}.	$$style{'/'.$token->[1]}.