Index: openacs-4/packages/imsld/www/properties-value-set.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/properties-value-set.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/imsld/www/properties-value-set.tcl	20 Jun 2006 19:20:38 -0000	1.1
+++ openacs-4/packages/imsld/www/properties-value-set.tcl	4 Jul 2006 18:06:03 -0000	1.2
@@ -1,6 +1,7 @@
 # packages/imsld/www/properties-value-set.tcl
 
 ad_page_contract {
+    Sets the property value through a function call
 } {
     instances_ids:array,notnull
     return_url
@@ -16,7 +17,13 @@
     if { [info exists instances_ids($instance_id)] } {
         # avoiding hacks
         set value $instances_ids($instance_id)
-        imsld::runtime::property::instance_value_set -instance_id $instance_id -value $value
+        db_1row instance_info_id {
+            select property_id,
+            run_id
+            from imsld_property_instances
+            where instance_id = :instance_id
+        }
+        imsld::runtime::property::property_value_set -run_id $run_id -user_id [ad_conn user_id] -value $value -property_id $property_id
     }
 }