Index: openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl,v diff -u -N -r1.10 -r1.11 --- openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl 27 Jun 2015 16:47:27 -0000 1.10 +++ openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl 7 Aug 2017 23:47:58 -0000 1.11 @@ -32,18 +32,17 @@ permission::require_permission -object_id $object_id -privilege admin } -if {$new_parent ne ""} { - set javascript "onLoad=\"javascript:document.new_parent.name.focus();document.new_parent.name.select()\"" -} elseif {$new_application ne ""} { - set javascript "onLoad=\"javascript:document.new_application.instance_name.focus();document.new_application.instance_name.select()\"" -} elseif {$rename_application ne ""} { - set javascript "onLoad=\"javascript:document.rename_application.instance_name.focus();document.rename_application.instance_name.select()\"" -} else { - set javascript "" -} -set javascript "onload=\"javascript:document.check_checkbox()\"" +#set onload "document.check_checkbox();" +# if {$onload ne ""} { +# template::add_body_handler -event onload -script $onload +# } +# +#template::add_body_script -script { +# function check_checkbox () { +# window.document.nodes.node_id.checked = 'true'; +# } +#} - set parent_link [export_vars -base . {expand:multiple {root_id $parent_id}}] set page_title "Build Your Site Map " @@ -96,14 +95,14 @@ display_template { - + - - + + - + } @@ -297,3 +296,9 @@ } if_no_rows { append services "
  • (none)\n" } + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: