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.6 -r1.7
--- openacs-4/packages/acs-admin/www/apm/index.tcl	29 Aug 2002 09:52:39 -0000	1.6
+++ openacs-4/packages/acs-admin/www/apm/index.tcl	31 Jan 2003 12:23:46 -0000	1.7
@@ -73,13 +73,17 @@
     { maintained "Maintained" "" {<td align=center>[ad_decode $distribution_uri "" "Locally" "Externally"]</td>} }
     {
 	action "" "" {<td bgcolor=white>&nbsp;&nbsp;[eval {
-	    ns_log Notice "Status for $version_id: [apm_version_load_status $version_id]"
+
+            # 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" && \
-		    [string equal [apm_version_load_status $version_id] "needs_reload"] } {
+                    [string equal [apm_version_load_status $version_id] "needs_reload"]} {
 		format "<a href=\"version-reload?version_id=$version_id\">reload</a>"
 	    } else {
-		format ""
-	    }
+                set format ""
+            }
 	}]&nbsp;&nbsp;</td>}
     }
 }