Index: openacs-4/packages/acs-subsite/www/permissions/perm-user-add-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-user-add-include.tcl,v
diff -u -N -r1.4 -r1.4.2.1
--- openacs-4/packages/acs-subsite/www/permissions/perm-user-add-include.tcl	29 Sep 2003 11:52:55 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/permissions/perm-user-add-include.tcl	25 Nov 2003 13:52:53 -0000	1.4.2.1
@@ -2,6 +2,7 @@
 } {
     object_id:integer,notnull
     return_url
+    page:integer,optional
 }
 
 # check they have read permission on this file
@@ -17,15 +18,12 @@
 
 set perm_url "[site_node_closest_ancestor_package_url]permissions/"
 
-db_multirow -extend { add_url } users users_who_dont_have_any_permissions {} {
-    set add_url [export_vars -base "${perm_url}perm-user-add-2" { return_url object_id user_id }]
-}
-
-
 list::create \
     -name users \
     -multirow users \
     -key user_id \
+    -page_size 20 \
+    -page_query_name users_who_dont_have_any_permissions_paginator \
     -no_data "There are no users who don't already have access to this object" \
     -bulk_action_export_vars { return_url object_id } \
     -bulk_actions [list \
@@ -45,9 +43,17 @@
             link_html { title "Add this user" }
             display_template "Add"
         }
+    } -filters {
+	object_id {}
+	return_url {}
     }
 
+set page_where_clause [list::page_where_clause -name users -and]
+
+db_multirow -extend { add_url } users users_who_dont_have_any_permissions {} {
+    set add_url [export_vars -base "${perm_url}perm-user-add-2" { return_url object_id user_id }]
+}
+
 set img_path "[ad_conn package_url]images"
 
 set form_export_vars [export_vars -form {object_id return_url }]
-