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 -r1.4 -r1.5
--- openacs-4/packages/cms/tcl/pagination-procs.tcl	11 Aug 2001 17:40:26 -0000	1.4
+++ openacs-4/packages/cms/tcl/pagination-procs.tcl	17 Aug 2001 23:33:53 -0000	1.5
@@ -45,17 +45,17 @@
 
 # @param db A database handle
 
-ad_proc pagination::get_total_pages {} {
-    uplevel {
+ad_proc pagination::get_total_pages { sql } {
+   
 	template::query gtp_get_total_pages total_pages onevalue "
 	  select 
 	    ceil(count(*) / [pagination::get_rows_per_page] )
 	  from
-            ($sql)
+            ($sql) x
 	"
 
 	return $total_pages
-    }
+   
 }