From 6585650e496a3e7024ccc42daca576a4a501ecba Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Wed, 18 May 2022 08:23:19 +0100
Subject: [PATCH] Bug 29560: Add link_marc_host to Koha::Biblio

This patch adds the new `link_marc_host` method to Koha::Biblio to
facilitate adding a host link to the marc record of this biblio.
---
 Koha/Biblio.pm | 162 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 162 insertions(+)

diff --git a/Koha/Biblio.pm b/Koha/Biblio.pm
index 0af49b939e..495713c6d9 100644
--- a/Koha/Biblio.pm
+++ b/Koha/Biblio.pm
@@ -1197,6 +1197,168 @@ sub get_marc_host {
     }
 }
 
+=head3 link_marc_host
+
+=cut
+
+sub link_marc_host {
+    my ( $self, $params ) = @_;
+
+    my $host = Koha::Biblios->find( $params->{biblionumber} );
+    return unless $host;
+
+    my $marcflavour = C4::Context->preference('marcflavour');
+    my $marc_host = $host->metadata->record;
+    my %sfd;
+    my $field;
+    my $host_field;
+
+    if ( $marcflavour eq 'MARC21' ) {
+        # Author
+        if ( $field =
+            $marc_host->field('100') || $marc_host->field('110') || $marc_host->field('111') )
+        {
+            my $s = $field->as_string('ab');
+            if ($s) {
+                $sfd{a} = $s;
+            }
+        }
+        # Title
+        if ( $field = $marc_host->field('245') ) {
+            my $s = $field->as_string('ab');
+            if ($s) {
+                $sfd{t} = $s;
+            }
+        }
+        # Uniform title
+        if ( $field = $marc_host->field('240') ) {
+            my $s = $field->as_string('a');
+            if ($s) {
+                $sfd{s} = $s;
+            }
+        }
+        # Publication
+        if ( $field = $marc_host->field('260') ) {
+            my $s = $field->as_string('abc');
+            if ($s) {
+                $sfd{d} = $s;
+            }
+        }
+        # Edition
+        if ( $field = $marc_host->field('250') ) {
+            my $s = $field->as_string('ab');
+            if ($s) {
+                $sfd{b} = $s;
+            }
+        }
+        # ISSN
+        if ( $field = $marc_host->field('022') ) {
+            my $s = $field->as_string('a');
+            if ($s) {
+                $sfd{x} = $s;
+            }
+        }
+        # ISBN
+        if ( $field = $marc_host->field('020') ) {
+            my $s = $field->as_string('a');
+            if ($s) {
+                $sfd{z} = $s;
+            }
+        }
+        if ( C4::Context->preference('UseControlNumber') ) {
+            # Control number
+            if ( $field = $marc_host->field('001') ) {
+                $sfd{w} = $field->data(),;
+            }
+            # Control number identifier
+            if ( $field = $marc_host->field('003') ) {
+                $sfd{w} = '('.$field->data().')'.$sfd{w};
+            }
+        }
+        $host_field = MARC::Field->new( 773, '0', ' ', %sfd );
+        return $host_field;
+    }
+    elsif ( $marcflavour eq 'UNIMARC' ) {
+
+        #author
+        if ( $field =
+            $marc_host->field('700') || $marc_host->field('710') || $marc_host->field('720') )
+        {
+            my $s = $field->as_string('ab');
+            if ($s) {
+                $sfd{a} = $s;
+            }
+        }
+
+        #title
+        if ( $field = $marc_host->field('200') ) {
+            my $s = $field->as_string('a');
+            if ($s) {
+                $sfd{t} = $s;
+            }
+        }
+
+        #place of publicaton
+        if ( $field = $marc_host->field('210') ) {
+            my $s = $field->as_string('a');
+            if ($s) {
+                $sfd{c} = $s;
+            }
+        }
+
+        #date of publication
+        if ( $field = $marc_host->field('210') ) {
+            my $s = $field->as_string('d');
+            if ($s) {
+                $sfd{d} = $s;
+            }
+        }
+
+        #edition statement
+        if ( $field = $marc_host->field('205') ) {
+            my $s = $field->as_string();
+            if ($s) {
+                $sfd{e} = $s;
+            }
+        }
+
+        #URL
+        if ( $field = $marc_host->field('856') ) {
+            my $s = $field->as_string('u');
+            if ($s) {
+                $sfd{u} = $s;
+            }
+        }
+
+        #ISSN
+        if ( $field = $marc_host->field('011') ) {
+            my $s = $field->as_string('a');
+            if ($s) {
+                $sfd{x} = $s;
+            }
+        }
+
+        #ISBN
+        if ( $field = $marc_host->field('010') ) {
+            my $s = $field->as_string('a');
+            if ($s) {
+                $sfd{y} = $s;
+            }
+        }
+        if ( $field = $marc_host->field('001') ) {
+            $sfd{0} = $field->data(),;
+        }
+        $host_field = MARC::Field->new( 461, '0', ' ', %sfd );
+        return $host_field;
+    }
+
+    my $marc_record = $self->metadata->record;
+    $marc_record->append_fields($host_field);
+
+    C4::Biblio::ModBiblioMarc($marc_record, $self->biblionumber);
+    return $self;
+}
+
 =head3 recalls
 
     my $recalls = $biblio->recalls;
-- 
2.20.1