Index: openacs-4/packages/dotlrn/www/admin/users-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-search.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/dotlrn/www/admin/users-search.tcl	4 Dec 2002 09:51:04 -0000	1.23
+++ openacs-4/packages/dotlrn/www/admin/users-search.tcl	21 Jan 2003 18:50:47 -0000	1.24
@@ -44,7 +44,7 @@
     -datatype text \
     -widget checkbox
 
-element create user_search_results action \
+element create user_search_results search_action \
     -label "[_ dotlrn.Action]" \
     -datatype text \
     -widget radio \
@@ -58,11 +58,11 @@
     -value $action
 
 if {[form is_valid user_search_results]} {
-    form get_values user_search_results action
+    form get_values user_search_results search_action
 
     set selected_users [element get_values user_search_results selected_users]
 
-    switch -exact $action {
+    switch -exact $search_action {
         "spam" {
             ad_returnredirect "users-spam?[export_vars {{users $selected_users}}]"
         }