Index: openacs-4/packages/ecommerce/www/address-international.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/address-international.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ecommerce/www/address-international.tcl	26 May 2002 05:09:57 -0000	1.1
+++ openacs-4/packages/ecommerce/www/address-international.tcl	5 Aug 2002 12:41:25 -0000	1.2
@@ -50,6 +50,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