From 8afce93f57d2226835ee9225dede24b13e505655 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 21 Sep 2011 01:50:18 +0000
Subject: add option to save temporary invoice typesetting files to help
 diagnose kc online's weird coupon problem

---
 FS/FS/Misc.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'FS')

diff --git a/FS/FS/Misc.pm b/FS/FS/Misc.pm
index 6f6f2e2e5..3cc920f3b 100644
--- a/FS/FS/Misc.pm
+++ b/FS/FS/Misc.pm
@@ -698,7 +698,8 @@ sub generate_ps {
   open(POSTSCRIPT, "<$file.ps")
     or die "can't open $file.ps: $! (error in LaTeX template?)\n";
 
-  unlink("$file.dvi", "$file.log", "$file.aux", "$file.ps", "$file.tex");
+  unlink("$file.dvi", "$file.log", "$file.aux", "$file.ps", "$file.tex")
+    unless $FS::CurrentUser::CurrentUser->option('save_tmp_typesetting');
 
   my $ps = '';
 
@@ -756,7 +757,8 @@ sub generate_pdf {
   open(PDF, "<$file.pdf")
     or die "can't open $file.pdf: $! (error in LaTeX template?)\n";
 
-  unlink("$file.dvi", "$file.log", "$file.aux", "$file.pdf", "$file.tex");
+  unlink("$file.dvi", "$file.log", "$file.aux", "$file.pdf", "$file.tex")
+    unless $FS::CurrentUser::CurrentUser->option('save_tmp_typesetting');
 
   my $pdf = '';
   while (<PDF>) {
-- 
cgit v1.2.1