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 -N -r1.59 -r1.60
--- openacs-4/packages/imsld/tcl/imsld-procs.tcl	21 Apr 2006 16:49:36 -0000	1.59
+++ openacs-4/packages/imsld/tcl/imsld-procs.tcl	24 Apr 2006 11:04:15 -0000	1.60
@@ -3150,14 +3150,17 @@
                     $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
+                        set input_node [$dom_doc createElement input]
+                        $input_node setAttribute type "checkbox"
+                        $input_node setAttribute style "vertical-align: bottom;"
+                        $input_node setAttribute onclick "window.location=\"finish-component-element-${imsld_id}-${play_id}-${act_id}-${role_part_id}-${activity_id}-learning.imsld\""
+                        $activity_node appendChild $input_node
                     } else {
-                        set text [$dom_doc createTextNode "\u2611"]
-                        $activity_node appendChild $text
+                        set input_node [$dom_doc createElement input]
+                        $input_node setAttribute type "checkbox"
+                        $input_node setAttribute checked "true"
+                        $input_node setAttribute disabled "true"
+                        $activity_node appendChild $input_node
                     }
 
                     set completed_list [linsert $completed_list $sort_order [$activity_node asList]]
@@ -3188,14 +3191,17 @@
                     $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
+                        set input_node [$dom_doc createElement input]
+                        $input_node setAttribute type "checkbox"
+                        $input_node setAttribute style "vertical-align: bottom;"
+                        $input_node setAttribute onclick "window.location=\"finish-component-element-${imsld_id}-${play_id}-${act_id}-${role_part_id}-${activity_id}-support.imsld\""
+                        $activity_node appendChild $input_node
                     } else {
-                        set text [$dom_doc createTextNode "\u2611"]
-                        $activity_node appendChild $text
+                        set input_node [$dom_doc createElement input]
+                        $input_node setAttribute type "checkbox"
+                        $input_node setAttribute checked "true"
+                        $input_node setAttribute disabled "true"
+                        $activity_node appendChild $input_node
                     }
 
                     set completed_list [linsert $completed_list $sort_order [$activity_node asList]]
@@ -3283,15 +3289,18 @@
                     set text [$dom_doc createTextNode " "]
                     $activity_node appendChild $text
                         
-                    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"]
-                        $a_node appendChild $text
-                        $activity_node appendChild $a_node
+                    if { !$completed_p } {
+                        set input_node [$dom_doc createElement input]
+                        $input_node setAttribute type "checkbox"
+                        $input_node setAttribute style "vertical-align: bottom;"
+                        $input_node setAttribute onclick "window.location=\"finish-component-element-${imsld_id}-${play_id}-${act_id}-${role_part_id}-${activity_id}-learning.imsld\""
+                        $activity_node appendChild $input_node
                     } else {
-                        set text [$dom_doc createTextNode "\u2611"]
-                        $activity_node appendChild $text
+                        set input_node [$dom_doc createElement input]
+                        $input_node setAttribute type "checkbox"
+                        $input_node setAttribute checked "true"
+                        $input_node setAttribute disabled "true"
+                        $activity_node appendChild $input_node
                     }
 
                     $dom_node appendChild $activity_node
@@ -3316,15 +3325,18 @@
                     set text [$dom_doc createTextNode " "]
                     $activity_node appendChild $text
                     
-                    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"]
-                        $a_node appendChild $text
-                        $activity_node appendChild $a_node
+                    if { !$completed_p } {
+                        set input_node [$dom_doc createElement input]
+                        $input_node setAttribute type "checkbox"
+                        $input_node setAttribute style "vertical-align: bottom;"
+                        $input_node setAttribute onclick "window.location=\"finish-component-element-${imsld_id}-${play_id}-${act_id}-${role_part_id}-${activity_id}-support.imsld\""
+                        $activity_node appendChild $input_node
                     } else {
-                        set text [$dom_doc createTextNode "\u2611"]
-                        $activity_node appendChild $text
+                        set input_node [$dom_doc createElement input]
+                        $input_node setAttribute type "checkbox"
+                        $input_node setAttribute checked "true"
+                        $input_node setAttribute disabled "true"
+                        $activity_node appendChild $input_node
                     }
 
                     $dom_node appendChild $activity_node