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]