- Fixed WorkCountry / HomeCountry mix-up.

Thanks to Uwe at: https://sourceforge.net/p/project-open/discussion/295937/thread/ce24f406/

- Fixed WorkCountry / HomeCountry mix-up.
Thanks to Uwe at: https://sourceforge.net/p/project-open/discussion/295937/thread/ce24f406/
8df94373 · Frank Bergmann · 4bf31101 · 8df94373
Commit 8df94373 authored Jun 26, 2013 by Frank Bergmann
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

user-contact-info.tcl lib/user-contact-info.tcl +2 -2

No files found.
--- a/lib/user-contact-info.tcl
+++ b/lib/user-contact-info.tcl
@@ -45,9 +45,9 @@ set result [db_0or1row users_info_query {}]
 # Get CCs outside of main select to avoid outer joins...
 # iuri 2010-11-05 ha_country_code and wa_country_code are empty in this page!!!

-set ha_country_name [util_memoize [list db_string ha_country_name "select country_name from country_codes where iso = '$wa_country_code'" -default ""]]
+set ha_country_name [util_memoize [list db_string ha_country_name "select country_name from country_codes where iso = '$ha_country_code'" -default ""]]

-set wa_country_name [util_memoize [list db_string wa_country_name "select country_name from country_codes where iso = '$ha_country_code'" -default ""]]
+set wa_country_name [util_memoize [list db_string wa_country_name "select country_name from country_codes where iso = '$wa_country_code'" -default ""]]


 if {$result == 1} {