From d257ea9283277cfac10c93b247e252805119720f Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 21 Dec 2007 02:37:23 +0000
Subject: Adding ability to delete vouchers from batch

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1989 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Batch.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'LedgerSMB/Batch.pm')

diff --git a/LedgerSMB/Batch.pm b/LedgerSMB/Batch.pm
index a09031cd..127ee791 100644
--- a/LedgerSMB/Batch.pm
+++ b/LedgerSMB/Batch.pm
@@ -11,6 +11,12 @@ sub create {
     return $ref->{id};
 }
 
+sub delete_voucher {
+    my ($self, $voucher_id) = @_;
+    $self->call_procedure(procname => 'voucher__delete', args => [$voucher_id]);
+    $self->{dbh}->commit;
+}
+
 sub get_search_criteria {
     $self = shift @_;
     @{$self->{batch_classes}} = $self->exec_method(
-- 
cgit v1.2.3