nav-bar.tcl

Does not contain a contract.

Location:
/packages/bug-tracker/lib/nav-bar.tcl
File Contents

# Nav bar, to be included on all pages

global bt_nav_bar_count
if { ![info exists bt_nav_bar_count] } {
    set bt_nav_bar_count 1
} else {
    incr bt_nav_bar_count
}

set package_id [ad_conn package_id]
set package_url [ad_conn package_url]
set component_id [bug_tracker::conn component_id]

set admin_p [permission::permission_p \
                 -party_id [ad_conn untrusted_user_id] \
                 -object_id $package_id \
                 -privilege admin]

if { [ad_conn untrusted_user_id] == 0 } {
    set create_p 1
} else {
    set create_p [permission::permission_p \
                      -party_id [ad_conn untrusted_user_id] \
                      -object_id [ad_conn package_id] \
                      -privilege create]
}

bug_tracker::get_pretty_names -array pretty_names

lassign $notification_link notification_url notification_label notification_title

# Paches enabled for this project?
set patches_p [bug_tracker::patches_p]

# Is this project using multiple versions?
set versions_p [bug_tracker::versions_p]

regexp {/([^/]+)/[^/]*$} [ad_conn url] match last_dir

if {$last_dir eq "admin"} {
    set url_prefix [ad_conn package_url]
} else {
    set url_prefix ""
}


multirow create links name url

array set filter [bug_tracker::conn filter]

set workflow_id [bug_tracker::bug::get_instance_workflow_id]
set initial_state_id [workflow::fsm::get_initial_state -workflow_id $workflow_id]
set current_version_id [bug_tracker::conn current_version_id]
multirow append links "[bug_tracker::conn Bugs]" \
    [export_vars -base "${url_prefix}." {
    { f_fix_for_version "$current_version_id" }
    }]

if { $create_p } {
    multirow append links "[_ bug-tracker.New] [bug_tracker::conn Bug]" "${url_prefix}bug-add"
}

if { [ad_conn untrusted_user_id] != 0 } {
    # Lars: Taken out
    # Could mean one of
    # - I submitted
    # - I'm supposed to resolve
    # - I'm supposed to verify and close
    #multirow append links "My [bug_tracker::conn Bugs]" [export_vars -base ${url_prefix}. { { filter.assignee {[ad_conn user_id]} } }]
}

if { $patches_p } {
    multirow append links "[bug_tracker::conn Patches]" \
        [export_vars -no_empty \
             -base "[ad_conn package_url]patch-list" {
             { status open }
             { apply_to_version "$current_version_id" }
         }]

    if { $create_p } {
        multirow append links "[_ bug-tracker.New] [bug_tracker::conn Patches]" "[ad_conn package_url]patch-add"
    }
}

multirow append links [_ bug-tracker.Notifications] "[ad_conn package_url]notifications"

if { $versions_p } {
    multirow append links "[_ bug-tracker.Prefs]" "[ad_conn package_url]prefs"
}

if { $admin_p } {
    multirow append links "[_ bug-tracker.Admin]" "[ad_conn package_url]admin/"
}

set form_action_url "[ad_conn package_url]bug"

set search_mounted_p [bug_tracker::search_mounted_p]

if {$search_mounted_p} {
    set form_search_url "[site_node::get_package_url -package_key search]search"
}

ad_return_template
nav-bar.tcl

Related Files

File Contents
