|
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 |
if (! (($biblionumber,$duplicatetitle) = FindDuplicate($marcrecord))){ |
142 |
if (! (($biblionumber,$duplicatetitle) = FindDuplicate($marcrecord))){ |
| 138 |
- |
|
|