core.tcl

Bug listing page.

Location:

/packages/bug-tracker/www/core.tcl

Author:

Lars Pind <lars@pinds.com>

Created:

2002-03-20

CVS ID:

$Id: index.tcl,v 1.18.4.1 2005/01/20 02:11:22 donb Exp $

Related Files

• packages/bug-tracker/www/core.tcl
• packages/bug-tracker/www/core.adp

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Bug listing page.
    
    @author Lars Pind (lars@pinds.com)
    @creation-date 2002-03-20
    @cvs-id $Id: index.tcl,v 1.18.4.1 2005/01/20 02:11:22 donb Exp $
} [bug_tracker::get_page_variables]

set page_title [ad_conn instance_name]
set context [list]
set admin_p [permission::permission_p -object_id [ad_conn package_id] -privilege admin]
bug_tracker::get_pretty_names -array pretty_names

if { [llength [bug_tracker::components_get_options]] == 0 } {
    ad_return_template "no-components"
    return
}

if { ![bug_tracker::bugs_exist_p] } {
    ad_return_template "no-bugs"
    return
}

set project_id [ad_conn package_id]

#####
#
# Get bug list
#
#####


# TODO: Get /com/* URLs working again
# TODO: Other important suggestions from threads, etc.
# TODO: Bulk actions (set fix for version, reassign, etc.)


bug_tracker::bug::get_list

bug_tracker::bug::get_multirow