Revision 208de6f2
Von Jan Büren vor etwa 2 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
|
|
||
|
foreach my $vc (qw(customer vendor)) {
|
||
|
next if !$form->{"delivery_${vc}_id"};
|
||
|
($form->{"delivery_${vc}_string"}) = selectrow_query($form, $dbh, qq|SELECT name FROM customer WHERE id = ?|, $id);
|
||
|
($form->{"delivery_${vc}_string"}) = selectrow_query($form, $dbh, qq|SELECT name FROM customer WHERE id = ?|,
|
||
|
$form->{"delivery_${vc}_id"});
|
||
|
}
|
||
|
|
||
|
# get shipto
|
||
Auch abrufbar als: Unified diff
ar.id ist nicht vc.id -> Wahrscheinlich sowieso schon toter Code (2007)