summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/admin.pl4
-rwxr-xr-xbin/am.pl3
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>|;
}
diff --git a/bin/am.pl b/bin/am.pl
index ea356dbf..1913bc0a 100755
--- a/bin/am.pl
+++ b/bin/am.pl
@@ -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/.";