Index: openacs-4/packages/imsld/tcl/imsld-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-callback-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/imsld/tcl/imsld-callback-procs.tcl	26 Nov 2008 11:47:01 -0000	1.8
+++ openacs-4/packages/imsld/tcl/imsld-callback-procs.tcl	30 Nov 2018 11:37:38 -0000	1.9
@@ -43,7 +43,7 @@
 
     This is a hack so let the course administrator can change the files of the UoL from the fs UI. This should be done in a cleaner way.
 } {
-    if { [string eq [content::item::content_type -item_id $file_id] "imsld_cp_file"] } {
+    if { [string eq [content::item::get_content_type -item_id $file_id] "imsld_cp_file"] } {
 	db_transaction {
 	    db_1row imsld_cp_file_info {
 		select path_to_file,
Index: openacs-4/packages/lors/tcl/lors-imscp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-imscp-procs.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/lors/tcl/lors-imscp-procs.tcl	9 May 2018 15:33:32 -0000	1.26
+++ openacs-4/packages/lors/tcl/lors-imscp-procs.tcl	30 Nov 2018 11:37:38 -0000	1.27
@@ -1061,7 +1061,7 @@
     }
 
     if {$object(object_type) eq "content_item"} {
-        set object(object_type) [content::item::content_type -item_id $object_id]
+        set object(object_type) [content::item::get_content_type -item_id $object_id]
     }
 
     set item_id [lors::imscp::item_add \
@@ -1100,7 +1100,7 @@
 } {
     db_1row get_object {} -column_array object
     if {$object(object_type) eq "content_item"} {
-        set object(object_type) [content::item::content_type -item_id $object_id]
+        set object(object_type) [content::item::get_content_type -item_id $object_id]
     }
     set res_id [lors::imscp::resource_add \
                     -man_id $man_id \
Index: openacs-4/packages/lors/tcl/lors-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/lors/tcl/lors-procs.tcl	3 Mar 2009 21:35:54 -0000	1.16
+++ openacs-4/packages/lors/tcl/lors-procs.tcl	30 Nov 2018 11:37:38 -0000	1.17
@@ -80,7 +80,7 @@
     #view is easy
     set object_type [acs_object_type $object_id]
     if {$object_type eq "content_item"} {
-        set object_type [content::item::content_type -item_id $object_id]
+        set object_type [content::item::get_content_type -item_id $object_id]
     }
     ns_log notice "lors::object_Url object_id='${object_id}'"
     switch $url {
Index: openacs-4/packages/planner/www/object-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/planner/www/object-update.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/planner/www/object-update.tcl	10 Jul 2009 17:03:40 -0000	1.1
+++ openacs-4/packages/planner/www/object-update.tcl	30 Nov 2018 11:37:38 -0000	1.2
@@ -20,12 +20,12 @@
     if {$object_id != 0} {
         set object_type [acs_object_type $object_id]
         if { [string equal $object_type "content_item"] } {
-            set object_type [content::item::content_type -item_id $object_id]
+            set object_type [content::item::get_content_type -item_id $object_id]
         }
         set image_specs "width=16 height=16"
         set object_image [planner::get_object_icon -object_type $object_type]
         set object_name [planner::get_object_name -object_id $object_id -object_type $object_type]
     } else {
         set object_name [lindex $label 0]
     }
-}
\ No newline at end of file
+}
Index: openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl	6 Jul 2007 12:13:25 -0000	1.18
+++ openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl	30 Nov 2018 11:37:38 -0000	1.19
@@ -234,7 +234,7 @@
 } {
 
     # Check if the object_id is a task
-    if {[content::item::content_type -item_id $object_id] eq "pm_task"} {
+    if {[content::item::get_content_type -item_id $object_id] eq "pm_task"} {
 	
 	set task_item_id $object_id