More payment fixes

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1976 4979c152-3d1c-0410-bac9-87ea11338e46

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;