Index: openacs-4/packages/cms/tcl/pagination-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/Attic/pagination-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/cms/tcl/pagination-procs.tcl	20 Aug 2001 04:35:42 -0000	1.6
+++ openacs-4/packages/cms/tcl/pagination-procs.tcl	15 Aug 2002 03:39:34 -0000	1.7
@@ -56,12 +56,7 @@
 
 } {
 
-    template::query gtp_get_total_pages total_pages onevalue "
-	  select 
-	    ceil(count(*) / [pagination::get_rows_per_page] )
-	  from
-            ($sql) x
-	"
+    set total_pages [db_string gtp_get_total_pages ""]
 
     return $total_pages
 }