summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-07 02:04:20 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-07 02:04:20 +0000
commitf86983cce5d56127117fd655a3416cd87e9ea3b4 (patch)
treeafd2dcdea9848854ee98961345cec73a93c728c5
parent8d167bd3e7aca61d12d7987632767579fca59823 (diff)
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
-rwxr-xr-xbin/arapprn.pl3
1 files changed, 2 insertions, 1 deletions
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/^ //;