Index: openacs-4/packages/imsld/lib/activity-tree.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/lib/activity-tree.adp,v
diff -u -N -r1.3.2.2 -r1.3.2.3
--- openacs-4/packages/imsld/lib/activity-tree.adp 3 Aug 2009 12:09:28 -0000 1.3.2.2
+++ openacs-4/packages/imsld/lib/activity-tree.adp 11 Aug 2009 12:28:52 -0000 1.3.2.3
@@ -3,17 +3,11 @@
@imsld_title@
Index: openacs-4/packages/imsld/lib/activity.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/lib/activity.tcl,v
diff -u -N -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/imsld/lib/activity.tcl 28 Jul 2009 19:52:33 -0000 1.5.2.1
+++ openacs-4/packages/imsld/lib/activity.tcl 11 Aug 2009 12:28:52 -0000 1.5.2.2
@@ -151,7 +151,7 @@
and attr.run_id = :run_id
and attr.user_id = :user_id
and attr.type = 'isvisible'
- } -default 0]
+ } -default "t"]
} else {
set visible_p t
}
@@ -162,19 +162,6 @@
}
-# set nested_list [imsld::generate_structure_activities_list -imsld_id $imsld_id \
-# -run_id $run_id \
-# -structure_item_id $structure_item_id \
-# -user_id $user_id \
-# -next_activity_id_list $next_activity_id_list \
-# -role_part_id $role_part_id \
-# -play_id $play_id \
-# -act_id $act_id \
-# -dom_doc $dom_doc \
-# -dom_node $dom_node]
-# # the nested finished activities are returned as a tcl list in tDOM format
-# $structure_node appendFromList [list ul [list] [concat [list] $nested_list]]
-# $dom_node appendChild $structure_node
}
}
}
Index: openacs-4/packages/imsld/www/activity-frame.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/activity-frame.adp,v
diff -u -N -r1.19.2.1 -r1.19.2.2
--- openacs-4/packages/imsld/www/activity-frame.adp 4 Aug 2009 21:53:19 -0000 1.19.2.1
+++ openacs-4/packages/imsld/www/activity-frame.adp 11 Aug 2009 12:28:52 -0000 1.19.2.2
@@ -28,8 +28,9 @@
@activities;noquote@
-
- #imsld.navigate#
+
+ #imsld.navigate#
+
Index: openacs-4/packages/imsld/www/activity-frame.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/activity-frame.tcl,v
diff -u -N -r1.22 -r1.22.2.1
--- openacs-4/packages/imsld/www/activity-frame.tcl 17 Jun 2009 08:00:01 -0000 1.22
+++ openacs-4/packages/imsld/www/activity-frame.tcl 11 Aug 2009 12:28:52 -0000 1.22.2.1
@@ -153,10 +153,11 @@
imsld::grant_permissions -resources_activities_list $resources_list -user_id $user_id -run_id $run_id
}
- set nodeList [$dom_root selectNodes {descendant::a}]
+ set node_list [$dom_root selectNodes {descendant::a}]
+ set {node_list:rowcount} [llength $node_list]
set activity_url ""
- foreach node $nodeList {
+ foreach node $node_list {
set href [$node getAttribute href]
if { $href ne "" && ![string match {*\#*} $href] } {
set iframe_activity_url $href