summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps.pm4
-rw-r--r--perl-install/printer.pm2
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 {