Lines 132-137
if ( $ordernumber eq '' and defined $params->{'breedingid'}){
Link Here
|
132 |
my ($marcrecord, $encoding) = MARCfindbreeding($params->{'breedingid'}); |
132 |
my ($marcrecord, $encoding) = MARCfindbreeding($params->{'breedingid'}); |
133 |
die("Could not find the selected record in the reservoir, bailing") unless $marcrecord; |
133 |
die("Could not find the selected record in the reservoir, bailing") unless $marcrecord; |
134 |
|
134 |
|
|
|
135 |
# Remove all the items (952) from the imported record |
136 |
foreach my $item ($marcrecord->field('952')) { |
137 |
$marcrecord->delete_field($item); |
138 |
} |
139 |
|
135 |
my $duplicatetitle; |
140 |
my $duplicatetitle; |
136 |
#look for duplicates |
141 |
#look for duplicates |
137 |
($biblionumber,$duplicatetitle) = FindDuplicate($marcrecord); |
142 |
($biblionumber,$duplicatetitle) = FindDuplicate($marcrecord); |
138 |
- |
|
|