|
Lines 305-330
if ( $op eq "add" ) {
Link Here
|
| 305 |
# Build the combobox to select the billing place |
305 |
# Build the combobox to select the billing place |
| 306 |
my @billingplaceloop; |
306 |
my @billingplaceloop; |
| 307 |
for (sort keys %$branches) { |
307 |
for (sort keys %$branches) { |
| 308 |
my $selected = 1 if $_ eq $billingplace; |
308 |
push @billingplaceloop, { |
| 309 |
my %row = ( |
|
|
| 310 |
value => $_, |
309 |
value => $_, |
| 311 |
selected => $selected, |
310 |
selected => $_ eq $billingplace, |
| 312 |
branchname => $branches->{$_}->{branchname}, |
311 |
branchname => $branches->{$_}->{branchname}, |
| 313 |
); |
312 |
}; |
| 314 |
push @billingplaceloop, \%row; |
|
|
| 315 |
} |
313 |
} |
| 316 |
$template->param( billingplaceloop => \@billingplaceloop ); |
314 |
$template->param( billingplaceloop => \@billingplaceloop ); |
| 317 |
|
315 |
|
| 318 |
# Build the combobox to select the delivery place |
316 |
# Build the combobox to select the delivery place |
| 319 |
my @deliveryplaceloop; |
317 |
my @deliveryplaceloop; |
| 320 |
for (sort keys %$branches) { |
318 |
for (sort keys %$branches) { |
| 321 |
my $selected = 1 if $_ eq $deliveryplace; |
319 |
push @deliveryplaceloop, { |
| 322 |
my %row = ( |
|
|
| 323 |
value => $_, |
320 |
value => $_, |
| 324 |
selected => $selected, |
321 |
selected => $_ eq $deliveryplace, |
| 325 |
branchname => $branches->{$_}->{branchname}, |
322 |
branchname => $branches->{$_}->{branchname}, |
| 326 |
); |
323 |
}; |
| 327 |
push @deliveryplaceloop, \%row; |
|
|
| 328 |
} |
324 |
} |
| 329 |
$template->param( deliveryplaceloop => \@deliveryplaceloop ); |
325 |
$template->param( deliveryplaceloop => \@deliveryplaceloop ); |
| 330 |
|
326 |
|