list-categories.tcl

List categories

Location:

/packages/categories/lib/list-categories.tcl

Related Files

• packages/categories/lib/list-categories.tcl
• packages/categories/lib/list-categories.adp

[ hide source ] | [ make this the default ]

File Contents

ad_include_contract {

    List categories

} {
    {cat:integer ""}
    {orderby:word "object_title"}
}

if { $orderby eq "" } {
    set orderby "object_title"
}
set user_id [ad_conn user_id]

# Get category data.
set counts {}
set node_id [ad_conn node_id]
set packages [subsite::util::packages -node_id $node_id]

db_foreach category_count {} {
    lappend counts $catid $count
}

category_tree::get_multirow -datasource categories -container_id [ad_conn subsite_id] -category_counts $counts

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: