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.4 -r1.5
--- openacs-4/packages/acs-admin/www/users/complex-search.tcl	8 Jul 2002 10:20:55 -0000	1.4
+++ openacs-4/packages/acs-admin/www/users/complex-search.tcl	2 Sep 2002 14:44:42 -0000	1.5
@@ -54,12 +54,16 @@
     export_authorize:onevalue
     passthrough_parameters:onevalue
     combine_method:onevalue
+    context_bar:onevalue
 }
 
 # Check input.
 set exception_count 0
 set exception_text ""
 
+
+set context_bar [ad_admin_context_bar [list "index" "Users"] "Complex search"]
+
 if { ![info exists target] || [empty_string_p $target] } {
     incr exception_count
     append exception_text "<li>Target was not specified. This shouldn't have
@@ -128,6 +132,8 @@
     lappend where_clause {member_state = 'approved'}
 } elseif { $only_needs_approval_p } {
     lappend where_clause {member_state = 'needs approval'}
+    incr rowcount
+    set criteria:[set rowcount](data) "Needs approval"
 }
 
 if { $registration_before_days >= 0 } {