diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-04-01 22:35:54 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-04-01 22:35:54 +0000 |
| commit | 93f62be003c9979b16dbf4c989bb34bf9ac5e304 (patch) | |
| tree | 053ba6bb384a901caad972feee9b2595ff4083b0 /bin/arapprn.pl | |
| parent | 007780f7a885664171371e138296efc40311a770 (diff) | |
Fix print command selection in 1.2
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1019 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin/arapprn.pl')
| -rwxr-xr-x | bin/arapprn.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/arapprn.pl b/bin/arapprn.pl index 9b2f025a..2b554980 100755 --- a/bin/arapprn.pl +++ b/bin/arapprn.pl @@ -228,7 +228,7 @@ sub print_check { %queued = split / /, $form->{queued}; - $form->{OUT} = "${LedgerSMB::Sysconfig::printer}{$form->{media}}"; + $form->{OUT} = ${LedgerSMB::Sysconfig::printer}{$form->{media}}; $form->{printmode} = '|-'; if ($form->{printed} !~ /$form->{formname}/) { @@ -446,7 +446,7 @@ sub print_transaction { } if ($form->{media} !~ /(queue|screen)/) { - $form->{OUT} = "${LedgerSMB::Sysconfig::printer}{$form->{media}}"; + $form->{OUT} = ${LedgerSMB::Sysconfig::printer}{$form->{media}}; $form->{printmode} = '|-'; if ($form->{printed} !~ /$form->{formname}/) { |