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.1 -r1.2
--- openacs-4/packages/dotlrn/www/admin/users-search.tcl	11 Feb 2002 20:17:00 -0000	1.1
+++ openacs-4/packages/dotlrn/www/admin/users-search.tcl	12 Feb 2002 19:08:08 -0000	1.2
@@ -177,10 +177,11 @@
         append sql [join $wheres " $join_criteria "]
     }
 
+    set referer "users-search"
     set selected_users_options [list]
     set selected_users_values [list]
     db_foreach select_users $sql {
-        lappend selected_users_options [list "$last_name, $first_names ($email)" $user_id]
+        lappend selected_users_options [list "<a href=\"user-edit?[export_vars {user_id referer}]\">$last_name, $first_names</a> ($email)" $user_id]
         lappend selected_users_values $user_id
     }