diff options
Diffstat (limited to 'LedgerSMB/Batch.pm')
-rw-r--r-- | LedgerSMB/Batch.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/LedgerSMB/Batch.pm b/LedgerSMB/Batch.pm index 8c4e397b..f18200c8 100644 --- a/LedgerSMB/Batch.pm +++ b/LedgerSMB/Batch.pm @@ -1,8 +1,17 @@ package LedgerSMB::Batch; +use LedgerSMB::Setting; use base qw(LedgerSMB::DBObject); +sub get_new_info { + $self = shift @_; + my $cc_object = LedgerSMB::Setting->new({base => $self}); + $cc_object->{key} = 'batch_cc'; + $self->{batch_number} = $cc_object->increment; + $self->{dbh}->commit; +} + sub create { $self = shift @_; my ($ref) = $self->exec_method(funcname => 'batch_create'); |