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 -N -r1.5 -r1.6
--- openacs-4/contrib/packages/classified-ads/www/admin/categories.tcl	29 Jul 2003 09:10:42 -0000	1.5
+++ openacs-4/contrib/packages/classified-ads/www/admin/categories.tcl	30 Jul 2003 04:56:41 -0000	1.6
@@ -13,14 +13,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 "<li> No access to the root id"
     ad_script_abort
 } else {