Index: openacs-4/packages/imsld/tcl/imsld-condition-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-condition-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/imsld/tcl/imsld-condition-procs.tcl	27 Jun 2006 10:38:39 -0000	1.3
+++ openacs-4/packages/imsld/tcl/imsld-condition-procs.tcl	27 Jun 2006 16:28:46 -0000	1.4
@@ -158,11 +158,19 @@
     -statement
 } {
 } {
+    if {![info exist user_id]} {
+	set user_id [ad_conn user_id] 
+    }
+
     foreach executeNode $statement {
-        switch -- [$executeNode nodeName] {
+        switch -- [$executeNode localName] {
             {show} {}
             {hide} {}
-            {change-property-value} {}
+            {change-property-value} {
+	        set propertyref [$executeNode selectNodes {*[local-name()='property-ref']}]
+	        set propertyvalue [[$executeNode selectNodes {*[local-name()='property-value']}] nodeValue]
+	        imsld::runtime::property::property_value_set -run_id $run_id -user_id $user_id -identifier [$propertyref getAttribute {ref}] -value $propertyvalue
+	    }
             {notification} {}
 	}
     }