diff options
Diffstat (limited to 'wizards')
-rw-r--r-- | wizards/source/scriptforge/SF_Utils.xba | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/wizards/source/scriptforge/SF_Utils.xba b/wizards/source/scriptforge/SF_Utils.xba index b3031e33f09a..2968209aafb3 100644 --- a/wizards/source/scriptforge/SF_Utils.xba +++ b/wizards/source/scriptforge/SF_Utils.xba @@ -425,7 +425,7 @@ Dim vNodePath As Variant vNodePath(0) = New com.sun.star.beans.PropertyValue vNodePath(0).Name = "nodepath" : vNodePath(0).Value = "org.openoffice.System/L10N" sLocale = oConfigProvider.createInstanceWithArguments("com.sun.star.configuration.ConfigurationAccess", vNodePath()).getByName("SystemLocale") - .Locale.Language = Left(sLocale, 2) + .Locale.Language = Split(sLocale, "-")(0) ' Language is most often 2 chars long, but not always .Locale.Country = Right(sLocale, 2) End If Set _GetUNOService = .Locale |