enforce introduction of translators hints into translation catalogs

(perl_checker should have been loudly complain on those!!!! :-():
- add missing coma caracter
- move them near translations

note that i didn't bother check po comments that already have the proper
comma. instead this should be done by perl_checker which should warn about po
comments out of translation calls and tags contexts

5 files changed, 36 insertions, 25 deletions

diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 22ac69826..40004552f 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -919,7 +919,7 @@ sub configure_net {
     if (!$netcnx->{type}) {
         $in->ask_warn(
                     N("Warning"), 
-                    #-PO here "Internet access" should be translated the same was as in control-center
+                    #-PO: here "Internet access" should be translated the same was as in control-center
                     N("You don't have any configured Internet connection.
 Please run \"Internet access\" in control center."));
         $in->exit;
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index 628df6862..04e9dd0b4 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -76,8 +76,8 @@ sub basic_seclevel_explanations() {
     }
       } split("\n",
 
-#-PO Do not alter the <span ..> and </span> tags
-#-PO Translate the security levels (Poor, Standard, High, Higher and Paranoid) in the same way, you translated these individuals words
+#-PO: Do not alter the <span ..> and </span> tags
+#-PO: Translate the security levels (Poor, Standard, High, Higher and Paranoid) in the same way, you translated these individuals words
                              formatAlaTeX(N("Here, you can setup the security level and administrator of your machine.
 
 
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index 6ca423c54..527631bd6 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -510,8 +510,9 @@ sub show_prev {
  my ($txt_tl_xx, $txt_tl_yy, $txt_width, $txt_height, $prog_tl_xx, $prog_tl_yy, $prog_width, $prog_height) = @_;
  $prev_window
    or $prev_window = Gtk2::Window->new('toplevel'); 
-#-PO  First %s is theme name, second %s (in parenthesis) is resolution
- $prev_window->set_title(N("%s BootSplash (%s) preview", $theme{name}, $theme{res}{res}));
+ $prev_window->set_title(
+                         #-PO:  First %s is theme name, second %s (in parenthesis) is resolution
+                         N("%s BootSplash (%s) preview", $theme{name}, $theme{res}{res}));
  $prev_pic = gtkcreate_pixbuf($img_file);
  $prev_pic->scale_simple($theme{res}{w}, $theme{res}{h}, 'hyper');
  $prev_canvas && $prev_canvas->isa('Gtk2::Widget')
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 76aac7220..47c60073e 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -32,8 +32,9 @@ my %fields =
 - scsi devices: the scsi bus and the scsi device ids") ],
      "cache size" => [ N("Cache size"), N("size of the (second level) cpu cache") ],
      "capacity" => [ N("Drive capacity"), N("special capacities of the driver (burning ability and or DVD support)") ],
-#-PO Translators, here "comas" is the medical coma, not the lexical coma!!
-     "coma_bug" => [ N("Coma bug"), N("whether this cpu has the Cyrix 6x86 Coma bug") ],
+     "coma_bug" => [
+                    #-PO: here "comas" is the medical coma, not the lexical coma!!
+                    N("Coma bug"), N("whether this cpu has the Cyrix 6x86 Coma bug") ],
      "cpu family" => [ N("Cpuid family"), N("family of the cpu (eg: 6 for i686 class)") ],
      "cpuid level" => [ N("Cpuid level"), N("information level that can be obtained through the cpuid instruction") ],
      "cpu MHz" => [ N("Frequency (MHz)"), N("the CPU frequency in MHz (Megahertz which in first approximation may be coarsely assimilated to number of instructions the cpu is able to execute per second)") ],
@@ -42,8 +43,9 @@ my %fields =
                    N("old static device name used in dev package") ],
      "devfs_device" => [ N("New devfs device"),  
                          N("new dynamic device name generated by core kernel devfs") ],
-#-PO Translators, here "module" is the "jargon term" for a kernel driver
-     "driver" => [ N("Module"), N("the module of the GNU/Linux kernel that handles the device") ],
+     "driver" => [
+                  #-PO: here "module" is the "jargon term" for a kernel driver
+                  N("Module"), N("the module of the GNU/Linux kernel that handles the device") ],
      "extended_partitions" => [ N("Extended partitions"), N("the number of extended partitions") ],
      "flags" => [ N("Flags"), N("CPU flags reported by the kernel") ],
      "fdiv_bug" => [ N("Fdiv bug"), 
@@ -82,9 +84,10 @@ my $conffile = "/etc/sysconfig/harddrake2/ui.conf";
 my ($current_device, $current_configurator);
 
 
-#-PO Translators, please keep all "/" charaters !!!
 my %menus = (
-             'options' => N("/_Options"),
+             'options' => 
+             #-PO: please keep all "/" charaters !!!
+             N("/_Options"),
              'help' => N("/_Help")
              );
 
@@ -111,7 +114,7 @@ my @menu_items =
            if ($current_device) {
                create_dialog(N("Harddrake help"), 
                              N("Description of the fields:\n\n")
-#-PO Do not alter the <span ..> and </span> tags
+#-PO: Do not alter the <span ..> and </span> tags
                              . join("\n\n", map { if_($fields{$_}[0], formatAlaTeX(qq(<span foreground="royalblue3">$fields{$_}[0]:</span> $fields{$_}[1]))) } sort keys %$current_device), { use_markup => 1, if_(!$::isEmbedded, transient => $w->{window}), height => 400, scroll => 1 })
 
            } else {
@@ -123,7 +126,7 @@ my @menu_items =
      [ $menus{help}.N("/_Report Bug"), undef, sub { unless (fork()) { exec("drakbug --report harddrake2 &") } }, undef, '<Item>' ],
      [ $menus{help}.N("/_About..."), undef, sub {
            create_dialog(N("About Harddrake"), 
-#-PO Do not alter the <span ..> and </span> tags
+#-PO: Do not alter the <span ..> and </span> tags
                          N("This is HardDrake, a Mandrake hardware configuration tool.\n<span foreground=\"royalblue3\">Version:</span> %s
 <span foreground=\"royalblue3\">Author:</span> Thierry Vignaud &lt;tvignaud\@mandrakesoft.com&gt;\n\n", $harddrake::data::version) . "\n" .
                          formatAlaTeX($::license), { use_markup => 1, if_(!$::isEmbedded, transient => $w->{window}) });
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index 42694f065..00ebf6288 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -221,18 +221,25 @@ my @toolbwg = map {
     $toolb->append_item($_->[0], $_->[1], $_->[2],  
                         Gtk2::Image->new_from_file($pixdir . $_->[2] . '.png'), $_->[3], $toolb);
 #    $toolb->append_space;
-#-PO "Add Printer" is a button text and the translation has to be AS SHORT AS POSSIBLE
-} ( [ N("Add Printer"), N("Add a new printer to the system"), 'printer_add', \&AddPrinter ], 
-#-PO "Set as default" is a button text and the translation has to be AS SHORT AS POSSIBLE
-    [ N("Set as default"), N("Set selected printer as the default printer"), 'printer_default', \&SetAsDefault ],
-#-PO "Edit" is a button text and the translation has to be AS SHORT AS POSSIBLE
-    [ N("Edit"), N("Edit selected printer"), 'printer_conf', \&Edit ],
-#-PO "Delete" is a button text and the translation has to be AS SHORT AS POSSIBLE
-    [ N("Delete"), N("Delete selected printer"), 'printer_del', \&Delete ],
-#-PO "Refresh" is a button text and the translation has to be AS SHORT AS POSSIBLE
-    [ N("Refresh"), N("Refresh the list"), 'refresh', sub { Refresh($stringsearch) } ],
-#-PO "Configure CUPS" is a button text and the translation has to be AS SHORT AS POSSIBLE
-    [ N("Configure CUPS"), N("Configure CUPS printing system"), 'cups_config', \&ConfigCUPS ]
+} ( [
+     # FIXME: then "add printer" should be a simple verb as suggested in Human Guidelines!!!
+     #-PO: "Add Printer" is a button text and the translation has to be AS SHORT AS POSSIBLE
+     N("Add Printer"), N("Add a new printer to the system"), 'printer_add', \&AddPrinter ], 
+    [
+     #-PO: "Set as default" is a button text and the translation has to be AS SHORT AS POSSIBLE
+     N("Set as default"), N("Set selected printer as the default printer"), 'printer_default', \&SetAsDefault ],
+    [ 
+     #-PO: "Edit" is a button text and the translation has to be AS SHORT AS POSSIBLE
+     N("Edit"), N("Edit selected printer"), 'printer_conf', \&Edit ],
+    [ 
+     #-PO: "Delete" is a button text and the translation has to be AS SHORT AS POSSIBLE
+     N("Delete"), N("Delete selected printer"), 'printer_del', \&Delete ],
+    [ 
+     #-PO: "Refresh" is a button text and the translation has to be AS SHORT AS POSSIBLE
+     N("Refresh"), N("Refresh the list"), 'refresh', sub { Refresh($stringsearch) } ],
+    [
+     #-PO: "Configure CUPS" is a button text and the translation has to be AS SHORT AS POSSIBLE
+     N("Configure CUPS"), N("Configure CUPS printing system"), 'cups_config', \&ConfigCUPS ]
   );
 my ($_tbadd, $tbdefault, $tbedit, $tbdel, $_tbref, $_tbconfig) = @toolbwg;
 GrayDelEdit();