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.95 -r1.95.2.1
--- openacs-4/packages/imsld/tcl/imsld-procs.tcl	27 Apr 2007 13:30:25 -0000	1.95
+++ openacs-4/packages/imsld/tcl/imsld-procs.tcl	30 May 2007 08:06:17 -0000	1.95.2.1
@@ -2123,6 +2123,7 @@
         set file_url [acs_sc::invoke -contract FtsContentProvider -operation url -impl $object_type -call_args [list $acs_object_id]]
         set a_node [$dom_doc createElement a]
         $a_node setAttribute href "[export_vars -base "[lindex [site_node::get_url_from_object_id -object_id $imsld_package_id] 0]imsld-finish-resource" {file_url $file_url resource_item_id $resource_item_id run_id $run_id}]"
+	$a_node setAttribute title "$object_title"
         set img_node [$dom_doc createElement img]
         $img_node setAttribute src "[imsld::object_type_image_path -object_type $object_type]"
         $img_node setAttribute border "0"
@@ -2150,6 +2151,7 @@
             set file_url "imsld-content-serve"
             set a_node [$dom_doc createElement a]
             $a_node setAttribute href "[export_vars -base "[lindex [site_node::get_url_from_object_id -object_id $imsld_package_id] 0]imsld-finish-resource" {file_url $file_url resource_item_id $resource_item_id run_id $run_id}]"
+	    $a_node setAttribute title "$file_name"
             set img_node [$dom_doc createElement img]
             $img_node setAttribute src "[imsld::object_type_image_path -object_type file-storage]"
             $img_node setAttribute border "0"
@@ -2177,6 +2179,7 @@
             set file_url "[apm_package_url_from_id $fs_package_id]view/${file_url}"
             set a_node [$dom_doc createElement a]
             $a_node setAttribute href "[export_vars -base "[lindex [site_node::get_url_from_object_id -object_id $imsld_package_id] 0]imsld-finish-resource" {file_url $file_url resource_item_id $resource_item_id run_id $run_id}]"
+	    $a_node setAttribute title "$file_name"
             set img_node [$dom_doc createElement img]
             $img_node setAttribute src "[imsld::object_type_image_path -object_type file-storage]"
             $img_node setAttribute border "0"
@@ -2194,6 +2197,7 @@
         db_foreach associated_urls { *SQL* } {
             set a_node [$dom_doc createElement a]
             $a_node setAttribute href "[export_vars -base "[lindex [site_node::get_url_from_object_id -object_id $imsld_package_id] 0]imsld-finish-resource" { {file_url "[export_vars -base $url]"} resource_item_id run_id}]"
+	    $a_node setAttribute title "$url"
             set img_node [$dom_doc createElement img]
             $img_node setAttribute src "[imsld::object_type_image_path -object_type url]"
             $img_node setAttribute border "0"
@@ -2727,7 +2731,6 @@
                     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}-${run_id}-${play_id}-${act_id}-${role_part_id}-${activity_id}-learning.imsld\""
                         $activity_node appendChild $input_node
                     } else {
@@ -2768,7 +2771,6 @@
                     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}-${run_id}-${play_id}-${act_id}-${role_part_id}-${activity_id}-support.imsld\""
                         $activity_node appendChild $input_node
                     } else {
@@ -2890,7 +2892,6 @@
                     if { !$completed_activity_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}-${run_id}-${play_id}-${act_id}-${role_part_id}-${activity_id}-learning.imsld\""
                         $activity_node appendChild $input_node
                     } else {
@@ -2930,7 +2931,6 @@
                     if { !$completed_activity_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}-${run_id}-${play_id}-${act_id}-${role_part_id}-${activity_id}-support.imsld\""
                         $activity_node appendChild $input_node
                     } else {
@@ -3043,7 +3043,6 @@
                 if { !$completed_activity_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}-${run_id}-${play_id}-${act_id}-${role_part_id}-${activity_id}-learning.imsld\""
                     $activity_node appendChild $input_node
                 } else {
@@ -3075,7 +3074,6 @@
                 if { !$completed_activity_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}-${run_id}-${play_id}-${act_id}-${role_part_id}-${activity_id}-support.imsld\""
                     $activity_node appendChild $input_node
                 } else {