From 36adec60b7c061e1991236ee6175086fb1257e4a Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 5 Mar 2019 16:09:07 -0300 Subject: [PATCH] Bug 21316: Handle control fields in the ACQ frameworks MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Test plan: - Turn UseACQFrameworkForBiblioRecords on - Add 003@ to the ACQ framework - Create an order from an existing record => The 003 value will be displayed! It fixes the following error: Control fields (generally, just tags below 010) do not have subfields, use data() at /home/vagrant/kohaclone/acqui/neworderempty.pl line 293. Signed-off-by: Christian Stelzenmüller Signed-off-by: Katrin Fischer Signed-off-by: Marcel de Rooy Signed-off-by: Martin Renvoize (cherry picked from commit 5759d06747e356a60b3fac82b5ff03184a946f80) Signed-off-by: Fridolin Somers (cherry picked from commit c315ec1a1914b207766449aff497dfd293377cbd) Signed-off-by: Lucas Gass --- acqui/neworderempty.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl index 9ca2b5b05a..bfcb66b2f9 100755 --- a/acqui/neworderempty.pl +++ b/acqui/neworderempty.pl @@ -290,7 +290,7 @@ if ( not $ordernumber or $biblionumber ) { next if IsMarcStructureInternal($mss); next if $mss->{tab} == -1; # We only need to display the values - my $value = join '; ', map { $_->subfield( $subfield ) } @fields; + my $value = join '; ', map { $tag < 10 ? $_->data : $_->subfield( $subfield ) } @fields; if ( $value ) { push @catalog_details, { tag => $tag, -- 2.39.5