Index: openacs-4/packages/rules/www/process-response.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rules/www/Attic/process-response.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/rules/www/process-response.tcl 9 Dec 2004 21:26:50 -0000 1.5
+++ openacs-4/packages/rules/www/process-response.tcl 9 Dec 2004 21:55:25 -0000 1.6
@@ -34,14 +34,14 @@
set username [db_string name {select p.first_names || ' ' || p.last_name as name from persons p where p.person_id = :user_id}]
if { $action_type == 1} {
append message "
You have joined the $community_name community."
- append notif_text "The user user has joined the $community_name community."
+ append notif_text "The user $user_name has joined the $community_name community."
dotlrn_community::add_user $group_id $user_id
db_transaction {
db_dml add_history { insert into rule_history_actions (rha_id,group_id,user_id,rule_action_id,request_date,processing_date,approved_p) values (:rha_id,:group_id,:user_id,:rule_action_id,to_date(:today,'YYYY-MM-DD'),to_date(:today,'YYYY-MM-DD'),'y')}
}
} elseif { $action_type == 2 } {
append message " Your request to join $community_name has been sent to the administrator of the group."
- append notif_text "The user $username requested to join $community_name has been sent to the administrator of the group."
+ append notif_text "The user $username requested to join $community_name."
set today [db_string date "select sysdate from dual"]
db_transaction {