projects
/
kivitendo-erp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a0a29e6
)
Variablen nicht doppelt mit my deklarieren. Dazu Whitespace-Kosmetik.
author
Moritz Bunkus
<m.bunkus@linet-services.de>
Fri, 11 Sep 2009 06:47:33 +0000
(08:47 +0200)
committer
Moritz Bunkus
<m.bunkus@linet-services.de>
Fri, 11 Sep 2009 06:49:53 +0000
(08:49 +0200)
SL/Form.pm
patch
|
blob
|
history
diff --git
a/SL/Form.pm
b/SL/Form.pm
index
d5bb9c3
..
e034a20
100644
(file)
--- a/
SL/Form.pm
+++ b/
SL/Form.pm
@@
-2065,11
+2065,11
@@
sub get_duedate {
my ($self, $myconfig, $reference_date) = @_;
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();
$main::lxdebug->leave_sub();