X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/210676724bfbb6aa06d4eaa1768d2474baa16357..ce36e8eb8fe64b4ec7134503956e3e99018862f9:/SL/IS.pm diff --git a/SL/IS.pm b/SL/IS.pm index e9bd54d47..21bf15f74 100644 --- a/SL/IS.pm +++ b/SL/IS.pm @@ -2158,7 +2158,7 @@ sub get_customer { $ref = selectfirst_hashref_query($form, $dbh, $query, @values); delete $ref->{salesman_id} if !$ref->{salesman_id}; - delete $ref->{payment_id} if $form->{payment_id}; + delete $ref->{payment_id} if !$ref->{payment_id}; map { $form->{$_} = $ref->{$_} } keys %$ref;