Index: openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl,v diff -u -r1.21 -r1.22 --- openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl 5 Jan 2004 09:36:03 -0000 1.21 +++ openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl 13 Jan 2005 13:55:49 -0000 1.22 @@ -1,10 +1,10 @@ ad_page_contract { - + @author rhs@mit.edu @author bquinn@arsidigta.com @creation-date 2000-09-09 @cvs-id $Id$ - + } { {expand:integer,multiple ""} {new_parent:integer ""} @@ -47,294 +47,260 @@ set page_title "Site Map" set context [list $page_title] -append body " -
- - -" - set user_id [ad_conn user_id] db_foreach path_select {} { if {$node_id != $root_id && $admin_p == "t"} { - append body "" + append head "" } if {[empty_string_p $name]} { - append body "$obj_name:" + append head "$obj_name:" } else { - append body $name + append head $name } - + if {$node_id != $root_id && $admin_p == "t"} { - append body "" + append head "" } - + if {$directory_p == "t"} { - append body "/" + append head "/" } } if_no_rows { - append body " " + append head " " } -append body " - | -|||||||||||||
-
|
-Manage unmounted applications -
- -