From ad582b0ecc1c5b7029de6ee1003f9386f7935484 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. --- acqui/neworderempty.pl | 5 +++++ 1 files changed, 5 insertions(+), 0 deletions(-) diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl index 61f0962..7c726f3 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))){ -- 1.5.6.5