From e5bd4a254a9fab7c7b569e7454e508ef92c55740 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 3 Mar 2003 20:48:35 +0000
Subject: translate mouse names

---
 perl-install/install_steps_interactive.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

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);
     }
 
-- 
cgit v1.2.1