Index: openacs-4/packages/contacts/www/contact-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-edit.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/contacts/www/contact-edit.tcl	27 Feb 2006 03:46:17 -0000	1.17
+++ openacs-4/packages/contacts/www/contact-edit.tcl	14 Mar 2006 08:36:34 -0000	1.18
@@ -7,6 +7,7 @@
 
 } {
     {party_id:integer,notnull}
+    {return_url ""}
 } -validate {
     contact_exists -requires {party_id} {
 	if { ![contact::exists_p -party_id $party_id] && ![ad_form_new_p -key party_id] } {
@@ -43,6 +44,7 @@
 
 ad_form -name party_ae \
     -mode "edit" \
+    -export {return_url} \
     -form $form_elements \
     -has_edit "1"
 
@@ -183,7 +185,12 @@
     } -after_submit {
 	contact::flush -party_id $party_id
 	contact::search::flush_results_counts
-        ad_returnredirect [contact::url -party_id $party_id]
+
+	if { ![exists_and_not_null return_url] } {
+	    set return_url [contact::url -party_id $party_id] 
+	}
+
+        ad_returnredirect $return_url
 	ad_script_abort
     }