|
version 1.505.2.6, 2011/11/15 17:43:20
|
version 1.505.2.7, 2011/12/01 04:41:55
|
|
Line 2145 sub register_insert_xml {
|
Line 2145 sub register_insert_xml {
|
| while (my $token = $parser->get_token()) { |
while (my $token = $parser->get_token()) { |
| if ($token->[0] eq 'S') { |
if ($token->[0] eq 'S') { |
| my $key; |
my $key; |
| if ($token->[1] eq 'tag') { |
if ($token->[1] eq 'tag') { |
| $tag = $token->[2]{'name'}; |
$tag = $token->[2]{'name'}; |
| $insertlist{$tagnum.'.tag'} = $tag; |
if (defined($tag)) { |
| $insertlist{$tag.'.num'} = $tagnum; |
$insertlist{$tagnum.'.tag'} = $tag; |
| push(@alltags,$tag); |
$insertlist{$tag.'.num'} = $tagnum; |
| |
push(@alltags,$tag); |
| |
} |
| } elsif ($in_help && $token->[1] eq 'file') { |
} elsif ($in_help && $token->[1] eq 'file') { |
| $key = $tag.'.helpfile'; |
$key = $tag.'.helpfile'; |
| } elsif ($in_help && $token->[1] eq 'description') { |
} elsif ($in_help && $token->[1] eq 'description') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonxml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml