e-smith-base%2Bldap/sme7/e-smith-base%2Bldap-5.0.0-adapter-translation-fixes.patch

diff -up e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm.adapter-translation-fixes e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm
--- e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm.adapter-translation-fixes       2009-11-06 13:12:01.000000000 +0100
+++ e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm 2009-11-06 13:14:27.000000000 +0100
@@ -102,21 +102,21 @@ sub ethernetSelect($$)
     push( @args,
           ++$item . ".",
           sprintf(gettext("Manually select driver for %s ethernet adapter"),
-                  $ifName),
+                  gettext($ifName)),
         );
 
 
     my ($rc, $choice) = $console->menu_page
         (
          title => sprintf(gettext("Select %s network ethernet driver"),
-                          $ifName),
+                          gettext($ifName)),
         default => $default,
          text  =>
          sprintf(gettext("You now need to select the proper driver for your " .
              "%s network ethernet adapter. The server can attempt to do " .
              "this automatically, or you can do it manually - either by " .
              "specifying the model of your ethernet adapter or by " .
-             "directly choosing a driver.\n"), $ifName),
+             "directly choosing a driver.\n"), gettext($ifName)),
          argsref => \@args,
         );
 
@@ -164,7 +164,7 @@ sub ethernetManual($)
 
     my ($rc, $choice) = $console->menu_page
         (
-         title   => sprintf(gettext("Select %s adapter manually"), $ifName),
+         title   => sprintf(gettext("Select %s adapter manually"), gettext($ifName)),
          text    => gettext("Please select one of the following:"),
          argsref => \@args
         );
@@ -186,8 +186,8 @@ sub ethernetManual($)
         my ($rc, $choice) = $console->menu_page
             (
              title => sprintf(gettext("Specify %s adapter and driver"),
-                              $ifName),
-             text  => sprintf(gettext("Please specify your %s ethernet adapter and corresponding driver"), $ifName),
+                              gettext($ifName)),
+             text  => sprintf(gettext("Please specify your %s ethernet adapter and corresponding driver"), gettext($ifName)),
              argsref => \@args
             );
 
@@ -211,8 +211,8 @@ sub ethernetManual($)
 
         my ($rc, $choice) = $console->menu_page
             (
-             title   => sprintf(gettext("Specify %s ethernet driver"), $ifName),
-             text    => sprintf(gettext("Please specify the driver to use for the %s ethernet adapter"), $ifName),
+             title   => sprintf(gettext("Specify %s ethernet driver"), gettext($ifName)),
+             text    => sprintf(gettext("Please specify the driver to use for the %s ethernet adapter"), gettext($ifName)),
              argsref => \@args
             );
 
1	snetram	1.1	diff -up e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm.adapter-translation-fixes e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm
2			--- e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm.adapter-translation-fixes 2009-11-06 13:12:01.000000000 +0100
3			+++ e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/configure.pm 2009-11-06 13:14:27.000000000 +0100
4			@@ -102,21 +102,21 @@ sub ethernetSelect($$)
5			push( @args,
6			++$item . ".",
7			sprintf(gettext("Manually select driver for %s ethernet adapter"),
8			- $ifName),
9			+ gettext($ifName)),
10			);
11
12
13			my ($rc, $choice) = $console->menu_page
14			(
15			title => sprintf(gettext("Select %s network ethernet driver"),
16			- $ifName),
17			+ gettext($ifName)),
18			default => $default,
19			text =>
20			sprintf(gettext("You now need to select the proper driver for your " .
21			"%s network ethernet adapter. The server can attempt to do " .
22			"this automatically, or you can do it manually - either by " .
23			"specifying the model of your ethernet adapter or by " .
24			- "directly choosing a driver.\n"), $ifName),
25			+ "directly choosing a driver.\n"), gettext($ifName)),
26			argsref => \@args,
27			);
28
29			@@ -164,7 +164,7 @@ sub ethernetManual($)
30
31			my ($rc, $choice) = $console->menu_page
32			(
33			- title => sprintf(gettext("Select %s adapter manually"), $ifName),
34			+ title => sprintf(gettext("Select %s adapter manually"), gettext($ifName)),
35			text => gettext("Please select one of the following:"),
36			argsref => \@args
37			);
38			@@ -186,8 +186,8 @@ sub ethernetManual($)
39			my ($rc, $choice) = $console->menu_page
40			(
41			title => sprintf(gettext("Specify %s adapter and driver"),
42			- $ifName),
43			- text => sprintf(gettext("Please specify your %s ethernet adapter and corresponding driver"), $ifName),
44			+ gettext($ifName)),
45			+ text => sprintf(gettext("Please specify your %s ethernet adapter and corresponding driver"), gettext($ifName)),
46			argsref => \@args
47			);
48
49			@@ -211,8 +211,8 @@ sub ethernetManual($)
50
51			my ($rc, $choice) = $console->menu_page
52			(
53			- title => sprintf(gettext("Specify %s ethernet driver"), $ifName),
54			- text => sprintf(gettext("Please specify the driver to use for the %s ethernet adapter"), $ifName),
55			+ title => sprintf(gettext("Specify %s ethernet driver"), gettext($ifName)),
56			+ text => sprintf(gettext("Please specify the driver to use for the %s ethernet adapter"), gettext($ifName)),
57			argsref => \@args
58			);
59