- $row_data{ itemtype } = $itemtype;
- $row_data{ toBranch } = $toBranch;
- $row_data{ loop2 } = \@loop2;
-
- foreach my $fromBranch ( @branchcodes ) {
- my %row_data;
- my $isChecked = ! IsBranchTransferAllowed( $toBranch, $fromBranch, $itemtype );
- $row_data{ itemtype } = $itemtype;
- $row_data{ toBranch } = $toBranch;
- $row_data{ fromBranch } = $fromBranch;
- $row_data{ isChecked } = $isChecked;
-
- push( @loop2, \%row_data );
- }
-
- push( @loop1, \%row_data );
+ my $isChecked = IsBranchTransferAllowed( $toBranch, $branchcode, $code );
+ $row_data{ code } = $code;
+ $row_data{ toBranch } = $toBranch;
+ $row_data{ isChecked } = $isChecked;
+ push( @to_branch_loop, \%row_data );