From 2fa5768e4830ff60fb5677dde6d22d61f6137f30 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Fri, 11 Sep 2009 08:47:33 +0200 Subject: [PATCH] Variablen nicht doppelt mit my deklarieren. Dazu Whitespace-Kosmetik. --- SL/Form.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/SL/Form.pm b/SL/Form.pm index d5bb9c3d3..e034a203c 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -2065,11 +2065,11 @@ sub get_duedate { my ($self, $myconfig, $reference_date) = @_; - my $reference_date = $reference_date ? conv_dateq($reference_date) . '::DATE' : 'current_date'; + $reference_date = $reference_date ? conv_dateq($reference_date) . '::DATE' : 'current_date'; - my $dbh = $self->get_standard_dbh($myconfig); - my $query = qq|SELECT ${reference_date} + terms_netto FROM payment_terms WHERE id = ?|; - my ($duedate) = selectrow_query($self, $dbh, $query, $self->{payment_id}); + my $dbh = $self->get_standard_dbh($myconfig); + my $query = qq|SELECT ${reference_date} + terms_netto FROM payment_terms WHERE id = ?|; + my ($duedate) = selectrow_query($self, $dbh, $query, $self->{payment_id}); $main::lxdebug->leave_sub(); -- 2.20.1