diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-12-21 02:37:23 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-12-21 02:37:23 +0000 |
| commit | d257ea9283277cfac10c93b247e252805119720f (patch) | |
| tree | ec55763d004ec53e664efc56e4ffa682bb083284 /LedgerSMB | |
| parent | 948648b269291eb95e85fe8c726689b5924738a0 (diff) | |
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
Diffstat (limited to 'LedgerSMB')
| -rw-r--r-- | LedgerSMB/Batch.pm | 6 |
1 files changed, 6 insertions, 0 deletions
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( |