Index: openacs-4/packages/acs-object-management/tcl/object-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-object-management/tcl/object-procs.xql,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-object-management/tcl/object-procs.xql	11 Dec 2009 00:19:09 -0000	1.3
+++ openacs-4/packages/acs-object-management/tcl/object-procs.xql	28 Feb 2011 01:26:31 -0000	1.4
@@ -1,6 +1,15 @@
 <?xml version="1.0"?>
 <queryset>
 
+  <fullquery name="object::new_inner.datatype">
+    <querytext>
+      select datatype
+      from acs_attributes a
+      where a.object_type=:object_type
+        and a.attribute_name=:name
+    </querytext>
+  </fullquery>
+
   <fullquery name="object::new_inner.insert_object">
     <querytext>
       insert into $object_type_info(table_name)
@@ -10,6 +19,16 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="object::update_inner.datatype">
+    <querytext>
+      select datatype
+      from acs_attributes a
+      where a.object_type=:object_type
+        and a.attribute_name=:name
+    </querytext>
+  </fullquery>
+
+
   <fullquery name="object::update_inner.update_object">
     <querytext>
       update $object_type_info(table_name)