From 8b3b89cd7b2761f31cdb9e690b898949ae73e03e Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 13 Nov 2006 05:58:32 +0000
Subject: 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
---
 bin/admin.pl | 4 +++-
 bin/am.pl    | 3 ++-
 2 files changed, 5 insertions(+), 2 deletions(-)

(limited to 'bin')

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/.";
-- 
cgit v1.2.3