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.4 -r1.5
--- openacs-4/packages/cms/www/modules/templates/revisions.tcl	3 Sep 2001 05:28:28 -0000	1.4
+++ openacs-4/packages/cms/www/modules/templates/revisions.tcl	19 Aug 2002 04:19:45 -0000	1.5
@@ -1,41 +1,14 @@
 # template ID is passed to included template
 
-template::query get_live_revision live_revision onevalue "
-  select live_revision from cr_items where item_id = :template_id"
+set live_revision [db_string get_live_revision ""]
 
 # first count all revisions
 
-template::query get_revision_count revision_count onevalue "
-  select
-    count(*) 
-  from 
-    cr_revisions
-  where
-    item_id = :template_id"
+set revision_count [db_string get_revision_count ""]
 
 set counter $revision_count
 
-template::query get_revisions revisions multirow "
-  select
-    revision_id,
-    to_char(o.creation_date, 'MM/DD/YY HH:MI AM') modified,
-    round(r.content_length / 1000, 2) || ' KB' as file_size,
-    decode(NVL(p.person_id, 0),
-        0, '-',
-        substr(p.first_names, 1, 1) || substr(p.last_name, 1, 1)) modified_by,
-    nvl(j.msg, '-') msg
-  from 
-    cr_revisions r, acs_objects o, persons p, journal_entries j
-  where
-    item_id = :template_id
-  and
-    o.object_id = r.revision_id
-  and
-    o.creation_user = p.person_id (+)
-  and
-    o.object_id = j.journal_id (+)
-  order by
-    o.creation_date desc" -maxrows 12 -eval {
-  set row(revision_number) $counter
+db_multirow -extend revision_number revisions get_revisions "" {
+  set revision_number $counter
   incr counter -1
 }