Index: openacs-4/packages/acs-subsite/lib/subsites.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/subsites.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/lib/subsites.tcl	2 Oct 2003 22:04:46 -0000	1.3
+++ openacs-4/packages/acs-subsite/lib/subsites.tcl	2 Oct 2003 22:15:49 -0000	1.4
@@ -35,6 +35,11 @@
     array set node [site_node::get_from_url -url $url -exact]
 
     if { [permission::permission_p -object_id $node(object_id) -privilege read] } {
+        # TODO
+        set edit_url {}
+        if { [permission::permission_p -object_id $node(object_id) -privilege admin] } {
+            set edit_url {}
+        }
         lappend subsites [list \
                               $node(instance_name) \
                               $node(node_id) \