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 -r1.6.8.4 -r1.6.8.5 --- openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl 9 Sep 2013 10:17:43 -0000 1.6.8.4 +++ openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl 9 Sep 2013 16:44:25 -0000 1.6.8.5 @@ -185,17 +185,17 @@ if {$directory_p eq "t"} { set add_folder_url "?[export_url_vars expand:multiple root_id node_id new_parent=$node_id new_type=folder]" if {$object_id eq ""} { - set mount_url "mount?[export_url_vars expand:multiple root_id node_id]" + set mount_url "mount?[export_vars -url {expand:multiple root_id node_id}]" set new_app_url "?[export_url_vars expand:multiple root_id new_application=$node_id]" } else { # This makes sure you can't unmount the thing that is serving the page you're looking at. if {[ad_conn node_id] != $node_id} { - set unmount_url "unmount?[export_url_vars expand:multiple root_id node_id]" + set unmount_url "unmount?[export_vars -url {expand:multiple root_id node_id}]" } # Add a link to control permissioning if {$object_admin_p} { - set permissions_url "../../permissions/one?[export_url_vars object_id]" + set permissions_url "../../permissions/one?[export_vars -url {object_id}]" set rename_url "?[export_url_vars expand:multiple root_id rename_application=$node_id]" set delete_url "instance-delete?package_id=$object_id&root_id=$root_id" } @@ -209,7 +209,7 @@ } if {[ad_conn node_id] != $node_id && $n_children == 0 && $object_id eq ""} { - set delete_url "delete?[export_url_vars expand:multiple root_id node_id]" + set delete_url "delete?[export_vars -url {expand:multiple root_id node_id}]" } # use the indent variable to hold current indent level we'll use it later to indent stuff at the end by the amount of the last node @@ -256,7 +256,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] @@ -265,22 +265,22 @@ } } elseif {$rename_application == $node_id} { set action_type "rename_app" - set action_form_part "[export_vars -form expand:multiple root_id node_id rename_package_id]" + set action_form_part "[export_vars -form {expand:multiple root_id node_id rename_package_id}]" } else {} if {$node_id == $new_parent} { set parent_id $new_parent set node_type $new_type set action_type "new_folder" - set action_form_part "[export_vars -form expand:multiple parent_id node_type root_id]" + set action_form_part "[export_vars -form {expand:multiple parent_id node_type root_id}]" } multirow append nodes $node_id $expand_mode $expand_url $indent $name $name_url $object_name $url $package_pretty_name $action_type $action_form_part $add_folder_url $new_app_url $unmount_url $mount_url $rename_url $delete_url $parameters_url $permissions_url "" $view_p } -#set new_app_form_part_1 "

[export_vars -form expand:multiple]

" +#set new_app_form_part_1 "

[export_vars -form {expand:multiple}]

" #set new_app_form_part_2 "

[apm_application_new_checkbox]

" #set new_app_form_part_3 "

"