Index: openacs-4/packages/acs-subsite/www/members/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/index.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-subsite/www/members/index.tcl	10 Nov 2003 12:36:20 -0000	1.10
+++ openacs-4/packages/acs-subsite/www/members/index.tcl	10 Nov 2003 17:32:15 -0000	1.11
@@ -7,6 +7,7 @@
 } {
     {member_state "approved"}
     {orderby "name,asc"}
+    page:optional
 } -validate {
     member_state_valid -requires { member_state } {
         if { [lsearch [group::possible_member_states] $member_state] == -1 } {
@@ -83,11 +84,13 @@
              $num_members]
 }
 
-list::create \
+template::list::create \
     -name "members" \
     -multirow "members" \
     -key rel_id \
     -row_pretty_plural "members" \
+    -page_size 3 \
+    -page_query_name members_pagination \
     -actions $actions \
     -elements {
         name {
@@ -171,28 +174,7 @@
     delete_url
     make_admin_url
     make_member_url
-} -unclobber members relations_query "
-    select r.rel_id, 
-           u.user_id,
-           u.first_names || ' ' || u.last_name as name,
-           u.email,
-           r.rel_type,
-           rt.role_two as rel_role,
-           role.pretty_name as rel_role_pretty,
-           mr.member_state
-    from   acs_rels r,
-           membership_rels mr,
-           cc_users u,
-           acs_rel_types rt,
-           acs_rel_roles role
-    where  r.object_id_one = :group_id
-    and    mr.rel_id = r.rel_id
-    and    u.user_id = r.object_id_two
-    and    rt.rel_type = r.rel_type
-    and    role.role = rt.role_two
-    [template::list::filter_where_clauses -and -name "members"]
-    [template::list::orderby_clause -orderby -name "members"]
-" {
+} -unclobber members members_select {} {
     set rel_role_pretty [lang::util::localize $rel_role_pretty]
     set member_state_pretty [group::get_member_state_pretty -member_state $member_state]
 
Index: openacs-4/packages/acs-subsite/www/members/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/index.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/members/index.xql	10 Nov 2003 17:32:15 -0000	1.1
@@ -0,0 +1,53 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+<fullquery name="members_pagination">
+      <querytext>
+      
+    select r.rel_id, 
+           u.first_names || ' ' || u.last_name as name
+    from   acs_rels r,
+           membership_rels mr,
+           cc_users u
+    where  r.object_id_one = :group_id
+    and    mr.rel_id = r.rel_id
+    and    u.user_id = r.object_id_two
+    [template::list::filter_where_clauses -and -name "members"]
+    [template::list::orderby_clause -orderby -name "members"]
+	
+      </querytext>
+</fullquery>
+
+
+<fullquery name="members_select">      
+      <querytext>
+
+    select r.rel_id, 
+           u.user_id,
+           u.first_names || ' ' || u.last_name as name,
+           u.email,
+           r.rel_type,
+           rt.role_two as rel_role,
+           role.pretty_name as rel_role_pretty,
+           mr.member_state
+    from   acs_rels r,
+           membership_rels mr,
+           cc_users u,
+           acs_rel_types rt,
+           acs_rel_roles role
+    where  r.object_id_one = :group_id
+    and    mr.rel_id = r.rel_id
+    and    u.user_id = r.object_id_two
+    and    rt.rel_type = r.rel_type
+    and    role.role = rt.role_two
+    [template::list::filter_where_clauses -and -name "members"]
+    [template::list::page_where_clause -and -name "members" -key "r.rel_id"]
+    [template::list::orderby_clause -orderby -name "members"]
+
+
+      </querytext>
+</fullquery>
+
+ 
+</queryset>