Added comments for translators

1 files changed, 13 insertions, 1 deletions

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 6bb970f33..d37b47664 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -792,10 +792,19 @@ EOF
 
      output "$prefix/boot/grub/messages", map { substr(translate($_) . "\n", 0, 78) } ( #- ensure the translated messages are not too big the hard way
 #-PO: these messages will be displayed at boot time in the BIOS, use only ASCII (7bit)
+#-PO: and keep them smaller than 79 chars long
 __("Welcome to GRUB the operating system chooser!"),
+#-PO: these messages will be displayed at boot time in the BIOS, use only ASCII (7bit)
+#-PO: and keep them smaller than 79 chars long
 __("Use the %c and %c keys for selecting which entry is highlighted."),
+#-PO: these messages will be displayed at boot time in the BIOS, use only ASCII (7bit)
+#-PO: and keep them smaller than 79 chars long
 __("Press enter to boot the selected OS, \'e\' to edit the"),
+#-PO: these messages will be displayed at boot time in the BIOS, use only ASCII (7bit)
+#-PO: and keep them smaller than 79 chars long
 __("commands before booting, or \'c\' for a command-line."),
+#-PO: these messages will be displayed at boot time in the BIOS, use only ASCII (7bit)
+#-PO: and keep them smaller than 79 chars long
 __("The highlighted entry will be booted automatically in %d seconds."),
 );
    
@@ -891,8 +900,11 @@ sub install_loadlin_desktop {
     my ($lilo, $windrive) = @_;
     my $windir = lc(cat_("$windrive/msdos.sys") =~ /^WinDir=.:\\(\S+)/m ? $1 : "windows");
 
+#-PO: "Desktop" and "Start Menu" are the name of the directories found in c:\windows
+#-PO: so you may need to put them in English or in a different language if MS-windows doesn't exist in your language
+    foreach (__("Desktop"),
 #-PO: "Desktop" and "Start Menu" are the name of the directories found in c:\windows 
-    foreach (__("Desktop"), __("Start Menu")) {
+	     __("Start Menu")) {
         my $d = "$windrive/$windir/" . translate($_);
         -d $d or $d = "$windrive/$windir/$_";
         -d $d or log::l("can't find windows $d directory"), next;