INTEGRATION: CWS l10nfix204_SRC680 (1.1.2); FILE ADDED

2006/09/07 11:46:29 obr 1.1.2.1: #i69278# workaround for extensible groups not yet localizable

1 files changed, 69 insertions, 0 deletions

diff --git a/extensions/source/update/check/transform.pl b/extensions/source/update/check/transform.pl
new file mode 100644
index 000000000..70d59cdba
--- /dev/null
+++ b/extensions/source/update/check/transform.pl
@@ -0,0 +1,69 @@
+:
+eval 'exec perl -wS $0 ${1+"$@"}'
+        if 0;
+
+#*************************************************************************
+#
+#   OpenOffice.org - a multi-platform office productivity suite
+#
+#   $RCSfile: transform.pl,v $
+#
+#   $Revision: 1.2 $
+#
+#   last change: $Author: obo $ $Date: 2006-09-13 11:25:46 $
+#
+#   The Contents of this file are made available subject to
+#   the terms of GNU Lesser General Public License Version 2.1.
+#
+#
+#     GNU Lesser General Public License Version 2.1
+#     =============================================
+#     Copyright 2005 by Sun Microsystems, Inc.
+#     901 San Antonio Road, Palo Alto, CA 94303, USA
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License version 2.1, as published by the Free Software Foundation.
+#
+#     This library is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+#     MA  02111-1307  USA
+#
+#*************************************************************************
+
+while (<>) {
+
+  if( /<prop/ ) {
+    $prop = $_;    
+    next if( /Text/ || /Bubble/ );
+  }
+  
+  if( /<\/prop>/ ) {
+    next if( $prop =~ /Text/ || $prop =~ /Bubble/ );
+  }  
+  
+  if( /xml:lang/ ) {
+    $lang = $_;
+    $lang =~ s/.*xml:lang=\"//;
+    $lang =~ s/\".*//;
+    chomp $lang;
+    $line = $prop;
+    $line =~ s/\" oor:type/_$lang\" oor:type/;
+    print $line;
+    $line = $_;
+    $line =~ s/ xml:lang=\".*\"//;
+    print $line;
+    $line = $prop;
+    $line =~ s/<prop.*/<\/prop>/;
+    print $line;
+    next;
+  }
+  
+  print;
+}
\ No newline at end of file