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.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl 13 Mar 2001 22:59:27 -0000 1.1
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl 23 Oct 2001 20:13:10 -0000 1.2
@@ -12,12 +12,12 @@
}
db_foreach all_states {
- select state_name, usps_abbrev from states order by state_name
+ select state_name, abbrev from us_states order by state_name
} {
- if { $default == $usps_abbrev } {
- append widget_value "\n"
+ if { $default == $abbrev } {
+ append widget_value "\n"
} else {
- append widget_value "\n"
+ append widget_value "\n"
}
}
append widget_value "\n"
@@ -36,12 +36,12 @@
}
}
db_foreach all_countries {
- select country_name, iso from country_codes order by country_name
+ select default_name, iso from countries order by default_name
} {
if { $default == $iso } {
- append widget_value "\n"
+ append widget_value "\n"
} else {
- append widget_value "\n"
+ append widget_value "\n"
}
}
append widget_value "\n"
Index: openacs-4/packages/acs-tcl/tcl/widgets-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/widgets-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.xql 24 Apr 2001 06:02:27 -0000 1.1
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.xql 23 Oct 2001 20:13:10 -0000 1.2
@@ -4,7 +4,7 @@
- select state_name, usps_abbrev from states order by state_name
+ select state_name, abbrev from states order by state_name
@@ -13,7 +13,7 @@
- select country_name, iso from country_codes order by country_name
+ select default_name, iso from countries order by default_name