request-delete.tcl

Remove a notification request

Location:

/packages/notifications/www/request-delete.tcl

Author:

Ben Adida <ben@openforce.net>

Created:

2002-05-24

CVS ID:

$Id: request-delete.tcl,v 1.7.2.1 2023/02/24 09:56:06 antoniop Exp $

Related Files

• packages/notifications/www/request-delete.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Remove a notification request

    @author Ben Adida (ben@openforce.net)
    @creation-date 2002-05-24
    @cvs-id $Id: request-delete.tcl,v 1.7.2.1 2023/02/24 09:56:06 antoniop Exp $
} {
    request_id:object_type(notification_request),notnull
    return_url:localurl
}

# Security Check
notification::security::require_admin_request -request_id $request_id

# Actually Delete
notification::request::delete -request_id $request_id

# Redirect
ad_returnredirect $return_url

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