|
Lines 446-452
sub receipt_items {
Link Here
|
| 446 |
"Cannot find aqorder item for $i :Order:$ordernumber"); |
446 |
"Cannot find aqorder item for $i :Order:$ordernumber"); |
| 447 |
next; |
447 |
next; |
| 448 |
} |
448 |
} |
| 449 |
my $b = $item->homebranch->branchcode; |
449 |
my $b = $item->get_column('homebranch'); |
| 450 |
if ( !exists $branch_map{$b} ) { |
450 |
if ( !exists $branch_map{$b} ) { |
| 451 |
$branch_map{$b} = []; |
451 |
$branch_map{$b} = []; |
| 452 |
} |
452 |
} |
|
Lines 543-549
sub transfer_items {
Link Here
|
| 543 |
foreach my $ilink (@item_links) { |
543 |
foreach my $ilink (@item_links) { |
| 544 |
my $ino = $ilink->itemnumber; |
544 |
my $ino = $ilink->itemnumber; |
| 545 |
my $item = $schema->resultset('Item')->find( $ilink->itemnumber ); |
545 |
my $item = $schema->resultset('Item')->find( $ilink->itemnumber ); |
| 546 |
my $i_branch = $item->homebranch; |
546 |
my $i_branch = $item->get_column('homebranch'); |
| 547 |
if ( exists $mapped_by_branch{$i_branch} |
547 |
if ( exists $mapped_by_branch{$i_branch} |
| 548 |
&& $mapped_by_branch{$i_branch} > 0 ) |
548 |
&& $mapped_by_branch{$i_branch} > 0 ) |
| 549 |
{ |
549 |
{ |
| 550 |
- |
|
|