Index: openacs-4/packages/acs-subsite/tcl/package-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/tcl/package-procs.xql	3 Jan 2004 01:44:10 -0000	1.5
+++ openacs-4/packages/acs-subsite/tcl/package-procs.xql	11 Feb 2004 18:29:07 -0000	1.6
@@ -87,6 +87,16 @@
       
     </querytext>
   </fullquery>
+  
+  <fullquery name="package_instantiate_object.get_id_column">      
+    <querytext>
+      
+      select id_column
+      from acs_object_types
+      where object_type = :object_type
+      
+    </querytext>
+  </fullquery>
 
   
   <fullquery name="package_object_view_helper.select_type_info">