Revision a5f4490f
Von Philip Reetz vor mehr als 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1469 | 1469 |
|
| 1470 | 1470 |
my $shipto; |
| 1471 | 1471 |
my @values; |
| 1472 |
|
|
| 1472 | 1473 |
foreach my $item (qw(name department_1 department_2 street zipcode city country |
| 1473 | 1474 |
contact phone fax email)) {
|
| 1474 | 1475 |
if ($self->{"shipto$item"}) {
|
| ... | ... | |
| 1476 | 1477 |
} |
| 1477 | 1478 |
push(@values, $self->{"shipto${item}"});
|
| 1478 | 1479 |
} |
| 1480 |
|
|
| 1479 | 1481 |
if ($shipto) {
|
| 1480 | 1482 |
if ($self->{shipto_id}) {
|
| 1481 | 1483 |
my $query = qq|UPDATE shipto set |
| ... | ... | |
| 1504 | 1506 |
shiptocontact = ? AND |
| 1505 | 1507 |
shiptophone = ? AND |
| 1506 | 1508 |
shiptofax = ? AND |
| 1507 |
shiptoemail = ?|; |
|
| 1508 |
my $insert_check = selectfirst_hashref_query($self, $dbh, $query, @values); |
|
| 1509 |
shiptoemail = ? AND |
|
| 1510 |
module = ?|; |
|
| 1511 |
my $insert_check = selectfirst_hashref_query($self, $dbh, $query, @values, $module); |
|
| 1509 | 1512 |
if(!$insert_check){
|
| 1510 | 1513 |
$query = |
| 1511 | 1514 |
qq|INSERT INTO shipto (trans_id, shiptoname, shiptodepartment_1, shiptodepartment_2, |
Auch abrufbar als: Unified diff
Bei der Umwandlung eines Auftrags in eine Rechnung wurde die individuelle Lieferadresse nicht
gespeichert