diff options
Diffstat (limited to 'LedgerSMB/Batch.pm')
-rw-r--r-- | LedgerSMB/Batch.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/LedgerSMB/Batch.pm b/LedgerSMB/Batch.pm index 19cb656e..5c948f79 100644 --- a/LedgerSMB/Batch.pm +++ b/LedgerSMB/Batch.pm @@ -8,6 +8,7 @@ sub create { my ($ref) = $self->exec_method(funcname => 'batch_create'); print STDERR "$ref, $ref->{batch_create}, " . join (':', keys %$ref); $self->{id} = $ref->{batch_create}; + $self->{dbh}->commit; return $ref->{id}; } |