Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.51 -r1.52
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	17 Aug 2007 14:03:44 -0000	1.51
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	20 Aug 2007 20:10:13 -0000	1.52
@@ -407,6 +407,21 @@
         set authority_id [auth::authority::local]
     }
 
+    return [util_memoize [list acs_user::get_by_username_not_cached -authority_id $authority_id -username $username]]
+}    
+
+ad_proc -public acs_user::get_by_username_not_cached {
+    {-authority_id:required}
+    {-username:required}
+} {
+    Returns user_id from authority and username. Returns the empty string if no user found.
+    
+    @param authority_id The authority. Defaults to local authority.
+
+    @param username The username of the user you're trying to find.
+
+    @return user_id of the user, or the empty string if no user found.
+}  {
     return [db_string user_id_from_username {} -default {}]
 }