From 84a6dbba1e0c345092c77c14cf209b6a27577f2c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 29 Aug 2002 23:12:35 +0000 Subject: - fix missing to_ascii on english part in help-xx.pot - ignore drakxid's in a language but not in english --- perl-install/share/po/help_xml2pm.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/share/po/help_xml2pm.pl') diff --git a/perl-install/share/po/help_xml2pm.pl b/perl-install/share/po/help_xml2pm.pl index 0af0ddee4..e079cc22d 100755 --- a/perl-install/share/po/help_xml2pm.pl +++ b/perl-install/share/po/help_xml2pm.pl @@ -39,10 +39,10 @@ foreach my $lang (keys %helps) { open F, ">:encoding($charset)", "help-$lang.pot"; print F "\n"; foreach my $id (keys %{$helps{$lang}}) { - $base->{$id} or die "$lang:$id doesn't exist in english\n"; + $base->{$id} or warn "$lang:$id doesn't exist in english\n", next; print F qq(# DO NOT BOTHER TO MODIFY HERE, SEE:\n# cvs.mandrakesoft.com:/cooker/$dir/$lang/drakx-chapter.xml\n); print F qq(msgid ""\n"); - print F join(qq(\\n"\n"), split "\n", $base->{$id}); + print F join(qq(\\n"\n"), split "\n", to_ascii($base->{$id})); print F qq("\nmsgstr ""\n"); print F join(qq(\\n"\n"), split "\n", $helps{$lang}{$id}); print F qq("\n\n); -- cgit v1.2.1