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.39 -r1.40 --- openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl 29 Nov 2019 14:22:31 -0000 1.39 +++ openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl 29 Oct 2024 16:20:33 -0000 1.40 @@ -302,12 +302,12 @@ } return -code return [list $from_addr $subject "$email $body_extra" $email_from] } elseif {[db_0or1row get_email "select from_addr,subject,email, community_id as email_community_id from dotlrn_member_emails where type=:type and community_id is null"]} { - # community_id is null is a customized site wide default exists + # community_id is null is a customized site-wide default exists set email_from "" return -code return [list $from_addr $subject "$email $body_extra" $email_from] } else { - # site wide default has not been edited + # site-wide default has not been edited set subject_key_trim [lindex [split [dotlrn_ecommerce::email_type_message_key -type $type -key subject] "."] 1] set email_key_trim [lindex [split [dotlrn_ecommerce::email_type_message_key -type $type -key body] "."] 1] set subject ""