Index: openacs-4/packages/contacts/www/contact-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-add.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/contacts/www/contact-add.tcl	20 Jun 2005 16:48:36 -0000	1.18
+++ openacs-4/packages/contacts/www/contact-add.tcl	21 Jun 2005 20:52:21 -0000	1.19
@@ -37,8 +37,8 @@
 
 set form_elements {party_id:key}
 lappend form_elements {object_type:text(hidden)}
-lappend form_elements {rel_type:text(hidden)}
-lappend form_elements {object_id_two:text(hidden)}
+lappend form_elements {rel_type:text(hidden),optional}
+lappend form_elements {object_id_two:text(hidden),optional}
 
 set default_group_id [contacts::default_group -package_id $package_id]
 set application_group_id [application_group::group_id_from_package_id -package_id [ad_conn subsite_id]]
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.4 -r1.5
--- openacs-4/packages/contacts/www/contact-edit.tcl	17 Jun 2005 10:42:47 -0000	1.4
+++ openacs-4/packages/contacts/www/contact-edit.tcl	21 Jun 2005 20:52:21 -0000	1.5
@@ -67,6 +67,8 @@
 	-element_name $element_name
 }
 
+callback contact::contact_form -package_id $package_id -form party_ae -object_type $object_type -party_id $party_id
+
 ad_form -extend -name party_ae \
     -on_request {
 
@@ -149,6 +151,7 @@
 	}
 
 	category::map_object -remove_old -object_id $party_id $cat_ids
+	callback contact::organization_new -package_id $package_id -contact_id $party_id -name $name
 
     } -after_submit {
         ad_returnredirect [contact::url -party_id $party_id]