Lines 388-405
sub order_line {
Link Here
|
388 |
foreach my $item (@linked_itemnumbers) { |
388 |
foreach my $item (@linked_itemnumbers) { |
389 |
my $i_obj = $schema->resultset('Item')->find( $item->itemnumber ); |
389 |
my $i_obj = $schema->resultset('Item')->find( $item->itemnumber ); |
390 |
if ( defined $i_obj ) { |
390 |
if ( defined $i_obj ) { |
391 |
push @items, $i_obj; |
391 |
push @items, { |
|
|
392 |
branchcode => $item->{branchcode}, |
393 |
itype => $item->{itype}, |
394 |
location => $item->{location}, |
395 |
itemcallnumber => $item->{itemcallnumber}, |
396 |
}; |
392 |
} |
397 |
} |
393 |
} |
398 |
} |
394 |
} |
399 |
} |
395 |
else { |
400 |
else { |
396 |
my $item_hash = { |
401 |
my $item_hash = { |
397 |
itemtype => $biblioitem->itemtype, |
402 |
itemtype => $biblioitem->itemtype, |
398 |
shelfmark => $biblioitem->cn_class, |
403 |
itemcallnumber => $biblioitem->cn_class, |
399 |
}; |
404 |
}; |
400 |
my $branch = $orderline->basketno->deliveryplace; |
405 |
my $branch = $orderline->basketno->deliveryplace; |
401 |
if ($branch) { |
406 |
if ($branch) { |
402 |
$item_hash->{branch} = $branch; |
407 |
$item_hash->{branchcode} = $branch; |
403 |
} |
408 |
} |
404 |
for ( 1 .. $orderline->quantity ) { |
409 |
for ( 1 .. $orderline->quantity ) { |
405 |
push @items, $item_hash; |
410 |
push @items, $item_hash; |
Lines 412-421
sub order_line {
Link Here
|
412 |
for my $item (@items) { |
417 |
for my $item (@items) { |
413 |
push @{$item_fields}, |
418 |
push @{$item_fields}, |
414 |
{ |
419 |
{ |
415 |
branchcode => $item->homebranch->branchcode, |
420 |
branchcode => $item->{branchcode}, |
416 |
itype => $item->itype, |
421 |
itype => $item->{itype}, |
417 |
location => $item->location, |
422 |
location => $item->{location}, |
418 |
itemcallnumber => $item->itemcallnumber, |
423 |
itemcallnumber => $item->{itemcallnumber}, |
419 |
}; |
424 |
}; |
420 |
} |
425 |
} |
421 |
$self->add_seg( |
426 |
$self->add_seg( |
422 |
- |
|
|