version 1.381, 2005/07/10 21:43:35
|
version 1.382, 2005/09/14 19:20:23
|
Line 893 sub get_all_text_unbalanced {
|
Line 893 sub get_all_text_unbalanced {
|
$tag='<'.$tag.'>'; |
$tag='<'.$tag.'>'; |
while ($token = $$pars[-1]->get_token) { |
while ($token = $$pars[-1]->get_token) { |
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')) { |
$result.=$token->[1]; |
if ($token->[2]) { |
|
$result.='<![CDATA['.$token->[1].']]>'; |
|
} else { |
|
$result.=$token->[1]; |
|
} |
} elsif ($token->[0] eq 'PI') { |
} elsif ($token->[0] eq 'PI') { |
$result.=$token->[2]; |
$result.=$token->[2]; |
} elsif ($token->[0] eq 'S') { |
} elsif ($token->[0] eq 'S') { |
Line 959 sub get_all_text {
|
Line 963 sub get_all_text {
|
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')) { |
$result.=$token->[1]; |
if ($token->[2]) { |
|
$result.='<![CDATA['.$token->[1].']]>'; |
|
} else { |
|
$result.=$token->[1]; |
|
} |
} elsif ($token->[0] eq 'PI') { |
} elsif ($token->[0] eq 'PI') { |
$result.=$token->[2]; |
$result.=$token->[2]; |
} elsif ($token->[0] eq 'S') { |
} elsif ($token->[0] eq 'S') { |
Line 1011 sub get_all_text {
|
Line 1019 sub get_all_text {
|
#&Apache::lonxml::debug("s token:$token->[0]:$depth:$token->[1]"); |
#&Apache::lonxml::debug("s token:$token->[0]:$depth:$token->[1]"); |
if (($token->[0] eq 'T')||($token->[0] eq 'C')|| |
if (($token->[0] eq 'T')||($token->[0] eq 'C')|| |
($token->[0] eq 'D')) { |
($token->[0] eq 'D')) { |
$result.=$token->[1]; |
if ($token->[2]) { |
|
$result.='<![CDATA['.$token->[1].']]>'; |
|
} else { |
|
$result.=$token->[1]; |
|
} |
} elsif ($token->[0] eq 'PI') { |
} elsif ($token->[0] eq 'PI') { |
$result.=$token->[2]; |
$result.=$token->[2]; |
} elsif ($token->[0] eq 'S') { |
} elsif ($token->[0] eq 'S') { |