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.3 -r1.4
--- openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-group.tcl	29 Aug 2005 17:17:16 -0000	1.3
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-group.tcl	13 Jun 2006 17:03:12 -0000	1.4
@@ -68,34 +68,8 @@
 	
 	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
-		}
 
-	    }
+	    dotlrn_ecommerce::check_user -user_id $new_user(user_id)
 
 	    relation_add -member_state approved membership_rel $group_id $new_user(user_id)
 	} else {