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