diff options
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'; |