notification::reply::new (public)

 notification::reply::new [ -reply_id reply_id ] -object_id object_id \
    -type_id type_id -from_user from_user -subject subject \
    -content content [ -reply_date reply_date ]

Defined in packages/notifications/tcl/notification-reply-procs.tcl

store a new reply

Switches:

-reply_id (optional)

-object_id (required)

-type_id (required)

-from_user (required)

-subject (required)

-content (required)

-reply_date (optional)

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

Testcases:

No testcase defined.

Source code:

        # 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

Generic XQL file:

packages/notifications/tcl/notification-reply-procs.xql

PostgreSQL XQL file:

packages/notifications/tcl/notification-reply-procs-postgresql.xql

Oracle XQL file:

packages/notifications/tcl/notification-reply-procs-oracle.xql