Moved %printer from ledger-smb.conf to Ledger::Sysconfig

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@281 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 5 insertions, 5 deletions

diff --git a/bin/cp.pl b/bin/cp.pl
index be796242..d6ef60b9 100755
--- a/bin/cp.pl
+++ b/bin/cp.pl
@@ -457,8 +457,8 @@ sub payments_footer {
     $media = qq|<select name=media>
           <option value=screen>|.$locale->text('Screen');
 
-    if (%printer) {
-      for (sort keys %printer) { $media .= qq| 
+    if (%{LedgerSMB::Sysconfig::printer}) {
+      for (sort keys %{LedgerSMB::Sysconfig::printer}) { $media .= qq| 
           <option value="$_">$_| }
     }
   
@@ -1064,8 +1064,8 @@ sub payment_footer {
     $media = qq|<select name=media>
           <option value=screen>|.$locale->text('Screen');
 
-    if (%printer) {
-      for (sort keys %printer) { $media .= qq| 
+    if (%{LedgerSMB::Sysconfig::printer}) {
+      for (sort keys %{LedgerSMB::Sysconfig::printer}) { $media .= qq| 
           <option value="$_">$_| }
     }
   
@@ -1266,7 +1266,7 @@ sub print_form {
   $form->{IN} = "$form->{formname}.tex";
 
   if ($form->{media} ne 'screen') {
-    $form->{OUT} = "| $printer{$form->{media}}";
+    $form->{OUT} = "| ${LedgerSMB::Sysconfig::printer}{$form->{media}}";
   }
 
   $form->parse_template(\%myconfig, ${LedgerSMB::Sysconfig::userspath});