Index: openacs-4/contrib/packages/classified-ads/www/admin/ad-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/classified-ads/www/admin/ad-new.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/contrib/packages/classified-ads/www/admin/ad-new.tcl	24 Jul 2003 01:04:48 -0000	1.5
+++ openacs-4/contrib/packages/classified-ads/www/admin/ad-new.tcl	30 Jul 2003 04:56:41 -0000	1.6
@@ -13,11 +13,11 @@
 }
 
 if {![info exists keyword_id]} {
-    set package_category_id [classified-ads::categories::package_category_exists_p]
+    set package_category_id [classified-ads::categories::get_package_keyword_id]
     set keyword_id $package_category_id
     set title "Place New Ad (no category)"
     
-} 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