Bug 5202: QA follow-up: quiet warnings

[koha.git] / authorities / merge.pl

diff --git a/authorities/merge.pl b/authorities/merge.pl
index 0e3fb6d..3d4b881 100755 (executable)
--- a/authorities/merge.pl
+++ b/authorities/merge.pl
@@ -114,6 +114,11 @@ else {
 
             # Getting MARC Structure
             my $tagslib = GetTagsLabels( 1, $framework );
+            foreach my $field ( keys %$tagslib ) {
+                if ( defined $tagslib->{$field}->{'tab'} && $tagslib->{$field}->{'tab'} eq ' ' ) {
+                    $tagslib->{$field}->{'tab'} = 0;
+                }
+            }
 
             my $notreference =
               ( $authid[0] == $mergereference )