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