diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-24 02:38:49 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-24 02:38:49 +0000 |
commit | b193f4e3c1c2b4e826ed1004b8c64d5e6e991ba8 (patch) | |
tree | 79152cd1bc3296d7783ab0b060e10c127c02cdd6 /bin/am.pl | |
parent | 1b13895ec6bd39568353c1a4d66d55f733f56734 (diff) |
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
Diffstat (limited to 'bin/am.pl')
-rwxr-xr-x | bin/am.pl | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -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}"); |