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.7 -r1.8 --- openacs-4/packages/dotlrn/www/admin/users-search.tcl 16 Feb 2002 17:31:00 -0000 1.7 +++ openacs-4/packages/dotlrn/www/admin/users-search.tcl 6 Mar 2002 00:08:02 -0000 1.8 @@ -37,8 +37,9 @@ -options { {None none} {{Spam ...} spam} - {{Delete ...} delete} {{Add to community ...} add_to_community} + {{Deactivate ...} deactivate} + {{Nuke ...} delete} } \ -value $action @@ -51,12 +52,15 @@ "spam" { ad_returnredirect "users-spam?[export_vars {{users $selected_users}}]" } - "delete" { - ad_returnredirect "users-delete?[export_vars {{users $selected_users}}]" - } "add_to_community" { ad_returnredirect "users-add-to-community?[export_vars {{users $selected_users}}]" } + "deactivate" { + ad_returnredirect "users-deactivate?[export_vars {{users $selected_users}}]" + } + "delete" { + ad_returnredirect "users-delete?[export_vars {{users $selected_users}}]" + } } }