From 44516ebb17906b8f781a37e716f1fd6684d6104b Mon Sep 17 00:00:00 2001
From: Vladimir Glazounov <vg@openoffice.org>
Date: Wed, 1 Nov 2006 12:52:02 +0000
Subject: INTEGRATION: CWS native69 (1.5.492); FILE MERGED 2006/10/19 12:31:56
 is 1.5.492.1: #i66224# poor help files patch

---
 scp2/macros/macro.pl | 24 ++++++++++++++++++++++--
 1 file changed, 22 insertions(+), 2 deletions(-)

(limited to 'scp2/macros/macro.pl')

diff --git a/scp2/macros/macro.pl b/scp2/macros/macro.pl
index c47da47d3642..b5e79a3feceb 100644
--- a/scp2/macros/macro.pl
+++ b/scp2/macros/macro.pl
@@ -4,9 +4,9 @@
 #
 #   $RCSfile: macro.pl,v $
 #
-#   $Revision: 1.5 $
+#   $Revision: 1.6 $
 #
-#   last change: $Author: rt $ $Date: 2005-09-09 01:16:18 $
+#   last change: $Author: vg $ $Date: 2006-11-01 13:52:02 $
 #
 #   The Contents of this file are made available subject to
 #   the terms of GNU Lesser General Public License Version 2.1.
@@ -42,6 +42,12 @@ if ( !defined $completelangiso_var) {
     exit 1;
 }
 
+my $poorhelplocalizations_var = $ENV{WITH_POOR_HELP_LOCALIZATIONS};
+my %poorhelplocalizations;
+foreach $lang (split (/ /, $poorhelplocalizations_var)) {
+  $poorhelplocalizations{$lang}++;
+}
+
 startup_check();
 if ( "$completelangiso_var" eq "$lastcompletelangiso_var" ) {
     print STDERR "No new languages. Keeping old file\n";
@@ -61,6 +67,7 @@ write_DIR_ISOLANGUAGE_ALL_LANG_2();
 write_DIR_ISOLANGUAGE_ALL_LANG();
 write_DIR_IDENT_ALL_LANG();
 write_EXTRA_ALL_LANG();
+write_EXTRA_ALL_GOOD_HELP_LOCALIZATIONS_LANG();
 write_EXTRA_IDENT_ALL_LANG();
 write_RESFILE_ALL_LANG();
 write_SHORT_RESFILE_ALL_LANG();
@@ -130,6 +137,19 @@ sub write_EXTRA_ALL_LANG
     print OUTFILE "\n\n";
 }
 
+sub write_EXTRA_ALL_GOOD_HELP_LOCALIZATIONS_LANG
+{
+    my $first = 1;
+    print OUTFILE "#define EXTRA_ALL_GOOD_HELP_LOCALIZATIONS_LANG(name) ";
+    foreach $lang (@completelangiso) {
+        next if ( $poorhelplocalizations{$lang} );
+        print OUTFILE ";" unless $first;
+        $first = 0;
+        print OUTFILE "\\\n\tName ($lang) = EXTRAFILENAME(name,_$lang)";
+    }
+    print OUTFILE "\n\n";
+}
+
 sub write_EXTRA_IDENT_ALL_LANG
 {
     print OUTFILE "#define EXTRA_IDENT_ALL_LANG(name) ";
-- 
cgit