install::xml::action::file-storage-folder (private)

 install::xml::action::file-storage-folder node

Defined in packages/file-storage/tcl/file-storage-install-procs.tcl

Create a file storage folder from install.xml

Parameters:
node

Partial Call Graph (max 5 caller/called nodes):
%3 ad_conn ad_conn (public) apm_attribute_value apm_attribute_value (public) apm_required_attribute_value apm_required_attribute_value (public) fs::get_root_folder fs::get_root_folder (public) fs::new_folder fs::new_folder (public) install::xml::action::file-storage-folder install::xml::action::file-storage-folder install::xml::action::file-storage-folder->ad_conn install::xml::action::file-storage-folder->apm_attribute_value install::xml::action::file-storage-folder->apm_required_attribute_value install::xml::action::file-storage-folder->fs::get_root_folder install::xml::action::file-storage-folder->fs::new_folder

Testcases:
No testcase defined.
Source code:
    set name [apm_required_attribute_value $node name]
    set pretty_name [apm_required_attribute_value $node pretty-name]
    set id [apm_attribute_value -default "" $node id]

    set package_id [install::xml::object_id::package $node]

    set root [fs::get_root_folder -package_id $package_id]

    set folder_id [fs::new_folder -name $name -pretty_name $pretty_name -parent_id $root -creation_user [ad_conn user_id] -creation_ip 127.0.0.1]

    if {$id ne "" } {
      set ::install::xml::ids($id$folder_id
    }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ]
Show another procedure: