Lines 293-302
sub process_invoice {
Link Here
|
293 |
|
293 |
|
294 |
foreach my $line ( @{$lines} ) { |
294 |
foreach my $line ( @{$lines} ) { |
295 |
my $ordernumber = $line->ordernumber; |
295 |
my $ordernumber = $line->ordernumber; |
|
|
296 |
if (!$ordernumber ) { |
297 |
$logger->trace( "Skipping invoice line no associated ordernumber" ); |
298 |
next; |
299 |
} |
300 |
|
296 |
$logger->trace( "Receipting order:$ordernumber Qty: ", |
301 |
$logger->trace( "Receipting order:$ordernumber Qty: ", |
297 |
$line->quantity ); |
302 |
$line->quantity ); |
298 |
|
303 |
|
299 |
my $order = $schema->resultset('Aqorder')->find($ordernumber); |
304 |
my $order = $schema->resultset('Aqorder')->find($ordernumber); |
|
|
305 |
if ($order->biblionumber->biblionumber) { |
306 |
my $b = $order->biblionumber->biblionumber; |
307 |
my $id = $line->item_number_id; |
308 |
$logger->trace("Updating bib:$b id:$id"); |
309 |
} |
300 |
|
310 |
|
301 |
# ModReceiveOrder does not validate that $ordernumber exists validate here |
311 |
# ModReceiveOrder does not validate that $ordernumber exists validate here |
302 |
if ($order) { |
312 |
if ($order) { |
303 |
- |
|
|