From 99f2fdfffbd7aea5dc28c237edf0bf568483138f Mon Sep 17 00:00:00 2001 From: =?utf8?q?Fr=C3=A9d=C3=A9rick=20Capovilla?= Date: Fri, 13 May 2011 11:48:16 +0000 Subject: [PATCH] 5684: Remove all items fields from a Z39.50 record imported for acquisition. Signed-off-by: Marcel de Rooy m.de.rooy@rijksmuseum.nl May 13: Patch for 3.2.X. Signed-off-by: Chris Nighswonger --- acqui/neworderempty.pl | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl index 7028ee2a4a..f1bab82087 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 if (! (($biblionumber,$duplicatetitle) = FindDuplicate($marcrecord))){ -- 2.39.5