Index: openacs-4/packages/acs-content-repository/tcl/item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/item-procs.tcl,v
diff -u -r1.5.2.4 -r1.5.2.5
--- openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	23 Mar 2003 02:01:41 -0000	1.5.2.4
+++ openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	26 May 2003 21:38:27 -0000	1.5.2.5
@@ -264,6 +264,17 @@
   return $file_url
 } 
 
+ad_proc -public item::get_type { item_id } {
+  Returns the content type of the specified item, or empty string
+  if the item_id is invalid
+} {
+  if { [db_0or1row get_content_type ""] } {
+    return $content_type
+  } else {
+    return ""
+  }
+}
+
 ad_proc item::copy {
     -item_id:required
     -target_folder_id:required