|
Lines 145-151
if($do_it){
Link Here
|
| 145 |
## We generate branchlist |
145 |
## We generate branchlist |
| 146 |
my $branches=GetBranches(); |
146 |
my $branches=GetBranches(); |
| 147 |
my @branchloop; |
147 |
my @branchloop; |
| 148 |
foreach (keys %$branches) { |
148 |
foreach (sort {$branches->{$a}->{'branchname'} cmp $branches->{$b}->{'branchname'}} keys %$branches) { |
| 149 |
my $thisbranch = ''; # FIXME: populate $thisbranch to preselect one |
149 |
my $thisbranch = ''; # FIXME: populate $thisbranch to preselect one |
| 150 |
my %row = (branchcode => $_, |
150 |
my %row = (branchcode => $_, |
| 151 |
selected => ($thisbranch eq $_ ? 1 : 0), |
151 |
selected => ($thisbranch eq $_ ? 1 : 0), |
|
Lines 170-173
if($do_it){
Link Here
|
| 170 |
branches => \@branchloop); |
170 |
branches => \@branchloop); |
| 171 |
} |
171 |
} |
| 172 |
|
172 |
|
| 173 |
output_html_with_http_headers $input, $cookie, $template->output; |
173 |
output_html_with_http_headers $input, $cookie, $template->output; |
| 174 |
- |
|
|