callback::pm::project_new::impl::file_storage (private)

 callback::pm::project_new::impl::file_storage -package_id package_id \
    -project_id project_id

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

Create a new folder for each new project

Switches:

-package_id (required)

-project_id (required)

See Also:

• callback::pm::project_new::contract

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    ::callback::pm::project_new::contract__arg_parser {*}$args

    set pm_name [pm::project::name -project_item_id $project_id]

    foreach fs_package_id [application_link::get_linked -from_package_id $package_id -to_package_key "file-storage"] {
        set root_folder_id [fs::get_root_folder -package_id $fs_package_id]

        set folder_id [fs::new_folder  -name $root_folder_id  -pretty_name $pm_name  -parent_id $root_folder_id  -no_callback]

        application_data_link::new -this_object_id $project_id -target_object_id $folder_id
    }

XQL Not present:

Generic

PostgreSQL XQL file:

packages/file-storage/tcl/file-storage-callback-procs-postgresql.xql

Oracle XQL file:

packages/file-storage/tcl/file-storage-callback-procs-oracle.xql