Index: openacs-4/packages/contacts/www/group-party-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/group-party-add.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/www/group-party-add.tcl	18 May 2005 16:45:50 -0000	1.1
+++ openacs-4/packages/contacts/www/group-party-add.tcl	28 Jun 2005 19:13:26 -0000	1.2
@@ -7,6 +7,7 @@
 } {
     {party_id:multiple,integer,notnull}
     {group_id:integer,notnull}
+    {return_url ""}
 }
 
 set party_id [lindex $party_id 0]
@@ -20,5 +21,8 @@
 }
 relation_add -member_state "approved" $rel_type $group_id $party_id
 
-ad_returnredirect [contact::url -party_id $party_id]
-
+if { ![exists_and_not_null return_url] } {
+    set return_url[contact::url -party_id $party_id]
+}
+contact::search::flush_results_counts
+ad_returnredirect $return_url