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 |
- |
|
|