Index: openacs-4/packages/acs-object-management/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-object-management/tcl/form-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-object-management/tcl/form-procs.tcl	28 Feb 2011 01:26:31 -0000	1.6
+++ openacs-4/packages/acs-object-management/tcl/form-procs.tcl	22 Mar 2011 16:31:51 -0000	1.7
@@ -12,14 +12,19 @@
 
 ad_proc form::form_part {
     -object_view:required
+    {-extend:boolean "f"}
 } {
 
     Returns an ad_form snippet meant to be embedded in the "-form" part of the call.
 
     @param object_view The object view whose form we should render.
+    @param extend      Extend an existing form.
 
 } {
-    set form_part [list [list ${object_view}_id:key(acs_object_id_seq)]]
+    set form_part [list]
+    if {!$extend_p} {
+        lappend form_part [list ${object_view}_id:key(acs_object_id_seq)]
+    }
     lappend form_part [list object_view:text(hidden) [list value $object_view]]
     foreach attribute_id [object_view::get_attribute_ids -object_view $object_view] {
         lappend form_part [form::element -object_view $object_view -attribute_id $attribute_id]