diff options
| -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/."; |