Index: openacs-4/contrib/packages/classified-ads/www/admin/categories.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/classified-ads/www/admin/categories.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/classified-ads/www/admin/categories.tcl	16 Jul 2003 04:52:32 -0000	1.1
+++ openacs-4/contrib/packages/classified-ads/www/admin/categories.tcl	17 Jul 2003 23:11:35 -0000	1.2
@@ -13,13 +13,18 @@
 set root_folder_id [classified-ads::get_root_folder_id]
 set package_category_id [classified-ads::categories::package_category_exists_p]
 set package_category_p 0
+set title "Categories"
 
 if {[empty_string_p $keyword_id]} {
     set keyword_id $package_category_id
     set package_category_p 1
 } elseif {[string equal [classified-ads::main_keyword_exists_p] $keyword_id]} {
-    ad_return_complaint 1 "<li>no access to the root id"
+    ad_return_complaint 1 "<li> No access to the root id"
     ad_script_abort
+} else {
+    # Select info for this category
+    classified-ads::categories::get -keyword_id $keyword_id -array category_info
+    set title $category_info(heading)
 }
 
 db_multirow categories select_categories {}
@@ -33,8 +38,6 @@
     -var_name assigned_ads
 
 set return_url "[ad_conn url]?[ad_conn query]"
-
-set title "Categories"
 set context [classified-ads::categories::generate_trail -keyword_id $keyword_id]
 
 ad_return_template