diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-03-09 21:06:54 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-03-09 21:06:54 +0000 |
| commit | 8552a2041f6475d300e47acd3bd3e1254ef63b49 (patch) | |
| tree | 7bf155ae9b9df3679a30e27982a9d44f24d97f1a /perl-install | |
| parent | 6367b9f88ef39b255e3d18a22546a483a6895afb (diff) | |
| download | drakx-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.pm | 18 |
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}"); |