summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-03-03 20:48:35 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-03-03 20:48:35 +0000
commite5bd4a254a9fab7c7b569e7454e508ef92c55740 (patch)
treef1c5accaa857c8aae11ae6658c49084c8056d89b /perl-install
parentca810abf7f91cf337a0110e2a3882c2381e7c31d (diff)
downloaddrakx-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.pm4
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);
}