From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 11 Sep 2009 06:47:33 +0000 (+0200)
Subject: Variablen nicht doppelt mit my deklarieren. Dazu Whitespace-Kosmetik.
X-Git-Tag: release-2.6.1beta1~286
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=2fa5768e4830ff60fb5677dde6d22d61f6137f30;p=kivitendo-erp.git

Variablen nicht doppelt mit my deklarieren. Dazu Whitespace-Kosmetik.
---

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();