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 | |
| 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')
| -rwxr-xr-x | bin/arapprn.pl | 4 | ||||
| -rwxr-xr-x | bin/bp.pl | 2 | ||||
| -rwxr-xr-x | bin/cp.pl | 2 | ||||
| -rwxr-xr-x | bin/io.pl | 2 | ||||
| -rwxr-xr-x | bin/jc.pl | 2 | ||||
| -rwxr-xr-x | bin/pos.pl | 2 | ||||
| -rwxr-xr-x | bin/rp.pl | 2 |
7 files changed, 8 insertions, 8 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}/) { @@ -271,7 +271,7 @@ sub print { for $i (1 .. $form->{rowcount}) { if ($form->{"checked_$i"}) { - $form->{OUT} = "${LedgerSMB::Sysconfig::printer}{$form->{media}}"; + $form->{OUT} = ${LedgerSMB::Sysconfig::printer}{$form->{media}}; $form->{printmode} = '|-'; $form->info($locale->text('Printing')." ..."); @@ -1287,7 +1287,7 @@ sub print_form { $form->{IN} = "$form->{formname}.tex"; if ($form->{media} ne 'screen') { - $form->{OUT} = "${LedgerSMB::Sysconfig::printer}{$form->{media}}"; + $form->{OUT} = ${LedgerSMB::Sysconfig::printer}{$form->{media}}; $form->{printmode} = '|-'; } @@ -1430,7 +1430,7 @@ sub print_form { $form->{pre} = "<body bgcolor=#ffffff>\n<pre>" if $form->{format} eq 'txt'; if ($form->{media} !~ /(screen|queue|email)/) { - $form->{OUT} = "${LedgerSMB::SysConfig::printer}{$form->{media}}"; + $form->{OUT} = ${LedgerSMB::Sysconfig::printer}{$form->{media}}; $form->{printmode} = '|-'; $form->{OUT} =~ s/<%(fax)%>/<%$form->{vc}$1%>/; $form->{OUT} =~ s/<%(.*?)%>/$form->{$1}/g; @@ -1859,7 +1859,7 @@ sub print_timecard { } if ($form->{media} !~ /(screen|queue)/) { - $form->{OUT} = "${LedgerSMB::Sysconfig::printer}{$form->{media}}"; + $form->{OUT} = ${LedgerSMB::Sysconfig::printer}{$form->{media}}; $form->{printmode} = '|-'; if ($form->{printed} !~ /$form->{formname}/) { @@ -865,7 +865,7 @@ sub print_form { } if ($form->{media} ne 'screen') { - $form->{OUT} = "${LedgerSMB::Sysconfig::printer}{$form->{media}}"; + $form->{OUT} = ${LedgerSMB::Sysconfig::printer}{$form->{media}}; $form->{printmode} = '|-'; } @@ -1927,7 +1927,7 @@ sub print { if ($form->{media} !~ /(screen|email)/) { - $form->{OUT} = "${LedgerSMB::Sysconfig::printer}{$form->{media}}"; + $form->{OUT} = ${LedgerSMB::Sysconfig::printer}{$form->{media}}; $form->{printmode} = '|-'; $form->{"$form->{ct}_id"} = ""; $SIG{INT} = 'IGNORE'; |