diff options
Diffstat (limited to 'LedgerSMB/Batch.pm')
| -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( |