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.5
--- 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	17 Apr 2008 17:17:54 -0000	1.5
@@ -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,24 +21,28 @@
         # avoiding hacks
         db_1row instance_info_id {
             select ins.property_id,
-            ins.run_id,
 	    prop.datatype
             from imsld_property_instances ins,
 	    imsld_properties prop
             where ins.instance_id = :instance_id
 	    and ins.property_id = prop.property_id
+	    and content_revision__is_live(ins.instance_id) = 't'
         }
 	
 	if { [string eq "file" $datatype] } {
-	    imsld::runtime::property::property_value_set -run_id $run_id \
+	    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 \
+	    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
 	}