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 -r1.14 -r1.15
--- openacs-4/packages/acs-admin/www/apm/index.tcl	4 Apr 2003 07:10:22 -0000	1.14
+++ openacs-4/packages/acs-admin/www/apm/index.tcl	5 Apr 2003 08:22:33 -0000	1.15
@@ -7,8 +7,9 @@
     @cvs-id $Id$
 } {
     { orderby "package_key" }
-    { owned_by "me" }
+    { owned_by "everyone" }
     { supertype "all" }
+    { reload_links_p 0 }
 }
 
 doc_body_append [apm_header]
@@ -84,7 +85,9 @@
                     lappend file_link_list "<a href=\"package-watch?package_key=$package_key\">watch all files</a>"
                 } 
 
-                if {[string equal [apm_version_load_status $version_id] "needs_reload"]} {
+                set reload_links_p [ad_decode [ns_set iget [rp_getform] reload_links_p] \
+                                              "" 0 [ns_set iget [rp_getform] reload_links_p]]
+                if { $reload_links_p && [string equal [apm_version_load_status $version_id] "needs_reload"]} {
                     lappend file_link_list "<a href=\"version-reload?version_id=$version_id\">reload changed</a>"
                 } 
             } 
@@ -102,8 +105,20 @@
 
 db_release_unused_handles
 
+# The reload links make the page slow, so make them optional
+set page_url "[ad_conn url]?[export_vars -url {orderby owned_by supertype}]"
+if { $reload_links_p } {
+    set reload_filter "<a href=\"$page_url&reload_links_p=0\">hide reload links</a>"
+} else {
+    set reload_filter "<a href=\"$page_url&reload_links_p=1\">display reload links</a>"
+}
+
 doc_body_append "<h3>Packages</h3>
 
+<table width=\"100%\">
+<tr><td align=\"right\">$reload_filter</td</tr>
+</table>
+
 $table
 
 <ul>