Index: openacs-4/packages/acs-subsite/www/admin/applications/multiple-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/multiple-add.tcl,v diff -u -N -r1.3 -r1.3.2.1 --- openacs-4/packages/acs-subsite/www/admin/applications/multiple-add.tcl 7 Aug 2017 23:47:58 -0000 1.3 +++ openacs-4/packages/acs-subsite/www/admin/applications/multiple-add.tcl 16 May 2019 09:54:29 -0000 1.3.2.1 @@ -23,23 +23,23 @@ # Find the package pretty name from the list of packages array set package_pretty_name [list] foreach elm $packages { - set package_pretty_name([lindex $elm 1]) [lindex $elm 0] + set package_pretty_name([lindex $elm 1]) [lindex $elm 0] } if { [catch { - foreach one_package_key $package_key { - set folder [site_node::verify_folder_name \ - -parent_node_id [ad_conn node_id] \ - -instance_name $package_pretty_name($one_package_key)] - - site_node::instantiate_and_mount \ - -parent_node_id [ad_conn node_id] \ - -node_name $folder \ - -package_name $package_pretty_name($one_package_key) \ - -package_key $one_package_key - } + foreach one_package_key $package_key { + set folder [site_node::verify_folder_name \ + -parent_node_id [ad_conn node_id] \ + -instance_name $package_pretty_name($one_package_key)] + + site_node::instantiate_and_mount \ + -parent_node_id [ad_conn node_id] \ + -node_name $folder \ + -package_name $package_pretty_name($one_package_key) \ + -package_key $one_package_key + } } errmsg] } { - ns_log Error "Error creating application: $errmsg\n$::errorInfo" - ad_return_error "Problem Creating Application" "We had a problem creating the application." + ns_log Error "Error creating application: $errmsg\n$::errorInfo" + ad_return_error "Problem Creating Application" "We had a problem creating the application." } } -after_submit { ad_returnredirect $return_url