Index: openacs-4/contrib/packages/classified-ads/www/admin/field-addedit-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/classified-ads/www/admin/field-addedit-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/classified-ads/www/admin/field-addedit-postgresql.xql	21 Jul 2003 16:08:07 -0000	1.1
+++ openacs-4/contrib/packages/classified-ads/www/admin/field-addedit-postgresql.xql	29 Jul 2003 09:10:42 -0000	1.2
@@ -3,14 +3,73 @@
 
     <fullquery name="attribute_new">
 	<querytext>
-	    select ca_attributes__create_attribute (:content_type::varchar, :attribute_name::varchar, :datatype::varchar, :pretty_name::varchar, :pretty_plural::varchar, :sort_order::int4, :default_value::varchar, 'type_specific'::varchar, 'cr_ca_ads'::varchar, :column_spec::varchar, :package_id::int4) as attribute_id
+
+	    select ca_attributes__create_attribute ( 
+	    	:content_type::varchar, 
+		:attribute_name::varchar, 
+		:datatype::varchar, 
+		:pretty_name::varchar, 
+		:pretty_plural::varchar, 
+		:sort_order::int4, 
+		:default_value::varchar, 
+		'type_specific'::varchar, 
+		'cr_ca_ads'::varchar, 
+		:column_spec::varchar, 
+		:package_id::int4
+	    ) as attribute_id
+
 	</querytext>
     </fullquery>
 
     <fullquery name="widget_new">
 	<querytext>
-	    select ca_attributes__register_widget (:attribute_id, :widget, :label, :html_options, :select_options, :validate, :optional_p)
+
+	    select ca_attributes__register_widget (
+	    	:attribute_id, 
+		:widget, 
+		:label, 
+		:keyword_id,
+		:html_options, 
+		:extra_options,
+		:select_options, 
+		:validate, 
+		:optional_p,
+		:enabled_p
+	    )
+	    
 	</querytext>
     </fullquery>
 
+    <fullquery name="get_column_spec">
+	<querytext>
+
+  SELECT pg_catalog.format_type(a.atttypid, a.atttypmod)
+    FROM pg_catalog.pg_attribute a,
+         (
+		  SELECT c.oid
+  		    FROM pg_catalog.pg_class c
+         		 LEFT JOIN pg_catalog.pg_namespace n ON n.oid = c.relnamespace
+	 	   WHERE pg_catalog.pg_table_is_visible(c.oid)
+	       	     AND c.relname ~ '^cr_ca_ads$'
+	 ) b
+   WHERE a.attrelid = b.oid 
+     AND a.attname = :attribute_name 
+     AND NOT a.attisdropped
+
+	</querytext>
+    </fullquery>
+
+    <fullquery name="categories">
+	<querytext>
+
+            select 
+	           repeat(:indent_pattern, (tree_level(subtree.tree_sortkey) - 2) * :indent_factor::integer) || subtree.heading AS heading,
+	           subtree.keyword_id
+              from cr_keywords parent, cr_keywords subtree
+             where subtree.tree_sortkey between parent.tree_sortkey and tree_right(parent.tree_sortkey)
+	       and parent.parent_id = :main_category_id
+
+	</querytext> 
+    </fullquery>
+
 </queryset>