diff options
| author | Tom Verbeek <tv@openoffice.org> | 2001-05-16 11:48:54 +0000 |
|---|---|---|
| committer | Tom Verbeek <tv@openoffice.org> | 2001-05-16 11:48:54 +0000 |
| commit | 3c9942db1ccb44392be1261061dd2335898149e2 (patch) | |
| tree | 6ea3041569602dd30e13010c4dc3fd8285eb1dd9 /wizards/source/tools/Misc.xba | |
| parent | 8977c7a2fe82cd2176e0c2e7f989e5a7cbce5ef1 (diff) | |
#75761# fixed sorting of webwizard and calc styles
Diffstat (limited to 'wizards/source/tools/Misc.xba')
| -rw-r--r-- | wizards/source/tools/Misc.xba | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba index 576bc58c525c..4a05f20bf092 100644 --- a/wizards/source/tools/Misc.xba +++ b/wizards/source/tools/Misc.xba @@ -76,13 +76,15 @@ End Function Function GetStarOfficeLocale() as New com.sun.star.lang.Locale Dim aLocLocale As New com.sun.star.lang.Locale Dim sLocale as String -Dim sLocaleList() +Dim sLocaleList(1) Dim oMasterKey oMasterKey = GetRegistryKeyContent("org.openoffice.UserProfile/International/") sLocale = oMasterKey.getByName("Locale") sLocaleList() = ArrayoutofString(sLocale, "-") aLocLocale.Language = sLocaleList(0) - aLocLocale.Country = sLocaleList(1) + If Ubound(sLocaleList()) > 0 Then + aLocLocale.Country = sLocaleList(1) + End If GetStarOfficeLocale() = aLocLocale End Function |