summaryrefslogtreecommitdiff
path: root/bin/am.pl
diff options
context:
space:
mode:
Diffstat (limited to 'bin/am.pl')
-rwxr-xr-xbin/am.pl9
1 files changed, 5 insertions, 4 deletions
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}");