Index: openacs-4/packages/dotfolio/tcl/dotfolio-users-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio/tcl/dotfolio-users-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotfolio/tcl/dotfolio-users-procs.tcl	19 May 2005 15:19:32 -0000	1.3
+++ openacs-4/packages/dotfolio/tcl/dotfolio-users-procs.tcl	27 May 2005 05:01:20 -0000	1.4
@@ -145,4 +145,17 @@
         return [db_string dotfolio_url {} -default ""]
     }
 
+    ad_proc get_user_id_from_username {
+        -username
+    } {
+	Returns the user_id for the user with the specified username.
+	Otherwise an empty string is returned.
+
+	@param username The username for a user.
+	@return Returns the user_id for the user that matches the given
+	username.
+    } {
+        return [db_string select_user_id {} -default ""]
+    }
+
 }