Index: openacs-4/packages/imsld/tcl/imsld-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-procs.tcl,v
diff -u -N -r1.81 -r1.82
--- openacs-4/packages/imsld/tcl/imsld-procs.tcl	26 Jul 2006 14:37:27 -0000	1.81
+++ openacs-4/packages/imsld/tcl/imsld-procs.tcl	20 Sep 2006 08:26:30 -0000	1.82
@@ -720,9 +720,19 @@
 
         #grant permissions to resources in activity
         if { [db_0or1row get_related_on_completion_id ""] } {
+            # process feedback?
             if { [db_0or1row get_related_resource_id { *SQL* }] } {
                 imsld::grant_permissions -resources_activities_list $related_resource -user_id $user_id
             }
+            # process change_property_value?
+            if { [db_0or1row get_related_change_prop_val {
+                select change_property_value_xml
+                from imsld_on_completioni
+                where item_id = :related_on_completion
+                and content_revision__is_live(on_completion_id) = 't'
+            }] } {
+                imsld::condition::eval_change_property_value -change_property_value_xml $change_property_value_xml -run_id $run_id
+            }
         }
     }
     if { [string eq $type "learning"] || [string eq $type "support"] || [string eq $type "structure"] } {
@@ -3146,10 +3156,10 @@
         from imsld_propertiesi ip, 
         imsld_componentsi ici,
         imsld_imsldsi iii
-        where ip.component_id=ici.item_id 
-        and ici.imsld_id=iii.item_id
-        and iii.item_id=:imsld_id
-        and ip.identifier=:identifier
+        where ip.component_id = ici.item_id 
+        and ici.imsld_id = iii.item_id
+        and iii.item_id = :imsld_id
+        and ip.identifier = :identifier
        }]
 }