diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-07 02:04:20 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-07 02:04:20 +0000 |
| commit | f86983cce5d56127117fd655a3416cd87e9ea3b4 (patch) | |
| tree | afd2dcdea9848854ee98961345cec73a93c728c5 | |
| parent | 8d167bd3e7aca61d12d7987632767579fca59823 (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-x | bin/arapprn.pl | 3 |
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/^ //; |