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)

Partial Call Graph (max 5 caller/called nodes):
%3 AcsSc.notificationtype.processreply.forums_forum_moderator_notif_type AcsSc.notificationtype.processreply.forums_forum_moderator_notif_type (private) forum::notification::process_reply forum::notification::process_reply AcsSc.notificationtype.processreply.forums_forum_moderator_notif_type->forum::notification::process_reply AcsSc.notificationtype.processreply.forums_forum_notif_type AcsSc.notificationtype.processreply.forums_forum_notif_type (private) AcsSc.notificationtype.processreply.forums_forum_notif_type->forum::notification::process_reply AcsSc.notificationtype.processreply.forums_message_moderator_notif_type AcsSc.notificationtype.processreply.forums_message_moderator_notif_type (private) AcsSc.notificationtype.processreply.forums_message_moderator_notif_type->forum::notification::process_reply AcsSc.notificationtype.processreply.forums_message_notif_type AcsSc.notificationtype.processreply.forums_message_notif_type (private) AcsSc.notificationtype.processreply.forums_message_notif_type->forum::notification::process_reply forum::message::get forum::message::get (public) forum::notification::process_reply->forum::message::get forum::message::new forum::message::new (public) forum::notification::process_reply->forum::message::new notification::reply::get notification::reply::get (public) forum::notification::process_reply->notification::reply::get

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 ]
Show another procedure: