diff options
| author | Rüdiger Timm <rt@openoffice.org> | 2007-04-02 11:22:14 +0000 |
|---|---|---|
| committer | Rüdiger Timm <rt@openoffice.org> | 2007-04-02 11:22:14 +0000 |
| commit | 2c9b7ad439a4bd2b4ea42ac8488dfd7f252f6e9d (patch) | |
| tree | 8441b89add3963a635f21d0efe768282adb8cb7d /solenv/bin/modules/installer/systemactions.pm | |
| parent | 2304ae554b8c75790ba50cb16149f007761d3983 (diff) | |
INTEGRATION: CWS native80 (1.27.32); FILE MERGED
2007/03/08 13:46:39 is 1.27.32.1: #i74224# shorter directory names
Diffstat (limited to 'solenv/bin/modules/installer/systemactions.pm')
| -rw-r--r-- | solenv/bin/modules/installer/systemactions.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/solenv/bin/modules/installer/systemactions.pm b/solenv/bin/modules/installer/systemactions.pm index 5a1df72e214c..9b7e928b66c0 100644 --- a/solenv/bin/modules/installer/systemactions.pm +++ b/solenv/bin/modules/installer/systemactions.pm @@ -4,9 +4,9 @@ # # $RCSfile: systemactions.pm,v $ # -# $Revision: 1.28 $ +# $Revision: 1.29 $ # -# last change: $Author: vg $ $Date: 2007-03-01 15:15:50 $ +# last change: $Author: rt $ $Date: 2007-04-02 12:22:14 $ # # The Contents of this file are made available subject to # the terms of GNU Lesser General Public License Version 2.1. @@ -204,6 +204,13 @@ sub create_directories if (!($locallanguagesref eq "" )) # this will be a path like "01_49", for Profiles and ConfigurationFiles, idt-Files { my $languagestring = $$languagesref; + + if (length($languagestring) > $installer::globals::max_lang_length ) + { + chomp(my $shorter = `echo $languagestring | md5sum | sed -e "s/ .*//g"`); + $languagestring = $shorter; + } + if ($installer::globals::is_unix_multi) { $languagestring = $installer::globals::unixmultipath; } $path = $path . $languagestring . $installer::globals::separator; create_directory($path); |