From a7bc782ff40b06c95851b53191d3ae5826249f7c Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 18 Sep 2001 17:41:50 +0000 Subject: now finally really fixed printer label in summary dialog. --- perl-install/install_steps_interactive.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/install_steps_interactive.pm') 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. -- cgit v1.2.1