diff options
| author | Till Kamppeter <tkamppeter@mandriva.com> | 2003-03-01 19:12:48 +0000 |
|---|---|---|
| committer | Till Kamppeter <tkamppeter@mandriva.com> | 2003-03-01 19:12:48 +0000 |
| commit | e87980f67ac80f61700797a2da89f5b9070261df (patch) | |
| tree | 4013d361e73944ff92eaf3eddfcebc3078c9cfa5 /perl-install/install_steps_interactive.pm | |
| parent | 6ca3a29a13422ac03b06c8cdc5fc26d41b3af470 (diff) | |
| download | drakx-backup-do-not-use-e87980f67ac80f61700797a2da89f5b9070261df.tar drakx-backup-do-not-use-e87980f67ac80f61700797a2da89f5b9070261df.tar.gz drakx-backup-do-not-use-e87980f67ac80f61700797a2da89f5b9070261df.tar.bz2 drakx-backup-do-not-use-e87980f67ac80f61700797a2da89f5b9070261df.tar.xz drakx-backup-do-not-use-e87980f67ac80f61700797a2da89f5b9070261df.zip | |
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.
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 7 |
1 files changed, 5 insertions, 2 deletions
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. |