diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-12-06 22:08:49 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-12-06 22:08:49 +0000 |
| commit | e5aa2c6737821924b77734ccfee74f1930831234 (patch) | |
| tree | 3880d2f8f07c04e2e83ebcf63a8c7bfd9880be1f /LedgerSMB/Batch.pm | |
| parent | 54f827658f696a0cf3209b19d432a624f1f6b02b (diff) | |
Misc fixes
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1955 4979c152-3d1c-0410-bac9-87ea11338e46
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}; } |