View | Details | Raw Unified | Return to bug 13401
Collapse All | Expand All

(-)a/admin/authorised_values.pl (-5 / +4 lines)
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
- 

Return to bug 13401