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.1 -r1.2
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	30 Oct 2001 21:26:58 -0000	1.1
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	5 Nov 2001 22:34:23 -0000	1.2
@@ -20,11 +20,23 @@
 namespace eval dotlrn {
     
     ad_proc -public user_add {
-	user_id
+	{-role "user"}
+	user_id	
     } {
 	Add a user as a dotLRN user
     } {
-	db_dml add_user {}
+	db_transaction {
+	    db_exec_plsql add_user {}
+
+	    # Create a portal page for this user
+	    set page_id [portal::create $user_id]
+
+	    # Add the basic dotLRN class listing portlet
+	    # NOT IMPLEMENTED YET!
+
+	    # Update the user and set the portal page correctly
+	    db_dml update_user_page_id {}
+	}
     }
 
     ad_proc -public user_remove {