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 |
|