fix N() encapsuled strings not seen as "to be extracted" strings when

generating the pot

1 files changed, 23 insertions, 23 deletions

diff --git a/web_wizard/Apache.pm b/web_wizard/Apache.pm
index 0d2fc4a2..163c2357 100755
--- a/web_wizard/Apache.pm
+++ b/web_wizard/Apache.pm
@@ -35,7 +35,7 @@ my $root;
 
 my $config;
 my $o = { 
-    name => N('Web wizard'),
+    name => N("Web wizard"),
     var => { 
 	web_internal => '',
 	web_external => '',
@@ -66,84 +66,84 @@ my $o = {
 
 $o->{pages} = { 
 	      welcome => {
-		  name => N('Web Server Configuration Wizard') . "\n\n" . N('This wizard will help you configuring the Web Server for your network.'),
+		  name => N("Web Server Configuration Wizard") . "\n\n" . N("This wizard will help you configuring the Web Server for your network."),
 		  post => sub { $wiz->check_dhcp },
 	      no_back => 1,
 	      next => 'config'
 	  },
 	  config => {
-	      name => N('Web Server') . "\n\n" . N('Your server can act as a Web Server toward your internal network (intranet) and as a Web Server for the Internet.') . "\n\n" . N('Select the kind of Web service you want to activate:') . "\n\n" . N('Don\'t check any box if you don\'t want to activate your Web Server.'),
+	      name => N("Web Server") . "\n\n" . N("Your server can act as a Web Server toward your internal network (intranet) and as a Web Server for the Internet.") . "\n\n" . N("Select the kind of Web service you want to activate:") . "\n\n" . N("Don't check any box if you don't want to activate your Web Server."),
 	      data => [
-		  { text => N('Enable the Web Server for the Intranet'), type => 'bool', val => \$o->{var}{web_internal} },
-		  { text => N('Enable the Web Server for the Internet'), type => 'bool', val => \$o->{var}{web_external} },
+		  { text => N("Enable the Web Server for the Intranet"), type => 'bool', val => \$o->{var}{web_internal} },
+		  { text => N("Enable the Web Server for the Internet"), type => 'bool', val => \$o->{var}{web_external} },
 		  ],
 	      next => 'ask_mod'
 	  },
 	  dhcp_warning => {
-	    name => N('Warning.') . "\n\n" . N('You are in dhcp, server may not work with your configuration.'),
+	    name => N("Warning.") . "\n\n" . N("You are in dhcp, server may not work with your configuration."),
 	    ignore => 1,
 	    next => 'config'
 	  },
 	  ask_mod => {
-	      name => N('Modules :') . "\n\n" . N('* User module : allows users to have a directory in their home directories available on your http server via http://www.yourserver.com/~user, you will be asked for the name of this directory afterward.'),
+	      name => N("Modules :") . "\n\n" . N("* User module : allows users to have a directory in their home directories available on your http server via http://www.yourserver.com/~user, you will be asked for the name of this directory afterward."),
 	      pre => sub { $o->{var}{user_mod} = is_last_user_mod()},
 	      data => [
-		  { text => N('Allows users to get a directory in their homes directories 
-available on your http server via http://www.yourserver.com/~user.'), type => 'bool', val => \$o->{var}{user_mod} },
+		  { text => N("Allows users to get a directory in their homes directories 
+available on your http server via http://www.yourserver.com/~user."), type => 'bool', val => \$o->{var}{user_mod} },
 		  ],
 	      post => sub { return 'user_dir' if $o->{var}{user_mod} },
 	      next => 'ask_dir'
 	  },
 	  user_dir => {
-	      name => N('Type the name of the directory users should create in their homes (whitout ~/) to get it available via http://www.yourserver.com/~user'),
+	      name => N("Type the name of the directory users should create in their homes (whitout ~/) to get it available via http://www.yourserver.com/~user"),
 	      pre => sub { $o->{var}{user_dir} ||= 'public_html' },
 	      data => [
-		  { label => N('user http sub-directory : ~/'), help => N('Type the name of the directory users should create in their homes (whitout ~/) to get it available via http://www.yourserver.com/~user'), val => \$o->{var}{user_dir} },
+		  { label => N("user http sub-directory : ~/"), help => N("Type the name of the directory users should create in their homes (whitout ~/) to get it available via http://www.yourserver.com/~user"), val => \$o->{var}{user_dir} },
 		  ],
 	      next => 'ask_dir'
 	  },
 	  ask_dir => {
-	      name => N('Type the path of the directory you want being the document root.'),
+	      name => N("Type the path of the directory you want being the document root."),
 	      pre => sub { $o->{var}{shared_dir} ||= $root },
 	      data => [
-		  { label => N('Document Root:'),  val => \$o->{var}{shared_dir} },
+		  { label => N("Document Root:"),  val => \$o->{var}{shared_dir} },
 		  ],
 	      post => \&check_dir,
 	      next => 'summary'
 	  },
 	  error_in_dir => {
-	    name => N('Error.'),
+	    name => N("Error."),
 	    data => [
-	              { label => N('The path you entered does not exist.') } 
+	              { label => N("The path you entered does not exist.") } 
 		    ],
 	    ignore => 1,
 	    next => 'ask_dir'
 	  },
 	  error => {
-	    name => N('Error.'),
+	    name => N("Error."),
 	    data => [ { label => N('') } ],
 	    ignore => 1,
 	    next => 'config'
 	  },
 	  summary => {
-	    name =>  N('Configuring the Web Server') . "\n\n" . N('The wizard collected the following parameters needed to configure your Web Server') . "\n\n" . N('To accept these values, and configure your server, click the Next button or use the Back button to correct them.'),
+	    name =>  N("Configuring the Web Server") . "\n\n" . N("The wizard collected the following parameters needed to configure your Web Server") . "\n\n" . N("To accept these values, and configure your server, click the Next button or use the Back button to correct them."),
 	    pre => sub {
 		$o->{var}{internal} = $o->{var}{web_internal} ? N("enabled") : N("disabled");
 		$o->{var}{external} = $o->{var}{web_external} ? N("enabled") : N("disabled")
 	    },
 	    data => [
-		  { label => N('Intranet web server:'), fixed_val => \$o->{var}{internal} },
-		  { label => N('Internet web server:'), fixed_val => \$o->{var}{external} },
-		  { label => N('Document root:'), fixed_val => \$o->{var}{shared_dir} },
-		  { label => N('User directory:'), fixed_val => \$o->{var}{user_dir} },
+		  { label => N("Intranet web server:"), fixed_val => \$o->{var}{internal} },
+		  { label => N("Internet web server:"), fixed_val => \$o->{var}{external} },
+		  { label => N("Document root:"), fixed_val => \$o->{var}{shared_dir} },
+		  { label => N("User directory:"), fixed_val => \$o->{var}{user_dir} },
 	      ],
 	    post => \&do_it,
 	    next => 'end'
 	  },
 	  end => { 
-	    name => N('Congratulations'),
+	    name => N("Congratulations"),
 	    data => [ 
-	        { label => N('The wizard successfully configured your Intranet/Internet Web Server') } ], 
+	        { label => N("The wizard successfully configured your Intranet/Internet Web Server") } ], 
 	    end => 1,
 	    next => 0
       },