|
Lines 60-66
if ($op eq 'add_form') {
Link Here
|
| 60 |
my @branches_loop; |
60 |
my @branches_loop; |
| 61 |
|
61 |
|
| 62 |
foreach my $branchcode ( sort { uc($branches->{$a}->{branchname}) cmp uc($branches->{$b}->{branchname}) } keys %$branches ) { |
62 |
foreach my $branchcode ( sort { uc($branches->{$a}->{branchname}) cmp uc($branches->{$b}->{branchname}) } keys %$branches ) { |
| 63 |
my $selected = ( grep {$_->{branchcode} eq $branchcode} @$selected_branches ) ? 1 : 0; |
63 |
my $selected = ( grep {$_ eq $branchcode} @$selected_branches ) ? 1 : 0; |
| 64 |
push @branches_loop, { |
64 |
push @branches_loop, { |
| 65 |
branchcode => $branchcode, |
65 |
branchcode => $branchcode, |
| 66 |
branchname => $branches->{$branchcode}->{branchname}, |
66 |
branchname => $branches->{$branchcode}->{branchname}, |
| 67 |
- |
|
|