From 1c073cb93c6ed5de6fb81049dc2889336c263405 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 10 Jun 2004 14:20:31 +0000 Subject: first lan step: do not compare translated strings, use format callback --- perl-install/network/netconnect.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 94c9d553d..1ef521daf 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -826,12 +826,12 @@ You can find a driver on http://eciadsl.flashtux.org/"), pre => $lan_detect, name => N("Select the network interface to configure:"), data => sub { - [ { label => N("Net Device"), type => "list", val => \$ntf_name, list => [ (sort keys %eth_intf), N("Manual choice") ], - allow_empty_list => 1, format => sub { $eth_intf{$_[0]} || $_[0] } } ]; + [ { label => N("Net Device"), type => "list", val => \$ntf_name, list => [ (sort keys %eth_intf), N_("Manual choice") ], + allow_empty_list => 1, format => sub { translate($eth_intf{$_[0]} || $_[0]) } } ]; }, post => sub { $ethntf = $intf->{$ntf_name} ||= { DEVICE => $ntf_name }; - if ($ntf_name eq N("Manual choice")) { + if ($ntf_name eq "Manual choice") { modules::interactive::load_category__prompt($in, 'network/main|gigabit|pcmcia|usb|wireless'); return 'lan'; } -- cgit v1.2.1