version-bar.tcl

Does not contain a contract.

Location:

/packages/bug-tracker/lib/version-bar.tcl

Related Files

• packages/bug-tracker/lib/version-bar.tcl
• packages/bug-tracker/lib/version-bar.adp

[ hide source ] | [ make this the default ]

File Contents

# Version bar, to be included on all pages

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

if { !$versions_p } {
    return
}

# Project info

set current_version_id [bug_tracker::conn current_version_id]
set current_version_name [bug_tracker::conn current_version_name]

# User info (user may not be logged in)

set user_id [ad_conn user_id]

set return_url [ad_return_url]
set login_url [export_vars -base /register/ { return_url }]

set user_version_id [bug_tracker::conn user_version_id]
set user_version_name [bug_tracker::conn user_version_name]

set package_url [ad_conn package_url]
set user_version_url [export_vars -base [ad_conn package_url]prefs { return_url }]

ad_return_template