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.4 -r1.5
--- openacs-4/packages/dotfolio/tcl/dotfolio-users-procs.tcl	27 May 2005 05:01:20 -0000	1.4
+++ openacs-4/packages/dotfolio/tcl/dotfolio-users-procs.tcl	5 Jun 2005 12:28:37 -0000	1.5
@@ -158,4 +158,50 @@
         return [db_string select_user_id {} -default ""]
     }
 
+    ad_proc -public remove {
+        {-user_id:required}
+    } {
+        Remove a user from the set of dotFOLIO users
+    } {
+        set rel_id [db_string select_rel_id {} -default ""]
+
+        if {![empty_string_p $rel_id]} {
+            relation_remove $rel_id
+        }
+    }
+
+    ad_proc -public add {
+	{-type owner}
+	{-id ""}
+	{-user_id:required}
+    } {
+	Add a user as a dotfolio user.
+    } {
+	# Check if the user is already a dotfolio user
+	if {[user_p -user_id $user_id]} {
+	    return
+	}
+
+	# Set default ID to email address
+	if {[empty_string_p $id]} {
+	    set id [cc_email_from_party $user_id]
+	}
+
+	# set up extra vars
+	set extra_vars [ns_set create]
+	ns_set put $extra_vars user_id $user_id
+	ns_set put $extra_vars id $id
+
+	# Add the relation (no need for object_id_one or two).
+	set rel_id [relation_add \
+	    -extra_vars $extra_vars \
+	    -member_state approved \
+	    [get_rel_type_from_user_type -type $type] \
+	    "" \
+            $user_id \
+        ]
+
+	return $rel_id
+    }
+
 }