Index: openacs-4/packages/ams/tcl/ams-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-procs.tcl,v
diff -u -r1.34 -r1.35
--- openacs-4/packages/ams/tcl/ams-procs.tcl	15 Dec 2005 22:50:16 -0000	1.34
+++ openacs-4/packages/ams/tcl/ams-procs.tcl	18 Dec 2005 19:28:21 -0000	1.35
@@ -253,7 +253,18 @@
  } {
  save and attribute value
  } {
-     db_exec_plsql attribute_value_save {}
+     # db_exec_plsql attribute_value_save {}
+     # This seems to be faster. Don't ask why....
+     db_dml clean_up "        delete from ams_attribute_values
+         where object_id = :object_id
+           and attribute_id = :attribute_id"
+     if {[exists_and_not_null value_id]} {
+	 db_dml insert "
+                insert into ams_attribute_values
+                (object_id,attribute_id,value_id)
+                values
+                (:object_id,:attribute_id,:value_id)"
+     }
  }
 
  ad_proc -public ams::option::new {