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.4 -r1.4.4.1
--- openacs-4/packages/imsld/www/properties-value-set.tcl	25 Apr 2007 10:52:30 -0000	1.4
+++ openacs-4/packages/imsld/www/properties-value-set.tcl	25 Jun 2007 17:46:54 -0000	1.4.4.1
@@ -6,6 +6,8 @@
     instances_ids:array
     return_url
     owner_id
+    run_id
+    {role_instance_id ""}
 } -validate {
     no_instance {
         if { [array size instances_ids] == 0 } {
@@ -19,7 +21,6 @@
         # avoiding hacks
         db_1row instance_info_id {
             select ins.property_id,
-            ins.run_id,
 	    prop.datatype
             from imsld_property_instances ins,
 	    imsld_properties prop
@@ -30,13 +31,15 @@
 	if { [string eq "file" $datatype] } {
 	    imsld::runtime::property::property_value_set -run_id $run_id \
 		-user_id $owner_id \
+		-role_instance_id $role_instance_id \
 		-value $instances_ids($instance_id) \
 		-property_id $property_id \
 		-upload_file $instances_ids($instance_id) \
 		-tmpfile $instances_ids(${instance_id}.tmpfile)
 	} else {
 	    imsld::runtime::property::property_value_set -run_id $run_id \
 		-user_id $owner_id \
+		-role_instance_id $role_instance_id \
 		-value $instances_ids($instance_id) \
 		-property_id $property_id
 	}