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.57 -r1.58
--- openacs-4/packages/imsld/tcl/imsld-procs.tcl	21 Apr 2006 15:33:02 -0000	1.57
+++ openacs-4/packages/imsld/tcl/imsld-procs.tcl	21 Apr 2006 16:40:53 -0000	1.58
@@ -3149,11 +3149,16 @@
                     set text [$dom_doc createTextNode " "]
                     $activity_node appendChild $text
 
-                    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 "(finish)"]
-                    $a_node appendChild $text
-                    $activity_node appendChild $a_node
+                    if { !$completed_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"]
+                        $a_node appendChild $text
+                        $activity_node appendChild $a_node
+                    } else {
+                        set text [$dom_doc createTextNode "\u2611"]
+                        $activity_node appendChild $text
+                    }
 
                     set completed_list [linsert $completed_list $sort_order [$activity_node asList]]
                 }
@@ -3181,13 +3186,18 @@
 
                     set text [$dom_doc createTextNode " "]
                     $activity_node appendChild $text
+                    
+                    if { !$completed_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"]
+                        $a_node appendChild $text
+                        $activity_node appendChild $a_node
+                    } else {
+                        set text [$dom_doc createTextNode "\u2611"]
+                        $activity_node appendChild $text
+                    }
 
-                    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 "(finish)"]
-                    $a_node appendChild $text
-                    $activity_node appendChild $a_node
-
                     set completed_list [linsert $completed_list $sort_order [$activity_node asList]]
                 }
             }
@@ -3272,13 +3282,18 @@
 
                     set text [$dom_doc createTextNode " "]
                     $activity_node appendChild $text
+                        
+                    if { !$completed_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"]
+                        $a_node appendChild $text
+                        $activity_node appendChild $a_node
+                    } else {
+                        set text [$dom_doc createTextNode "\u2611"]
+                        $activity_node appendChild $text
+                    }
 
-                    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 "(finish)"]
-                    $a_node appendChild $text
-                    $activity_node appendChild $a_node
-
                     $dom_node appendChild $activity_node
                 }
             }
@@ -3300,13 +3315,18 @@
 
                     set text [$dom_doc createTextNode " "]
                     $activity_node appendChild $text
+                    
+                    if { !$completed_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"]
+                        $a_node appendChild $text
+                        $activity_node appendChild $a_node
+                    } else {
+                        set text [$dom_doc createTextNode "\u2611"]
+                        $activity_node appendChild $text
+                    }
 
-                    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 "(finish)"]
-                    $a_node appendChild $text
-                    $activity_node appendChild $a_node
-
                     $dom_node appendChild $activity_node
                 }
             }