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.17 -r1.18
--- openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl	10 Aug 2005 01:51:15 -0000	1.17
+++ openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl	10 Aug 2005 02:35:07 -0000	1.18
@@ -321,6 +321,9 @@
     where ds.community_id=:community_id
     and ds.course_id=cr.item_id
     and cr.live_revision=dc.course_id" -default ""]
+    if {[string equal "" $course_community_id]} {
+	return -code continue	
+    }
 #ad_return_complaint 1 " 1 - $course_community_id 2 - $community_id"
     if {[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=coalesce(:course_community_id,:community_id)"]} {
 	if {$course_community_id eq $email_community_id} {
@@ -341,7 +344,6 @@
         # check to see if message keys exist
         return -code return [list $from_addr $subject "$email $body_extra" "dotlrn-ecommerce"]
     }
-    else return -code continue
 }
 
 ad_proc -callback dotlrn::member_email_var_list -impl dotlrn-ecommerce {} {