Index: openacs-4/packages/ams/catalog/ams.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/catalog/ams.en_US.ISO-8859-1.xml,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/ams/catalog/ams.en_US.ISO-8859-1.xml	7 Jun 2005 07:44:13 -0000	1.7
+++ openacs-4/packages/ams/catalog/ams.en_US.ISO-8859-1.xml	7 Jun 2005 10:59:58 -0000	1.8
@@ -23,245 +23,6 @@
   <msg key="cit_cntry_plural">Citizenships</msg>
   <msg key="Copy">Copy</msg>
   <msg key="country">Country</msg>
-  <msg key="country_AD">Andorra</msg>
-  <msg key="country_AE">United Arab Emirates</msg>
-  <msg key="country_AF">Afghanistan</msg>
-  <msg key="country_AG">Antigua and Barbuda</msg>
-  <msg key="country_AI">Anguilla</msg>
-  <msg key="country_AL">Albania</msg>
-  <msg key="country_AM">Armenia</msg>
-  <msg key="country_AN">Netherlands Antilles</msg>
-  <msg key="country_AO">Angola</msg>
-  <msg key="country_AQ">Antarctica</msg>
-  <msg key="country_AR">Argentina</msg>
-  <msg key="country_AS">American Samoa</msg>
-  <msg key="country_AT">Austria</msg>
-  <msg key="country_AU">Australia</msg>
-  <msg key="country_AW">Aruba</msg>
-  <msg key="country_AZ">Azerbaijan</msg>
-  <msg key="country_BA">Bosnia and Herzegovina</msg>
-  <msg key="country_BB">Barbados</msg>
-  <msg key="country_BD">Bangladesh</msg>
-  <msg key="country_BE">Belgium</msg>
-  <msg key="country_BF">Burkina Faso</msg>
-  <msg key="country_BG">Bulgaria</msg>
-  <msg key="country_BH">Bahrain</msg>
-  <msg key="country_BI">Burundi</msg>
-  <msg key="country_BJ">Benin</msg>
-  <msg key="country_BM">Bermuda</msg>
-  <msg key="country_BN">Brunei Darussalam</msg>
-  <msg key="country_BO">Bolivia</msg>
-  <msg key="country_BR">Brazil</msg>
-  <msg key="country_BS">Bahamas</msg>
-  <msg key="country_BT">Bhutan</msg>
-  <msg key="country_BV">Bouvet Island</msg>
-  <msg key="country_BW">Botswana</msg>
-  <msg key="country_BY">Belarus</msg>
-  <msg key="country_BZ">Belize</msg>
-  <msg key="country_CA">Canada</msg>
-  <msg key="country_CC">Cocos (Keeling) Islands</msg>
-  <msg key="country_CD">Congo, The Democratic Republic of the</msg>
-  <msg key="country_CF">Central African Republic</msg>
-  <msg key="country_CG">Congo</msg>
-  <msg key="country_CH">Switzerland</msg>
-  <msg key="country_CI">Cote D'ivoire</msg>
-  <msg key="country_CK">Cook Islands</msg>
-  <msg key="country_CL">Chile</msg>
-  <msg key="country_CM">Cameroon</msg>
-  <msg key="country_CN">China</msg>
-  <msg key="country_CO">Colombia</msg>
-  <msg key="country_CR">Costa Rica</msg>
-  <msg key="country_CU">Cuba</msg>
-  <msg key="country_CV">Cape Verde</msg>
-  <msg key="country_CX">Christmas Island</msg>
-  <msg key="country_CY">Cyprus</msg>
-  <msg key="country_CZ">Czech Republic</msg>
-  <msg key="country_DE">Germany</msg>
-  <msg key="country_DJ">Djibouti</msg>
-  <msg key="country_DK">Denmark</msg>
-  <msg key="country_DM">Dominica</msg>
-  <msg key="country_DO">Dominican Republic</msg>
-  <msg key="country_DZ">Algeria</msg>
-  <msg key="country_EC">Ecuador</msg>
-  <msg key="country_EE">Estonia</msg>
-  <msg key="country_EG">Egypt</msg>
-  <msg key="country_EH">Western Sahara</msg>
-  <msg key="country_ER">Eritrea</msg>
-  <msg key="country_ES">Spain</msg>
-  <msg key="country_ET">Ethiopia</msg>
-  <msg key="country_FI">Finland</msg>
-  <msg key="country_FJ">Fiji</msg>
-  <msg key="country_FK">Falkland Islands (Malvinas)</msg>
-  <msg key="country_FM">Micronesia, Federated States of</msg>
-  <msg key="country_FO">Faroe Islands</msg>
-  <msg key="country_FR">France</msg>
-  <msg key="country_GA">Gabon</msg>
-  <msg key="country_GB">United Kingdom</msg>
-  <msg key="country_GD">Grenada</msg>
-  <msg key="country_GE">Georgia</msg>
-  <msg key="country_GF">French Guiana</msg>
-  <msg key="country_GH">Ghana</msg>
-  <msg key="country_GI">Gibraltar</msg>
-  <msg key="country_GL">Greenland</msg>
-  <msg key="country_GM">Gambia</msg>
-  <msg key="country_GN">Guinea</msg>
-  <msg key="country_GP">Guadeloupe</msg>
-  <msg key="country_GQ">Equatorial Guinea</msg>
-  <msg key="country_GR">Greece</msg>
-  <msg key="country_GS">South Georgia and the South Sandwich Islands</msg>
-  <msg key="country_GT">Guatemala</msg>
-  <msg key="country_GU">Guam</msg>
-  <msg key="country_GW">Guinea-Bissau</msg>
-  <msg key="country_GY">Guyana</msg>
-  <msg key="country_HK">Hong Kong</msg>
-  <msg key="country_HM">Heard Island and Mcdonald Islands</msg>
-  <msg key="country_HN">Honduras</msg>
-  <msg key="country_HR">Croatia</msg>
-  <msg key="country_HT">Haiti</msg>
-  <msg key="country_HU">Hungary</msg>
-  <msg key="country_ID">Indonesia</msg>
-  <msg key="country_IE">Ireland</msg>
-  <msg key="country_IL">Israel</msg>
-  <msg key="country_IN">India</msg>
-  <msg key="country_IO">British Indian Ocean Territory</msg>
-  <msg key="country_IQ">Iraq</msg>
-  <msg key="country_IR">Iran, Islamic Republic of</msg>
-  <msg key="country_IS">Iceland</msg>
-  <msg key="country_IT">Italy</msg>
-  <msg key="country_JM">Jamaica</msg>
-  <msg key="country_JO">Jordan</msg>
-  <msg key="country_JP">Japan</msg>
-  <msg key="country_KE">Kenya</msg>
-  <msg key="country_KG">Kyrgyzstan</msg>
-  <msg key="country_KH">Cambodia</msg>
-  <msg key="country_KI">Kiribati</msg>
-  <msg key="country_KM">Comoros</msg>
-  <msg key="country_KN">Saint Kitts and Nevis</msg>
-  <msg key="country_KP">Korea, Democratic People's Republic of</msg>
-  <msg key="country_KR">Korea, Republic of</msg>
-  <msg key="country_KW">Kuwait</msg>
-  <msg key="country_KY">Cayman Islands</msg>
-  <msg key="country_KZ">Kazakstan</msg>
-  <msg key="country_LA">Lao People's Democratic Republic</msg>
-  <msg key="country_LB">Lebanon</msg>
-  <msg key="country_LC">Saint Lucia</msg>
-  <msg key="country_LI">Liechtenstein</msg>
-  <msg key="country_LK">Sri Lanka</msg>
-  <msg key="country_LR">Liberia</msg>
-  <msg key="country_LS">Lesotho</msg>
-  <msg key="country_LT">Lithuania</msg>
-  <msg key="country_LU">Luxembourg</msg>
-  <msg key="country_LV">Latvia</msg>
-  <msg key="country_LY">Libyan Arab Jamahiriya</msg>
-  <msg key="country_MA">Morocco</msg>
-  <msg key="country_MC">Monaco</msg>
-  <msg key="country_MD">Moldova, Republic of</msg>
-  <msg key="country_MG">Madagascar</msg>
-  <msg key="country_MH">Marshall Islands</msg>
-  <msg key="country_MK">Macedonia, The Former Yugoslav Republic of</msg>
-  <msg key="country_ML">Mali</msg>
-  <msg key="country_MM">Myanmar</msg>
-  <msg key="country_MN">Mongolia</msg>
-  <msg key="country_MO">Macau</msg>
-  <msg key="country_MP">Northern Mariana Islands</msg>
-  <msg key="country_MQ">Martinique</msg>
-  <msg key="country_MR">Mauritania</msg>
-  <msg key="country_MS">Montserrat</msg>
-  <msg key="country_MT">Malta</msg>
-  <msg key="country_MU">Mauritius</msg>
-  <msg key="country_MV">Maldives</msg>
-  <msg key="country_MW">Malawi</msg>
-  <msg key="country_MX">Mexico</msg>
-  <msg key="country_MY">Malaysia</msg>
-  <msg key="country_MZ">Mozambique</msg>
-  <msg key="country_NA">Namibia</msg>
-  <msg key="country_NC">New Caledonia</msg>
-  <msg key="country_NE">Niger</msg>
-  <msg key="country_NF">Norfolk Island</msg>
-  <msg key="country_NG">Nigeria</msg>
-  <msg key="country_NI">Nicaragua</msg>
-  <msg key="country_NL">Netherlands</msg>
-  <msg key="country_NO">Norway</msg>
-  <msg key="country_NP">Nepal</msg>
-  <msg key="country_NR">Nauru</msg>
-  <msg key="country_NU">Niue</msg>
-  <msg key="country_NZ">New Zealand</msg>
-  <msg key="country_OM">Oman</msg>
-  <msg key="country_PA">Panama</msg>
-  <msg key="country_PE">Peru</msg>
-  <msg key="country_PF">French Polynesia</msg>
-  <msg key="country_PG">Papua New Guinea</msg>
-  <msg key="country_PH">Philippines</msg>
-  <msg key="country_PK">Pakistan</msg>
-  <msg key="country_PL">Poland</msg>
-  <msg key="country_PM">Saint Pierre and Miquelon</msg>
-  <msg key="country_PN">Pitcairn</msg>
-  <msg key="country_PR">Puerto Rico</msg>
-  <msg key="country_PS">Palestinian Territory, Occupied</msg>
-  <msg key="country_PT">Portugal</msg>
-  <msg key="country_PW">Palau</msg>
-  <msg key="country_PY">Paraguay</msg>
-  <msg key="country_QA">Qatar</msg>
-  <msg key="country_RE">Reunion</msg>
-  <msg key="country_RO">Romania</msg>
-  <msg key="country_RU">Russian Federation</msg>
-  <msg key="country_RW">Rwanda</msg>
-  <msg key="country_SA">Saudi Arabia</msg>
-  <msg key="country_SB">Solomon Islands</msg>
-  <msg key="country_SC">Seychelles</msg>
-  <msg key="country_SD">Sudan</msg>
-  <msg key="country_SE">Sweden</msg>
-  <msg key="country_SG">Singapore</msg>
-  <msg key="country_SH">Saint Helena</msg>
-  <msg key="country_SI">Slovenia</msg>
-  <msg key="country_SJ">Svalbard and Jan Mayen</msg>
-  <msg key="country_SK">Slovakia</msg>
-  <msg key="country_SL">Sierra Leone</msg>
-  <msg key="country_SM">San Marino</msg>
-  <msg key="country_SN">Senegal</msg>
-  <msg key="country_SO">Somalia</msg>
-  <msg key="country_SR">Suriname</msg>
-  <msg key="country_ST">Sao Tome and Principe</msg>
-  <msg key="country_SV">El Salvador</msg>
-  <msg key="country_SY">Syrian Arab Republic</msg>
-  <msg key="country_SZ">Swaziland</msg>
-  <msg key="country_TC">Turks and Caicos Islands</msg>
-  <msg key="country_TD">Chad</msg>
-  <msg key="country_TF">French Southern Territories</msg>
-  <msg key="country_TG">Togo</msg>
-  <msg key="country_TH">Thailand</msg>
-  <msg key="country_TJ">Tajikistan</msg>
-  <msg key="country_TK">Tokelau</msg>
-  <msg key="country_TM">Turkmenistan</msg>
-  <msg key="country_TN">Tunisia</msg>
-  <msg key="country_TO">Tonga</msg>
-  <msg key="country_TP">East Timor</msg>
-  <msg key="country_TR">Turkey</msg>
-  <msg key="country_TT">Trinidad And Tobago</msg>
-  <msg key="country_TV">Tuvalu</msg>
-  <msg key="country_TW">Taiwan, Province of China</msg>
-  <msg key="country_TZ">Tanzania, United Republic of</msg>
-  <msg key="country_UA">Ukraine</msg>
-  <msg key="country_UG">Uganda</msg>
-  <msg key="country_UM">United States Minor Outlying Islands</msg>
-  <msg key="country_US">United States</msg>
-  <msg key="country_UY">Uruguay</msg>
-  <msg key="country_UZ">Uzbekistan</msg>
-  <msg key="country_VA">Holy See (Vatican City State)</msg>
-  <msg key="country_VC">Saint Vincent and the Grenadines</msg>
-  <msg key="country_VE">Venezuela</msg>
-  <msg key="country_VG">Virgin Islands, British</msg>
-  <msg key="country_VI">Virgin Islands, U.S.</msg>
-  <msg key="country_VN">Viet Nam</msg>
-  <msg key="country_VU">Vanuatu</msg>
-  <msg key="country_WF">Wallis And Futuna</msg>
-  <msg key="country_WS">Samoa</msg>
-  <msg key="country_YE">Yemen</msg>
-  <msg key="country_YT">Mayotte</msg>
-  <msg key="country_YU">Yugoslavia</msg>
-  <msg key="country_ZA">South Africa</msg>
-  <msg key="country_ZM">Zambia</msg>
-  <msg key="country_ZW">Zimbabwe</msg>
   <msg key="Date">Date</msg>
   <msg key="date_inq">Date of Inquiry</msg>
   <msg key="date_inq_plural">Dates of Inquiry</msg>
