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]