Index: openacs-4/packages/imsld/catalog/imsld.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/catalog/imsld.en_US.ISO-8859-1.xml,v
diff -u -r1.38 -r1.39
--- openacs-4/packages/imsld/catalog/imsld.en_US.ISO-8859-1.xml	4 Jul 2008 15:32:44 -0000	1.38
+++ openacs-4/packages/imsld/catalog/imsld.en_US.ISO-8859-1.xml	4 Nov 2008 13:42:04 -0000	1.39
@@ -16,6 +16,7 @@
   <msg key="Activity_Type">Activity Type</msg>
   <msg key="Acts_in_play_count">Acts in play %count%</msg>
   <msg key="Add_Members">Add Members</msg>
+  <msg key="Add_URL">Add URL</msg>
   <msg key="Admin_IMS_LD">Admin IMS LD</msg>
   <msg key="Admin_roles">Admin roles</msg>
   <msg key="Back">Back to admin</msg>
@@ -47,10 +48,13 @@
   <msg key="Delete">Delete</msg>
   <msg key="Delete_IMS_LD">Delete IMS LD</msg>
   <msg key="Delete_Run">Delete Run</msg>
+  <msg key="Delete_URL">Delete URL</msg>
   <msg key="Deleted">Deleted</msg>
   <msg key="Delte">Delte</msg>
   <msg key="Descendant">Descendant roles:</msg>
   <msg key="Description">Description</msg>
+  <msg key="Edit">Edit</msg>
+  <msg key="Edit_URL">Edit URL</msg>
   <msg key="Else_Identifier">Else Identifier</msg>
   <msg key="Email">Email</msg>
   <msg key="Empty_property_value">Empty property value</msg>
Index: openacs-4/packages/imsld/tcl/imsld-monitor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-monitor-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/imsld/tcl/imsld-monitor-procs.tcl	31 Oct 2008 14:13:07 -0000	1.5
+++ openacs-4/packages/imsld/tcl/imsld-monitor-procs.tcl	4 Nov 2008 13:42:04 -0000	1.6
@@ -623,23 +623,29 @@
 				 -item_id $learning_object_item_id \
 				 -type "learning_object"]
                 
+		set del_node [$dom_doc createElement a]
+		$del_node setAttribute onclick "return loadEnvironment('[export_vars -base environment-edit {run_id activity_id environment_id {item_id $learning_object_item_id}}]')"
+		$del_node setAttribute href "#no"
+		$del_node setAttribute title "[_ imsld.Delete_URL]"
+
+		set del_icon [$dom_doc createElement img]
+		$del_node appendChild $del_icon
+		$del_icon setAttribute src "/resources/acs-subsite/Delete16.gif"
+		$del_icon setAttribute alt "[_ imsld.Delete]"
+		$lo_node insertBefore $del_node [$lo_node firstChild]
+
 		set edit_node [$dom_doc createElement a]
 		$edit_node setAttribute onclick "return editEnvironment(this.parentNode,$run_id,$activity_id,$environment_id,$learning_object_item_id,\'$lo_title\',\'$resource_href\')"
 		$edit_node setAttribute href "#no"
-		set text [$dom_doc createTextNode "EDIT"]
-		$edit_node appendChild $text
-		$lo_node appendChild [$dom_doc createTextNode " \["]
-		$lo_node appendChild $edit_node
-		$lo_node appendChild [$dom_doc createTextNode "]"]
+		$edit_node setAttribute title "[_ imsld.Edit_URL]"
 
-		set del_node [$dom_doc createElement a]
-		$del_node setAttribute onclick "return loadEnvironment('[export_vars -base environment-edit {run_id activity_id environment_id {item_id $learning_object_item_id}}]')"
-		$del_node setAttribute href "#no"
-		set text [$dom_doc createTextNode "DEL"]
-		$del_node appendChild $text
-                $lo_node appendChild [$dom_doc createTextNode " \["]
-                $lo_node appendChild $del_node
-		$lo_node appendChild [$dom_doc createTextNode "]"]
+		set edit_icon [$dom_doc createElement img]
+		$edit_node appendChild $edit_icon
+		$edit_icon setAttribute src "/resources/acs-subsite/Edit16.gif"
+		$edit_icon setAttribute alt "[_ imsld.Edit]"
+		$edit_icon setAttribute border "0"
+		$lo_node insertBefore $edit_node [$lo_node firstChild]
+
                 $environment_node appendChild $lo_node
             } 
         }
@@ -708,7 +714,15 @@
     set add_node [$dom_doc createElement a]
     $add_node setAttribute href "#"
     $add_node setAttribute onclick "return addEnvironment(this.parentNode, $environment_id, $run_id, $activity_id)"
-    set text [$dom_doc createTextNode "Add URL"]
+    $add_node setAttribute title "[_ imsld.Add_URL]"
+
+    set add_icon [$dom_doc createElement img]
+    $add_node appendChild $add_icon
+    $add_icon setAttribute src "/resources/acs-subsite/Add16.gif"
+    $add_icon setAttribute alt "[_ imsld.Add_URL]"
+    $add_icon setAttribute border "0"
+
+    set text [$dom_doc createTextNode "[_ imsld.Add_URL]"]
     $add_node appendChild $text
     $div_node appendChild $add_node