Index: openacs-4/contrib/packages/classified-ads/tcl/classified-ads-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/classified-ads/tcl/classified-ads-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/contrib/packages/classified-ads/tcl/classified-ads-procs.tcl	30 Jul 2003 04:56:41 -0000	1.10
+++ openacs-4/contrib/packages/classified-ads/tcl/classified-ads-procs.tcl	31 Jul 2003 01:24:31 -0000	1.11
@@ -552,22 +552,26 @@
 
 
 ad_proc -public classified-ads::get_attributes {
-	{-content_type:required}
+	{-content_type "ca_ad"}
 	{-package_id}
 	{-storage "all"}
 } {
 	Returns a list of ns_sets of the attributes for one content type
 
 	@param content_type This is the content type whose attributes we get
-	@param package_id Only the attributes belonging to this package is retrieved.
+
+	@param package_id Only the attributes belonging to this package are retrieved.
 	                  Defaults to current package.
+
 	@param storage Only the attributes who belong to this storage type are retrieved.
 		       Can be "type_specific", "generic", or "all".
 } {
 	if {![exists_and_not_null package_id]} {
 		set package_id [ad_conn package_id]
 	}
 
+	set keyword_id [classified-ads::categories::get_package_keyword_id -package_id $package_id]
+
 	if {![string equal $storage "all"]} {
 		set storage_stub "and storage = '$storage'"
 	} else {