From a5041faaac33ab1ef39c11f07de1ec5a77ee35ce Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 9 Feb 2005 12:54:59 +0000
Subject: Remove "Cancel" button from the supplementary media selection window

---
 perl-install/install_any.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 1715f64fa..c85de8bcf 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -381,8 +381,14 @@ sub ask_if_suppl_media {
 
 Do you have a supplementary installation media to configure?",
 	    join ", ", uniq(map { $_->{descr} } values %{$o->{packages}{mediums}})));
-    my $suppl = $o->ask_from_list_(
-	'', $msg, [ N_("None"), N_("CD-ROM"), N_("Network (http)"), N_("Network (ftp)") ], 'None'
+    $o->ask_from(
+	'', $msg,
+	[ {
+	    val => \my $suppl,
+	    list => [ N_("None"), N_("CD-ROM"), N_("Network (http)"), N_("Network (ftp)") ],
+	    type => 'list',
+	    format => \&translate,
+	} ],
     );
     $suppl_already_asked = 1;
     return $suppl;
-- 
cgit v1.2.1