Index: openacs-4/packages/cms/www/modules/items/revisions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/revisions.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/cms/www/modules/items/revisions.tcl	9 Jun 2001 01:06:04 -0000	1.4
+++ openacs-4/packages/cms/www/modules/items/revisions.tcl	19 Aug 2002 03:30:59 -0000	1.5
@@ -16,30 +16,14 @@
   -request_error
 
 # add content html
-template::query get_content_type content_type onevalue "
-  select
-    content_item.get_content_type( :item_id )
-  from
-    dual
-" 
+set content_type [db_string get_content_type ""]
 
 
 # get item info
+db_1row get_iteminfo ""
 
-template::query get_iteminfo iteminfo onerow "
-  select 
-    item_id, name, locale, live_revision, publish_status,
-    content_item.is_publishable(item_id) as is_publishable
-  from 
-    cr_items
-  where 
-    item_id = :item_id"
-template::util::array_to_vars iteminfo
-
-
 # get all revisions
-
-template::query get_revisions revisions multirow [pagination::paginate_query "
+db_multirow revisions get_revisions [pagination::paginate_query "
   select 
     revision_id, 
     trim(title) as title,