From dc9d8764b7295ada27e0d51646692774b5fe63d3 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Fri, 5 Jun 2009 11:28:48 +0000 Subject: [PATCH] =?utf8?q?Beim=20Auslesen=20von=20Kundendaten=20die=20Verk?= =?utf8?q?=C3=A4ufer-ID=20nur=20dann=20=C3=BCberschreiben,=20wenn=20beim?= =?utf8?q?=20Kunden=20tats=C3=A4chlich=20ein=20Verk=C3=A4ufer=20ausgew?= =?utf8?q?=C3=A4hlt=20ist.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Fix für Bug 1034. --- SL/IS.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/SL/IS.pm b/SL/IS.pm index 6b0f479b8..f1cddcd83 100644 --- a/SL/IS.pm +++ b/SL/IS.pm @@ -1588,6 +1588,9 @@ sub get_customer { WHERE c.id = ?|; push @values, $cid; $ref = selectfirst_hashref_query($form, $dbh, $query, @values); + + delete $ref->{salesman_id} if !$ref->{salesman_id}; + map { $form->{$_} = $ref->{$_} } keys %$ref; $query = -- 2.20.1