diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-06 00:05:23 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-06 00:05:23 +0000 |
| commit | 28e8db753a2adc7b3049fbb3108939b73ae73334 (patch) | |
| tree | d0757ef16621bdd3aec2a5a6d104c50f93fa083a | |
| parent | 879f0966a6b4a8b1cd89e3281812ad27cae3a962 (diff) | |
Fixing bug 1763928: Books closed-to date not multi-format safe
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1514 4979c152-3d1c-0410-bac9-87ea11338e46
| -rw-r--r-- | LedgerSMB/AM.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm index 9b1081eb..bdfc1aa2 100644 --- a/LedgerSMB/AM.pm +++ b/LedgerSMB/AM.pm @@ -2180,6 +2180,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->{$_} ) { @@ -2188,8 +2192,11 @@ sub closebooks { else { $val = 0; } - $val = undef if ($_ == 'closedto' and $val = 0); - $sth->execute( $val, $_ ); + if ($_ eq 'closedto'){ + $sth_closedto->execute( $val || undef, $_); + } else { + $sth->execute( $val, $_ ); + } } ## SC: Disabling audit trail removal |