Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-admin/www/apm/package-instances.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/acs-admin/www/apm/version-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-view.tcl,v
diff -u -r1.20.8.5 -r1.20.8.6
--- openacs-4/packages/acs-admin/www/apm/version-view.tcl	3 Sep 2014 09:45:55 -0000	1.20.8.5
+++ openacs-4/packages/acs-admin/www/apm/version-view.tcl	3 Sep 2014 12:59:26 -0000	1.20.8.6
@@ -182,7 +182,7 @@
 foreach attribute_name [array names attributes] {
     array set attribute $all_attributes($attribute_name)
     append body [subst {
-	<tr valign="baseline"><th align="left">$attribute(pretty_name)</th><td>$attributes($attribute_name)</td></tr>
+	<tr valign="baseline"><th align="left">$attribute(pretty_name):</th><td>$attributes($attribute_name)</td></tr>
     }]
 }
 
@@ -219,6 +219,17 @@
     }
 }
 
+
+set nr_instances [apm_num_instances $package_key]
+if {$nr_instances > 0} {
+    set instances [subst {
+        Installed instances of this package:
+        <a href="package-instances?[export_vars { package_key }]">$nr_instances</a>
+    }]
+} else {
+    set instances "No installed instance of this package\n"
+    }
+
 append body [subst {
 </td></tr>
 </table>
@@ -229,11 +240,12 @@
 </ul>
 <h4>Manage</h4>
 <ul>
-<li><a href="version-files?[export_vars { version_id }]">Files</a>
-<li><a href="version-dependencies?[export_vars { version_id }]">Dependencies and Provides</a>
-<li><a href="version-parameters?[export_vars { version_id }]">Parameters</a>
-<li><a href="version-callbacks?[export_vars { version_id }]">Tcl Callbacks (install, instantiate, mount)</a>
-<li><a href="version-i18n-index?[export_vars { version_id }]">Internationalization</a>
+<li><a href="version-files?[export_vars { version_id }]">Files</a></li>
+<li><a href="version-dependencies?[export_vars { version_id }]">Dependencies and Provides</a></li>
+<li><a href="version-parameters?[export_vars { version_id }]">Parameters</a></li>
+<li><a href="version-callbacks?[export_vars { version_id }]">Tcl Callbacks (install, instantiate, mount)</a></li>
+<li><a href="version-i18n-index?[export_vars { version_id }]">Internationalization</a></li>
+<li>$instances</li>
 </ul>
 <h4>Reload</h4>
 <ul>
@@ -294,3 +306,10 @@
 }
 
 ad_return_template apm
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: