version 1.444, 2007/04/16 18:47:46
|
version 1.445, 2007/05/14 08:42:13
|
Line 1744 sub register_insert_xml {
|
Line 1744 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"})); |
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 ($insertlist{"$element.show"} ne 'no') { |
if (exists($insertlist{"$element.show"}) |
|
&& $insertlist{"$element.show"} ne 'no') { |
push(@{ $insertlist{$tag.'.which'} },$element); |
push(@{ $insertlist{$tag.'.which'} },$element); |
} |
} |
} |
} |