Index: openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl	23 Oct 2002 12:38:38 -0000	1.8
+++ openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl	31 Mar 2004 20:33:49 -0000	1.8.2.1
@@ -44,8 +44,30 @@
         # Loop through patterns
         foreach pattern [automatic_email_patterns] {
             if {[string match $pattern $email]} {
+                # get AutoAddUser-parameters 
+                set type [parameter::get \
+                              -parameter AutoUserType \
+                              -package_id [dotlrn::get_package_id] \
+                              -default "student"]
+
+                set can_browse_p [parameter::get \
+                                      -parameter AutoUserAccessLevel \
+                                      -package_id [dotlrn::get_package_id] \
+                                      -default 1]
+
+                set read_private_data_p [parameter::get \
+                                             -parameter AutoUserReadPrivateDataP \
+                                             -package_id [dotlrn::get_package_id] \
+                                             -default 1]
                 # create the dotLRN user now
-                dotlrn::user_add -type student -can_browse_p -user_id $user_id
+                db_transaction {
+                    dotlrn::user_add -type $type -can_browse=$can_browse_p -user_id $user_id
+
+                    acs_privacy::set_user_read_private_data \
+                        -user_id $user_id \
+                        -object_id [dotlrn::get_package_id] \
+                        -value $read_private_data_p
+                }
                 break
             }
         }