simple-add-2.tcl

Add a nonversioned item

Location:

/packages/attachments/www/simple-add-2.tcl

Author:

Kevin Scaldeferri <kevin@arsdigita.com>

Created:

6 Nov 2000

CVS ID:

$Id: simple-add-2.tcl,v 1.7 2017/08/07 23:48:04 gustafn Exp $

Related Files

• packages/attachments/www/simple-add-2.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Add a nonversioned item

    @author Kevin Scaldeferri (kevin@arsdigita.com)
    @creation-date 6 Nov 2000
    @cvs-id $Id: simple-add-2.tcl,v 1.7 2017/08/07 23:48:04 gustafn Exp $
} {
    folder_id:naturalnum,notnull
    object_id:naturalnum,notnull
    return_url:localurl,notnull
    title:notnull,trim
    description
    url:notnull,trim
} -validate {
    valid_folder -requires {folder_id:integer} {
    if {![fs_folder_p $folder_id]} {
        ad_complain "[_ attachments.lt_The_specified_parent_]"
    }
    }

} 

# Check for write permission on this folder
permission::require_permission -object_id $folder_id -privilege write

db_transaction {

    # Create the URL (for now)
    set url_id [content::extlink::new -url $url -label $title -description $description -parent_id $folder_id]

    # Attach the URL
    attachments::attach -object_id $object_id -attachment_id $url_id

}

ad_returnredirect "$return_url"

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