version 1.505.2.4, 2010/09/29 16:12:17
|
version 1.505.2.5, 2011/05/27 19:29:21
|
Line 2141 sub register_insert_xml {
|
Line 2141 sub register_insert_xml {
|
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; |
$insertlist{$tagnum.'.tag'} = $tag; |
$insertlist{"$tag.num"} = $tagnum; |
$insertlist{$tag.'.num'} = $tagnum; |
push(@alltags,$tag); |
push(@alltags,$tag); |
} elsif ($in_help && $token->[1] eq 'file') { |
} elsif ($in_help && $token->[1] eq 'file') { |
$key = $tag.'.helpfile'; |
$key = $tag.'.helpfile'; |
Line 2175 sub register_insert_xml {
|
Line 2175 sub register_insert_xml {
|
|
|
# parse the allows and ignore tags set to <show>no</show> |
# parse the allows and ignore tags set to <show>no</show> |
foreach my $tag (@alltags) { |
foreach my $tag (@alltags) { |
next if (!exists($insertlist{"$tag.allow"})); |
next if (!exists($insertlist{$tag.'.allow'})); |
my $allow = $insertlist{"$tag.allow"}; |
my $allow = $insertlist{$tag.'.allow'}; |
foreach my $element (split(',',$allow)) { |
foreach my $element (split(',',$allow)) { |
$element =~ s/(^\s*|\s*$ )//gx; |
$element =~ s/(^\s*|\s*$ )//gx; |
if (!exists($insertlist{"$element.show"}) |
if (!exists($insertlist{$element.'.show'}) |
|| $insertlist{"$element.show"} ne 'no') { |
|| $insertlist{$element.'.show'} ne 'no') { |
push(@{ $insertlist{$tag.'.which'} },$element); |
push(@{ $insertlist{$tag.'.which'} },$element); |
} |
} |
} |
} |