diff options
author | Mark Wells <mark@freeside.biz> | 2014-06-03 16:59:41 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2014-06-03 16:59:41 -0700 |
commit | c2f7d8ba623194ad1fae37b231b2e29b33d05674 (patch) | |
tree | eee828a3caf93b7b21d8c8d256c58c9c04bd358a /FS/FS/Misc.pm | |
parent | b86687a90410fb7147c172b0a2f8581fb1b9e64e (diff) |
changes to support new invoice template features, #28080
Diffstat (limited to 'FS/FS/Misc.pm')
-rw-r--r-- | FS/FS/Misc.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/FS/FS/Misc.pm b/FS/FS/Misc.pm index 93445abde..380f8959d 100644 --- a/FS/FS/Misc.pm +++ b/FS/FS/Misc.pm @@ -718,7 +718,9 @@ sub generate_ps { _pslatex($file); - system('dvips', '-q', '-t', 'letter', "$file.dvi", '-o', "$file.ps" ) == 0 + my $papersize = $conf->config('papersize') || 'letter'; + + system('dvips', '-q', '-t', $papersize, "$file.dvi", '-o', "$file.ps" ) == 0 or die "dvips failed"; open(POSTSCRIPT, "<$file.ps") @@ -773,8 +775,10 @@ sub generate_pdf { my $sfile = shell_quote $file; #system('dvipdf', "$file.dvi", "$file.pdf" ); + my $papersize = $conf->config('papersize') || 'letter'; + system( - "dvips -q -t letter -f $sfile.dvi ". + "dvips -q -f $sfile.dvi -t $papersize ". "| gs -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sOutputFile=$sfile.pdf ". " -c save pop -" ) == 0 |