Index: openacs-4/packages/acs-subsite/www/shared/make-visible.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/make-visible.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/shared/make-visible.tcl	3 Oct 2003 10:14:32 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/shared/make-visible.tcl	31 Mar 2009 14:50:08 -0000	1.2
@@ -1,10 +1,16 @@
 ad_page_contract {
     Make user visible.
+} {
+    {return_url ""}
 }
 
 auth::require_login
 
 whos_online::unset_invisible [ad_conn user_id]
 
-ad_returnredirect [ad_pvt_home]
+if { $return_url eq "" } {
+    set return_url [ad_pvt_home]
+}
 
+ad_returnredirect -message [_ acs-subsite.Online_status_set_visible] -- $return_url
+