attach-2.tcl

Attaches something to an object

Location:

/packages/attachments/www/attach-2.tcl

Authors:

Arjun Sanyal <arjun@openforce.net>

Ben Adida <ben@openforce.net>

CVS ID:

$Id: attach-2.tcl,v 1.5 2017/08/07 23:48:04 gustafn Exp $

Related Files

• packages/attachments/www/attach-2.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Attaches something to an object

    @author Arjun Sanyal (arjun@openforce.net)
    @author Ben Adida (ben@openforce.net)
    @cvs-id $Id: attach-2.tcl,v 1.5 2017/08/07 23:48:04 gustafn Exp $

} -query {
    {object_id:naturalnum,notnull,notnull}
    {item_id:naturalnum,notnull,notnull}
    {return_url:localurl,notnull}
}

# Perms
permission::require_permission -object_id $object_id -privilege write

if {[catch {
    # Perform the attachment
    attachments::attach -object_id $object_id -attachment_id $item_id
} errmsg]} {
    # Attachment already exists, just keep going
    ns_log Notice "Attachment $item_id to Object $object_id already exists"
}

ad_returnredirect $return_url

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