[join [lindex $activities_list 3] " "]"
+
+ set feedbacks ""
+ if { [llength [lindex $activities_list 4]] } {
+ set feedbacks "[lindex [lindex $activities_list 4] 0]
"
+ append feedbacks "[join [lindex [lindex $activities_list 4] 1] " "]"
+ }
+
+ set resources_activities_list [imsld::process_learning_activity -activity_item_id $activity_item_id -resource_mode "t"]
+ foreach resource_activity [join $resources_activities_list] {
+
+
+ #assessment must have an extra feedback item
+ if {[db_0or1row is_assessment {} ] } {
+ db_1row get_as_site_node {}
+ set as_feedback_url "[site_node::get_url -node_id $node_id][export_vars -base sessions {assessment_id $assessment_id}]"
+ set as_feedback_link "
"
+ append feedbacks $as_feedback_link
+ }
+ }
- template::multirow append imsld_multirow $prerequisites \
- $objectives \
- $environments \
- $activities \
- $feedbacks \
- "
"
+ template::multirow append imsld_multirow $prerequisites \
+ $objectives \
+ $environments \
+ $activities \
+ $feedbacks \
+ "
"
+ }
}
support {
- db_1row get_support_activity_info_from_isa {
- select coalesce(title,identifier) as activity_title,
- item_id as activity_item_id
- from imsld_support_activitiesi
- where activity_id = :completed_id
+ if { [string eq $status "finished"] } {
+ db_1row get_support_activity_info_from_isa {
+ select coalesce(title,identifier) as activity_title,
+ item_id as activity_item_id
+ from imsld_support_activitiesi
+ where activity_id = :completed_id
+ }
+ set activities_list [imsld::process_support_activity -activity_item_id $activity_item_id]
+
+ if { [llength [lindex $activities_list 0]] } {
+ set environments "[lindex [lindex $activities_list 0] 0]
"
+ append environments "[join [lindex [lindex $activities_list 0] 1] " "] "
+ append environments "[join [lindex [lindex $activities_list 0] 2] " "] "
+ append environments "[join [lindex [lindex $activities_list 0] 3] " "] "
+ }
+
+ set activities "
$activity_title
[join [lindex $activities_list 1] " "]"
+
+ set feedbacks ""
+ if { [llength [lindex $activities_list 2]] } {
+ set feedbacks "[lindex [lindex $activities_list 2] 0]
"
+ append feedbacks "[join [lindex [lindex $activities_list 2] 1] " "]"
+ }
+ template::multirow append imsld_multirow {} \
+ {} \
+ $environments \
+ $activities \
+ $feedbacks \
+ "
![](\"[lindex)
"
}
- set activities_list [imsld::process_support_activity -activity_item_id $activity_item_id]
-
- if { [llength [lindex $activities_list 0]] } {
- set environments "[lindex [lindex $activities_list 0] 0]
"
- append environments "[join [lindex [lindex $activities_list 0] 1] " "] "
- append environments "[join [lindex [lindex $activities_list 0] 2] " "] "
- append environments "[join [lindex [lindex $activities_list 0] 3] " "] "
- }
-
- set activities "$activity_title
[join [lindex $activities_list 1] " "]"
-
- set feedbacks ""
- if { [llength [lindex $activities_list 2]] } {
- set feedbacks "[lindex [lindex $activities_list 2] 0]
"
- append feedbacks "[join [lindex [lindex $activities_list 2] 1] " "]"
- }
- template::multirow append imsld_multirow {} \
- {} \
- $environments \
- $activities \
- $feedbacks \
- "
"
}
structure {
db_1row get_support_activity_info_from_ias {
@@ -2052,7 +2091,15 @@
append environments "[join [lindex $structure_list 3] " "]
"
}
}
- template::multirow append imsld_multirow {} {} $environments $activity_title {} {}
+ if { [string eq $status "started"] } {
+ set structure_title "
[string repeat "(" $tab_structures]$activity_title
"
+ set stat ""
+ incr tab_structures
+ } else {
+ incr tab_structures -1
+ set structure_title "
$activity_title[string repeat ")" $tab_structures]
"
+ }
+ template::multirow append imsld_multirow {} {} $environments $structure_title {} {}
}
}
}
@@ -2123,11 +2170,13 @@
}
}
}
+
# find the next activity referenced by the role_part
# (learning_activity, support_activity, activity_structure)
# 1. if it is a learning or support activity, no problem, find the associated files and return the lists
# 2. if it is an activity structure we have verify which activities are already completed and return the next
# activity in the activity structure, handling the case when the next activity is also an activity structure
+ ns_log notice "dos"
db_1row get_role_part_activity {
select case
@@ -2164,14 +2213,25 @@
# activity structure
if { [string eq $activity_type structure] } {
# activity structure. we have to look for the next learning or support activity
- set activity_list [imsld::structure_next_activity -activity_structure_id $activity_id -environment_list $environment_list]
+ set activity_list [imsld::structure_next_activity -activity_structure_id $activity_id -imsld_id $imsld_id -role_part_id $role_part_id -environment_list $environment_list]
set activity_id [lindex $activity_list 0]
set activity_type [lindex $activity_list 1]
if { [llength $environment_list] } {
set environment_list [concat [list $environment_list] [lindex $activity_list 2]]
} else {
set environment_list [lindex $activity_list 2]
}
+ # flush the structures names in the path of the next activity
+ set structures_names [lindex $activity_list 3]
+ foreach structure_name $structures_names {
+ template::multirow append imsld_multirow {} \
+ {} \
+ {} \
+ "
[string repeat ( $tab_structures]$structure_name
" \
+ {} \
+ {}
+ incr tab_structures
+ }
}
set environments ""
if { [llength $environment_list] } {
@@ -2182,20 +2242,14 @@
append environments "[join [lindex $environment 3] " "]
"
}
}
-
+ ns_log notice "tres acti $activity_id "
+
# learning activity
if { [string eq $activity_type learning] } {
- db_1row learning_activity {
- select la.activity_id,
- la.item_id as activity_item_id,
- la.title as activity_title,
- la.identifier
- from imsld_learning_activitiesi la
- where la.activity_id = :activity_id
- }
+ db_1row learning_activity { *SQL* }
set activities_list [imsld::process_learning_activity -activity_item_id $activity_item_id]
- set resources_activities_list [imsld::process_learning_activity -activity_item_id $activity_item_id -resource_mode "t"]
+ set resources_activities_list [imsld::process_learning_activity -activity_item_id $activity_item_id -resource_mode "t"]
#grant permissions for newly appeared resources
imsld::grant_permissions -resources_activities_list $resources_activities_list -user_id $user_id
@@ -2217,27 +2271,24 @@
append environments "[join [lindex [lindex $activities_list 2] 3] " "]"
}
set files ""
- set activities "$activity_title
[join [lindex $activities_list 3] " "]"
+ set activities "
$activity_title
[join [lindex $activities_list 3] " "]"
+ if { ![llength [lindex $activities_list 3]] } {
+ set status "
finish"
+ } else {
+ set status ""
+ }
template::multirow append imsld_multirow $prerequisites \
$objectives \
$environments \
$activities \
{} \
- {}
- #"
finish"
+ $status
}
# support activity
if { [string eq $activity_type support] } {
- db_1row support_activity {
- select sa.activity_id,
- sa.item_id as activity_item_id,
- sa.title as activity_title,
- sa.identifier
- from imsld_support_activitiesi sa
- where sa.activity_id = :activity_id
- }
+ db_1row support_activity { *SQL* }
set activities_list [imsld::process_support_activity -activity_item_id $activity_item_id]
if { [llength [lindex $activities_list 0]] } {
@@ -2248,205 +2299,205 @@
regsub -all {
[ ]*} $environments "" environments
}
- set activities "$activity_title
[join [lindex $activities_list 1] " "]"
-
+ set activities "
$activity_title
[join [lindex $activities_list 1] " "]"
+ if { ![llength [lindex $activities_list 1]] } {
+ set status "
finish"
+ } else {
+ set status ""
+ }
+
template::multirow append imsld_multirow {} \
{} \
$environments \
$activities \
{} \
- {}
- #"
finish"
+ $status
}
# first parameter: activity name
return [template::multirow size imsld_multirow]
}
-ad_proc -public imsld::get_activity_from_resource {
- -resource_id
+ad_proc -public imsld::get_activity_from_environment {
+ -environment_item_id
+
} {
- @return The a list of the activity_id, activity_item_id and activity_type from which the resource is being referenced
+ @return The a list of lists of the activity_id, activity_item_id and activity_type from which the environment is being referenced
} {
- #set a flag. while 1, keep trying
-
- # Case 1: check if it is referenced from a learning activity (trhough the activity_description)
- set activity_item_id ""
- if { [db_0or1row learning_activity_resource {
- select ila.activity_id,
- ila.item_id as activity_item_id
- from imsld_cp_resourcesi icri,
- acs_rels ar1,
- acs_rels ar2,
- imsld_learning_activitiesi ila
- where ar2.object_id_two=icri.item_id
- and ar1.object_id_two=ar2.object_id_one
- and ila.activity_description_id=ar1.object_id_one
- and icri.resource_id= :resource_id
- }] } {
- # found it, it's referenced from a learning activity
- return [list $activity_id $activity_item_id learning]
- }
-
- # Case 2: check if it is referenced from a support activity (trhough the activity_description)
- set activity_item_id ""
- if { [db_0or1row support_activity_resource {
- select isa.activity_id,
- isa.item_id as activity_item_id
- from imsld_cp_resourcesi icri,
- acs_rels ar1,
- acs_rels ar2,
- imsld_support_activitiesi isa
- where ar2.object_id_two=icri.item_id
- and ar1.object_id_two=ar2.object_id_one
- and isa.activity_description_id=ar1.object_id_one
- and icri.resource_id= :resource_id
- }] } {
- # found it, it's referenced from a support activity
- return [list $activity_id $activity_item_id support]
- }
-
- # Case 3: check if it is referenced from a service
-
- # first get the imsld_item_id
- db_1row get_imsld_item_id {
- select ar1.object_id_one as imsld_item_item_id
- from imsld_cp_resourcesi icri,
- acs_rels ar1
- where icri.item_id=ar1.object_id_two
- and icri.resource_id= :resource_id
- }
-
- # there are three options: a service, a conference service or a learning object
-
- # FIX ME: VALID ONLY FOR CONFERENCE_SERVICES!!!
- if { [db_0or1row is_conference_service {select 1 from imsld_conference_services where imsld_item_id=:imsld_item_item_id} ] } {
- # conference service
- # get the environment_id
- db_1row get_environment_id_from_cs {
- select isi.environment_id as environment_item_id
- from imsld_conference_services ics,
- imsld_servicesi isi
- where isi.item_id=ics.service_id
- and ics.imsld_item_id=:imsld_item_item_id
+ set activities_list [list]
+ foreach environment_list [db_list_of_lists get_env_info {
+ select ar.object_id_one,
+ ar.rel_type
+ from acs_rels ar
+ where ar.object_id_two = :environment_item_id
+ }] {
+ set object_id_one [lindex $environment_list 0]
+ set rel_type [lindex $environment_list 1]
+ # the enviroment may be referenced froma learning activity, support activity or from an enviroment!
+ if { [string eq $rel_type imsld_la_env_rel] } {
+ set activities_list [concat $activities_list [db_list_of_lists learning_env_ref {
+ select la.activity_id,
+ la.item_id,
+ 'learning'
+ from imsld_learning_activitiesi la
+ where la.item_id = :object_id_one
+ }]]
}
-
- # evironment referenced from learning activity ?
- if { [db_0or1row get_learning_activity_from_environment {
- select ila.activity_id,
- ila.item_id as activity_item_id
- from acs_rels ar,
- imsld_learning_activitiesi ila
- where ila.item_id=ar.object_id_one
- and ar.object_id_two=:environment_item_id
- }] } {
- return [list $activity_id $activity_item_id learning]
+ if { [string eq $rel_type imsld_sa_env_rel] } {
+ set activities_list [concat $activities_list [db_list_of_lists support_env_ref {
+ select sa.activity_id,
+ sa.item_id,
+ 'support'
+ from imsld_support_activitiesi sa
+ where sa.item_id = :object_id_one
+ }]]
}
-
- # evironment referenced from support activity ?
- if { [db_0or1row get_support_activity_from_environment {
- select isa.activity_id,
- isa.item_id as activity_item_id
- from acs_rels ar,
- imsld_support_activitiesi isa
- where isa.item_id=ar.object_id_one
- and ar.object_id_two=:environment_item_id
- }] } {
- return [list $activity_id $activity_item_id support]
+ if { [string eq $rel_type imsld_env_env_rel] } {
+ # the environment is referenced fron another environment.
+ # we get the referencer environment and call this function again (recursivity is our friend =)
+ # and besides, the environment may be referenced from more than one environment!
+ set activities_list_nested [list]
+ foreach referenced_environment [db_list_of_lists get_referencer_env_info {
+ select ar.object_id_one as env_referencer_id
+ from acs_rels ar
+ where ar.object_id_two = :object_id_one
+ }] {
+ set referencer_env_item_id [lindex $referenced_environment 0]
+ set activities_list_nested [concat $activities_list_nested [imsld::get_activity_from_environment -environment_item_id $referencer_env_item_id]]
+ }
+ set activities_list [concat $activities_list $$activities_list]
}
}
-
+ return $activities_list
+}
- # Case 4: learning objects
- if { [db_0or1row is_learning_object {
- select 1 from acs_rels where rel_type='imsld_l_object_item_rel' and object_id_two=:imsld_item_item_id
- } ] } {
- db_1row get_environment_id_from_lo {
- select iloi.environment_id as environment_item_id
- from imsld_learning_objectsi iloi,
- acs_rels ar
- where iloi.item_id=ar.object_id_one
- and ar.object_id_two=:imsld_item_item_id
- }
-
- # learning object referenced from a learning activity ?
- if { [db_0or1row get_learning_activity_from_environment {
- select ila.activity_id,
- ila.item_id as activity_item_id
- from acs_rels ar,
- imsld_learning_activitiesi ila
- where ila.item_id=ar.object_id_one
- and ar.object_id_two=:environment_item_id
- }] } {
- return [list $activity_id $activity_item_id learning]
- }
-
- # learning object referenced from a support activity ?
- if { [db_0or1row get_support_activity_from_environment {
- select isa.activity_id,
- isa.item_id as activity_item_id
- from acs_rels ar,
- imsld_support_activitiesi isa
- where isa.item_id=ar.object_id_one
- and ar.object_id_two=:environment_item_id
- }] } {
- return [list $activity_id $activity_item_id support]
- }
+ad_proc -public imsld::get_activity_from_resource {
+ -resource_id
+} {
+ @return The a list of lists of the activity_id, activity_item_id and activity_type from which the resource is being referenced
+} {
+ set activities_list [list]
+ # find out the rel_type in order to know from which activity the resource is being referenced
+ foreach object_list [db_list_of_lists directly_mapped_info {
+ select ar.rel_type,
+ ar.object_id_one
+ from acs_rels ar, imsld_cp_resourcesi icr
+ where icr.resource_id = :resource_id
+ and ar.object_id_two = icr.item_id
+ }] {
+ set rel_type [lindex $object_list 0]
+ set object_id_one [lindex $object_list 1]
+ if { [string eq $rel_type imsld_item_res_rel] } {
+ # get item info
+ foreach nested_object_list [db_list_of_lists get_nested_info {
+ select ar.rel_type as rel_type_nested,
+ ar.object_id_one as object_id_nested
+ from acs_rels ar
+ where ar.object_id_two = :object_id_one
+ }] {
+ set rel_type_nested [lindex $nested_object_list 0]
+ set object_id_nested [lindex $nested_object_list 1]
+ if { [string eq $rel_type_nested imsld_preq_item_rel] } {
+ # get the learning_activity_id and return it
+ set activities_list [concat $activities_list [db_list_of_lists get_prereq_activity {
+ select la.activity_id,
+ la.item_id as activity_item_id,
+ 'learning'
+ from imsld_learning_activitiesi la,
+ imsld_prerequisitesi prereq
+ where prereq.item_id = :object_id_nested
+ and la.prerequisite_id = prereq.item_id
+ }]]
+ }
+ if { [string eq $rel_type_nested imsld_lo_item_rel] } {
+ # get the learning_activity_id and return it
+ set activities_list [concat $activities_list [db_list_of_lists get_lobjective_activity {
+ select la.activity_id,
+ la.item_id as activity_item_id,
+ 'learning'
+ from imsld_learning_activitiesi la,
+ imsld_learning_objectivesi lobjectives
+ where lobjectives.item_id = :object_id_nested
+ and la.learning_objective_id = lobjectives.item_id
+ }]]
+ }
+ if { [string eq $rel_type_nested imsld_actdesc_item_rel] } {
+ # get the learning or support activity and return it
+ if { [db_0or1row learning_activity_ref {
+ select la.activity_id,
+ la.item_id as activity_item_id,
+ 'learning'
+ from imsld_learning_activitiesi la,
+ imsld_activity_descsi ades
+ where ades.item_id = :object_id_nested
+ and la.activity_description_id = ades.item_id
+ }] } {
+ set activities_list [concat $activities_list [list [list $activity_id $activity_item_id learning]]]
+ } else {
+ set activities_list [concat $activities_list [db_list_of_lists support_activity_ref {
+ select sa.activity_id,
+ sa.item_id as activity_item_id,
+ 'support'
+ from imsld_support_activitiesi sa,
+ imsld_activity_descsi ades
+ where ades.item_id = :object_id_nested
+ and sa.activity_description_id = ades.item_id
+ }]]
+ }
+ }
+ if { [string eq $rel_type_nested imsld_as_info_i_rel] } {
+ # get the activity_structure_id and return it
+ set activities_list [concat $activities_list [db_list_of_lists activity_structure_ref {
+ select as.structure_id as activity_id
+ as.item_id as activity_item_id,
+ 'structure'
+ from imsld_activity_structuresi as
+ where as.item_id = :object_id_nested
+ }]]
+ }
+ if { [string eq $rel_type_nested imsld_l_object_item_rel] } {
+ # item referenced from a learning object, which it's referenced fron an environment
+ # get the environment
+ db_1row get_env_lo_info {
+ select lo.environment_id as environment_item_id
+ from imsld_learning_objectsi lo
+ where lo.item_id = :object_id_nested
+ }
+ set activities_list [concat $activities_list [imsld::get_activity_from_environment -environment_item_id $environment_item_id]]
+ }
+ }
+ # if we reached this point, the resource may be reference fron a conference service
+ # which is referenced from an environment
+ if { [db_0or1row get_env_serv_info {
+ select serv.environment_id as environment_item_id
+ from imsld_conference_servicesi ecs,
+ imsld_servicesi serv
+ where ecs.item_id = :object_id_nested
+ and ecs.service_id = serv.item_id
+ }] } {
+ set activities_list [concat $activities_list [imsld::get_activity_from_environment -environment_item_id $environment_item_id]]
+ }
+ }
}
-
- # Case 5: the last one. it has to be referenced fron a learning objective or prerequisite,
- # which is referenced from a larning activity
-
- #get the element with which the resource is asociated (prerequisite,learning objective,environment or learning activity)
- db_1row get_activity_from_resource {
- select ar1.object_id_one as resource_element_id
- from acs_rels ar1,
- acs_rels ar2,
- imsld_cp_resourcesi icr
- where ar1.object_id_two=ar2.object_id_one
- and ar2.object_id_two=icr.item_id
- and icr.resource_id = :resource_id;
- }
-
- # prerequisite ?
- if { [db_0or1row is_prerequisite { select 1 from imsld_prerequisitesi where item_id=:resource_element_id }] } {
- db_1row get_activity_id_from_prerequisite {
- select activity_id,
- item_id as activity_item_id
- from imsld_learning_activitiesi
- where prerequisite_id=:resource_element_id
- }
- return [list $activity_id $activity_item_id learning]
- } elseif { [db_0or1row is_learning_objective { select 1 from imsld_learning_objectivesi where item_id=:resource_element_id } ] } {
- # learning objective?
- db_1row get_activity_id_from_objective {
- select activity_id,
- item_id as activity_item_id
- from imsld_learning_activitiesi
- where learning_objective_id=:resource_element_id
- }
- return [list $activity_id $activity_item_id support]
- }
- return -code error "IMSLD::imsld::get_activity_from_resource no activity_id found for resource"
+ return $activities_list
}
ad_proc -public imsld::get_imsld_from_activity {
-activity_id
+ -activity_type
} {
@return The imsld_id from which the activity is being used.
} {
- db_1row get_imsld_from_activity {
- select iii.imsld_id as imsld_id
- from imsld_imsldsi iii,
- cr_items cr,
- cr_items cr2,
- imsld_learning_activitiesi ilai
- where ilai.activity_id=:activity_id
- and ilai.item_id=cr.item_id
- and cr2.parent_id=cr.parent_id
- and cr2.content_type='imsld_imsld'
- and iii.item_id=cr2.item_id
-
+ switch $activity_type {
+ learning {
+ db_1row get_imsld_from_la_activity { *SQL* }
+ }
+ support {
+ db_1row get_imsld_from_sa_activity { *SQL* }
+ }
+ structure {
+ db_1row get_imsld_from_as_activity { *SQL* }
+ }
}
return $imsld_id
}
@@ -2474,57 +2525,74 @@
} {
-#look for the asociated activity
- # get the activity_id, activity_item_id and activity_type
- set activity_list [imsld::get_activity_from_resource -resource_id $resource_id]
- set activity_id [lindex $activity_list 0]
- set activity_item_id [lindex $activity_list 1]
- set activity_type [lindex $activity_list 2]
+ #look for the asociated activities
+ set activities_list [imsld::get_activity_from_resource -resource_id $resource_id]
+ # process each activity
+ foreach activity_list $activities_list {
+ if { !([llength $activity_list] == 3) } {
+ # it's not refrenced from an activity, skip it
+ break
+ }
+ # set the activity_id, activity_item_id and activity_type
+ set activity_id [lindex $activity_list 0]
+ set activity_item_id [lindex $activity_list 1]
+ set activity_type [lindex $activity_list 2]
+
+ #get info
+ set role_part_id_list [imsld::get_role_part_from_activity -activity_type $activity_type -leaf_id $activity_item_id]
+ set imsld_id [imsld::get_imsld_from_activity -activity_id $activity_id -activity_type $activity_type]
+ set user_id [ad_conn user_id]
+
+ #if not done yet, tag the resource as finished
+ if { ![db_string check_completed_resource { *SQL* }] } {
+ db_dml insert_completed_resource { *SQL* }
+ }
+ #find all the resouces in the same activity
+ switch $activity_type {
+ learning {
+ set first_resources_item_list [imsld::process_learning_activity -activity_item_id $activity_item_id -resource_mode "t"]
+ }
+ support {
+ set first_resources_item_list [imsld::process_support_activity -activity_item_id $activity_item_id -resource_mode "t"]
+ }
+ structure {
+ set first_resources_item_list [imsld::process_activity_structure -activity_item_id $activity_item_id -resource_mode "t"]
+ }
+ }
-
-#get info
- set role_part_id [imsld::get_role_part_from_activity -activity_type learning -leaf_id $activity_item_id]
- set imsld_id [imsld::get_imsld_from_activity -activity_id $activity_id]
- set user_id [ad_conn user_id]
-
-
-#if not done yet, tag the resource as finished
- if { ![db_string check_completed_resource { *SQL* }] } {
- db_dml insert_completed_resource { *SQL* }
- }
-#find all the resouces in the same activity
- set first_resources_item_list [imsld::process_learning_activity -activity_item_id $activity_item_id -resource_mode "t"]
-
-#only the learning_activities must be finished
- set resources_item_list [lindex $first_resources_item_list 3]
- if { [llength $resources_item_list] == 0 } {
- set resources_item_list [lindex $first_resources_item_list 2]
- }
+ #only the learning_activities must be finished
+ set resources_item_list [lindex $first_resources_item_list 3]
+ if { [llength $resources_item_list] == 0 } {
+ set resources_item_list [lindex $first_resources_item_list 2]
+ }
- set all_finished_p 1
- foreach resource_item_id $resources_item_list {
- foreach res_id $resource_item_id {
- if { ![db_0or1row resource_finished_p {
- select 1
- from imsld_status_user stat, imsld_cp_resourcesi icr
- where icr.item_id = :res_id
- and icr.resource_id = stat.completed_id
- and user_id = :user_id
- }] } {
- # if the resource is not in the imsld_status_user, then the resource is not finished
- set all_finished_p 0
- break
+ set all_finished_p 1
+ foreach resource_item_id $resources_item_list {
+ foreach res_id $resource_item_id {
+ if { ![db_0or1row resource_finished_p {
+ select 1
+ from imsld_status_user stat, imsld_cp_resourcesi icr
+ where icr.item_id = :res_id
+ and icr.resource_id = stat.completed_id
+ and user_id = :user_id
+ }] } {
+ # if the resource is not in the imsld_status_user, then the resource is not finished
+ set all_finished_p 0
+ break
+ }
}
}
- }
-#if all are finished, tag the activity as finished
- if { $all_finished_p && ![db_0or1row already_finished { *SQL* }] } {
- imsld::finish_component_element -imsld_id $imsld_id \
- -role_part_id $role_part_id \
- -element_id $activity_id \
- -type $activity_type\
- -code_call
+ #if all are finished, tag the activity as finished
+ if { $all_finished_p && ![db_0or1row already_finished { *SQL* }] } {
+ foreach role_part_id $role_part_id_list {
+ imsld::finish_component_element -imsld_id $imsld_id \
+ -role_part_id $role_part_id \
+ -element_id $activity_id \
+ -type $activity_type\
+ -code_call
+ }
+ }
}
}