Index: openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl,v
diff -u -r1.23.2.5 -r1.23.2.6
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	29 Nov 2019 18:16:03 -0000	1.23.2.5
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	2 Dec 2019 11:07:32 -0000	1.23.2.6
@@ -4,6 +4,42 @@
     @cvs-id $Id$
 }
 
+ad_proc -deprecated us_state_widget {
+   {default ""}
+   {select_name "usps_abbrev"}
+} {
+   Returns a state selection box.
+   This widget depends on the ref-us-states package.
+
+    DEPRECATED for various reasons: doesn't comply with OpenACS naming
+    convention, difficult to sytle, no good separation of tcl and
+    HTML, 'select_name' is prone to code injection and the proc
+    depends on an external package. A better alternative would be
+    e.g. implementing this using the templating system.
+
+    @see template::widget::select
+    @see template::widget::multiselect
+    @see template::multirow
+
+} {
+   set widget_value "<select name=\"$select_name\">\n"
+   if { $default eq "" } {
+       append widget_value "<option value=\"\" selected=\"selected\">Choose a State</option>\n"
+   }
+
+   db_foreach all_states {
+       select state_name, abbrev from us_states order by state_name
+   } {
+       if { $default == $abbrev } {
+           append widget_value "<option value=\"$abbrev\" selected=\"selected\">$state_name</option>\n"
+       } else {
+           append widget_value "<option value=\"$abbrev\">$state_name</option>\n"
+       }
+   }
+   append widget_value "</select>\n"
+   return $widget_value
+}
+
 ad_proc -deprecated country_widget {
     {default ""}
     {select_name "country_code"}