From f6486e63904f728fbdf5a9def8082777a101c64f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fr=C3=A9d=C3=A9rick=20Capovilla?= 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 Signed-off-by: Chris Cormack --- 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);