Index: openacs-4/packages/acs-subsite/www/admin/rel-types/add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/add.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-subsite/www/admin/rel-types/add.tcl 6 Sep 2002 21:50:03 -0000 1.3 +++ openacs-4/packages/acs-subsite/www/admin/rel-types/add.tcl 27 Oct 2014 16:39:54 -0000 1.4 @@ -20,8 +20,8 @@ set context [list "Add relation type"] set constraint_id [db_nextval "acs_object_id_seq"] -set export_form_vars [export_form_vars constraint_id object_type return_url] -set export_url_vars [export_url_vars constraint_id object_type return_url] +set export_form_vars [export_vars -form {constraint_id object_type return_url}] +set export_url_vars [export_vars -url {constraint_id object_type return_url}] db_multirow primary_rels select_primary_relations { select o.object_type as rel_type, o.pretty_name