categories.tcl

Categories

Location:
/packages/bug-tracker/www/admin/categories.tcl

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Categories
}

set project_name [bug_tracker::conn project_name]
set page_title "[_ bug-tracker.Manage_Categories]"
set context_bar [ad_context_bar $page_title]

set package_id [ad_conn package_id]

bug_tracker::get_pretty_names -array pretty_names

set project_root_keyword_id [bug_tracker::conn project_root_keyword_id]

db_multirow -extend { 
    edit_url
    delete_url
    new_url
    type_edit_url
    type_delete_url
    bugs_url
    set_default_url
} categories select_categories {} {
    # set all the URLs
    set edit_url [export_vars -base category-edit { { keyword_id $child_id } }]
    if { $num_bugs == 0 } {
        set delete_url [export_vars -base category-delete { { keyword_id $child_id } }]
    } else {
        set delete_url {}
    }
    set new_url [export_vars -base category-edit { parent_id }]
    
    set type_edit_url [export_vars -base category-edit { { keyword_id $parent_id } { type_p t } }]
    if { $is_leaf } {
        set type_delete_url [export_vars -base category-delete { { keyword_id $parent_id } }]
    } else {
        set type_delete_url {}
    }

    if { !$default_p } {
        set set_default_url [export_vars -base category-set-default { parent_id { keyword_id $child_id } }]
    } else {
        set set_default_url {}
    }
    
    set bugs_url [export_vars -base ../ { { filter.keyword $child_id } { filter.status any } }]
}

set type_new_url "category-edit"

set default_setup_url "category-defaults"