fs::impl::fs_object::mkcol (private)

 fs::impl::fs_object::mkcol

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

MKCOL method

Partial Call Graph (max 5 caller/called nodes):
%3 AcsSc.dav.mkcol.file_storage_object AcsSc.dav.mkcol.file_storage_object (private) fs::impl::fs_object::mkcol fs::impl::fs_object::mkcol AcsSc.dav.mkcol.file_storage_object->fs::impl::fs_object::mkcol fs::new_folder fs::new_folder (public) fs::impl::fs_object::mkcol->fs::new_folder oacs_dav::conn oacs_dav::conn (public) fs::impl::fs_object::mkcol->oacs_dav::conn oacs_dav::item_parent_folder_id oacs_dav::item_parent_folder_id (public) fs::impl::fs_object::mkcol->oacs_dav::item_parent_folder_id

Testcases:
No testcase defined.
Source code:
    set uri [oacs_dav::conn uri]
    set user_id [oacs_dav::conn user_id]
    set peer_addr [oacs_dav::conn peeraddr]
    set item_id [oacs_dav::conn item_id]
    set fname [oacs_dav::conn item_name]
    set parent_id [oacs_dav::item_parent_folder_id $uri]
    if {$parent_id eq ""} {
    return [list 409]
    }
    if { $item_id ne ""} {
    return [list 405]
    }

    if { [catch {
    fs::new_folder  -name $fname  -pretty_name $fname  -parent_id $parent_id  -creation_user $user_id  -creation_ip $peer_addr  } ]} {
    return [list 500]
    }

    return [list 201]
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: