summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-21 13:39:18 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-21 13:39:18 +0000
commit046e5756164fcb3dc121c90267cd4ce517173c1a (patch)
tree794d5bdd4154738b731efeff2f68db4ae61660d6 /perl-install/install_steps_interactive.pm
parentedeb25ec8b0ddaa99b6bc799ea38fa5c156a6ced (diff)
downloaddrakx-046e5756164fcb3dc121c90267cd4ce517173c1a.tar
drakx-046e5756164fcb3dc121c90267cd4ce517173c1a.tar.gz
drakx-046e5756164fcb3dc121c90267cd4ce517173c1a.tar.bz2
drakx-046e5756164fcb3dc121c90267cd4ce517173c1a.tar.xz
drakx-046e5756164fcb3dc121c90267cd4ce517173c1a.zip
remove or fix some "Previous"
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm15
1 files changed, 9 insertions, 6 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index dfa11e34c..20b497310 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -159,10 +159,13 @@ sub selectMouse {
$force ||= $o->{mouse}{unsafe};
- my $prev = $o->{mouse}{type} . '|' . $o->{mouse}{name};
- $o->{mouse} = mouse::fullname2mouse(
- $o->ask_from_treelist_('', N("Please choose your type of mouse."),
- '|', [ mouse::fullnames() ], $prev) || return) if $force;
+ if ($force) {
+ my $prev = $o->{mouse}{type} . '|' . $o->{mouse}{name};
+
+ $o->ask_from('', N("Please choose your type of mouse."),
+ [ { list => [ mouse::fullnames() ], separator => '|', val => \$prev } ]);
+ $o->{mouse} = mouse::fullname2mouse($prev);
+ }
if ($force && $o->{mouse}{type} eq 'serial') {
$o->set_help('selectSerialPort');
@@ -170,7 +173,7 @@ sub selectMouse {
$o->ask_from_listf(N("Mouse Port"),
N("Please choose which serial port your mouse is connected to."),
\&mouse::serial_port2text,
- [ mouse::serial_ports() ]) or return;
+ [ mouse::serial_ports() ]) or return &selectMouse;
}
if (arch() =~ /ppc/ && $o->{mouse}{nbuttons} == 1) {
#- set a sane default F11/F12
@@ -1108,7 +1111,7 @@ sub miscellaneous {
my ($o, $_clicked) = @_;
require security::level;
- security::level::level_choose($o, \$o->{security}, \$o->{libsafe}, \$o->{security_user}) or return;
+ security::level::level_choose($o, \$o->{security}, \$o->{libsafe}, \$o->{security_user});
install_steps::miscellaneous($o);
}