X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2FMisc.pm;h=3cc920f3b76f48fa5b333e6368d050332bd6355f;hp=6f6f2e2e5f3401efba60f2c579de90be8b4cf66a;hb=8afce93f57d2226835ee9225dede24b13e505655;hpb=b278e5d654ee0e1a429fa6177e69c8ab793181bb

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>) {