Index: openacs.org-dev/packages/cms/tcl/pagination-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/cms/tcl/pagination-procs.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/cms/tcl/pagination-procs.tcl	9 Jul 2002 17:35:03 -0000	1.1.1.1
+++ openacs.org-dev/packages/cms/tcl/pagination-procs.tcl	8 Oct 2002 15:47:00 -0000	1.1.1.2
@@ -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
 }