From b34d237d3f212e75ac2558ffd6e7e60f4e87e40a Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Thu, 2 Sep 2021 12:10:19 +0100 Subject: [PATCH] Bug 21469: Add 003 into 773$w when required This patch looks at the MarcOrgCode preference and if present it will prepend the host 003 data in brackets to the 773$w link field in the child record. --- C4/Biblio.pm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index ebebe415c8..d552b46c39 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -3000,8 +3000,9 @@ sub ModBiblioMarc { =head2 prepare_host_field -$marcfield = prepare_host_field( $hostbiblioitem, $marcflavour ); -Generate the host item entry for an analytic child entry + $marcfield = prepare_host_field( $hostbiblioitem, $marcflavour ); + +Generate the host item entry for an analytic part child entry =cut @@ -3052,7 +3053,12 @@ sub prepare_host_field { } } if ( $field = $host->field('001') ) { - $sfd{w} = $field->data(),; + $sfd{w} = $field->data(); + if ( C4::Context->preference('MarcOrgCode') ) { + if ( $field = $host->field('003') ) { + $sft{w} = "(" . $field->data() . ")" . $sft{w}; + } + } } $host_field = MARC::Field->new( 773, '0', ' ', %sfd ); return $host_field; -- 2.20.1