Index: openacs-4/packages/ams/tcl/address-widget-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/address-widget-procs-postgresql.xql,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/ams/tcl/address-widget-procs-postgresql.xql	18 May 2005 17:11:48 -0000	1.3
+++ openacs-4/packages/ams/tcl/address-widget-procs-postgresql.xql	7 Jun 2005 10:59:58 -0000	1.4
@@ -2,9 +2,9 @@
 <queryset>
 
 
-<fullquery name="template::util::address::country_options_not_cached.get_countries">
+<fullquery name="template::util::address::country_options_not_cached.get_country_codes">
   <querytext>
-        select default_name, iso from countries                                                                                  s
+        select iso from countries                                                                                  s
   </querytext>
 </fullquery>
 
Index: openacs-4/packages/ams/tcl/address-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/address-widget-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/ams/tcl/address-widget-procs.tcl	21 May 2005 21:50:16 -0000	1.5
+++ openacs-4/packages/ams/tcl/address-widget-procs.tcl	7 Jun 2005 10:59:58 -0000	1.6
@@ -98,39 +98,23 @@
         # There is no HTTP connection - resort to system locale
         set locale [lang::system::locale]
     }
-    return [util_memoize [list template::util::address::country_options_not_cached -locale $locale]]
+#    return [util_memoize [list template::util::address::country_options_not_cached -locale $locale]]
+    return [template::util::address::country_options_not_cached]
 }
 
 ad_proc -public template::util::address::country_options_not_cached {
     {-locale "en_US"}
 } {
     Returns the country list.
 } {
-    set country_list [db_list_of_lists get_countries {}]
+    set country_code_list [db_list get_country_codes {}]
     set return_country_list [list]
     set reserved_country_codes [parameter::get_from_package_key -parameter "DefaultISOCountryCode" -package_key "ams" -default ""]
 
-    foreach country $country_list {
-        set this_locale $locale
-        set country_name_db [lindex $country 0]
-        set country_code_db [lindex $country 1]
-        set package_key "ams"
-        set message_key "country_${country_code_db}"
-        set key "${package_key}.${message_key}"
-        if { [string is false [lang::message::message_exists_p $locale $key]] } {
-            if { [string is false [lang::message::message_exists_p "en_US" $key]] } {
-                lang::message::register $locale $package_key $message_key $country_name_db
-            } else {
-                set this_locale "en_US"
-            }
+    foreach country $country_code_list {
+        if { [lsearch $reserved_country_codes $country] < 0 } {
+            lappend return_country_list [list [lang::util::localize "#ref-countries.${country}#"] $country]
         }
-        # mgeddert customization for mbbs
-        if { [lsearch $reserved_country_codes $country_code_db] < 0 } {
-            # the reason not to use the "list" command here is because a curly bracket
-            # needs to be used in the list for countries with a single word name
-            # so that alphabetizing (via lsort) works later on in this proc
-            lappend return_country_list "{[lang::message::lookup $this_locale $key]} {$country_code_db}"
-        }
     }
     set country_code [list]
     if { [exists_and_not_null reserved_country_codes] } {