Index: openacs-4/packages/acs-subsite/tcl/attribute-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/attribute-procs-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/tcl/attribute-procs-oracle.xql	15 May 2001 16:59:00 -0000	1.2
+++ openacs-4/packages/acs-subsite/tcl/attribute-procs-oracle.xql	11 Aug 2001 21:31:03 -0000	1.3
@@ -70,4 +70,54 @@
 </fullquery>
 
  
+<fullquery name="attribute::add.drop_attribute">
+<querytext>
+begin acs_attribute.drop_attribute(:object_type, :attribute_name); end;
+</querytext>
+</fullquery>
+
+<fullquery name="attribute::add.create_attribute">
+<querytext>
+declare
+  attr_id     acs_attributes.attribute_id%TYPE;
+begin
+  attr_id := acs_attribute.create_attribute (	
+	object_type => '$object_type',
+	attribute_name => '$attribute_name',
+	min_n_values => '$min_n_values',
+	max_n_values => '$max_n_values',
+	default_value => '$default_value',
+	datatype => '$datatype',
+	pretty_name => '$pretty_name',
+	pretty_plural => '$pretty_plural'
+  );
+end;
+</querytext>
+</fullquery>
+
+
+<fullquery name="attribute::add.drop_attr_column">
+<querytext>
+alter table $table_name drop column $attribute_name
+</querytext>
+</fullquery>
+
+<fullquery name="attribute::add.add_column">
+<querytext>
+alter table $table_name add $attribute_name $sql_type
+</querytext>
+</fullquery>
+
+<fullquery name="attribute::delete.drop_attribute">
+<querytext>
+begin acs_attribute.drop_attribute(:object_type, :attribute_name); end;
+</querytext>
+</fullquery>
+
+<fullquery name="attribute::delete.drop_attr_column">
+<querytext>
+alter table $table_name drop column $column_name
+</querytext>
+</fullquery>
+
 </queryset>