More batch enhancements

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

1 files changed, 12 insertions, 0 deletions

diff --git a/LedgerSMB/Batch.pm b/LedgerSMB/Batch.pm
index 28be86f7..67bc0ad9 100644
--- a/LedgerSMB/Batch.pm
+++ b/LedgerSMB/Batch.pm
@@ -28,4 +28,16 @@ sub get_search_results {
     return @{$self->{search_results}};
 }
 
+sub post {
+    my ($self) = @_;
+    ($self->{post_return_ref}) = $self->exec_method(funcname => 'batch_post');
+    return $self->{post_return_ref};
+}
+
+sub delete {
+    my ($self) = @_;
+    ($self->{delete_ref}) = $self->exec_method(funcname => 'batch_delete');
+    return $self->{delete_ref};
+}
+
 1;