From 48f8788874b2c6921bc08a506d7761a9f7583037 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 13 Sep 2001 09:06:08 +0000
Subject: fixed Printer name reporting for a specific printer.

---
 perl-install/install_steps_interactive.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 02fa7829c..ccfa76ac0 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -854,8 +854,8 @@ sub summary {
 	    pkgs::packageFlagInstalled(pkgs::packageByName($o->{packages}, 'cups')) and return _("Remote CUPS server");
 	    return _("No printer");
 	}
-	my $entry = $printer->{configured}{$printer->{QUEUE}} || (values %{$printer->{configured}})[0];
-	return "$entry->{'make'} $entry->{'model'}";
+	my $entry = $printer->{configured}{currentqueue} || (values %{$printer->{configured}{queuedata}})[0];
+	return "$entry->{make} $entry->{model}";
     };
 
     $o->ask_from_({
-- 
cgit v1.2.1