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 -N -r1.3 -r1.4
--- openacs-4/packages/cms/www/modules/items/revisions.tcl	27 May 2001 04:39:19 -0000	1.3
+++ openacs-4/packages/cms/www/modules/items/revisions.tcl	9 Jun 2001 01:06:04 -0000	1.4
@@ -52,6 +52,9 @@
   order by
     revision_number desc" $page]
 
-set total_pages [pagination::get_total_pages]
 
+set sql [db_map get_revisions]
+
+set total_pages [pagination::get_total_pages $sql]
+
 set pagination_html [pagination::page_number_links $page $total_pages]