Bug 13223: Plugin housekeeping: do not redefine wrapper

[koha.git] / Koha / Util / MARC.pm

diff --git a/Koha/Util/MARC.pm b/Koha/Util/MARC.pm
index fc3c9f2..5d026ee 100644 (file)
--- a/Koha/Util/MARC.pm
+++ b/Koha/Util/MARC.pm
@@ -62,8 +62,13 @@ sub createMergeHash {
             my @subfields = $field->subfields();
             my @subfield_array;
             foreach my $subfield (@subfields) {
-                if ( !defined($tagslib)
-                    || $tagslib->{$fieldtag}->{ @$subfield[0] }->{'tab'} >= 0 )
+                if (
+                    !defined($tagslib)
+                    || (   defined $tagslib->{$fieldtag}
+                        && defined $tagslib->{$fieldtag}->{ @$subfield[0] }
+                        && defined $tagslib->{$fieldtag}->{ @$subfield[0] }->{'tab'}
+                        && $tagslib->{$fieldtag}->{ @$subfield[0] }->{'tab'} >= 0 )
+                  )
                 {
                     push @subfield_array,
                       {
@@ -75,7 +80,14 @@ sub createMergeHash {
 
             }
 
-            if ( !defined($tagslib) || @subfield_array )
+            if (
+                (
+                    !defined($tagslib) || ( defined $tagslib->{$fieldtag}
+                        && defined $tagslib->{$fieldtag}->{'tab'}
+                        && $tagslib->{$fieldtag}->{'tab'} >= 0 )
+                )
+                && @subfield_array
+              )
             {
                 push @array,
                   {
@@ -106,4 +118,73 @@ sub _createKey {
     return int(rand(1000000));
 }
 
+=head2 getAuthorityAuthorizedHeading
+
+Retrieve the authorized heading from a MARC authority record
+
+=cut
+
+sub getAuthorityAuthorizedHeading {
+    my ( $record, $schema ) = @_;
+    return unless ( ref $record eq 'MARC::Record' );
+    if ( $schema eq 'unimarc' ) {
+
+        # construct UNIMARC summary, that is quite different from MARC21 one
+        # accepted form
+        foreach my $field ( $record->field('2..') ) {
+            return $field->as_string('abcdefghijlmnopqrstuvwxyz');
+        }
+    }
+    else {
+        foreach my $field ( $record->field('1..') ) {
+            my $tag = $field->tag();
+            next if "152" eq $tag;
+
+            # FIXME - 152 is not a good tag to use
+            # in MARC21 -- purely local tags really ought to be
+            # 9XX
+            if ( $tag eq '100' ) {
+                return $field->as_string('abcdefghjklmnopqrstvxyz68');
+            }
+            elsif ( $tag eq '110' ) {
+                return $field->as_string('abcdefghklmnoprstvxyz68');
+            }
+            elsif ( $tag eq '111' ) {
+                return $field->as_string('acdefghklnpqstvxyz68');
+            }
+            elsif ( $tag eq '130' ) {
+                return $field->as_string('adfghklmnoprstvxyz68');
+            }
+            elsif ( $tag eq '148' ) {
+                return $field->as_string('abvxyz68');
+            }
+            elsif ( $tag eq '150' ) {
+                return $field->as_string('abvxyz68');
+            }
+            elsif ( $tag eq '151' ) {
+                return $field->as_string('avxyz68');
+            }
+            elsif ( $tag eq '155' ) {
+                return $field->as_string('abvxyz68');
+            }
+            elsif ( $tag eq '180' ) {
+                return $field->as_string('vxyz68');
+            }
+            elsif ( $tag eq '181' ) {
+                return $field->as_string('vxyz68');
+            }
+            elsif ( $tag eq '182' ) {
+                return $field->as_string('vxyz68');
+            }
+            elsif ( $tag eq '185' ) {
+                return $field->as_string('vxyz68');
+            }
+            else {
+                return $field->as_string();
+            }
+        }
+    }
+    return;
+}
+
 1;