Index: openacs-4/packages/acs-subsite/www/admin/relations/add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/relations/add.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/admin/relations/add.tcl	17 May 2003 10:00:50 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/admin/relations/add.tcl	27 Feb 2004 11:23:36 -0000	1.8
@@ -148,6 +148,7 @@
 set package_id [ad_conn package_id]
 
 attribute::add_form_elements -form_id add_relation -start_with relationship -object_type $rel_type
+element::create add_relation rel_id -widget hidden -value [db_nextval "acs_object_id_seq"]
 
 if { [template::form is_valid add_relation] } {