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"