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.15 -r1.16 --- openacs-4/packages/imsld/tcl/imsld-condition-procs.tcl 20 Sep 2006 08:26:30 -0000 1.15 +++ openacs-4/packages/imsld/tcl/imsld-condition-procs.tcl 20 Sep 2006 15:04:05 -0000 1.16 @@ -189,7 +189,6 @@ dom parse $when_prop_val_is_set_xml document $document documentElement when_prop_val_is_set_root set wpv_is_node [$when_prop_val_is_set_root childNodes] -# set wpv_is_node [$statement childNodes] set equal_value_p 0 # get the property value @@ -280,8 +279,10 @@ } } if { [db_0or1row support_activity_p { - select 'support' as activity_type - from imsld_support_activities + select 'support' as activity_type, + item_id as activity_item_id, + activity_id + from imsld_support_activitiesi where complete_act_id = :complete_act_item_id and content_revision__is_live(activity_id) = 't' }] } { Index: openacs-4/packages/imsld/www/imsld-content-serve.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/imsld-content-serve.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/imsld/www/imsld-content-serve.tcl 20 Sep 2006 08:26:30 -0000 1.8 +++ openacs-4/packages/imsld/www/imsld-content-serve.tcl 20 Sep 2006 15:04:05 -0000 1.9 @@ -16,6 +16,7 @@ if { [string eq $owner_user_id ""] } { set owner_user_id [ad_conn user_id] } + # get file info db_1row get_info { select f.revision_id, @@ -312,6 +313,13 @@ $form_node appendChild $input_text_node } + # adding owner info + set owner_node [$dom_doc createElement "input"] + $owner_node setAttribute name "owner_id" + $owner_node setAttribute type "hidden" + $owner_node setAttribute value "$owner_user_id" + $form_node appendChild $owner_node + # adding return url set return_url_node [$dom_doc createElement "input"] $return_url_node setAttribute name "return_url" @@ -464,6 +472,13 @@ set parent_node [$set_property_group_node parentNode] + # adding owner info + set owner_node [$dom_doc createElement "input"] + $owner_node setAttribute name "owner_id" + $owner_node setAttribute type "hidden" + $owner_node setAttribute value "$owner_user_id" + $form_node appendChild $owner_node + # adding return url set return_url_node [$dom_doc createElement "input"] $return_url_node setAttribute name "return_url" Index: openacs-4/packages/imsld/www/imsld-finish-resource.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/imsld-finish-resource.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/imsld/www/imsld-finish-resource.tcl 19 Jul 2006 15:30:13 -0000 1.8 +++ openacs-4/packages/imsld/www/imsld-finish-resource.tcl 20 Sep 2006 15:04:05 -0000 1.9 @@ -9,7 +9,7 @@ owner_user_id:optional } -# fedback nor assessment has to be marked as finished +# fedback, assessment nor imsldcontent have to be marked as finished if { [db_0or1row not_fedbk_nor_assmnt { select icr.resource_id from acs_rels ar, @@ -18,6 +18,7 @@ and icr.item_id = ar.object_id_two and ar.object_id_two = :resource_item_id and icr.type != 'imsqti_xmlv1p0' + and icr.type != 'imsldcontent' limit 1 }] } { imsld::grant_permissions -resources_activities_list $resource_id -user_id [ad_conn user_id] 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.2 -r1.3 --- openacs-4/packages/imsld/www/properties-value-set.tcl 4 Jul 2006 18:06:03 -0000 1.2 +++ openacs-4/packages/imsld/www/properties-value-set.tcl 20 Sep 2006 15:04:05 -0000 1.3 @@ -5,6 +5,7 @@ } { instances_ids:array,notnull return_url + owner_id } -validate { no_instance { if { [array size instances_ids] == 0 } { @@ -23,7 +24,7 @@ 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 + imsld::runtime::property::property_value_set -run_id $run_id -user_id $owner_id -value $value -property_id $property_id } } Index: openacs-4/packages/imsld/www/support-activity-roles.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/support-activity-roles.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/imsld/www/support-activity-roles.adp 25 Jul 2006 17:28:18 -0000 1.2 +++ openacs-4/packages/imsld/www/support-activity-roles.adp 20 Sep 2006 15:04:05 -0000 1.3 @@ -5,13 +5,23 @@ Index: openacs-4/packages/imsld/www/support-activity-roles.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/support-activity-roles.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/imsld/www/support-activity-roles.tcl 25 Jul 2006 17:28:18 -0000 1.4 +++ openacs-4/packages/imsld/www/support-activity-roles.tcl 20 Sep 2006 15:04:05 -0000 1.5 @@ -13,7 +13,7 @@ } set users_in_role [list] - set counter 0 +set counter 0 foreach instances_group $supported_role_instances { set users_in_instance [list] foreach instance $instances_group { @@ -28,8 +28,7 @@ set username [join [db_list_of_lists get_user_name "select first_names, last_name from dotlrn_users where user_id=$member_id"]] } - set counter [expr $counter + 1] - + set counter [expr $counter + 1] }