Return to lpml_parse.pl CVS log | Up to [LON-CAPA] / loncom / build |
version 1.38, 2002/01/31 17:08:40 | 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') { |