Index: openacs-4/packages/acs-subsite/www/admin/relations/remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/relations/remove.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/relations/remove.tcl	6 Sep 2002 21:50:04 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/relations/remove.tcl	27 Oct 2014 16:39:55 -0000	1.3
@@ -7,7 +7,7 @@
     @creation-date 2000-12-16
     @cvs-id $Id$
 } {
-    rel_id:integer,notnull
+    rel_id:naturalnum,notnull
     { return_url "" }
 } -properties {
     context:onevalue
@@ -57,13 +57,13 @@
 	  from rc_violations_by_removing_rel r
 	 where r.rel_id = :rel_id
     } {
-	template::multirow append dependants $rel_id $rel_type_pretty_name $object_id_one_name $object_id_two_name [ad_export_vars {rel_id return_url}]
+	template::multirow append dependants $rel_id $rel_type_pretty_name $object_id_one_name $object_id_two_name [export_vars {rel_id return_url}]
     }
     ad_return_template remove-dependants-exist
     return
 }
 
 
-set export_vars [export_form_vars rel_id return_url]
+set export_vars [export_vars -form {rel_id return_url}]
 
 ad_return_template