Index: openacs-4/packages/dotlrn-ecommerce/tcl/dotlrn-ecommerce-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/dotlrn-ecommerce-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/dotlrn-ecommerce/tcl/dotlrn-ecommerce-procs.tcl	22 Aug 2005 14:30:16 -0000	1.3
+++ openacs-4/packages/dotlrn-ecommerce/tcl/dotlrn-ecommerce-procs.tcl	22 Aug 2005 23:15:00 -0000	1.4
@@ -26,7 +26,7 @@
 } {
     if {[parameter::get -parameter NotifyAdminsOfWaitlistDaily -default 0]} {
         set mail_from [parameter::get -package_id [ad_acs_kernel_id] -parameter OutgoingSender]
-        set subject "Notification for waitlist"
+        set subject "Notification of waiting list size"
         set message ""
         
         db_foreach get_sections_with_waitlist {
@@ -53,7 +53,7 @@
 					 from site_nodes c, site_nodes p, dotlrn_communities_all d
 					 where c.parent_id = p.node_id
 					 and p.object_id = d.package_id
-					 and c.package_id = cal.package_id) as community_id
+					 and c.object_id = cal.package_id) as community_id
 				 from cal_items i
 				 join calendars cal on (i.on_which_calendar = cal.calendar_id)
 				 where i.item_type_id in (select item_type_id
@@ -78,8 +78,9 @@
 				 and start_date >= current_date)
 	} {
             append message "Section: $course_name - $section_name
-Applicants in notify list: $waitlist_n
+Applicants in notify list: $waitlist_n 
 "
+ns_write $message
         }
 
         if {![empty_string_p $message]} {
@@ -95,6 +96,7 @@
                       and ap.object_id = :object_id
                       and ap.privilege = :privilege
             } {
+	      
                 acs_mail_lite::send \
                     -to_addr $email_to \
                     -from_addr $mail_from \