-- fixed issue w/ SystemURL

tcl/intranet-project-reminders-procs.tcl

@@ -144,6 +144,7 @@ ad_proc -private im_project_reminders_send_notification_to_object_members {
     set log_p [parameter::get -package_id [apm_package_id_from_key intranet-project-reminders] -parameter "LogP" -default 0]
     set object_type [acs_object_type $object_id]
     set parties_to_be_notified_id [list]
+    set system_url [parameter::get -package_id [apm_package_id_from_key acs-kernel] -parameter "SystemURL" -default ""]
 
     if { "" eq $from_email } {
 	set from_email [parameter::get -package_id [apm_package_id_from_key acs-kernel] -parameter "HostAdministrator" -default ""]
@@ -226,14 +227,14 @@ ad_proc -private im_project_reminders_send_notification_to_object_members {
     switch $object_type {
         "im_trans_task" {
 	    set mail_body_txt "Planned end date of task: <br/>$object_name <br/> of project: <br/>"
-            append mail_body_txt "&nbsp;&nbsp;&nbsp;&nbsp;<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 "&nbsp;&nbsp;&nbsp;&nbsp;<a href='${system_url}/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" {
 	    set mail_body_txt "Planned end date of task: <br/>"
-            append mail_body_txt "&nbsp;&nbsp;&nbsp;&nbsp;<a href='/intranet/projects/view?project_id=$object_id'>$object_name</a><br/>"
+            append mail_body_txt "&nbsp;&nbsp;&nbsp;&nbsp;<a href=${system_url}/intranet/projects/view?project_id=$object_id>$object_name</a><br/>"
 	    append mail_body_txt "of project:<br/>"
-            append mail_body_txt "&nbsp;&nbsp;&nbsp;&nbsp;<a href='/intranet/projects/view?project_id=$parent_object_id'>$parent_object_name</a><br/>" 
+            append mail_body_txt "&nbsp;&nbsp;&nbsp;&nbsp;<a href='${system_url}/intranet/projects/view?project_id=$parent_object_id'>$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."
 	}
         default {