summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-09-18 17:41:50 +0000
committerFrancois Pons <fpons@mandriva.com>2001-09-18 17:41:50 +0000
commita7bc782ff40b06c95851b53191d3ae5826249f7c (patch)
tree45b9e345718166b6ab8fd62ca0c1199e8af64b65 /perl-install
parent5e3eb914b5cfe9ce164c37d2cc69a2848332c2c4 (diff)
downloaddrakx-backup-do-not-use-a7bc782ff40b06c95851b53191d3ae5826249f7c.tar
drakx-backup-do-not-use-a7bc782ff40b06c95851b53191d3ae5826249f7c.tar.gz
drakx-backup-do-not-use-a7bc782ff40b06c95851b53191d3ae5826249f7c.tar.bz2
drakx-backup-do-not-use-a7bc782ff40b06c95851b53191d3ae5826249f7c.tar.xz
drakx-backup-do-not-use-a7bc782ff40b06c95851b53191d3ae5826249f7c.zip
now finally really fixed printer label in summary dialog.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index d45875025..34172a058 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -856,7 +856,8 @@ sub summary {
return _("No printer");
}
my $entry;
- foreach ($printer->{configured}{currentqueue}, values %{$printer->{configured}{queuedata}}) {
+ foreach ($printer->{currentqueue},
+ map { $_->{queuedata} } ($printer->{configured}{$printer->{DEFAULT}}, values %{$printer->{configured}})) {
$_ && ($_->{make} || $_->{model}) and return "$_->{make} $_->{model}";
}
return _("Remote CUPS server"); #- fall back in case of something wrong.