request-new-2.tcl

Request a new notification

Location:

/packages/notifications/www/request-new-2.tcl

Author:

Ben Adida <ben@openforce.net>

Created:

2002-05-24

CVS ID:

$Id: request-new-2.tcl,v 1.7 2018/06/07 17:09:17 hectorr Exp $

Related Files

• packages/notifications/www/request-new-2.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Request a new notification

    @author Ben Adida (ben@openforce.net)
    @creation-date 2002-05-24
    @cvs-id $Id: request-new-2.tcl,v 1.7 2018/06/07 17:09:17 hectorr Exp $
} {
    type_id:naturalnum,notnull
    object_id:naturalnum,notnull
    return_url:localurl
}

set user_id [ad_conn user_id]

# Check that the object can be subscribed to
permission::require_permission -party_id $user_id -object_id $object_id -privilege "read"

# Add the request
notification::request::new \
        -type_id $type_id \
        -user_id $user_id \
        -object_id $object_id \
        -interval_id $interval_id \
        -delivery_method_id $delivery_method_id

ad_returnredirect $return_url



# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: