Index: openacs-4/packages/new-portal/tcl/portal-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.xql,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/new-portal/tcl/portal-procs.xql	28 Jan 2002 17:51:46 -0000	1.15
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql	11 Feb 2002 06:05:43 -0000	1.16
@@ -369,8 +369,11 @@
 <fullquery name="portal::add_element_param_value.insert">      
   <querytext>
     insert into portal_element_parameters
-    (parameter_id, element_id, configured_p, key, value) values
-    (acs_object_id_seq.nextval, :element_id, 't', :key, :value)
+    (parameter_id, element_id, configured_p, key, value) 
+    select acs_object_id_seq.nextval, :element_id, 't', :key, :value
+        from dual
+        where not exists (select parameter_id from portal_element_parameters where 
+                          element_id= :element_id and key= :key and value= :value)
   </querytext>
 </fullquery>