diff options
Diffstat (limited to 'LedgerSMB/AM.pm')
-rwxr-xr-x | LedgerSMB/AM.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm index dfc16c19..445a2ab1 100755 --- a/LedgerSMB/AM.pm +++ b/LedgerSMB/AM.pm @@ -1690,6 +1690,10 @@ sub closebooks { UPDATE defaults SET value = ? WHERE setting_key = ?|; my $sth = $dbh->prepare($query); + my $sth_closedto = $dbh->prepare(qq| + UPDATE defaults SET value = to_char(?::date, 'YYYY-MM-DD') + WHERE setting_key = ?|); + for (qw(revtrans closedto audittrail)) { if ( $form->{$_} ) { @@ -1698,8 +1702,11 @@ sub closebooks { else { $val = 0; } - $val = undef if ($_ eq 'closedto' and $val == 0); - $sth->execute( $val, $_ ); + if ($_ eq 'closedto'){ + $sth_closedto->execute( $val || undef, $_); + } else { + $sth->execute( $val, $_ ); + } } if ( $form->{removeaudittrail} ) { |