From 0bdb687a64bc8340f9835bc0659be93166cbeb09 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Thu, 13 May 2010 05:43:22 +0000
Subject: cope with poor tax liability report performance by allowing queuing
 of reports RT#8274

---
 FS/bin/freeside-queued | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'FS/bin')

diff --git a/FS/bin/freeside-queued b/FS/bin/freeside-queued
index ffd017a41..c9b0edb10 100644
--- a/FS/bin/freeside-queued
+++ b/FS/bin/freeside-queued
@@ -208,10 +208,14 @@ while (1) {
       warn 'running "&'. $ljob->job. '('. join(', ', @args). ")\n" if $DEBUG;
       eval $eval; #throw away return value?  suppose so
       if ( $@ ) {
-        warn "job $eval failed";
         my %hash = $ljob->hash;
-        $hash{'status'} = 'failed';
         $hash{'statustext'} = $@;
+        if ( $hash{'statustext'} =~ /\/misc\/queued_report/ ) { #use return?
+          $hash{'status'} = 'done'; 
+        } else {
+          $hash{'status'} = 'failed';
+          warn "job $eval failed";
+        }
         my $fjob = new FS::queue( \%hash );
         my $error = $fjob->replace($ljob);
         die $error if $error;
-- 
cgit v1.2.1