loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.210, 2002/11/03 19:16:20	version 1.211, 2002/11/06 22:36:08
Line 1046 sub get_all_text_unbalanced {	Line 1046 sub get_all_text_unbalanced {
} elsif ($token->[0] eq 'E') {	} elsif ($token->[0] eq 'E') {
$result.=$token->[2];	$result.=$token->[2];
}	}
if ($result =~ /(.)$tag(.)/) {	if ($result =~ /(.)\Q$tag\E(.)/s) {
&Apache::lonxml::debug('Got a winner with leftovers ::'.$2);	&Apache::lonxml::debug('Got a winner with leftovers ::'.$2);
&Apache::lonxml::debug('Result is :'.$1);	&Apache::lonxml::debug('Result is :'.$1);
$result=$1;	$result=$1;