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 -r1.58 -r1.59
--- openacs-4/packages/imsld/tcl/imsld-procs.tcl	21 Apr 2006 16:40:53 -0000	1.58
+++ openacs-4/packages/imsld/tcl/imsld-procs.tcl	21 Apr 2006 16:49:36 -0000	1.59
@@ -3283,7 +3283,7 @@
                     set text [$dom_doc createTextNode " "]
                     $activity_node appendChild $text
                         
-                    if { !$completed_p } {
+                    if { !$completed_activity_p } {
                         set a_node [$dom_doc createElement a]
                         $a_node setAttribute href "finish-component-element-${imsld_id}-${play_id}-${act_id}-${role_part_id}-${activity_id}-learning.imsld"
                         set text [$dom_doc createTextNode "\u2610"]
@@ -3316,7 +3316,7 @@
                     set text [$dom_doc createTextNode " "]
                     $activity_node appendChild $text
                     
-                    if { !$completed_p } {
+                    if { !$completed_activity_p } {
                         set a_node [$dom_doc createElement a]
                         $a_node setAttribute href "finish-component-element-${imsld_id}-${play_id}-${act_id}-${role_part_id}-${activity_id}-support.imsld"
                         set text [$dom_doc createTextNode "\u2610"]