summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-02-09 12:54:59 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-02-09 12:54:59 +0000
commita5041faaac33ab1ef39c11f07de1ec5a77ee35ce (patch)
treec979bf13c0e49a8749c76383e8edc4fb75f25595 /perl-install
parentcdbb390aaa800c3b90ea4e0ccb3b9d66808d3939 (diff)
downloaddrakx-a5041faaac33ab1ef39c11f07de1ec5a77ee35ce.tar
drakx-a5041faaac33ab1ef39c11f07de1ec5a77ee35ce.tar.gz
drakx-a5041faaac33ab1ef39c11f07de1ec5a77ee35ce.tar.bz2
drakx-a5041faaac33ab1ef39c11f07de1ec5a77ee35ce.tar.xz
drakx-a5041faaac33ab1ef39c11f07de1ec5a77ee35ce.zip
Remove "Cancel" button from the supplementary media selection window
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm10
1 files changed, 8 insertions, 2 deletions
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;