e-smith-base/sme7/e-smith-base-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	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