Index: openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl,v
diff -u -N -r1.30 -r1.31
--- openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	23 Apr 2018 16:58:39 -0000	1.30
+++ openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	15 Jun 2018 08:30:12 -0000	1.31
@@ -248,16 +248,12 @@
     if {"content_folder" eq $content_type} {
         return [db_0or1row get_item_folder "" -column_array local_array]
     }
-    set table_name [db_string get_table_name {
-        select table_name from acs_object_types where object_type = :content_type
-    }]
+    set table_name [acs_object_type::get_table_name -object_type $content_type]
     while {$table_name eq ""} {
         acs_object_type::get -object_type $content_type -array typeInfo
         ns_log notice "no table for $content_type registered, trying '$typeInfo(supertype)' instead"
         set content_type $typeInfo(supertype)
-        set table_name [db_string get_table_name {
-            select table_name from acs_object_types where object_type = :content_type
-        }]
+        set table_name [acs_object_type::get_table_name -object_type $content_type]
     }
     set table_name "${table_name}x"
     # get attributes of the content_item use the content_typex view
@@ -1091,10 +1087,7 @@
   }
 
   # Get the table name
-  set table_name [db_string grc_get_table_names {
-      select table_name from acs_object_types
-      where object_type = :content_type
-  }]
+  set table_name [acs_object_type::get_table_name -object_type $content_type]
 
   upvar content content