value-delete-2.tcl

Deletes a value

Location:

/packages/acs-subsite/www/admin/attributes/value-delete-2.tcl

Author:

mbryzek@arsdigita.com

Created:

Sun Dec 10 14:48:44 2000

CVS ID:

$Id: value-delete-2.tcl,v 1.6.2.1 2019/05/16 09:54:29 gustafn Exp $

Related Files

• packages/acs-subsite/www/admin/attributes/value-delete-2.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Deletes a value

    @author mbryzek@arsdigita.com
    @creation-date Sun Dec 10 14:48:44 2000
    @cvs-id $Id: value-delete-2.tcl,v 1.6.2.1 2019/05/16 09:54:29 gustafn Exp $

} {
    attribute_id:naturalnum,notnull
    enum_value:trim,notnull
    { operation:trim "No, I want to cancel my request" }
    { return_url:localurl "[export_vars -base one attribute_id]" }
}

if {$operation eq "Yes, I really want to delete this attribute value"} {
    db_transaction {
        attribute::value_delete $attribute_id $enum_value
    }
}

ad_returnredirect $return_url
ad_script_abort

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