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.22 -r1.23
--- openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-course.tcl	9 Sep 2005 05:01:45 -0000	1.22
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-course.tcl	1 Oct 2005 21:44:39 -0000	1.23
@@ -74,11 +74,13 @@
 
 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	
 }
 
 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	
     }
 }