|
|
@ -145,7 +145,7 @@ if($do_it){ |
|
|
|
## We generate branchlist |
|
|
|
my $branches=GetBranches(); |
|
|
|
my @branchloop; |
|
|
|
foreach (keys %$branches) { |
|
|
|
foreach (sort {$branches->{$a}->{'branchname'} cmp $branches->{$b}->{'branchname'}} keys %$branches) { |
|
|
|
my $thisbranch = ''; # FIXME: populate $thisbranch to preselect one |
|
|
|
my %row = (branchcode => $_, |
|
|
|
selected => ($thisbranch eq $_ ? 1 : 0), |
|
|
@ -170,4 +170,4 @@ if($do_it){ |
|
|
|
branches => \@branchloop); |
|
|
|
} |
|
|
|
|
|
|
|
output_html_with_http_headers $input, $cookie, $template->output; |
|
|
|
output_html_with_http_headers $input, $cookie, $template->output; |
|
|
|