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.2 -r1.3
--- openacs-4/packages/dotfolio/tcl/dotfolio-users-procs.tcl	14 May 2005 14:27:44 -0000	1.2
+++ openacs-4/packages/dotfolio/tcl/dotfolio-users-procs.tcl	19 May 2005 15:19:32 -0000	1.3
@@ -123,4 +123,26 @@
 	return $list_of_advisers
     }
 
+    ad_proc adviser_p {
+        user_id
+    } {
+        Returns 1 if the specified user_id is an adviser.
+	Otherwise returns 0.
+
+	@param user_id A user's user_id.
+    } {
+        return [db_0or1row adviser_p {}]
+    }
+
+    ad_proc dotfolio_url {
+        -user_id
+    } {
+	Returns the url of the user's dotfolio.
+
+	@param user_id A user's user_id.
+	@return Returns the url of the user's dotfolio
+    } {
+        return [db_string dotfolio_url {} -default ""]
+    }
+
 }