From f86983cce5d56127117fd655a3416cd87e9ea3b4 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 7 Nov 2006 02:04:20 +0000
Subject: Fix screen display bug that causes internal server errors

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@491 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/arapprn.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/bin/arapprn.pl b/bin/arapprn.pl
index c8b19726..18fd884f 100755
--- a/bin/arapprn.pl
+++ b/bin/arapprn.pl
@@ -115,7 +115,8 @@ sub print {
   }
 
   $filename .= ($form->{format} eq 'postscript') ? '.ps' : '.pdf';
-  $form->{OUT} = ">${LedgerSMB::Sysconfig::spool}/$filename";
+  $form->{OUT} = ">${LedgerSMB::Sysconfig::spool}/$filename" if 
+  	$form->{media} ne 'screen';
 
   $form->{queued} .= " $form->{formname} $filename";
   $form->{queued} =~ s/^ //;
-- 
cgit v1.2.3