Index: openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl	12 May 2001 18:17:17 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl	10 Nov 2003 12:35:13 -0000	1.4
@@ -8,6 +8,8 @@
 
 }
 
+namespace eval acs_object_type {}
+
 ad_proc -public acs_object_type_hierarchy {
 
     -object_type
@@ -55,3 +57,40 @@
 
 }
 
+ad_proc -public acs_object_type::get {
+    -object_type:required
+    -array:required
+} {
+    Get info about an object type. Returns columns 
+
+    <ul>
+      <li>object_type,
+      <li>supertype,
+      <li>abstract_p,
+      <li>pretty_name,
+      <li>pretty_plural,
+      <li>table_name,
+      <li>id_column,
+      <li>package_name,
+      <li>name_method,
+      <li>type_extension_table,
+      <li>dynamic_p
+    </ul>
+} {
+    upvar 1 $array row
+    db_1row select_object_type_info {
+        select object_type,
+               supertype,
+               abstract_p,
+               pretty_name,
+               pretty_plural,
+               table_name,
+               id_column,
+               package_name,
+               name_method,
+               type_extension_table,
+               dynamic_p
+        from   acs_object_types
+        where  object_type = :object_type
+    } -column_array row
+}