Index: openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl,v diff -u -r1.31 -r1.32 --- openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl 1 Oct 2005 21:44:40 -0000 1.31 +++ openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl 19 Oct 2005 14:49:56 -0000 1.32 @@ -16,6 +16,7 @@ -user_id:required -patron_id:required -community_id:required + -suppress_patron_email:boolean } { Register user to community @@ -36,7 +37,8 @@ # See if we need to send the welcome email to the # purchaser - if { [lsearch [parameter::get -parameter WelcomeEmailRecipients] purchaser] != -1 } { + if { [lsearch [parameter::get -parameter WelcomeEmailRecipients] purchaser] != -1 && \ + $suppress_patron_email_p == 0 } { ns_log Notice "sending email to patron_id $patron_id for user_id $user_id" if {$patron_id != $participant_id} { # if they are the participant, then @@ -160,7 +162,11 @@ set patron_id $saved_patron_id } - dotlrn_ecommerce::registration::new -user_id $user_id -patron_id $patron_id -community_id $community_id + if { [acs_object_type $participant_id] == "group" } { + dotlrn_ecommerce::registration::new -user_id $user_id -patron_id $patron_id -community_id $community_id -suppress_patron_email + } else { + dotlrn_ecommerce::registration::new -user_id $user_id -patron_id $patron_id -community_id $community_id + } } errMsg] } { # Fixes for possible double click