diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-02-09 12:54:59 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-02-09 12:54:59 +0000 |
| commit | a5041faaac33ab1ef39c11f07de1ec5a77ee35ce (patch) | |
| tree | c979bf13c0e49a8749c76383e8edc4fb75f25595 /perl-install | |
| parent | cdbb390aaa800c3b90ea4e0ccb3b9d66808d3939 (diff) | |
| download | drakx-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.pm | 10 |
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; |