Index: openacs-4/packages/cms/www/modules/templates/revisions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/templates/revisions.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/templates/revisions.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/templates/revisions.tcl	8 Jun 2001 01:44:53 -0000	1.2
@@ -1,23 +1,21 @@
 # template ID is passed to included template
 
-query live_revision onevalue "
+template::query get_live_revision live_revision onevalue "
   select live_revision from cr_items where item_id = :template_id"
 
 # first count all revisions
 
-set query "
+template::query get_revision_count revision_count onevalue "
   select
     count(*) 
   from 
     cr_revisions
   where
     item_id = :template_id"
 
-query revision_count onevalue $query
-
 set counter $revision_count
 
-set query "
+template::query get_revisions revisions multirow "
   select
     revision_id,
     to_char(o.creation_date, 'MM/DD/YY HH:MI AM') modified,
@@ -37,10 +35,7 @@
   and
     o.object_id = j.journal_id (+)
   order by
-    o.creation_date desc"
-
-
-query revisions multirow $query -maxrows 12 -eval {
+    o.creation_date desc" -maxrows 12 -eval {
   set row(revision_number) $counter
   incr counter -1
-}
\ No newline at end of file
+}