From: G. Richardson Date: Thu, 19 May 2011 09:20:17 +0000 (+0200) Subject: Merge branch 'master' of git@lx-office.linet-services.de:lx-office-erp X-Git-Tag: release-2.6.3~25^2~15^2~7 X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/e7c0b7735ba1144f8b5df864ff8ad537d5cdf87c?hp=d421a6b621688f81e68a55cc424e4c26af34ac3d Merge branch 'master' of git@lx-office.linet-services.de:lx-office-erp --- diff --git a/bin/mozilla/vk.pl b/bin/mozilla/vk.pl index 5dba978d7..652a0cd24 100644 --- a/bin/mozilla/vk.pl +++ b/bin/mozilla/vk.pl @@ -90,8 +90,8 @@ sub invoice_transactions { if ( $form->{customer} =~ /--/ ) { # Felddaten kommen aus Dropdownbox ($form->{customername}, $form->{customer_id}) = split(/--/, $form->{customer}); - } else { - # Felddaten kommen aus Freitextfeld + } elsif ($form->{customer}) { + # es wurde ein Wert im Freitextfeld übergeben, auf Eindeutigkeit überprüfen # check_name wird mit no_select => 1 ausgeführt, ist die Abfrage nicht eindeutig kommt ein Fehler # und die Abfrage muß erneut ausgeführt werden @@ -100,10 +100,11 @@ sub invoice_transactions { # Nichts führt, daher diese Zwischenlösung &check_name('customer', no_select => 1); - + # $form->{customer_id} wurde schon von check_name gesetzt $form->{customername} = $form->{customer}; }; + # ist $form->{customer} leer passiert hier nichts weiter # decimalplaces überprüfen oder auf Default 2 setzen $form->{decimalplaces} = 2 unless $form->{decimalplaces} > 0 && $form->{decimalplaces} < 6;