Index: openacs-4/packages/dotlrn/sql/oracle/users-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/users-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/sql/oracle/users-create.sql	6 May 2002 23:55:01 -0000	1.1
+++ openacs-4/packages/dotlrn/sql/oracle/users-create.sql	16 May 2002 13:37:42 -0000	1.2
@@ -37,7 +37,7 @@
                                 check (access_level in ('full', 'limited'))
                                 constraint dotlrn_user_p_rels_access_nn
                                 not null,
-    id                          varchar(100)
+    id                          varchar(200)
 );
 
 create table dotlrn_user_types (
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.41 -r1.42
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	16 May 2002 05:17:09 -0000	1.41
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	16 May 2002 13:37:42 -0000	1.42
@@ -111,14 +111,18 @@
             return
         }
 
+        # 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 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_community::get_type_portal_id -community_type "user_workspace"]
         db_transaction {
             set portal_id [portal::create \
                 -template_id $template_id \