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.19 -r1.20 --- openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl 11 Aug 2005 03:05:24 -0000 1.19 +++ openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl 22 Aug 2005 23:15:00 -0000 1.20 @@ -357,9 +357,8 @@ # check if this is a dotlrn-ecommerce community, if not, bail if {![db_string is_section "select 1 from dotlrn_ecommerce_section where community_id=:community_id" -default 0]} { # this return code tells the caller to ignore the results of this callback implementation - ns_log notice "DAVEB: Skipping default email for dotlrn-ecommerce, not in a section community" + ns_log notice "DAVEB: email_var_list Skipping default email for dotlrn-ecommerce, not in a section community" return -code continue - DIE } #FIXME depend on email type?? array set var_list [list first_name "" last_name "" full_name "" community_link "" community_name "" community_url "" course_name "" sessions "" instructor_names ""] @@ -415,6 +414,7 @@ } set var_list(instructor_names) $instructor_names } +ns_log notice "DAVEB email var list '[array get var_list]'" return [array get var_list] }