View | Details | Raw Unified | Return to bug 5684
Collapse All | Expand All

(-)a/acqui/neworderempty.pl (-1 / +5 lines)
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
- 

Return to bug 5684