diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps.pm | 4 | ||||
| -rw-r--r-- | perl-install/printer.pm | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 7e0d3f3f4..1817466d3 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -553,8 +553,8 @@ sub configurePrinter { eval { add2hash($o->{printer}, printer::getinfo($o->{prefix})) }; #- get existing configuration. $use_cups and printer::poll_ppd_base(); $use_lpr and printer::read_printer_db(); - foreach (keys %{$o->{printer}{configured} || {}}) { - log::l("configuring printer queue $_->{queue} for $_->{mode}"); + foreach (values %{$o->{printer}{configured} || {}}) { + log::l("configuring printer queue $_->{QUEUE} for $_->{mode}"); printer::copy_printer_params($_, $o->{printer}); #- setup all configured queues, which is not the case interactively where #- only the working queue is setup on configuration. diff --git a/perl-install/printer.pm b/perl-install/printer.pm index bb2b15252..2eb683eb2 100644 --- a/perl-install/printer.pm +++ b/perl-install/printer.pm @@ -598,7 +598,7 @@ sub configure_queue($) { if ($_->{TYPE} eq "LOCAL") { print PRINTCAP "\t:lp=$_->{DEVICE}:\\\n"; - } elsif ($_->{TYPE} eq "REMOTE") { + } elsif ($_->{TYPE} eq "LPD") { print PRINTCAP "\t:rm=$_->{REMOTEHOST}:\\\n"; print PRINTCAP "\t:rp=$_->{REMOTEQUEUE}:\\\n"; } else { |