my $branches = GetBranches;
my @branchloop;
foreach my $thisbranch ( sort keys %$branches ) {
- my $selected = 1 if $thisbranch eq $branch;
my %row = (
value => $thisbranch,
- selected => $selected,
branchname => $branches->{$thisbranch}->{'branchname'},
);
push @branchloop, \%row;