Lines 62-69
sub createMergeHash {
Link Here
|
62 |
my @subfields = $field->subfields(); |
62 |
my @subfields = $field->subfields(); |
63 |
my @subfield_array; |
63 |
my @subfield_array; |
64 |
foreach my $subfield (@subfields) { |
64 |
foreach my $subfield (@subfields) { |
65 |
if ( !defined($tagslib) |
65 |
if ( |
66 |
|| $tagslib->{$fieldtag}->{ @$subfield[0] }->{'tab'} >= 0 ) |
66 |
!defined($tagslib) |
|
|
67 |
|| ( defined $tagslib->{$fieldtag} |
68 |
&& defined $tagslib->{$fieldtag}->{ @$subfield[0] } |
69 |
&& defined $tagslib->{$fieldtag}->{ @$subfield[0] }->{'tab'} |
70 |
&& $tagslib->{$fieldtag}->{ @$subfield[0] }->{'tab'} >= 0 ) |
71 |
) |
67 |
{ |
72 |
{ |
68 |
push @subfield_array, |
73 |
push @subfield_array, |
69 |
{ |
74 |
{ |
Lines 75-82
sub createMergeHash {
Link Here
|
75 |
|
80 |
|
76 |
} |
81 |
} |
77 |
|
82 |
|
78 |
if ( ( !defined($tagslib) || $tagslib->{$fieldtag}->{'tab'} >= 0 ) |
83 |
if ( |
79 |
&& @subfield_array ) |
84 |
( |
|
|
85 |
!defined($tagslib) || ( defined $tagslib->{$fieldtag} |
86 |
&& defined $tagslib->{$fieldtag}->{'tab'} |
87 |
&& $tagslib->{$fieldtag}->{'tab'} >= 0 ) |
88 |
) |
89 |
&& @subfield_array |
90 |
) |
80 |
{ |
91 |
{ |
81 |
push @array, |
92 |
push @array, |
82 |
{ |
93 |
{ |