forum::email::create_forward_email (public)

 forum::email::create_forward_email -pre_body pre_body message_passed

Defined in packages/forums/tcl/forums-email-procs.tcl

create email content to forward a message

Switches:

-pre_body (required)

Parameters:

message_passed (required)

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    # Get the message data array
    upvar $message_passed message

    # Variables for I18N message lookup:
    set posting_date $message(posting_date_ansi)
    set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
    if {$useScreenNameP != 0} {
    set user_name $message(screen_name)
    } else {
    set user_name $message(user_name)
    }

    # Set up the message body
    set new_body "[ad_html_to_text -- $pre_body]"
    append new_body "\n\n===================================\n\n"
    append new_body [subst {[_ forums.email_alert_body_header]
[_ forums.Forum_1] $message(forum_name)
Thread: $message(root_subject)\n
}]
    append new_body [ad_html_text_convert -from $message(format) -to text/plain -- $message(content)]
    set url [export_vars  -base "[ad_url][ad_conn package_url]message-view"  -anchor $message(message_id) {{message_id $message(root_message_id)}}]
    append new_body "\n\n-- \n$url\n"

    return $new_body

XQL Not present:

Generic, PostgreSQL, Oracle