|
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 |
- |
|
|