summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-03-09 21:06:54 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-03-09 21:06:54 +0000
commit8552a2041f6475d300e47acd3bd3e1254ef63b49 (patch)
tree7bf155ae9b9df3679a30e27982a9d44f24d97f1a /perl-install
parent6367b9f88ef39b255e3d18a22546a483a6895afb (diff)
downloaddrakx-8552a2041f6475d300e47acd3bd3e1254ef63b49.tar
drakx-8552a2041f6475d300e47acd3bd3e1254ef63b49.tar.gz
drakx-8552a2041f6475d300e47acd3bd3e1254ef63b49.tar.bz2
drakx-8552a2041f6475d300e47acd3bd3e1254ef63b49.tar.xz
drakx-8552a2041f6475d300e47acd3bd3e1254ef63b49.zip
no "Previous" button when choosing install or upgrade
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm18
1 files changed, 10 insertions, 8 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e9e7a2578..275df04e2 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -141,14 +141,16 @@ sub selectInstallClass {
$_->{release} .= " ($_->{part}{device})" foreach @l;
}
- my $p = $o->ask_from_listf_raw({ title => N("Install/Upgrade"),
- messages => N("Is this an install or an upgrade?"),
- interactive_help_id => 'selectInstallClass',
- },
- sub {
- ref($_[0]) ? N("Upgrade %s", $_[0]{release}) :
- translate($_[0]);
- }, [ @l, N_("Install") ]);
+ my $p;
+ $o->ask_from_({ title => N("Install/Upgrade"),
+ messages => N("Is this an install or an upgrade?"),
+ interactive_help_id => 'selectInstallClass',
+ },
+ [ { val => \$p,
+ list => [ @l, N_("Install") ],
+ type => 'list',
+ format => sub { ref($_[0]) ? N("Upgrade %s", $_[0]{release}) : translate($_[0]) }
+ } ]);
if (ref $p) {
my $part = $p->{part};
log::l("choosing to upgrade partition $part->{device}");