From 6b05210f6b886e5bb134704f6da5d2467eb8ac67 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Fr=C3=A9d=C3=A9rick=20Capovilla?=
 <frederick.capovilla@sys-tech.net>
Date: Mon, 28 Mar 2011 12:09:23 -0400
Subject: [PATCH] Bug 5684 : Remove all items fields from a Z39.50 record
 imported for acquisition.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
(cherry picked from commit f6486e63904f728fbdf5a9def8082777a101c64f)

Signed-off-by: Chris Nighswonger <chris.nighswonger@gmail.com>
---
 acqui/neworderempty.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl
index 386dda73b9..bd06b0cf0e 100755
--- a/acqui/neworderempty.pl
+++ b/acqui/neworderempty.pl
@@ -132,6 +132,11 @@ if ( $ordernumber eq '' and defined $params->{'breedingid'}){
     my ($marcrecord, $encoding) = MARCfindbreeding($params->{'breedingid'});
     die("Could not find the selected record in the reservoir, bailing") unless $marcrecord;
 
+    # Remove all the items (952) from the imported record
+    foreach my $item ($marcrecord->field('952')) {
+        $marcrecord->delete_field($item);
+    }
+
     my $duplicatetitle;
 #look for duplicates
     ($biblionumber,$duplicatetitle) = FindDuplicate($marcrecord);
-- 
2.20.1