Index: openacs-4/packages/project-manager/www/admin/linking.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/admin/linking.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/project-manager/www/admin/linking.tcl	26 May 2005 09:34:30 -0000	1.1
+++ openacs-4/packages/project-manager/www/admin/linking.tcl	20 Feb 2007 07:53:39 -0000	1.2
@@ -7,6 +7,7 @@
     @cvs-id $Id$
 } {
     {keys:array,optional}
+    {return_url "."}
 }
 
 set title "[_ project-manager.Link_instances]"
@@ -40,7 +41,7 @@
     ad_form -extend -name linking -form [list [list keys.$key\:text(select) [list label $package_pretty_name] [list options $options_list] [list value $current_link]]]
 }
 
-ad_form -extend -name linking -on_request {
+ad_form -extend -name linking -export {return_url} -on_request {
 } -on_submit {
     db_transaction {
 	application_link::delete_links -package_id $this_package_id
@@ -54,7 +55,7 @@
 	}
     }
 } -after_submit {
-    ad_returnredirect .
+    ad_returnredirect $return_url
     ad_script_abort
 }