Index: openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-group.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-group.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-group.tcl	29 Aug 2005 17:04:06 -0000	1.2
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-group.tcl	29 Aug 2005 17:17:16 -0000	1.3
@@ -67,6 +67,36 @@
 				-nologin]
 	
 	if { [info exists new_user(user_id)] } {
+	    # make a dotlrn user
+	    if { ![dotlrn::user_p -user_id $new_user(user_id)] } {
+		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]
+		
+		db_transaction {
+		    dotlrn::user_add \
+			-type $type \
+			-can_browse=$can_browse_p \
+			-user_id $new_user(user_id)
+        
+		    dotlrn_privacy::set_user_is_non_guest \
+			-user_id $new_user(user_id) \
+			-value $read_private_data_p
+		}
+
+	    }
+
 	    relation_add -member_state approved membership_rel $group_id $new_user(user_id)
 	} else {
 	    ad_return_complaint 1 "There was a problem creating the account \"$name $group_id Attendee $i\"."