loncom/build/lpml_parse.pl - diff

Return to lpml_parse.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.38, 2002/01/31 17:08:40	version 1.39, 2002/02/05 01:28:16
Line 183 $parser->xml_mode('1');	Line 183 $parser->xml_mode('1');
my $cleanstring;	my $cleanstring;
while ($token = $parser->get_token()) {	while ($token = $parser->get_token()) {
if ($token->[0] eq 'S') {	if ($token->[0] eq 'S') {
	print "HLOC: $hloc $token->[4]\n";
$hloc++;	$hloc++;
$hierarchy[$hloc]++;	$hierarchy[$hloc]++;
$key=$token->[1].join(',',@hierarchy[0..($hloc-1)]);	$key=$token->[1].join(',',@hierarchy[0..($hloc-1)]);
Line 208 while ($token = $parser->get_token()) {	Line 209 while ($token = $parser->get_token()) {
$cleanstring.=$token->[4];	$cleanstring.=$token->[4];
}	}
if ($token->[4]=~/\/>$/) {	if ($token->[4]=~/\/>$/) {
$hloc--;	# $hloc--;
}	}
}	}
if ($token->[0] eq 'E') {	if ($token->[0] eq 'E') {