Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 5684 : Remove all items fields from a Z39.50 record imported for acquisition.

Browse source 
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
This commit is contained in:
Frédérick Capovilla 2011-03-28 12:09:23 -04:00 committed by Chris Cormack
parent ab60ba41ce
commit f6486e6390
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'}); my ($marcrecord, $encoding) = MARCfindbreeding($params->{'breedingid'});
die("Could not find the selected record in the reservoir, bailing") unless $marcrecord; 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; my $duplicatetitle;
#look for duplicates #look for duplicates
($biblionumber,$duplicatetitle) = FindDuplicate($marcrecord); ($biblionumber,$duplicatetitle) = FindDuplicate($marcrecord);