Index: openacs-4/packages/acs-admin/www/apm/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/index.tcl,v
diff -u -N -r1.30.2.4 -r1.30.2.5
--- openacs-4/packages/acs-admin/www/apm/index.tcl	13 Mar 2019 09:37:19 -0000	1.30.2.4
+++ openacs-4/packages/acs-admin/www/apm/index.tcl	24 Apr 2022 16:29:53 -0000	1.30.2.5
@@ -106,13 +106,21 @@
     }
 
     set file_link_list [list]
-    lappend file_link_list "<a href=\"version-files?version_id=$version_id\">view files</a>"
+    lappend file_link_list [subst {
+        <a href="version-files?version_id=$version_id"><adp:icon name='list' title='view files'></a>
+    }]
     if { $installed_p == "t" && $enabled_p == "t" } {
         if {!$performance_p} {
-            lappend file_link_list "<a href=\"package-watch?package_key=$package_key\">watch all files</a>"
+            lappend file_link_list [subst {
+                <a href="package-watch?package_key=$package_key">
+                <adp:icon name='watch' title='watch all files'></a>
+            }]
         }
         if { !$reload_links_p || [apm_version_load_status $version_id] eq "needs_reload"} {
-            lappend file_link_list "<a href=\"version-reload?version_id=$version_id\">reload changed</a>"
+            lappend file_link_list [subst {
+                <a href="version-reload?version_id=$version_id">
+                <adp:icon name='reload' title='reload changed'</a>
+            }]
         }
     }
     set action_html [join $file_link_list " | "]
@@ -122,9 +130,9 @@
 set page_url [export_vars -base [ad_conn url] {orderby owned_by supertype}]
 set href     [export_vars -base [ad_conn url] {orderby owned_by supertype reload_links_p}]
 if { $reload_links_p } {
-    set reload_filter "<a href=\"[ns_quotehtml $href]\">Do not check for changed files</a>"
+    set reload_filter "<a href='[ns_quotehtml $href]'>Do not check for changed files</a>"
 } else {
-    set reload_filter "<a href=\"[ns_quotehtml $href]\">Check for changed files</a>"
+    set reload_filter "<a href='[ns_quotehtml $href]'>Check for changed files</a>"
 }
 
 # Build the list of files we're watching.