From 11f5857bd9c07d8dcfaf20a59470ab3b9c1fc9bc Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Tue, 5 Mar 2019 16:09:07 -0300
Subject: [PATCH] Bug 21316: Handle control fields in the ACQ frameworks

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: CS <christian.stelzenmueller@bsz-bw.de>
---
 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.11.0