Revision 2fa5768e
Von Moritz Bunkus vor etwa 15 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 2065 | 2065 |
|
| 2066 | 2066 |
my ($self, $myconfig, $reference_date) = @_; |
| 2067 | 2067 |
|
| 2068 |
my $reference_date = $reference_date ? conv_dateq($reference_date) . '::DATE' : 'current_date';
|
|
| 2068 |
$reference_date = $reference_date ? conv_dateq($reference_date) . '::DATE' : 'current_date'; |
|
| 2069 | 2069 |
|
| 2070 |
my $dbh = $self->get_standard_dbh($myconfig);
|
|
| 2071 |
my $query = qq|SELECT ${reference_date} + terms_netto FROM payment_terms WHERE id = ?|;
|
|
| 2072 |
my ($duedate) = selectrow_query($self, $dbh, $query, $self->{payment_id});
|
|
| 2070 |
my $dbh = $self->get_standard_dbh($myconfig); |
|
| 2071 |
my $query = qq|SELECT ${reference_date} + terms_netto FROM payment_terms WHERE id = ?|;
|
|
| 2072 |
my ($duedate) = selectrow_query($self, $dbh, $query, $self->{payment_id});
|
|
| 2073 | 2073 |
|
| 2074 | 2074 |
$main::lxdebug->leave_sub(); |
| 2075 | 2075 |
|
Auch abrufbar als: Unified diff
Variablen nicht doppelt mit my deklarieren. Dazu Whitespace-Kosmetik.