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.54.2.1.4.3 -r1.54.2.1.4.4 --- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl 23 Jul 2004 13:53:41 -0000 1.54.2.1.4.3 +++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl 23 Jul 2004 16:57:08 -0000 1.54.2.1.4.4 @@ -110,11 +110,12 @@ db_transaction { set_can_browse -user_id $user_id -can_browse\=$can_browse_p - set portal_id [portal::create \ - -template_id $template_id \ - -name "[_ dotlrn.lt_Your_dotLRN_Workspace]" \ - $user_id] + set portal_id [portal::create \ + -template_id $template_id \ + -name "[_ dotlrn.lt_Your_dotLRN_Workspace]" \ + $user_id] + ns_set put $extra_vars portal_id $portal_id # Add the relation (no need to feed in anything for object_id_one,