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.11 -r1.12
--- openacs-4/contrib/packages/classified-ads/tcl/classified-ads-procs.tcl	31 Jul 2003 01:24:31 -0000	1.11
+++ openacs-4/contrib/packages/classified-ads/tcl/classified-ads-procs.tcl	31 Jul 2003 01:33:13 -0000	1.12
@@ -71,7 +71,7 @@
 	custom fields).
 } {
 	set main_keyword_id [classified-ads::get_main_keyword_id]
-	set attributes [list type expires_on]
+	set attributes [list type expires_on price]
 
 	foreach attrib $attributes {
 		set count [db_1row count_attributes {}]	
@@ -113,17 +113,31 @@
 						set optional_p "t" 
 						set enabled_p "t"
 					}
+					"price" {
+						set attribute_name "price"
+						set datatype "integer"
+						set pretty_name "Price"
+						set pretty_plural "Prices"
+						set default_value 0
+						set column_spec "numeric(9,2)"
+						set widget "currency"
+						set html_options ""
+						set extra_options ""
+						set select_options ""
+						set validate ""
+						set optional_p "f"
+						set enabled_p "t"
+					}
 				}
 
 				set attribute_id [db_exec_plsql create_attribute {}]
 				db_exec_plsql register_widget {}
 			}
 		}
 
-		return 1
 	}
 
-	return 0
+	return 1 
 }
 
 ad_proc -public classified-ads::get_folder_id {