loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.385, 2005/10/18 21:49:37	version 1.386, 2005/11/02 22:48:52
Line 926 sub get_all_text_unbalanced {	Line 926 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')) {
if ($token->[2]) {	if ($token->[0] eq 'T' && $token->[2]) {
$result.='<![CDATA['.$token->[1].']]>';	$result.='<![CDATA['.$token->[1].']]>';
} else {	} else {
$result.=$token->[1];	$result.=$token->[1];