Index: openacs-4/packages/ref-countries/tcl/ref-countries-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ref-countries/tcl/ref-countries-procs.tcl,v diff -u -N -r1.6 -r1.6.2.1 --- openacs-4/packages/ref-countries/tcl/ref-countries-procs.tcl 7 Aug 2017 23:48:13 -0000 1.6 +++ openacs-4/packages/ref-countries/tcl/ref-countries-procs.tcl 20 Aug 2020 13:09:30 -0000 1.6.2.1 @@ -13,11 +13,11 @@ @param country Name of the country in English! } { - + set country_code [db_string get_country_code "select iso from countries where default_name = upper(:country)" -default ""] if { $country_code eq "" } { - + # Lets try to be smart. set country_list [list \ [list England GB] \ @@ -37,7 +37,7 @@ set country_code $countries($country) } } - + return $country_code }