forums-email-procs.tcl

Forums Library

Location:

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

Created:

2002-05-17

Author:

Ben Adida

CVS Identification:

$Id: forums-email-procs.tcl,v 1.6 2017/08/07 23:48:11 gustafn Exp $

Procedures in this file

• forum::email::create_forward_email (public)

Detailed information

 forum::email::create_forward_email -pre_body pre_body message_passed

Content File Source

ad_library {

    Forums Library

    @creation-date 2002-05-17
    @author Ben Adida <ben@openforce.biz>
    @cvs-id $Id: forums-email-procs.tcl,v 1.6 2017/08/07 23:48:11 gustafn Exp $

}

namespace eval forum { namespace eval email {} }

d_proc -public forum::email::create_forward_email {
    {-pre_body:required}
    message_passed
} {
    create email content to forward a message
} {
    # 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
}

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: