diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-03-03 20:48:35 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-03-03 20:48:35 +0000 |
| commit | e5bd4a254a9fab7c7b569e7454e508ef92c55740 (patch) | |
| tree | f1c5accaa857c8aae11ae6658c49084c8056d89b /perl-install | |
| parent | ca810abf7f91cf337a0110e2a3882c2381e7c31d (diff) | |
| download | drakx-e5bd4a254a9fab7c7b569e7454e508ef92c55740.tar drakx-e5bd4a254a9fab7c7b569e7454e508ef92c55740.tar.gz drakx-e5bd4a254a9fab7c7b569e7454e508ef92c55740.tar.bz2 drakx-e5bd4a254a9fab7c7b569e7454e508ef92c55740.tar.xz drakx-e5bd4a254a9fab7c7b569e7454e508ef92c55740.zip | |
translate mouse names
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 692316bba..e3fb7b588 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -162,7 +162,7 @@ sub selectInstallClass { sub selectMouse { my ($o, $force) = @_; - $force ||= $o->{mouse}{unsafe}; + $force ||= $o->{mouse}{unsafe} || 1; if ($force) { my $prev = $o->{mouse}{type} . '|' . $o->{mouse}{name}; @@ -170,7 +170,7 @@ sub selectMouse { $o->ask_from_({ messages => N("Please choose your type of mouse."), interactive_help_id => 'selectMouse', }, - [ { list => [ mouse::fullnames() ], separator => '|', val => \$prev } ]); + [ { list => [ mouse::fullnames() ], separator => '|', val => \$prev, format => sub { join('|', map { translate($_) } split('\|', $_[0])) } } ]); $o->{mouse} = mouse::fullname2mouse($prev); } |