summaryrefslogtreecommitdiff
path: root/LedgerSMB/DBObject
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB/DBObject')
-rw-r--r--LedgerSMB/DBObject/Payment.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/LedgerSMB/DBObject/Payment.pm b/LedgerSMB/DBObject/Payment.pm
index abd45de3..8bf22ee9 100644
--- a/LedgerSMB/DBObject/Payment.pm
+++ b/LedgerSMB/DBObject/Payment.pm
@@ -416,7 +416,7 @@ sub post_bulk {
if ($queue_payments){
my ($job_ref) = $self->exec_method(
funcname => 'job__create'
- )
+ );
$self->{job_id} = $job_ref->{job__create};
$self->exec_method(
funcname => 'payment_bulk_queue_entry'
@@ -429,4 +429,9 @@ sub post_bulk {
return $self->{dbh}->commit;
}
+sub check_job {
+ my ($self) = @_;
+ ($self->{job}) = $self->exec_method(funcname => 'job__status');
+}
+
1;