From a5f4490ff9356e2453824fd8516c233aa6024b2e Mon Sep 17 00:00:00 2001
From: Philip Reetz
Date: Thu, 28 Jun 2007 08:24:12 +0000
Subject: [PATCH] Bei der Umwandlung eines Auftrags in eine Rechnung wurde die
individuelle Lieferadresse nicht gespeichert
---
SL/Form.pm | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/SL/Form.pm b/SL/Form.pm
index cc65716b4..e5203f737 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1469,6 +1469,7 @@ sub add_shipto {
my $shipto;
my @values;
+
foreach my $item (qw(name department_1 department_2 street zipcode city country
contact phone fax email)) {
if ($self->{"shipto$item"}) {
@@ -1476,6 +1477,7 @@ sub add_shipto {
}
push(@values, $self->{"shipto${item}"});
}
+
if ($shipto) {
if ($self->{shipto_id}) {
my $query = qq|UPDATE shipto set
@@ -1504,8 +1506,9 @@ sub add_shipto {
shiptocontact = ? AND
shiptophone = ? AND
shiptofax = ? AND
- shiptoemail = ?|;
- my $insert_check = selectfirst_hashref_query($self, $dbh, $query, @values);
+ shiptoemail = ? AND
+ module = ?|;
+ my $insert_check = selectfirst_hashref_query($self, $dbh, $query, @values, $module);
if(!$insert_check){
$query =
qq|INSERT INTO shipto (trans_id, shiptoname, shiptodepartment_1, shiptodepartment_2,
--
2.20.1