diff options
Diffstat (limited to 'LedgerSMB/CP.pm')
-rwxr-xr-x | LedgerSMB/CP.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/LedgerSMB/CP.pm b/LedgerSMB/CP.pm index bfd18585..b5aa6258 100755 --- a/LedgerSMB/CP.pm +++ b/LedgerSMB/CP.pm @@ -307,6 +307,7 @@ sub post_payment { my ($self, $myconfig, $form) = @_; + # connect to database, turn AutoCommit off my $dbh = $form->{dbh}; @@ -422,7 +423,7 @@ sub post_payment { ?)|; $sth = $dbh->prepare($query); $sth->execute($form->{"id_$i"}, $id, - $form->{date_paid}, $amount * $ml) + $form->{datepaid}, $amount * $ml) || $form->dberror($query, __file__, __line__); # add payment |