Some voucher fixes

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1795 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 7 insertions, 0 deletions

diff --git a/LedgerSMB/Batch.pm b/LedgerSMB/Batch.pm
index 7c7bcc53..1e6b320e 100644
--- a/LedgerSMB/Batch.pm
+++ b/LedgerSMB/Batch.pm
@@ -3,4 +3,11 @@
 package LedgerSMB::Batch;
 use base qw(LedgerSMB::DBObject);
 
+sub create {
+    $self = shift @_;
+    my ($ref) = $self->exec_method(funcname => 'batch_create');
+    $self->{id} = $ref->{id}
+    return $ref->{id};
+}
+
 1;