From 1208d15943738e80e267609aa88f16ec722aaba9 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 13 Dec 2007 00:13:37 +0000
Subject: More payment fixes

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1976 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/DBObject/Payment.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'LedgerSMB')

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;
-- 
cgit v1.2.3