Index: openacs-4/packages/acs-subsite/www/group-leave.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/group-leave.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/group-leave.tcl	21 Sep 2003 19:20:30 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/group-leave.tcl	30 Jan 2004 15:17:31 -0000	1.2
@@ -5,13 +5,13 @@
     @creation-date 2003-08-07
     @cvs-id $Id$
 } {
-    {return_url "."}
+    {group_id:integer {[application_group::group_id_from_package_id]}}
+    return_url:optional
 }
 
-ad_maybe_redirect_for_registration
+set user_id [auth::require_login]
 
-set user_id [ad_conn user_id]
-set group_id [application_group::group_id_from_package_id]
+group::get -group_id $group_id -array group_info
 
 set member_p [group::member_p -group_id $group_id -user_id $user_id]
 
@@ -30,4 +30,8 @@
 
 }
 
-ad_returnredirect $return_url
+if { ![exists_and_not_null return_url] } {
+    set return_url "../"
+}
+
+ad_returnredirect -message "You have left the group \"$group_info(group_name)\"." $return_url