Revision 435a5be5
Von Philip Reetz vor fast 19 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1253 | 1253 |
##LINET |
| 1254 | 1254 |
my $shipto; |
| 1255 | 1255 |
foreach |
| 1256 |
my $item (qw(name street zipcode city country contact phone fax email)) {
|
|
| 1256 |
my $item (qw(name department_1 department_2 street zipcode city country contact phone fax email)) {
|
|
| 1257 | 1257 |
if ($self->{"shipto$item"}) {
|
| 1258 | 1258 |
$shipto = 1 if ($self->{$item} ne $self->{"shipto$item"});
|
| 1259 | 1259 |
} |
| ... | ... | |
| 1261 | 1261 |
} |
| 1262 | 1262 |
|
| 1263 | 1263 |
if ($shipto) {
|
| 1264 |
my $query = qq|INSERT INTO shipto (trans_id, shiptoname, shiptostreet, |
|
| 1264 |
my $query = qq|INSERT INTO shipto (trans_id, shiptoname, shiptodepartment_1, shiptodepartment_2, shiptostreet,
|
|
| 1265 | 1265 |
shiptozipcode, shiptocity, shiptocountry, shiptocontact, |
| 1266 | 1266 |
shiptophone, shiptofax, shiptoemail) VALUES ($id, |
| 1267 |
'$self->{shiptoname}', '$self->{shiptostreet}',
|
|
| 1267 |
'$self->{shiptoname}', '$self->{shiptodepartment_1}', '$self->{shiptodepartment_2}', '$self->{shiptostreet}',
|
|
| 1268 | 1268 |
'$self->{shiptozipcode}', '$self->{shiptocity}',
|
| 1269 | 1269 |
'$self->{shiptocountry}', '$self->{shiptocontact}',
|
| 1270 | 1270 |
'$self->{shiptophone}', '$self->{shiptofax}',
|
Auch abrufbar als: Unified diff
Bug Nr 190 geloest. Abteilung1 und 2 wurden bei der Lieferadresse nicht beruecksichtigt