forum::message::do_notifications (public)

 forum::message::do_notifications -message_id message_id \
    [ -user_id user_id ]

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

Perform the notifications.

Switches:

-message_id (required)

-user_id (optional)

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

Testcases:

forum_message_new, forum_count_test

Source code:

    # Select all the important information
    forum::message::get -message_id $message_id -array message

    set forum_id $message(forum_id)
    set package_id [db_string get_package_id {
        select package_id from forums_forums
        where forum_id = :forum_id}]
    set url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
    set url [ad_url]$url

    set message_url ${url}message-view?message_id=$message(root_message_id)
    set forum_url ${url}forum-view?forum_id=$message(forum_id)

    if {$message(state) eq "approved"} {
        forum::message::notify_users  -message_array message  -forum_url $forum_url  -message_url $message_url
    }

    forum::message::notify_moderators  -message_array message  -forum_url $forum_url  -message_url $message_url

    # This computations are not used... just commented for now.
    # if {$useScreenNameP eq 0 && $user_id ne 0} {
    #     if { $user_id eq "" } {
    #         set user_id $message(user_id)
    #     }
    # } else {
    #     set user_id [party::get_by_email  #                      -email [ad_host_administrator]]
    # }
    # set notif_user $user_id

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/forums/tcl/messages-procs.xql