Index: openacs-4/packages/acs-subsite/www/site-map/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/site-map/index.tcl,v diff -u -N -r1.9.2.1 -r1.9.2.2 --- openacs-4/packages/acs-subsite/www/site-map/index.tcl 10 Sep 2015 08:21:53 -0000 1.9.2.1 +++ openacs-4/packages/acs-subsite/www/site-map/index.tcl 11 Aug 2016 13:25:21 -0000 1.9.2.2 @@ -91,10 +91,10 @@ @nodes.instance;noquote@ -   +   -   +   @@ -144,7 +144,7 @@ set parameters_url "" set permissions_url "" - if { [lsearch -exact $open_nodes $parent_id] == -1 && $parent_id ne "" && $mylevel > 2 } { continue } + if { $parent_id ni $open_nodes && $parent_id ne "" && $mylevel > 2 } { continue } if {$directory_p == "t"} { set add_folder_url [export_vars -base . {expand:multiple root_id node_id {new_parent $node_id} {new_type folder}}] @@ -211,7 +211,7 @@ lappend urlvars "root_id=$root_id" - set expand_url "[join $urlvars "&"]" + set expand_url [join $urlvars "&"] } else { set expand_url "" } @@ -225,7 +225,7 @@ if {$new_application == $node_id} { set action_type "new_app" - set action_form_part "[export_vars -form {expand:multiple root_id node_id new_package_id}] [apm_application_new_checkbox]" + set action_form_part [export_vars -form {expand:multiple root_id node_id new_package_id}] [apm_application_new_checkbox] #Generate a package_id for double click protection set new_package_id [db_nextval acs_object_id_seq]