Index: openacs.org-dev/www/templates/info-file.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/www/templates/info-file.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/www/templates/info-file.adp	30 Jan 2006 03:19:01 -0000	1.1
@@ -0,0 +1,20 @@
+<h3>Package specification Summary for package @package_key@ </h3>
+
+<table>
+<tr>
+  <th>Description </th>
+  <td>@info.description@ </td>
+</tr>
+<tr>
+  <th>Maturity </th>
+  <td>@maturity@ </td>
+</tr>
+<tr>
+  <th>This package depends on: </th>
+  <td><if @deps:rowcount@ eq 0>None</if><else><multiple name="deps">@deps.name@ </multiple></else></td>
+</tr>
+<tr>
+  <th>Packages that depend on @package_key@ </th>
+  <td><if @dependees:rowcount@ eq 0>None</if><else><multiple name="dependees">@dependees.name@ </multiple></else> </td>
+</tr>
+</table>
Index: openacs.org-dev/www/templates/info-file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/www/templates/info-file.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/www/templates/info-file.tcl	30 Jan 2006 03:19:01 -0000	1.1
@@ -0,0 +1,40 @@
+# Purpose: show summary of package specification (.info file)
+#
+# param: package_key (like acs-admin or lars-blogger)
+
+array set info [apm_read_package_info_file [apm_package_info_file_path $package_key]]
+
+set maturity [apm::package_version::attributes::maturity_int_to_text \
+                  $info(maturity)]
+
+# what packages does $package_key depend on
+multirow create deps name
+foreach pkg $info(requires) {
+    multirow append deps [lindex $pkg 0]
+}
+
+# get installed packages which depend on $package_key
+db_multirow dependees dependees {
+    select v.package_key as name
+      from apm_package_versions v, 
+           apm_package_dependencies d 
+     where v.version_id=d.version_id 
+       and d.dependency_type='requires' 
+       and d.service_uri=:package_key 
+    order by v.package_key
+}
+
+# append uninstalled packages which depend on $package_key
+apm_get_package_repository -array repository
+foreach key [array names repository] {
+    array unset pkg
+    array set pkg $repository($key)
+    set requires_list $pkg(requires)
+    foreach require $requires_list {
+        if { [string eq $package_key [lindex $require 0]] } {
+            multirow append dependees $key
+            break
+        }
+    }
+}
+