_oacs-dav__oacs_dav_mkcol (private)
_oacs-dav__oacs_dav_mkcol
Defined in packages/oacs-dav/tcl/test/oacs-dav-procs.tcl
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: set _aa_export {} set body_count 1 foreach testcase_body {{ aa_run_with_teardown -rollback -test_code { array set sn [site_node::get -url "/"] set package_id $sn(package_id) set name "__test_folder1/__test_folder2" set uri "/" oacs_dav::conn -set item_id "" oacs_dav::conn -set uri $uri oacs_dav::conn -set extra_url $name oacs_dav::conn -set urlv [split $uri "/"] oacs_dav::conn -set package_id $package_id set parent_folder_id [db_string get_parent_folder "" -default "-100"] oacs_dav::conn -set folder_id $parent_folder_id oacs_dav::register_folder $parent_folder_id $sn(node_id) foreach fname [split $name "/"] { set uri "$uri${fname}/" oacs_dav::conn -set item_name $fname oacs_dav::conn -set uri $uri oacs_dav::conn -set extra_url $fname oacs_dav::conn -set urlv [split $uri "/"] aa_log "name $fname uri $uri" set response [oacs_dav::impl::content_folder::mkcol] set new_folder_id [db_string folder_exists "" -default ""] aa_true "Content Folder $fname created" {$new_folder_id ne ""} } } }} { aa_log "Running testcase body $body_count" set ::__aa_test_indent [info level] set catch_val [catch $testcase_body msg] if {$catch_val != 0 && $catch_val != 2} { aa_log_result "fail" "oacs_dav_mkcol (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Oracle Generic XQL file: <fullquery name="_oacs-dav__oacs_dav_mkcol.get_parent_folder"> <querytext> select folder_id from cr_folders where package_id=:package_id </querytext> </fullquery> <fullquery name="_oacs-dav__oacs_dav_mkcol.folder_exists"> <querytext> select item_id from cr_items where name=:fname and content_type='content_folder' </querytext> </fullquery>packages/oacs-dav/tcl/test/oacs-dav-procs.xql
PostgreSQL XQL file: packages/oacs-dav/tcl/test/oacs-dav-procs-postgresql.xql