local:create-collections-recursively()

create-collections-recursively.xql

declare function local:create-collections-recursively($target-collection-uri as xs:string, $new-collection-path-steps as xs:string*) as xs:string* {
    if (exists($new-collection-path-steps))
    then
	let $new-collection-name := $new-collection-path-steps[1]
	let $new-collection-uri := $target-collection-uri || "/" || $new-collection-name
	
	return (
            if (not(xmldb:collection-available($new-collection-uri)))
            then xmldb:create-collection($target-collection-uri, $new-collection-name)
            else ()
            ,
            local:create-collections-recursively($new-collection-uri, subsequence($new-collection-path-steps, 2))
    )
    else ()
};