From d699d5d945622b1cb7635bc528d9de95bdb81fb7 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Mon, 18 Jul 2016 10:20:40 +0200 Subject: [PATCH] Kundenstammdaten: Lieferadresse speichern, wenn beliebiges Feld gesetzt MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Vorher wurde nur gespeichert, wenn der Name gesetzt war. Das ist allerdings inkonsistent mit dem Verhalten von vor der Umstellung der Maske auf das Controller-Modell. Weiterhin gibt es bei der Lieferadressenbehandlung beim Drucken auch keine Sonderbehandlung mehr, die vom Lieferadressen-Namen abhängt. Daher sollte das Speichern ebenfalls nicht davon abhängen. --- SL/Controller/CustomerVendor.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/SL/Controller/CustomerVendor.pm b/SL/Controller/CustomerVendor.pm index b5c2151fb..fdccdc9d7 100644 --- a/SL/Controller/CustomerVendor.pm +++ b/SL/Controller/CustomerVendor.pm @@ -3,6 +3,8 @@ package SL::Controller::CustomerVendor; use strict; use parent qw(SL::Controller::Base); +use List::MoreUtils qw(any); + use SL::JSON; use SL::DBUtils; use SL::Helper::Flash; @@ -197,7 +199,7 @@ sub _save { } $self->{shipto}->trans_id($self->{cv}->id); - if( $self->{shipto}->shiptoname ne '' ) { + if(any { $self->{shipto}->$_ ne '' } qw(shiptoname shiptodepartment_1 shiptodepartment_2 shiptostreet shiptozipcode shiptocity shiptocountry shiptogln shiptocontact shiptophone shiptofax shiptoemail)) { $self->{shipto}->save(cascade => 1); } -- 2.20.1