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 -r1.1 -r1.2
--- openacs-4/packages/ams/tcl/address-widget-procs.tcl	20 Oct 2004 21:40:03 -0000	1.1
+++ openacs-4/packages/ams/tcl/address-widget-procs.tcl	21 Oct 2004 01:53:49 -0000	1.2
@@ -102,7 +102,10 @@
     }
     if { $country_code == "US" } {
         # this should check a cached list
-        if { ![db_0or1row validate_state {} ] } {
+        # this proc cannot for some reason go in the postgresql file...
+        if { ![db_0or1row validate_state {
+        select 1 from us_states where abbrev = upper(:region) or state_name = upper(:region)
+} ] } {
             if { [exists_and_not_null message_temp] } { append message " " }
             append message "\"$region\" [_ ams.is_not_a_valid_US_state]."
         }