version 1.221, 2002/12/13 21:39:19
|
version 1.221.2.1, 2003/01/09 22:45:50
|
Line 1122 sub get_all_text {
|
Line 1122 sub get_all_text {
|
if ( $tag =~ m:^/: ) { |
if ( $tag =~ m:^/: ) { |
my $tag=substr($tag,1); |
my $tag=substr($tag,1); |
#&Apache::lonxml::debug("have:$tag:"); |
#&Apache::lonxml::debug("have:$tag:"); |
while (($depth >=0) && ($#$pars > -1)) { |
my $top_empty=0; |
|
while (($depth >=0) && ($#$pars > -1) && (!$top_empty)) { |
while (($depth >=0) && ($token = $$pars[-1]->get_token)) { |
while (($depth >=0) && ($token = $$pars[-1]->get_token)) { |
#&Apache::lonxml::debug("e token:$token->[0]:$depth:$token->[1]:".$#$pars.":".$#Apache::lonxml::pwd); |
#&Apache::lonxml::debug("e token:$token->[0]:$depth:$token->[1]:".$#$pars.":".$#Apache::lonxml::pwd); |
if (($token->[0] eq 'T')||($token->[0] eq 'C')||($token->[0] eq 'D')) { |
if (($token->[0] eq 'T')||($token->[0] eq 'C')||($token->[0] eq 'D')) { |
Line 1144 sub get_all_text {
|
Line 1145 sub get_all_text {
|
pop(@$pars); |
pop(@$pars); |
pop(@Apache::lonxml::pwd); |
pop(@Apache::lonxml::pwd); |
} |
} |
|
if (($depth >=0) && ($#$pars == 0) ) { $top_empty=1; } |
} |
} |
} else { |
} else { |
while ($#$pars > -1) { |
while ($#$pars > -1) { |