-- wrapping email for html delivery

e3382747 · Frank Bergmann · af277b21 · e3382747
Commit e3382747 authored Nov 02, 2016 by Frank Bergmann
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 2 deletions

intranet-project-reminders-procs.tcl tcl/intranet-project-reminders-procs.tcl +8 -2

No files found.
--- a/tcl/intranet-project-reminders-procs.tcl
+++ b/tcl/intranet-project-reminders-procs.tcl
@@ -225,7 +225,7 @@ ad_proc -private im_project_reminders_send_notification_to_object_members {
    # Set mail attributes 
    switch $object_type {
        "im_trans_task" {
-	    set mail_body_txt "Planned end date of task: <br/>$object_name <br/> of project: <br/><a href='/intranet-translation/trans-tasks/task-list?project_id=$parent_object_id&view_name=trans_tasks'>$parent_object_name</a><br/>" 
+	    set mail_body_txt "Planned end date of task: <br/>$object_name <br/> of project: <br/><a href='/intranet-translation/trans-tasks/task-list?project_id=$parent_object_id&view_name=trans_tasks'>$parent_object_name</a><br/>"
 	    append mail_body_txt "will be reached shortly and task has not been marked as DONE yet.<br/>Please review."	    
 	}
        "im_timesheet_task" {
@@ -238,7 +238,13 @@ ad_proc -private im_project_reminders_send_notification_to_object_members {
    }

    set mail_subject [lang::message::lookup "" intranet-project-reminders.Mail_Subject_Text "Friendly Reminder - Task is due soon "]   
-    set mail_body [lang::message::lookup "" intranet-project-reminders.Mail_Body_Text_Html $mail_body_txt]
+
+    set mail_body "<html>"
+    append mail_body "<head><meta charset=\"utf-8\"></head>"
+    append mail_body "<body>"
+    append mail_body [lang::message::lookup "" intranet-project-reminders.Mail_Body_Text_Html $mail_body_txt]
+    append mail_body "</body>"
+    append mail_body "</html>"

    if { $log_p } {
 	if {[catch {