loncom/build/lpml_parse.pl - diff

Return to lpml_parse.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.37, 2002/01/31 15:04:46	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') {
Line 1511 sub format_filenames {	Line 1512 sub format_filenames {
}	}
return '';	return '';
}	}
# ------------------------------------------------ Format specialnotice section	# ----------------------------------------------- Format specialnotices section
sub format_specialnotices {	sub format_specialnotices {
$parser->get_tag('/specialnotices');	$parser->get_tag('/specialnotices');
return '';	return '';