notification-reply-procs.tcl

Does not contain a contract.

Location:
/packages/notifications/tcl/notification-reply-procs.tcl
File Contents

ad_library {

    Notification Replies.

    When a user replies to a notification, this reply must be stored and handled appropriately.
    These procs help to manage such handling.

    @creation-date 2002-06-02
    @author Ben Adida <ben@openforce.biz>
    @cvs-id $Id: notification-reply-procs.tcl,v 1.6.2.2 2022/07/12 14:08:53 antoniop Exp $

}

namespace eval notification::reply {

    d_proc -public new {
        {-reply_id ""}
        {-object_id:required}
        {-type_id:required}
        {-from_user:required}
        {-subject:required}
        {-content:required}
        {-reply_date ""}
    } {
        store a new reply
    } {
        # Truncate subject to 100 chars, which is the limit in the data model (for some obscure reason)
        set subject [string range $subject 0 99]

        set extra_vars [ns_set create s \
                            reply_id $reply_id \
                            object_id $object_id \
                            type_id $type_id \
                            from_user $from_user \
                            subject $subject \
                            content $content \
                            reply_date $reply_date \
                           ]

        set reply_id [package_instantiate_object -extra_vars $extra_vars notification_reply]

        return $reply_id
    }

    d_proc -public get {
        {-reply_id:required}
        {-array:required}
    } {
        Get the information for the reply in a Tcl array
    } {
        # Select the info into the upvar'ed Tcl Array
        upvar $array row
        db_1row select_reply {} -column_array row
    }

    d_proc -public delete {
        {-reply_id:required}
    } {
        delete a reply, usually after it's been processed.
    } {
        db_exec_plsql delete_reply {}
    }

}

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End:
notification-reply-procs.tcl

Related Files

File Contents
