@@ -, +, @@ --- acqui/neworderempty.pl | 5 +++++ 1 files changed, 5 insertions(+), 0 deletions(-) --- a/acqui/neworderempty.pl +++ a/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); --