diff options
Diffstat (limited to 'bin/admin.pl')
| -rwxr-xr-x | bin/admin.pl | 4 |
1 files changed, 3 insertions, 1 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>|; } |