Index: openacs-4/packages/acs-admin/www/users/complex-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/complex-search.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-admin/www/users/complex-search.tcl	9 Mar 2002 02:00:02 -0000	1.3
+++ openacs-4/packages/acs-admin/www/users/complex-search.tcl	8 Jul 2002 10:20:55 -0000	1.4
@@ -36,6 +36,7 @@
     {passthrough ""}
     {limit_to_users_in_group_id ""}
     {only_authorized_p:integer 1}
+    {only_needs_approval_p:naturalnum 0}
     {registration_before_days:integer -1}
     {registration_after_days:integer -1}
     {last_visit_before_days:integer -1}
@@ -125,6 +126,8 @@
 
 if { $only_authorized_p } {
     lappend where_clause {member_state = 'approved'}
+} elseif { $only_needs_approval_p } {
+    lappend where_clause {member_state = 'needs approval'}
 }
 
 if { $registration_before_days >= 0 } {