Index: openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-course.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-course.tcl,v
diff -u -N -r1.23 -r1.24
--- openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-course.tcl	1 Oct 2005 21:44:39 -0000	1.23
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-course.tcl	13 Jun 2006 17:03:12 -0000	1.24
@@ -72,16 +72,10 @@
 
 set next_url [export_vars -base process-purchase-course { {purchaser_id $user_id} participant participant_id section section_id related_user {new_user_p 1} }]
 
-if { ! [dotlrn::user_p -user_id $user_id] } {
-    dotlrn::user_add -user_id $user_id
-    dotlrn_privacy::set_user_guest_p -user_id $user_id -value f	
-}
+dotlrn_ecommerce::check_user -user_id $user_id
 
 if { $participant_id } {
-    if { ! [dotlrn::user_p -user_id $participant_id] } {
-	dotlrn::user_add -user_id $participant_id
-	dotlrn_privacy::set_user_guest_p -user_id $participant_id -value f	
-    }
+    dotlrn_ecommerce::check_user -user_id $participant_id
 }
 
 set validate [list]