Index: openacs.org-dev/packages/ecommerce/www/address.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/ecommerce/www/address.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/ecommerce/www/address.tcl	9 Jul 2002 17:35:05 -0000	1.1.1.1
+++ openacs.org-dev/packages/ecommerce/www/address.tcl	5 Aug 2002 21:38:45 -0000	1.1.1.2
@@ -68,6 +68,8 @@
 
 set header_set [ns_conn headers]
 set action [ns_set get [ns_conn headers] Referer]
+# This will set "action" to be "foo" out of "http://bar.com/baz/foo"
+set action [string range $action [expr [string last "/" $action] + 1] end]
 
 # Get the form vars that were passed on delete-address so that they
 # can be passed back to the calling url. gift-certificate-billing has