Index: openacs-4/packages/cms/www/modules/items/templates.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/templates.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/cms/www/modules/items/templates.tcl	24 May 2001 23:57:17 -0000	1.3
+++ openacs-4/packages/cms/www/modules/items/templates.tcl	19 Aug 2002 03:30:59 -0000	1.4
@@ -14,65 +14,17 @@
   -request_error
 
 # check if the user has write permission on the types module
-template::query allowed_set_p can_set_default_template onevalue "
-  select
-    cms_permission.permission_p( module_id, :user_id, 'cm_write' )
-  from
-    cm_modules
-  where
-     key = 'types'
-" 
+set can_set_default_template [db_string allowed_set_p ""]
 
-template::query get_iteminfo iteminfo onerow "
-  select 
-    object_type, pretty_name,
-    content_item.get_title(:item_id) name
-  from
-    acs_object_types
-  where 
-    object_type = content_item.get_content_type(:item_id)
-" 
+db_1row get_iteminfo "" -column_array iteminfo
 
 set content_type $iteminfo(object_type)
 
 
 # templates registered to this item
-template::query get_reg_templates registered_templates multirow "
-  select 
-    template_id, use_context, 
-    content_item.get_path( template_id ) path,
-    cms_permission.permission_p( template_id, :user_id, 'cm_examine')
-      as can_read_template
-  from 
-    cr_item_template_map t
-  where     
-    t.item_id = :item_id
-  order by 
-    path, use_context
-"
+db_multirow registered_templates get_reg_templates ""
 
 # templates registered to this content type
-template::query get_type_templates type_templates multirow "
-  select 
-    template_id, use_context, is_default,
-    content_item.get_path( template_id ) path,
-    cms_permission.permission_p( template_id, :user_id, 'cm_examine') 
-      as can_read_template,
-    (select 1 
-     from 
-       cr_item_template_map itmap 
-     where 
-       itmap.template_id = t.template_id
-     and 
-       itmap.use_context = t.use_context
-     and 
-       itmap.item_id = :item_id) already_registered_p
-  from 
-    cr_type_template_map t
-  where 
-    t.content_type = :content_type
-  order by 
-    path, use_context
-" 
+db_multirow type_templates get_type_templates ""
 
 set return_url "index?item_id=$item_id&mount_point=sitemap"