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

(-)a/acqui/neworderempty.pl (-7 / +6 lines)
Lines 163-174 if ( $ordernumber eq '' and defined $params->{'breedingid'}){ Link Here
163
        exit;
163
        exit;
164
    }
164
    }
165
    #from this point: add a new record
165
    #from this point: add a new record
166
        my $bibitemnum;
166
    my $bibitemnum;
167
        $params->{'frameworkcode'} or $params->{'frameworkcode'} = "";
167
    $params->{'frameworkcode'} or $params->{'frameworkcode'} = "";
168
        ( $biblionumber, $bibitemnum ) = AddBiblio( $marcrecord, $params->{'frameworkcode'} );
168
    ( $biblionumber, $bibitemnum ) = AddBiblio( $marcrecord, $params->{'frameworkcode'} );
169
        # get the price if there is one.
169
    # get the price if there is one.
170
        $listprice = GetMarcPrice($marcrecord, $marcflavour);
170
    $listprice = GetMarcPrice($marcrecord, $marcflavour);
171
        SetImportRecordStatus($params->{'breedingid'}, 'imported');
171
    SetImportRecordStatus($params->{'breedingid'}, 'imported');
172
}
172
}
173
173
174
174
175
- 

Return to bug 24276