Index: openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl,v
diff -u -r1.42 -r1.43
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	16 May 2002 13:37:42 -0000	1.42
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	24 May 2002 01:58:45 -0000	1.43
@@ -122,7 +122,10 @@
         ns_set put $extra_vars access_level $access_level
         ns_set put $extra_vars id $id
 
-        set template_id [dotlrn_community::get_type_portal_id -community_type "user_workspace"]
+        set template_id [dotlrn::get_portal_id_from_type \
+                             -type "user"
+        ]
+
         db_transaction {
             set portal_id [portal::create \
                 -template_id $template_id \
@@ -142,9 +145,6 @@
                 $user_id \
             ]
 
-            # add the "dotlrn main" portlet to the user's workspace
-            dotlrn_main_portlet::add_self_to_page -portal_id $portal_id
-
             dotlrn_community::applets_dispatch -op AddUser -list_args [list $user_id]
 
             # if the user is a member of communities (from some previous