[freeside-commits] freeside/FS/bin freeside-queued, 1.44.2.1, 1.44.2.2

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/FS/bin
In directory wavetail.420.am:/tmp/cvs-serv20498/FS/bin

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	freeside-queued 
Log Message:
cope with poor tax liability report performance by allowing queuing of reports RT#8274

Index: freeside-queued
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/bin/freeside-queued,v
retrieving revision 1.44.2.1
retrieving revision 1.44.2.2
diff -u -w -d -r1.44.2.1 -r1.44.2.2
--- freeside-queued	29 Oct 2009 22:56:30 -0000	1.44.2.1
+++ freeside-queued	13 May 2010 05:43:57 -0000	1.44.2.2
@@ -207,10 +207,14 @@
       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;