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.9 -r1.10
--- openacs-4/packages/dotfolio/tcl/dotfolio-users-procs.tcl	5 Oct 2005 03:38:19 -0000	1.9
+++ openacs-4/packages/dotfolio/tcl/dotfolio-users-procs.tcl	5 May 2007 17:22:59 -0000	1.10
@@ -142,7 +142,7 @@
 	@param user_id A user's user_id.
 	@return Returns the url of the user's dotfolio
     } {
-        return [db_string dotfolio_url {} -default ""]
+	return [site_node::get_url -node_id [db_string dotfolio_url {} -default ""]]
     }
 
     ad_proc get_user_id_from_username {
@@ -204,6 +204,8 @@
 	return $rel_id
     }
 
+    
+    
     ad_proc -public get_user_type {
         {-user_id:required}
     } {
@@ -212,6 +214,17 @@
 	@param user_id The ID for a specific user.
 	@return Returns the user type for the specified user.
     } {
+	return [util_memoize [list dotfolio::user::get_user_type_not_cached -user_id $user_id]]
+    }
+
+    ad_proc -public get_user_type_not_cached {
+        {-user_id:required}
+    } {
+        Returns the user type for the given user.
+
+	@param user_id The ID for a specific user.
+	@return Returns the user type for the specified user.
+    } {
 	return [db_string user_type {} -default ""]
     }