Index: openacs-4/packages/dotfolio/tcl/dotfolio-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio/tcl/dotfolio-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/dotfolio/tcl/dotfolio-procs.tcl	5 Jun 2005 12:28:37 -0000	1.3
+++ openacs-4/packages/dotfolio/tcl/dotfolio-procs.tcl	5 Jun 2005 13:42:55 -0000	1.4
@@ -123,6 +123,11 @@
 	    group::add_member -group_id $group_id -user_id $owner_id \
 		-rel_type "membership_rel"
 
+	    # Grant the owner write permissions for their dotfolio.
+	    permission::grant -party_id $owner_id \
+		-object_id $package_id \
+		-privilege "write"
+
 	    # Give dotfolio owner admin permission for their blog.
 	    array set blog_node_info [site_node::get -url $blog_url]
 	    set blog_id $blog_node_info(object_id)
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 -N -r1.2 -r1.3
--- openacs-4/packages/dotfolio/tcl/dotfolio-security-procs.tcl	5 Jun 2005 12:28:37 -0000	1.2
+++ openacs-4/packages/dotfolio/tcl/dotfolio-security-procs.tcl	5 Jun 2005 13:42:55 -0000	1.3
@@ -22,7 +22,7 @@
     @version $Id$
 }
 
-namespace eval dotfolio::security {
+namespace eval dotfolio {
 
     ad_proc -private do_abort {} {
         Do an abort if security violation
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 -N -r1.5 -r1.6
--- openacs-4/packages/dotfolio/tcl/dotfolio-users-procs.tcl	5 Jun 2005 12:28:37 -0000	1.5
+++ openacs-4/packages/dotfolio/tcl/dotfolio-users-procs.tcl	5 Jun 2005 13:42:55 -0000	1.6
@@ -178,7 +178,7 @@
 	Add a user as a dotfolio user.
     } {
 	# Check if the user is already a dotfolio user
-	if {[user_p -user_id $user_id]} {
+	if {[dotfolio::user_p -user_id $user_id]} {
 	    return
 	}
 
@@ -196,7 +196,7 @@
 	set rel_id [relation_add \
 	    -extra_vars $extra_vars \
 	    -member_state approved \
-	    [get_rel_type_from_user_type -type $type] \
+	    [dotfolio::get_rel_type_from_user_type -type $type] \
 	    "" \
             $user_id \
         ]
Index: openacs-4/packages/dotfolio-ui/lib/profile-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio-ui/lib/profile-edit.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dotfolio-ui/lib/profile-edit.tcl	5 May 2005 08:54:42 -0000	1.1
+++ openacs-4/packages/dotfolio-ui/lib/profile-edit.tcl	5 Jun 2005 13:43:22 -0000	1.2
@@ -15,11 +15,11 @@
 # never a new_request.
 set owner_id [dotfolio::user::get_owner_id]
 
-# Check if the user has permission to edit the owner's profile.
+# Check if the user has write permission to edit the owner's profile.
 permission::require_permission \
     -object_id $package_id \
     -party_id $user_id \
-    -privilege "admin"
+    -privilege "write"
 
 # Export variable edit_profile as empty query string.  Used to display this
 # include script.