Index: openacs-4/packages/dotlrn-ecommerce/www/application-approve.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/application-approve.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/dotlrn-ecommerce/www/application-approve.tcl 16 Jul 2005 12:51:06 -0000 1.2
+++ openacs-4/packages/dotlrn-ecommerce/www/application-approve.tcl 16 Jul 2005 14:23:51 -0000 1.3
@@ -56,4 +56,21 @@
-body [subst "[_ dotlrn-ecommerce.lt_Your_application_to_j]"]
}
+# Send email to applicant
+set actor_id [ad_conn user_id]
+
+if { $user_id != $actor_id } {
+ set applicant_email [cc_email_from_party $user_id]
+ set actor_email [cc_email_from_party $actor_id]
+ set community_name [dotlrn_community::get_community_name $community_id]
+
+# set application_url [ad_url]/[apm_package_url_from_key dotlrn-ecommerce]ecommerce/prerequisite-confirm
+
+ acs_mail_lite::send \
+ -to_addr $applicant_email \
+ -from_addr $actor_email \
+ -subject [subst "[_ dotlrn-ecommerce.Application_approved]"] \
+ -body [subst "[_ dotlrn-ecommerce.lt_Your_application_to_j]"]
+}
+
ad_returnredirect applications
Index: openacs-4/packages/dotlrn-ecommerce/www/admin/application-approve.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/application-approve.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/dotlrn-ecommerce/www/admin/application-approve.tcl 16 Jul 2005 12:51:06 -0000 1.2
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/application-approve.tcl 16 Jul 2005 14:23:52 -0000 1.3
@@ -18,4 +18,4 @@
dotlrn_community::membership_approve -community_id $community_id -user_id $user_id
-ad_returnredirect applications
+ad_returnredirect ../applications
Index: openacs-4/packages/dotlrn-ecommerce/www/admin/application-reject.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/application-reject.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/dotlrn-ecommerce/www/admin/application-reject.tcl 16 Jul 2005 12:51:06 -0000 1.2
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/application-reject.tcl 16 Jul 2005 14:23:52 -0000 1.3
@@ -18,4 +18,4 @@
dotlrn_community::membership_reject -community_id $community_id -user_id $user_id
-ad_returnredirect applications
+ad_returnredirect ../applications
Index: openacs-4/packages/dotlrn-ecommerce/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/index.adp,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/dotlrn-ecommerce/www/admin/index.adp 16 Jul 2005 12:51:06 -0000 1.7
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/index.adp 16 Jul 2005 14:23:52 -0000 1.8
@@ -22,13 +22,13 @@
Administrative Setup
System Setup
Index: openacs-4/packages/dotlrn-ecommerce/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/index.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/dotlrn-ecommerce/www/admin/index.tcl 16 Jul 2005 12:51:06 -0000 1.7
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/index.tcl 16 Jul 2005 14:23:52 -0000 1.8
@@ -97,4 +97,7 @@
set registration_assessment_id [parameter::get -parameter RegistrationId -package_id [subsite::main_site_id]]
if { ! [empty_string_p $registration_assessment_id] } {
set registration_assessment_url [export_vars -base "[apm_package_url_from_id [parameter::get -parameter AssessmentPackage]]asm-admin/one-a" { {assessment_id $registration_assessment_id} return_url }]
-}
\ No newline at end of file
+}
+
+set tree_id [parameter::get -parameter PatronRelationshipCategoryTree]
+set relationships_category_url [export_vars -base ../Administration/categories/cadmin/tree-view { tree_id }]
Index: openacs-4/packages/dotlrn-ecommerce/www/ecommerce/login.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/ecommerce/login.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dotlrn-ecommerce/www/ecommerce/login.adp 30 Jun 2005 11:48:45 -0000 1.1
+++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/login.adp 16 Jul 2005 14:23:52 -0000 1.2
@@ -3,7 +3,7 @@
{#acs-subsite.Log_In#}
@header_stuff;noquote@
- Registering for classes with @service_name@ is quick and easy
+ #dotlrn-ecommerce.lt_Registering_for_class#
Index: openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change-2.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change-2.tcl 16 Jul 2005 12:51:07 -0000 1.3
+++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change-2.tcl 16 Jul 2005 14:23:52 -0000 1.4
@@ -44,7 +44,6 @@
set rel_id [relation::get_id -object_id_one $patron_id -object_id_two $user_id -rel_type "patron_rel"]
set add_url [export_vars -base "shopping-cart-add" { product_id {user_id $patron_id} {participant_id $user_id} return_url }]
-
if { ![empty_string_p $rel_id] || $user_id == $patron_id } {
if { $new_user_p } {
ad_returnredirect $add_url
Index: openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change.tcl 16 Jul 2005 12:51:07 -0000 1.3
+++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change.tcl 16 Jul 2005 14:23:52 -0000 1.4
@@ -32,6 +32,14 @@
where product_id = :product_id
}
+if { [exists_and_not_null product_id] } {
+# db_1row order {
+# select user_id,
+# participant_id
+# from dotlrn_ecommerce_orders
+# where item_id = :item_id
+# }
+
template::list::create \
-name "relations" \
-multirow "relations" \