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.28.4.2 -r1.28.4.3
--- openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	16 Oct 2013 10:13:27 -0000	1.28.4.2
+++ openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	10 Sep 2014 14:01:49 -0000	1.28.4.3
@@ -114,19 +114,19 @@
   }
 
   # Get the mime type, decide if we want the text
-  get_mime_info $revision_id
+  content::item::get -item_id $item_id -array_name item_info
 
-  if { [info exists mime_info(mime_type)] 
-       && $mime_info(mime_type) ne "" 
-       && [string match "text/*" $mime_info(mime_type)] 
+  if { [info exists item_info(mime_type)] 
+       && $item_info(mime_type) ne "" 
+       && [string match "text/*" $item_info(mime_type)] 
    } {
       set text_sql [db_map grc_get_all_content_1]
   } else {
       set text_sql ""
   }
  
   # Get the content type
-  set content_type [::content::item::get_content_type -item_id $item_id]
+  set content_type $item_info(content_type)
 
   # Get the table name
   set table_name [db_string grc_get_table_names ""]
@@ -196,7 +196,7 @@
 
 
 
-ad_proc -public item::get_mime_info { revision_id {datasource_ref mime_info} } {
+ad_proc -public -deprecated item::get_mime_info { revision_id {datasource_ref mime_info} } {
 
   @public get_mime_info
  
@@ -210,15 +210,15 @@
     mime_type and file_extension.
  
   return    1 (one) if the revision exists, 0 (zero) otherwise.
-  @see proc item::get_extended_url
+  @see proc content::item::get
 
 } {
     set sql [db_map gmi_get_mime_info]
 
     return [uplevel "db_0or1row ignore \"$sql\" -column_array $datasource_ref"]
 }
 
-ad_proc -public item::get_extended_url { item_id args } {
+ad_proc -public -deprecated item::get_extended_url { item_id args } {
 
   Retrieves the relative URL of the item with a file extension based
   on the item's mime_type (Example: "/foo/bar/baz.html"). 
@@ -313,7 +313,7 @@
 # but use no direct sql calls.
 #
 #######################################################
-ad_proc -public item::get_element {
+ad_proc -public -deprecated item::get_element {
     {-item_id:required}
     {-element:required}
 } {
@@ -323,10 +323,12 @@
     @param item_id The id of the item to get element value for
     @param element The name (column name) of the element. See
                    item::get for valid element names.
+    @see content::item::get
 } {
     ::content::item::get -item_id $item_id -array row
     return $row($element)
 }
+
 ad_proc -public item::publish {
     {-item_id:required}
     {-revision_id ""}