parameter-delete.tcl

Adds a parameter to a version.

Location:
/packages/acs-admin/www/apm/parameter-delete.tcl
Author:

Todd Nightingale [tnight@arsdigita.com]

Created:

17 April 2000

CVS ID:

$Id: parameter-delete.tcl,v 1.9.2.2 2024/08/01 12:04:36 gustafn Exp $

File Contents

ad_page_contract {
    Adds a parameter to a version.
    @author Todd Nightingale [tnight@arsdigita.com]
    @creation-date 17 April 2000
    @cvs-id $Id: parameter-delete.tcl,v 1.9.2.2 2024/08/01 12:04:36 gustafn Exp $
} {
    parameter_id:naturalnum,notnull
    section_name:notnull
    version_id:naturalnum,notnull
    {update_info_file:boolean 1}
}

db_1row apm_package_by_version_id {
    select pretty_name, version_name, package_key
    from apm_package_version_info 
    where version_id = :version_id
}

set return_url [export_vars -base "version-parameters" { version_id section_name }]

ad_form -name del -form {
    parameter_id:key
    {confirm_p:text(hidden)}
    {version_id:text(hidden)}
    {section_name:text(hidden)}
    {pretty_name:text(inform) {label "Package"}}
    {parameter_name:text(inform) {label "Parameter"}}
} -edit_request {
    set confirm_p 1
    set parameter_name [db_string get_parameter_name {
        select parameter_name
        from apm_parameters
        where parameter_id = :parameter_id
    }]
} -edit_data {
    #here's where we actually do the delete.
    apm_parameter_unregister $parameter_id
} -after_submit {
    ad_returnredirect $return_url
    ad_script_abort
} -cancel_url $return_url

set page_title "Confirm Deletion"
set context [list [list "." "Package Manager"] \
         [list [export_vars -base version-view { version_id }] "$pretty_name $version_name"] \
         [list [export_vars -base version-parameters { version_id section_name }] "Parameters"] \
         $page_title]


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

parameter-delete.tcl

Related Files

File Contents