Index: openacs-4/packages/acs-subsite/www/admin/host-node-map/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/host-node-map/index.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/www/admin/host-node-map/index.tcl	16 Jan 2003 13:39:35 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/admin/host-node-map/index.tcl	6 Nov 2003 20:51:19 -0000	1.6
@@ -24,15 +24,15 @@
     </tr>"
 } 
 
-set nodes ""
+set nodes [list]
 set root_id [ad_conn node_id]
-db_foreach node_list {
-    select name, node_id
-    from site_nodes
-    order by name
-} {
-    append nodes "<input type=radio name=root value=$node_id> /$name<br>"
+set node_list [list]
+db_foreach node_list {} { 
+    lappend node_list [list [site_node::get_element -node_id $node_id -element url] $node_id]
 }
+foreach node [lsort $node_list] {
+    append nodes "<input type=radio name=root value=\"[lindex $node 1]\">[lindex $node 0]<br>\n"
+}
 
 
 doc_body_append "