diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-13 05:58:32 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-13 05:58:32 +0000 |
| commit | 8b3b89cd7b2761f31cdb9e690b898949ae73e03e (patch) | |
| tree | 6aee7798e402df406cb158cd96c0f8597a8e5305 /bin | |
| parent | 10a2aa2d8cec3163b6d39208fd9c30a9db7d3bd9 (diff) | |
Set default language code for selection
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@555 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/admin.pl | 4 | ||||
| -rwxr-xr-x | bin/am.pl | 3 |
2 files changed, 5 insertions, 2 deletions
diff --git a/bin/admin.pl b/bin/admin.pl index 872ed72c..29a2a927 100755 --- a/bin/admin.pl +++ b/bin/admin.pl @@ -336,9 +336,11 @@ sub form_header { %countrycodes = LedgerSMB::User->country_codes; $countrycodes = ""; + my $selectedcode = ($myconfig->{countrycode}) ? + $myconfig->{countrycode} : 'en'; foreach $key (sort { $countrycodes{$a} cmp $countrycodes{$b} } keys %countrycodes) { - $countrycodes .= ($myconfig->{countrycode} eq $key) ? qq|<option selected value="$key">$countrycodes{$key}</option>| + $countrycodes .= ($selectedcode eq $key) ? qq|<option selected value="$key">$countrycodes{$key}</option>| : qq|<option value="$key">$countrycodes{$key}</option>|; } @@ -2046,9 +2046,10 @@ sub config { %countrycodes = LedgerSMB::User->country_codes; $countrycodes = ''; + my $selectedcode = ($myconfig{countrycode}) ? $myconfig{countrycode} : 'en'; foreach $key (sort { $countrycodes{$a} cmp $countrycodes{$b} } keys %countrycodes) { - $countrycodes .= ($myconfig{countrycode} eq $key) ? "<option selected value=$key>$countrycodes{$key}\n" : "<option value=$key>$countrycodes{$key}\n"; + $countrycodes .= ($selectedcode eq $key) ? "<option selected value=$key>$countrycodes{$key}\n" : "<option value=$key>$countrycodes{$key}\n"; } opendir CSS, "css/."; |