Index: openacs-4/packages/dotlrn-ecommerce/dotlrn-ecommerce.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/dotlrn-ecommerce.info,v diff -u -r1.15 -r1.16 --- openacs-4/packages/dotlrn-ecommerce/dotlrn-ecommerce.info 30 Jul 2005 22:28:32 -0000 1.15 +++ openacs-4/packages/dotlrn-ecommerce/dotlrn-ecommerce.info 3 Aug 2005 03:48:19 -0000 1.16 @@ -33,6 +33,7 @@ + Index: openacs-4/packages/dotlrn-ecommerce/tcl/apm-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/apm-callback-procs.tcl,v diff -u -r1.13 -r1.14 --- openacs-4/packages/dotlrn-ecommerce/tcl/apm-callback-procs.tcl 22 Jul 2005 10:56:09 -0000 1.13 +++ openacs-4/packages/dotlrn-ecommerce/tcl/apm-callback-procs.tcl 3 Aug 2005 03:48:19 -0000 1.14 @@ -64,6 +64,9 @@ -sort_order $sort_order \ -default_value "true" \ -column_spec "boolean" + + # I think default_value does not set the default for the column so we do a db_dml + db_dml "update_default" "alter table dotlrn_catalog alter display_p set default 'true'" } ad_proc -private dotlrn_ecommerce::after_upgrade { 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 -r1.10 -r1.11 --- openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request.tcl 2 Aug 2005 19:12:19 -0000 1.10 +++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request.tcl 3 Aug 2005 03:48:19 -0000 1.11 @@ -59,11 +59,14 @@ set body [_ dotlrn-ecommerce.lt_Requested_waiver_of_prereq_1] } - acs_mail_lite::send \ - -to_addr [cc_email_from_party $participant_id] \ - -from_addr $mail_from \ - -subject $subject \ - -body $body + if { [parameter::get -package_id [ad_conn package_id] -parameter NotifyApplicantOnRequest] } { + ns_log notice "DEBUG:: SENDING APPLICATION NOTIFICATION" + acs_mail_lite::send \ + -to_addr [cc_email_from_party $participant_id] \ + -from_addr $mail_from \ + -subject $subject \ + -body $body + } } } ns_log notice "DEBUG:: RELATION $participant_id, $community_id, $rel_id"