Index: openacs-4/packages/acs-subsite/tcl/attribute-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/attribute-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/tcl/attribute-procs.xql	11 Aug 2001 21:31:03 -0000	1.3
+++ openacs-4/packages/acs-subsite/tcl/attribute-procs.xql	20 Aug 2001 05:15:28 -0000	1.4
@@ -104,5 +104,18 @@
       </querytext>
 </fullquery>
 
+
+<fullquery name="attribute::value_add.insert_enum_value">
+<querytext>
+	insert into acs_enum_values
+	(attribute_id, sort_order, enum_value, pretty_name)
+	select :attribute_id, :sort_order, :enum_value, :enum_value
+	from dual
+	where not exists (select 1 
+	from acs_enum_values v2
+	where v2.pretty_name = :enum_value
+	and v2.attribute_id = :attribute_id)
+</querytext>
+</fullquery>
  
 </queryset>