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

1 files changed, 11 insertions, 8 deletions

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}) });