forum::notification::process

forum::notification::process_reply (private)

 forum::notification::process_reply reply_id

Defined in packages/forums/tcl/forum-reply-procs.tcl
This proc implements the ProcessReply operation of the NotificationType Service Contract and should not be invoked directly.

Parameters:

reply_id (required)

Testcases:
No testcase defined.

Source code:
        # Get the data
        notification::reply::get -reply_id $reply_id -array reply

    # get rid of Outlook HTML DOCTYPE
    set reply(content) [regsub {<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4\.0 Transitional//EN">} $reply(content) {}]

        # Get the message information
        forum::message::get -message_id $reply(object_id) -array message
        # Insert the message
        forum::message::new -forum_id $message(forum_id)  -parent_id $message(message_id)  -subject $reply(subject)  -content $reply(content)  -user_id $reply(from_user)
Generic XQL file:

packages/forums/tcl/forum-reply-procs.xql

PostgreSQL XQL file:

packages/forums/tcl/forum-reply-procs-postgresql.xql

Oracle XQL file:

packages/forums/tcl/forum-reply-procs-oracle.xql

[ hide source ] | [ make this the default ]