use N() instead of _()

1 files changed, 27 insertions, 27 deletions

diff --git a/transfugdrake b/transfugdrake
index ce9764e..bfeb68e 100755
--- a/transfugdrake
+++ b/transfugdrake
@@ -60,7 +60,7 @@ local $_ = join '', @ARGV;
 /-version/ and die 'transfugdrake '.$version."\n";
 $::isEmbedded or $::isWizard = 1;
 $::Wizard_pix_up = "wiz_drakgw.png";
-$::Wizard_title = _("Transfugdrake");
+$::Wizard_title = N("Transfugdrake");
 $::direct = /-direct/;
 
 # Application initialization
@@ -79,8 +79,8 @@ if($debug) { print "- Starting Transfugdrake\n"; }
 
 #my %linux_config = transfugdrake::get_linux_config();
  
-$::direct or $in->ask_okcancel(_("Transfugdrake"),
-_("Welcome to Transfugdrake! I will help you to ease the step windows-linux
+$::direct or $in->ask_okcancel(N("Transfugdrake"),
+N("Welcome to Transfugdrake! I will help you to ease the step windows-linux
 by migrating your documents, mails and address books"), 1) or quit_global($in, 0);
 
 #- **********************************
@@ -103,8 +103,8 @@ if($debug) { print "-- Looking where is the document folder $win_mountpoint\n";
 my $document_location = get_documents_folder(@documents_folders, $win_mountpoint);
 
 if($document_location eq "") {
-    $in->ask_warn(_("Can't find documents folder!"),
-                  _("Can't find the folder where the documents are located. Exiting..."));
+    $in->ask_warn(N("Can't find documents folder!"),
+                  N("Can't find the folder where the documents are located. Exiting..."));
     quit_global($in, 0);
 }
 
@@ -131,8 +131,8 @@ if($document_location eq $win_mountpoint.'/'.$documents_folders[0]) {
 elsif($document_location eq $win_mountpoint.'/'.$documents_folders[1]) {
     # For XP, go see in the documents folder to get the directory listing
     if($debug) { print "--- Windows XP found\n"; }
-    $in->ask_warn(_("No mail migration available"),
-                  _("Warning: Windows XP detected. No mail migration available yet for your Windows version."));
+    $in->ask_warn(N("No mail migration available"),
+                  N("Warning: Windows XP detected. No mail migration available yet for your Windows version."));
     $windowsxp = 1;
     opendir YREP, $document_location or die "unable to opendir: $!\n";
     my @tmp_user_array = readdir YREP;
@@ -147,13 +147,13 @@ elsif($document_location eq $win_mountpoint.'/'.$documents_folders[1]) {
 }
 
 if($users[0] eq "") {
-    $in->ask_warn(_("No user found!"),
-                  _("Can't find any user on your Windows partition. Will copy all documents from Windows"));
+    $in->ask_warn(N("No user found!"),
+                  N("Can't find any user on your Windows partition. Will copy all documents from Windows"));
 }
 else {
     $::Wizard_no_previous = 0;
-    my $chosen_user = $in->ask_from_list(_("Transfugdrake"),
-    _("You have the following users in Windows. Which one do you want to use for migration?"),
+    my $chosen_user = $in->ask_from_list(N("Transfugdrake"),
+    N("You have the following users in Windows. Which one do you want to use for migration?"),
     [ @users ], $users[0]) or goto step_0;
 }
 
@@ -190,8 +190,8 @@ if(-d $win_mountpoint."/WINDOWS/Application Data/Identities") {
     }
 }
 
-my $chosen_task = $in->ask_from_list(_("Transfugdrake"),
-_("Welcome to TransfugDrake! You are now able to ease\n the step Windows-Linux with many migrations. Please choose what you\n want to do:"), [ @tasks ], $tasks[0]) or quit_global($in, 0);
+my $chosen_task = $in->ask_from_list(N("Transfugdrake"),
+N("Welcome to TransfugDrake! You are now able to ease\n the step Windows-Linux with many migrations. Please choose what you\n want to do:"), [ @tasks ], $tasks[0]) or quit_global($in, 0);
 
 if($chosen_task eq "Copy files and folders from your Windows partition") { goto step_4; }
 #if($chosen_task eq "Migrate address book from Windows (not implemented yet)") { goto step_7; }
@@ -210,8 +210,8 @@ $laststep = "step_4";
 #- * 5th step: redo if needed
 step_5:
 
-if($in->ask_yesorno(_("Transfugdrake"),
-_("Do you want to copy other files from another folder?"), 1)) {
+if($in->ask_yesorno(N("Transfugdrake"),
+N("Do you want to copy other files from another folder?"), 1)) {
     goto step_2;
 }
 $laststep = "step_5";
@@ -221,8 +221,8 @@ $laststep = "step_5";
 step_6:
 
 if ($windowsxp) { goto step_8; }
-$::direct or $in->ask_okcancel(_("Transfug"),
-_("We will bring back your Outlook Mailboxes to a standard unix mbox\n
+$::direct or $in->ask_okcancel(N("Transfug"),
+N("We will bring back your Outlook Mailboxes to a standard unix mbox\n
 NB: This feature works only with Outlook Express 4.5 and 5"), 1) or goto step_7;
 
 mkdir "$ENV{HOME}/Mail" unless (-e "$ENV{HOME}/Mail");
@@ -249,15 +249,15 @@ $laststep = "step_6";
 # In XP, address book is located in /Document and Settings/user/Appli Data/Microsoft/Address Book/
 #step_7:
 
-#$::direct or $in->ask_okcancel(_("Transfugdrake"),
-#_("Here will come the address book migration page."), 1) or quit_global($in, 0);
+#$::direct or $in->ask_okcancel(N("Transfugdrake"),
+#N("Here will come the address book migration page."), 1) or quit_global($in, 0);
 
 #- *******************************
 #- * 8th step: finish
 step_8:
 $::Wizard_no_previous = 0;
-$::direct or $in->ask_okcancel(_("Transfugdrake"),
-_("The migration of all of your Windows data is finished."), 1) or goto $laststep; 
+$::direct or $in->ask_okcancel(N("Transfugdrake"),
+N("The migration of all of your Windows data is finished."), 1) or goto $laststep; 
 
 #- *******************************
 #-          FUNCTIONS
@@ -286,8 +286,8 @@ sub detect_partition {
     # If nothing is found, print an error and exit.
     if(!$found) {
         print "- No windows partitions\n";
-        $in->ask_warn(_("Can't find windows!"),
-            _("Sorry, I can't find windows. Maybe it's not installed, or your windows partition is not mounted on Mandrake."));
+        $in->ask_warn(N("Can't find windows!"),
+            N("Sorry, I can't find windows. Maybe it's not installed, or your windows partition is not mounted on Mandrake."));
          quit_global($in);
     }
     else {
@@ -321,12 +321,12 @@ sub copy_documents {
     $dest .= "/win_backup";
 
     $::Wizard_no_previous = 1;
-    if(!($in->ask_yesorno(_("Transfugdrake"),
-                    _("Do you want to copy all the content of\n \"$source\" to\n \"$dest\"?"), 1))) {
+    if(!($in->ask_yesorno(N("Transfugdrake"),
+                    N("Do you want to copy all the content of\n \"$source\" to\n \"$dest\"?"), 1))) {
         goto step_5;
     }
-    $wait_configuring = $in->wait_message(_("Copying files..."),
-     _("Copying all files from $source to $dest. This may take several minutes."));
+    $wait_configuring = $in->wait_message(N("Copying files..."),
+     N("Copying all files from $source to $dest. This may take several minutes."));
     
     $source =~ s/\ /\\ /g;
     system("cp -R $source $dest");