Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	29 Jul 2005 02:19:10 -0000	1.8
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	31 Jul 2005 22:36:02 -0000	1.9
@@ -16,6 +16,7 @@
     {-form:required}
     {-object_type:required}
     {-party_id}
+    {-group_ids ""}
 } {
 }
 
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.27 -r1.28
--- openacs-4/packages/contacts/www/contact-add.tcl	31 Jul 2005 07:35:40 -0000	1.27
+++ openacs-4/packages/contacts/www/contact-add.tcl	31 Jul 2005 22:35:41 -0000	1.28
@@ -121,7 +121,7 @@
 
 set context [list $title]
 
-callback contact::contact_form -package_id $package_id -form party_ae -object_type $object_type
+callback contact::contact_form -package_id $package_id -form party_ae -object_type $object_type -group_ids $group_ids
 
 ad_form -extend -name party_ae \
     -on_request {