Index: openacs-4/packages/dotlrn/tcl/community-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.xql,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	11 Feb 2002 22:25:01 -0000	1.25
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	12 Feb 2002 19:08:08 -0000	1.26
@@ -264,42 +264,45 @@
 </querytext>
 </fullquery>
 
-<fullquery name="dotlrn_community::list_applets.select_all_applets">
-<querytext>
-    select impl_name
-    from acs_sc_impls, acs_sc_bindings, acs_sc_contracts, dotlrn_applets
-    where acs_sc_impls.impl_id = acs_sc_bindings.impl_id
-    and acs_sc_impls.impl_name = dotlrn_applets.applet_key
-    and acs_sc_contracts.contract_id = acs_sc_bindings.contract_id
-    and acs_sc_contracts.contract_name = 'dotlrn_applet'
-</querytext>
-</fullquery>
+  <fullquery name="dotlrn_community::list_applets.select_all_applets">
+    <querytext>
+      select impl_name
+      from acs_sc_impls, acs_sc_bindings, acs_sc_contracts
+      where acs_sc_impls.impl_id = acs_sc_bindings.impl_id
+      and acs_sc_contracts.contract_id = acs_sc_bindings.contract_id
+      and acs_sc_contracts.contract_name = 'dotlrn_applet'
+    </querytext>
+  </fullquery>
 
-<fullquery name="dotlrn_community::list_applets.select_community_applets">
-<querytext>
-select applet_key
-from dotlrn_community_applets dca, dotlrn_applets da
-where community_id= :community_id
-and dca.applet_id = da.applet_id
-</querytext>
-</fullquery>
+  <fullquery name="dotlrn_community::list_applets.select_community_applets">
+    <querytext>
+      select applet_key
+      from dotlrn_community_applets dca,
+           dotlrn_applets da
+      where community_id = :community_id
+      and dca.applet_id = da.applet_id
+    </querytext>
+  </fullquery>
 
-<fullquery name="dotlrn_community::list_active_applets.select_all_active_applets">
-<querytext>
-select applet_key from dotlrn_applets where status = 'active'
-</querytext>
-</fullquery>
+  <fullquery name="dotlrn_community::list_active_applets.select_all_active_applets">
+    <querytext>
+      select applet_key
+      from dotlrn_applets
+      where status = 'active'
+    </querytext>
+  </fullquery>
 
-<fullquery name="dotlrn_community::list_active_applets.select_community_active_applets">
-<querytext>
-select applet_key
-from dotlrn_community_applets dca, dotlrn_applets da
-where community_id= :community_id
-and active_p = 't'
-and dca.applet_id = da.applet_id
-and status = 'active'
-</querytext>
-</fullquery>
+  <fullquery name="dotlrn_community::list_active_applets.select_community_active_applets">
+    <querytext>
+      select applet_key
+      from dotlrn_community_applets dca,
+           dotlrn_applets da
+      where community_id = :community_id
+      and active_p = 't'
+      and dca.applet_id = da.applet_id
+      and status = 'active'
+    </querytext>
+  </fullquery>
 
 
 
Index: openacs-4/packages/dotlrn/www/applets-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/applets-chunk.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/www/applets-chunk.tcl	23 Jan 2002 00:15:43 -0000	1.3
+++ openacs-4/packages/dotlrn/www/applets-chunk.tcl	12 Feb 2002 19:08:08 -0000	1.4
@@ -13,7 +13,7 @@
 set user_id [ad_conn user_id]
 
 # Get active applets
-set list_of_active_applets [dotlrn_community::list_applets -community_id $community_id]
+set list_of_active_applets [dotlrn_community::list_active_applets -community_id $community_id]
 
 template::multirow create active_applets applet_key applet_pretty_name
 
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
     }