Index: openacs-4/packages/lars-blogger/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/index.tcl,v diff -u -r1.24 -r1.25 --- openacs-4/packages/lars-blogger/www/index.tcl 20 Apr 2004 21:13:47 -0000 1.24 +++ openacs-4/packages/lars-blogger/www/index.tcl 29 Jun 2004 10:18:35 -0000 1.25 @@ -46,20 +46,6 @@ set category_id "" } -# SWC - -if { ![empty_string_p $sw_category_id] } { - set sw_category_name [category::get_name $sw_category_id] - if { [empty_string_p $sw_category_name] } { - ad_return_exception_page 404 "No such category" "Site-wide \ - Category with ID $sw_category_id doesn't exist" - return - } - # Show Category in context bar - append context_base_url /swcat/$sw_category_id - lappend context [list $context_base_url $sw_category_name] -} - # Set up the elements for the HTML # 3 items - RSS, RSD and stylesheet. set rss_file_url "" @@ -178,11 +164,36 @@ db_multirow categories categories {} -# SWC +# Site-Wide Categories + +if { ![empty_string_p $sw_category_id] } { + set sw_category_name [category::get_name $sw_category_id] + if { [empty_string_p $sw_category_name] } { + ad_return_exception_page 404 "No such category" "Site-wide \ + Category with ID $sw_category_id doesn't exist" + return + } + # Show Category in context bar + append context_base_url /swcat/$sw_category_id + lappend context [list $context_base_url $sw_category_name] + set type "all" +} + +db_multirow -unclobber -extend { sw_category_name tree_name } sw_categories sw_categories { + select c.category_id as sw_category_id, c.tree_id + from categories c, category_tree_map ctm + where ctm.tree_id = c.tree_id + and ctm.object_id = :package_id +} { + set sw_category_name [category::get_name $sw_category_id] + set tree_name [category_tree::get_name $tree_id] +} + set counts {} db_foreach catcount {select c.category_id as catid, count(*) as count from category_object_map c, pinds_blog_entries e where e.package_id = :package_id and c.object_id = e.entry_id group by c.category_id} { lappend counts $catid $count } + set container_id [ad_conn [parameter::get -parameter CategoryContainer -default package_id]] category_tree::get_multirow -datasource sw_categories -container_id $container_id -category_counts $counts