Index: openacs-4/packages/acs-subsite/www/permissions/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/permissions/index.tcl	27 Oct 2014 16:39:59 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/permissions/index.tcl	7 Aug 2017 23:47:59 -0000	1.5
@@ -2,7 +2,7 @@
 ad_page_contract {
     Display all objects that the user has admin on.
     
-    Templated and changed to browse heirarchy by davis@xarg.net 
+    Templated and changed to browse hierarchy by davis@xarg.net 
     since all objects can be a *lot* of objects.
     
     @author rhs@mit.edu
@@ -16,13 +16,25 @@
 
 set context "Permissions"
 
-if {(![info exists root] || $root eq "")} { 
+if {![info exists root] || $root eq ""} { 
     set root [ad_conn package_id]
 }
 
-db_multirow objects adminable_objects { *SQL* }
+db_multirow objects adminable_objects {}
+template::multirow extend objects url
+template::multirow foreach objects {
+    if {$object_type eq "apm_package"} {
+        set url [ site_node::get_url_from_object_id -object_id $object_id]
+    }
+}
 
 set security_context_root [acs_magic_object security_context_root]
 set default_context [acs_magic_object default_context]
 set admin_p [permission::permission_p -object_id $security_context_root -party_id $user_id -privilege admin]
 set subsite [ad_conn package_id]
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: