From 3ec208f28d01a485ed6b4eeb280f038241834aba 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] Remove all items fields from a Z39.50 record imported for acquisition. Content-Type: text/plain; charset="utf-8" Signed-off-by: Marcel de Rooy --- acqui/neworderempty.pl | 5 +++++ 1 files changed, 5 insertions(+), 0 deletions(-) diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl index 386dda7..bd06b0c 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); -- 1.6.0.6