Index: openacs-4/packages/categories/www/cadmin/category-usage-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/Attic/category-usage-oracle.xql,v diff -u -r1.1 -r1.1.22.1 --- openacs-4/packages/categories/www/cadmin/category-usage-oracle.xql 27 Apr 2003 11:37:12 -0000 1.1 +++ openacs-4/packages/categories/www/cadmin/category-usage-oracle.xql 15 Mar 2019 13:54:28 -0000 1.1.22.1 @@ -3,16 +3,6 @@ oracle8.1.6 - - - select n.object_id - from category_object_map m, acs_named_objects n - where acs_permission.permission_p(m.object_id, :user_id, 'read') = 't' - and m.category_id = :category_id - and n.object_id = m.object_id - - - select r.* Index: openacs-4/packages/categories/www/cadmin/category-usage-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/Attic/category-usage-postgresql.xql,v diff -u -r1.3 -r1.3.10.1 --- openacs-4/packages/categories/www/cadmin/category-usage-postgresql.xql 2 May 2007 09:21:43 -0000 1.3 +++ openacs-4/packages/categories/www/cadmin/category-usage-postgresql.xql 15 Mar 2019 13:54:28 -0000 1.3.10.1 @@ -3,16 +3,6 @@ postgresql7.1 - - - select n.object_id - from category_object_map m, acs_named_objects n - where acs_permission__permission_p(m.object_id, :user_id, 'read') = 't' - and m.category_id = :category_id - and n.object_id = m.object_id - - - select n.object_id, n.object_name as object_name, o.creation_date, Index: openacs-4/packages/categories/www/cadmin/category-usage.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-usage.tcl,v diff -u -r1.10 -r1.10.2.1 --- openacs-4/packages/categories/www/cadmin/category-usage.tcl 29 Jun 2018 17:27:18 -0000 1.10 +++ openacs-4/packages/categories/www/cadmin/category-usage.tcl 15 Mar 2019 13:54:28 -0000 1.10.2.1 @@ -74,7 +74,13 @@ request set_param page -datatype integer -value 1 # execute query to count objects and pages -paginator create get_category_usages $p_name "" -pagesize 20 -groupsize 10 -contextual -timeout 0 +paginator create get_category_usages $p_name { + select n.object_id + from category_object_map m, acs_named_objects n + where acs_permission.permission_p(m.object_id, :user_id, 'read') = 't' + and m.category_id = :category_id + and n.object_id = m.object_id +} -pagesize 20 -groupsize 10 -contextual -timeout 0 set first_row [paginator get_row $p_name $page] set last_row [paginator get_row_last $p_name $page]