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.40, 2002/02/05 01:28:57
Line 208 while ($token = $parser->get_token()) {	Line 208 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 1511 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 '';