Index: openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request.tcl,v
diff -u -N -r1.30 -r1.31
--- openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request.tcl	23 Jan 2006 08:04:41 -0000	1.30
+++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request.tcl	8 Feb 2006 02:51:34 -0000	1.31
@@ -79,11 +79,11 @@
     }
 }
 
-ns_log notice "DEBUG:: RELATION $participant_id, $community_id, $rel_id"
+ns_log debug "DEBUG:: RELATION $participant_id, $community_id, $rel_id"
 set wait_list_notify_email [parameter::get -package_id [ad_acs_kernel_id] -parameter AdminOwner]
 set mail_from [parameter::get -package_id [ad_acs_kernel_id] -parameter OutgoingSender]
 
-ns_log notice "application-request: wait list notify: potential community is $community_id"
+ns_log debug "application-request: wait list notify: potential community is $community_id"
 if {[db_0or1row get_nwn {
     select s.notify_waiting_number,
     s.section_name
@@ -100,8 +100,8 @@
 	    and r.rel_type = 'dotlrn_member_rel'
 	    and r.object_id_one = :community_id
 	}]
-	ns_log notice "application-request: wait list notify: community $community_id wait number is $notify_waiting_number"
-	ns_log notice "application-request: wait list notify: community $community_id waitlisteed is $current_waitlisted"
+	ns_log debug "application-request: wait list notify: community $community_id wait number is $notify_waiting_number"
+	ns_log debug "application-request: wait list notify: community $community_id waitlisteed is $current_waitlisted"
 	if {$current_waitlisted >= $notify_waiting_number} {
 	    set subject "Waitlist notification for $section_name"
 	    set body "$section_name is set to notify when the waitlist reaches ${notify_waiting_number}.
@@ -111,9 +111,9 @@
 		-from_addr $mail_from \
 		-subject $subject \
 		-body $body
-	    ns_log notice "application-request: wait list notify: community $community_id sending email"
+	    ns_log debug "application-request: wait list notify: community $community_id sending email"
 	} else {
-	    ns_log notice "application-request: wait list notify: community $community_id NOT sending email"
+	    ns_log debug "application-request: wait list notify: community $community_id NOT sending email"
 	}
     }
 }