diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-25 20:02:57 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-25 20:02:57 +0000 |
| commit | 487fe943b565d034d53802962490efb65639b76d (patch) | |
| tree | 992ca53da09e696b39fd74fbc24de3aa367f7faa /LedgerSMB/User.pm | |
| parent | f40b706eda465195d9f9585e8fa429a31da870c8 (diff) | |
Switching locales over to using the .po files directly
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@304 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/User.pm')
| -rwxr-xr-x | LedgerSMB/User.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm index 47cdad04..19583b57 100755 --- a/LedgerSMB/User.pm +++ b/LedgerSMB/User.pm @@ -82,9 +82,10 @@ sub country_codes { # scan the locale directory and read in the LANGUAGE files opendir DIR, "${LedgerSMB::Sysconfig::localepath}"; - my @dir = grep !/(^\.\.?$|\..*)/, readdir DIR; + my @dir = grep !/^\.\.?$/, readdir DIR; foreach my $dir (@dir) { + $dir = substr($dir, 0, -3); $cc{$dir} = code2language(substr($dir, 0, 2)); $cc{$dir} .= ("/" . code2country(substr($dir, 3, 2))) if length($dir) > 2; |