![[BACK]](/icons/back.gif){kind=icon}
Return to lpml_parse.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / build|
Return to lpml_parse.pl CVS log | Up to [LON-CAPA] / loncom / build |
| version 1.39, 2002/02/05 01:28:16 | version 1.40, 2002/02/05 01:28:57 |
|---|---|
| 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)]); |