From 93f62be003c9979b16dbf4c989bb34bf9ac5e304 Mon Sep 17 00:00:00 2001 From: tetragon Date: Sun, 1 Apr 2007 22:35:54 +0000 Subject: 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 --- bin/arapprn.pl | 4 ++-- bin/bp.pl | 2 +- bin/cp.pl | 2 +- bin/io.pl | 2 +- bin/jc.pl | 2 +- bin/pos.pl | 2 +- bin/rp.pl | 2 +- 7 files changed, 8 insertions(+), 8 deletions(-) (limited to 'bin') 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}/) { diff --git a/bin/bp.pl b/bin/bp.pl index 80fe951a..7f9be0ea 100755 --- a/bin/bp.pl +++ b/bin/bp.pl @@ -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')." ..."); diff --git a/bin/cp.pl b/bin/cp.pl index 7868fdee..dafc841b 100755 --- a/bin/cp.pl +++ b/bin/cp.pl @@ -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} = '|-'; } diff --git a/bin/io.pl b/bin/io.pl index 6e0e21d2..8dc422fc 100755 --- a/bin/io.pl +++ b/bin/io.pl @@ -1430,7 +1430,7 @@ sub print_form { $form->{pre} = "\n

" 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;
diff --git a/bin/jc.pl b/bin/jc.pl
index 5066dc41..a6d04569 100755
--- a/bin/jc.pl
+++ b/bin/jc.pl
@@ -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}/) {
diff --git a/bin/pos.pl b/bin/pos.pl
index f6419458..7dc98d0a 100755
--- a/bin/pos.pl
+++ b/bin/pos.pl
@@ -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} = '|-';
   }
 
diff --git a/bin/rp.pl b/bin/rp.pl
index 0d5581d8..7eeee0fe 100755
--- a/bin/rp.pl
+++ b/bin/rp.pl
@@ -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';
-- 
cgit v1.2.3