From b193f4e3c1c2b4e826ed1004b8c64d5e6e991ba8 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 24 Oct 2006 02:38:49 +0000
Subject: 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
---
 bin/am.pl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'bin/am.pl')

diff --git a/bin/am.pl b/bin/am.pl
index f51e029b..68a2827c 100755
--- a/bin/am.pl
+++ b/bin/am.pl
@@ -2064,9 +2064,9 @@ sub config {
   }
   $selectstylesheet .= "<option>\n";
   
-  if (%printer && ${LedgerSMB::Sysconfig::latex}) {
+  if (%{LedgerSMB::Sysconfig::printer} && ${LedgerSMB::Sysconfig::latex}) {
     $selectprinter = "<option>\n";
-    foreach $item (sort keys %printer) {
+    foreach $item (sort keys %{LedgerSMB::Sysconfig::printer}) {
       if ($myconfig{printer} eq $item) {
 	$selectprinter .= qq|<option value="$item" selected>$item\n|;
       } else {
@@ -2972,7 +2972,7 @@ sub process_transactions {
   for (keys %$form) { $pt->{$_} = $form->{$_} }
 
   my $defaultprinter;
-  while (my ($key, $value) = each %printer) {
+  while (my ($key, $value) = each %{LedgerSMB::Sysconfig::printer}) {
     if ($value =~ /lpr/) {
       $defaultprinter = $key;
       last;
@@ -3197,7 +3197,8 @@ sub print_recurring {
     @f = split /:/, $pt->{recurringprint};
     for ($j = 0; $j <= $#f; $j += 3) {
       $media = $f[$j+2];
-      $media ||= $myconfig->{printer} if $printer{$myconfig->{printer}};
+      $media ||= $myconfig->{printer} 
+		if ${LedgerSMB::Sysconfig::printer}{$myconfig->{printer}};
       $media ||= $defaultprinter;
       
       $form->info("\n".$locale->text('Printing')." ".$locale->text($f{$f[$j]})." $form->{reference}");
-- 
cgit v1.2.3