[freeside-commits] freeside/FS/FS Misc.pm,1.46.2.1,1.46.2.2

[Ivan,,,]

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

Modified Files:
      Tag: FREESIDE_2_3_BRANCH
	Misc.pm 
Log Message:
add option to save temporary invoice typesetting files to help diagnose kc online's weird coupon problem

Index: Misc.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Misc.pm,v
retrieving revision 1.46.2.1
retrieving revision 1.46.2.2
diff -u -w -d -r1.46.2.1 -r1.46.2.2
--- Misc.pm	5 Aug 2011 07:25:42 -0000	1.46.2.1
+++ Misc.pm	21 Sep 2011 01:50:17 -0000	1.46.2.2
@@ -698,7 +698,8 @@
   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 @@
   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>) {