Index: openacs-4/packages/dotfolio/tcl/dotfolio-security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio/tcl/dotfolio-security-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotfolio/tcl/dotfolio-security-procs.tcl	2 Aug 2005 01:54:52 -0000	1.5
+++ openacs-4/packages/dotfolio/tcl/dotfolio-security-procs.tcl	5 May 2007 17:22:59 -0000	1.6
@@ -58,6 +58,14 @@
         return [db_string select_count {}]
     }
 
+    ad_proc -public dotfolio_p {
+        {-user_id:required}
+    } {
+        Check if a user has a dotfolio created
+    } {
+        return [db_string dotfolio_count {} -default 0]
+    }
+
     ad_proc -public get_user_types_as_options {
 	{-ignore_guest "false"}
 } {
@@ -83,4 +91,4 @@
         return $localized_list
     }
 
-}
\ No newline at end of file
+}