From e87980f67ac80f61700797a2da89f5b9070261df Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Sat, 1 Mar 2003 19:12:48 +0000 Subject: The generation of the "Summary" button for printer configuration created a blank entry in the $o->{printer}{configures} hash which lead to a blank menu entry in the main menu of printerdrake. This is fixed now. --- perl-install/install_steps_interactive.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (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 b644fcb1a..692316bba 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -919,9 +919,12 @@ sub summary { require pkgs; my $p = pkgs::packageByName($o->{packages}, 'cups'); $p && $p->flag_installed ? N("Remote CUPS server") : N("No printer"); + } elsif (defined($o->{printer}{configured}{$o->{printer}{DEFAULT}}) && + (my $p = find { $_ && ($_->{make} || $_->{model}) } + $o->{printer}{configured}{$o->{printer}{DEFAULT}}{queuedata})) { + "$p->{make} $p->{model}"; } elsif (my $p = find { $_ && ($_->{make} || $_->{model}) } - $o->{printer}{currentqueue}, - map { $_->{queuedata} } ($o->{printer}{configured}{$o->{printer}{DEFAULT}}, values %{$o->{printer}{configured}})) { + map { $_->{queuedata} } (values %{$o->{printer}{configured}})) { "$p->{make} $p->{model}"; } else { N("Remote CUPS server"); #- fall back in case of something wrong. -- cgit v1.2.1