X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FMisc.pm;h=de9fb522fbdf698ddf325c23b6dfbac6b02b222a;hb=71cfb409fca5c4f8cfb639a0f022de8c640b7775;hp=5e89abc0c6e08dd031265a0d58c3f595f910d31d;hpb=c3a7e8855edbe4f836543184d5a7543e04255a43;p=freeside.git

diff --git a/FS/FS/Misc.pm b/FS/FS/Misc.pm
index 5e89abc0c..de9fb522f 100644
--- a/FS/FS/Misc.pm
+++ b/FS/FS/Misc.pm
@@ -699,7 +699,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 = '';
 
@@ -757,7 +758,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>) {