Index: openacs-4/packages/faq/www/one-faq.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/one-faq.tcl,v diff -u -r1.7.2.1 -r1.7.2.2 --- openacs-4/packages/faq/www/one-faq.tcl 17 Mar 2007 22:12:59 -0000 1.7.2.1 +++ openacs-4/packages/faq/www/one-faq.tcl 18 Mar 2007 01:56:11 -0000 1.7.2.2 @@ -46,17 +46,11 @@ Category with ID $category_id doesn't exist" return } - # Show Category in context bar - append context_base_url /cat/$category_id - lappend context [list $context_base_url $category_name] - set type "all" - - # Cut the URL off the last item in the context bar - if { [llength $context] > 0 } { - set context [lreplace $context end end [lindex [lindex $context end] end]] - } - + + # Replace last element of context (the FAQ name) with link to that FAQ and current category name + set context [lreplace $context end end [list "one-faq?faq_id=$faq_id" $faq_name] $category_name] } + db_multirow -unclobber -extend { category_name tree_name } categories faq_categories "" { set category_name [category::get_name $category_id] set tree_name [category_tree::get_name $tree_id]