|
Lines 85-95
if ($op eq 'add_form') {
Link Here
|
| 85 |
my $branches = GetBranches; |
85 |
my $branches = GetBranches; |
| 86 |
my @branches_loop; |
86 |
my @branches_loop; |
| 87 |
|
87 |
|
| 88 |
foreach my $branch (sort keys %$branches) { |
88 |
foreach my $branchcode ( sort { uc($branches->{$a}->{branchname}) cmp uc($branches->{$b}->{branchname}) } keys %$branches ) { |
| 89 |
my $selected = ( grep {$_->{branchcode} eq $branch} @selected_branches ) ? 1 : 0; |
89 |
my $selected = ( grep {$_->{branchcode} eq $branchcode} @selected_branches ) ? 1 : 0; |
| 90 |
push @branches_loop, { |
90 |
push @branches_loop, { |
| 91 |
branchcode => $branches->{$branch}{branchcode}, |
91 |
branchcode => $branchcode, |
| 92 |
branchname => $branches->{$branch}{branchname}, |
92 |
branchname => $branches->{$branchcode}->{branchname}, |
| 93 |
selected => $selected, |
93 |
selected => $selected, |
| 94 |
}; |
94 |
}; |
| 95 |
} |
95 |
} |
| 96 |
- |
|
|