Lines 312-323
sub process_invoice {
Link Here
|
312 |
|
312 |
|
313 |
foreach my $line ( @{$lines} ) { |
313 |
foreach my $line ( @{$lines} ) { |
314 |
my $ordernumber = $line->ordernumber; |
314 |
my $ordernumber = $line->ordernumber; |
|
|
315 |
if (!$ordernumber ) { |
316 |
$logger->trace( "Skipping invoice line, no associated ordernumber" ); |
317 |
next; |
318 |
} |
319 |
|
315 |
$logger->trace( "Receipting order:$ordernumber Qty: ", |
320 |
$logger->trace( "Receipting order:$ordernumber Qty: ", |
316 |
$line->quantity ); |
321 |
$line->quantity ); |
317 |
|
322 |
|
318 |
my $order = $schema->resultset('Aqorder')->find($ordernumber); |
323 |
my $order = $schema->resultset('Aqorder')->find($ordernumber); |
|
|
324 |
if ($order->biblionumber->biblionumber) { |
325 |
my $b = $order->biblionumber->biblionumber; |
326 |
my $id = $line->item_number_id; |
327 |
$logger->trace("Updating bib:$b id:$id"); |
328 |
} |
319 |
|
329 |
|
320 |
# ModReceiveOrder does not validate that $ordernumber exists validate here |
330 |
# ModReceiveOrder does not validate that $ordernumber exists validate here |
321 |
if ($order) { |
331 |
if ($order) { |
322 |
|
332 |
|
323 |
# check suggestions |
333 |
# check suggestions |
324 |
- |
|
|