gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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 <chris.nighswonger@gmail.com>
This commit is contained in:
Frédérick Capovilla 2011-05-13 11:48:16 +00:00 committed by Chris Nighswonger
parent df75fc81b4
commit 99f2fdfffb
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
acqui/neworderempty.pl
View File

@ -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))){