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