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.13.2.1 -r1.13.2.2 --- openacs-4/packages/faq/www/one-faq.tcl 12 Jul 2022 14:48:00 -0000 1.13.2.1 +++ openacs-4/packages/faq/www/one-faq.tcl 14 Jul 2022 09:52:50 -0000 1.13.2.2 @@ -41,20 +41,20 @@ if { $use_categories_p == 1} { set package_url [ad_conn package_url] if { $category_id ne "" } { - set category_name [category::get_name $category_id] - if { $category_name eq "" } { - ad_return_exception_page 404 "No such category" \ + set category_name [category::get_name $category_id] + if { $category_name eq "" } { + ad_return_exception_page 404 "No such category" \ "Site-wide Category with ID $category_id doesn't exist" ad_script_abort - } + } - # 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_info(faq_name)] $category_name] + # 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_info(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] + set category_name [category::get_name $category_id] + set tree_name [category_tree::get_name $tree_id] } }