Index: openacs-4/contrib/packages/classified-ads/www/categories.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/classified-ads/www/categories.tcl,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/contrib/packages/classified-ads/www/categories.tcl 21 Jul 2003 16:08:07 -0000 1.2 +++ openacs-4/contrib/packages/classified-ads/www/categories.tcl 18 Jan 2004 10:36:42 -0000 1.2.2.1 @@ -12,14 +12,14 @@ } set root_folder_id [classified-ads::get_root_folder_id] -set package_category_id [classified-ads::categories::package_category_exists_p] +set package_category_id [classified-ads::categories::get_package_keyword_id] 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]} { +} elseif {[string equal [classified-ads::get_main_keyword_id] $keyword_id]} { ad_return_complaint 1 "