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 -N -r1.2 -r1.3
--- openacs.org-dev/www/templates/info-file.tcl	31 Jan 2006 03:32:16 -0000	1.2
+++ openacs.org-dev/www/templates/info-file.tcl	2 Feb 2006 02:30:56 -0000	1.3
@@ -2,7 +2,9 @@
 #
 # param: package_key (like acs-admin or lars-blogger)
 
-array set info [apm_read_package_info_file [apm_package_info_file_path $package_key]]
+# get the .info properties from the nsv (it's in an array in a list in a list)
+set path [apm_package_info_file_path $package_key]
+array set info [lindex [lindex [nsv_array get apm_version_properties $path] 1] 1]
 
 set maturity [apm::package_version::attributes::maturity_int_to_text \
                   $info(maturity)]
@@ -13,22 +15,13 @@
     multirow append deps [lindex $p 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)
+# get packages which depend on $package_key
+multirow create dependees name
+array set repository [nsv_array get apm_version_properties]
+foreach package_path [array names repository] {
+    # again, it's an array in a list in a list
+    array set pkg [lindex [lindex [array get repository $package_path] 1] 1]
+    set key $pkg(package.key)
     set requires_list $pkg(requires)
     foreach require $requires_list {
         if { [string eq $package_key [lindex $require 0]] } {
@@ -37,4 +30,3 @@
         }
     }
 }
-