|
Lines 43-50
sub createMergeHash {
Link Here
|
| 43 |
foreach my $field (@fields) { |
43 |
foreach my $field (@fields) { |
| 44 |
my $fieldtag = $field->tag(); |
44 |
my $fieldtag = $field->tag(); |
| 45 |
if ( $fieldtag < 10 ) { |
45 |
if ( $fieldtag < 10 ) { |
| 46 |
if ( !defined($tagslib) |
46 |
if ( |
| 47 |
|| $tagslib->{$fieldtag}->{'@'}->{'tab'} >= 0 ) |
47 |
!defined($tagslib) |
|
|
48 |
|| ( defined( $tagslib->{$fieldtag} ) |
| 49 |
&& $tagslib->{$fieldtag}->{'@'}->{'tab'} >= 0 ) |
| 50 |
) |
| 48 |
{ |
51 |
{ |
| 49 |
push @array, { |
52 |
push @array, { |
| 50 |
tag => $fieldtag, |
53 |
tag => $fieldtag, |
| 51 |
- |
|
|