distro-edit.tcl

Add or edit a distribution.

Location:
/packages/bug-tracker/www/admin/distro-edit.tcl
File Contents

ad_page_contract {
    Add or edit a distribution.
} {
    keyword_id:integer,optional
    parent_id:integer,optional
    {type_p "f"}
}

set project_name [bug_tracker::conn project_name]

set object_type_name "Distribution"

if { [info exists keyword_id] } {
    set function "Edit"
} else {
    set function "Add"
}

set page_title "$function $object_type_name"
set context_bar [ad_context_bar [list distros "Manage Distributions"] $page_title]


ad_form -name keyword -cancel_url distros -form {
    {keyword_id:key(acs_object_id_seq)}
    {parent_id:integer(hidden)}
    {heading:text {label $object_type_name}}
} -new_request {
    if { ![exists_and_not_null parent_id] } {
        set parent_id [bug_tracker::get_component_keyword -package_id [ad_conn package_id]]
    }
} -select_query {
    select child.parent_id, 
           child.heading
    from   cr_keywords child
    where  child.keyword_id = :keyword_id
} -edit_data {
    cr::keyword::set_heading \
        -keyword_id $keyword_id \
        -heading $heading
} -new_data {
    cr::keyword::new \
        -heading $heading \
        -parent_id $parent_id \
        -keyword_id $keyword_id
} -after_submit {
#    bug_tracker::get_keywords_flush
    ad_returnredirect distros
    ad_script_abort
}
distro-edit.tcl

Related Files

File Contents
