Index: openacs-4/packages/acs-lang/www/change-locale-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/change-locale-include.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-lang/www/change-locale-include.tcl	28 Oct 2002 12:32:49 -0000	1.2
+++ openacs-4/packages/acs-lang/www/change-locale-include.tcl	15 Nov 2002 09:22:43 -0000	1.3
@@ -3,7 +3,7 @@
 # a user
 # @author Peter Marklund (peter@collaboraid.biz)
 
-if { ![exists_and_not_null return_url] } {
+if { ![exists_and_not_null return_url] && [exists_and_not_null return_p] && [string equal $return_p "t"] } {
     # Use referer header
     set return_url [ns_set iget [ns_conn headers] referer]
 }