Index: openacs-4/packages/dynamic-types/tcl/form-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/tcl/form-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dynamic-types/tcl/form-procs.xql	26 May 2005 10:27:58 -0000	1.2
+++ openacs-4/packages/dynamic-types/tcl/form-procs.xql	4 Jun 2005 12:50:03 -0000	1.3
@@ -160,4 +160,23 @@
 	</querytext>
 </fullquery>
 
+<fullquery name="dtype::form::new.insert_form">
+  <querytext>
+
+	insert into dtype_forms (form_id, name, object_type)
+	values (:form_id, :form_name, :object_type)
+
+  </querytext>
+</fullquery>
+
+<fullquery name="dtype::form::edit.update_form">
+  <querytext>
+
+	update dtype_forms
+	set name = :form_name
+	where form_id = :form_id
+
+  </querytext>
+</fullquery>
+
 </queryset>