freeside/FS/FS cust_bill.pm,1.41.2.54,1.41.2.55

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv32684

Modified Files:
      Tag: FREESIDE_1_4_BRANCH
	cust_bill.pm 
Log Message:
fix latex printing when datasrc contains a ;

Index: cust_bill.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_bill.pm,v
retrieving revision 1.41.2.54
retrieving revision 1.41.2.55
diff -u -d -r1.41.2.54 -r1.41.2.55
--- cust_bill.pm	23 Jun 2004 02:13:19 -0000	1.41.2.54
+++ cust_bill.pm	25 Jun 2004 10:07:22 -0000	1.41.2.55
@@ -14,6 +14,7 @@
 use Mail::Header;
 use Text::Template;
 use File::Temp 0.14;
+use String::ShellQuote;
 use FS::UID qw( datasrc );
 use FS::Record qw( qsearch qsearchs );
 use FS::cust_main;
@@ -1592,9 +1593,10 @@
     or die "pslatex $file.tex failed: $!";
 
   #system('dvipdf', "$file.dvi", "$file.pdf" );
+  my $sfile = shell_quote $file;
   system(
-    "dvips -q -t letter -f $file.dvi ".
-    "| gs -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sOutputFile=$file.pdf ".
+    "dvips -q -t letter -f $sfile.dvi ".
+    "| gs -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sOutputFile=$sfile.pdf ".
     "     -c save pop -"
   ) == 0
     or die "dvips | gs failed: $!";