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.7 -r1.8
--- openacs-4/packages/acs-admin/www/apm/index.tcl	31 Jan 2003 12:23:46 -0000	1.7
+++ openacs-4/packages/acs-admin/www/apm/index.tcl	25 Feb 2003 16:57:20 -0000	1.8
@@ -74,16 +74,18 @@
     {
 	action "" "" {<td bgcolor=white>&nbsp;&nbsp;[eval {
 
-            # LARS: Ugh! We were calling the expensive 'apm_version_load_status' proc twice!
-            # ns_log Notice "Status for $version_id: [apm_version_load_status $version_id]"
+	    if { $installed_p == "t" && $enabled_p == "t" } {
+                set watch_all_link "<a href=\"package-watch?package_key=$package_key\">watch all files</a>"
+                set format_string $watch_all_link
 
-
-	    if { $installed_p == "t" && $enabled_p == "t" && \
-                    [string equal [apm_version_load_status $version_id] "needs_reload"]} {
-		format "<a href=\"version-reload?version_id=$version_id\">reload</a>"
-	    } else {
-                set format ""
+                if {[string equal [apm_version_load_status $version_id] "needs_reload"]} {
+                    set format_string "$watch_all_link | <a href=\"version-reload?version_id=$version_id\">reload changed</a>"
+                } 
+            } else {
+                set format_string ""
             }
+            format $format_string
+            
 	}]&nbsp;&nbsp;</td>}
     }
 }
@@ -94,7 +96,10 @@
 
 db_release_unused_handles
 
-doc_body_append "<h3>Packages</h3><blockquote>$table</blockquote>
+doc_body_append "<h3>Packages</h3>
+
+$table
+
 <ul>
 <li><a href=\"package-add\">Create a new package.</a>
 <li><a href=\"write-all-specs\">Write new specification files for all installed, locally generated packages</a>