loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.57, 2001/03/19 20:08:53	version 1.58, 2001/03/20 16:47:21
Line 179 sub recurse {	Line 179 sub recurse {
if (($tokenpat->[0] eq 'T') \|\| ($tokenpat->[0] eq 'C') \|\| ($tokenpat->[0] eq 'D') ) {	if (($tokenpat->[0] eq 'T') \|\| ($tokenpat->[0] eq 'C') \|\| ($tokenpat->[0] eq 'D') ) {
$partstring = $tokenpat->[1];	$partstring = $tokenpat->[1];
} elsif ($tokenpat->[0] eq 'PI') {	} elsif ($tokenpat->[0] eq 'PI') {
$result=$tokenpat->[2];	$partstring = $tokenpat->[2];
} elsif ($tokenpat->[0] eq 'S') {	} elsif ($tokenpat->[0] eq 'S') {
push (@innerstack,$tokenpat->[1]);	push (@innerstack,$tokenpat->[1]);
push (@innerparstack,&parstring($tokenpat));	push (@innerparstack,&parstring($tokenpat));