xquery version "3.0";

declare namespace join = "http://exist-db.org/xquery/admin-interface/join-abcd";
declare namespace xdb="http://exist-db.org/xquery/xmldb";
declare namespace file="http://exist-db.org/xquery/file";

(:  :declare default element namespace "abcd";:)
declare namespace abcd = "http://www.tdwg.org/schemas/abcd/2.06";

declare function join:get-units($colName as xs:string) as node()*
{
let $data-collection := concat('/db/rebind/protected/', $colName, '/abcd')
for $unit in collection($data-collection)//abcd:Unit

return (
$unit
)
};

(: This xquery joins multiple xquery files exported from biocase stored in exist /db/rebind/protected-staging/<collection-name. Each file should be named with a numerical suffix 
i.e. _1.xml, _2.xml etc:)
let $collection-name := request:get-parameter('coll', '') 
let $data-collection := concat('/db/rebind/protected/', $collection-name, '/abcd/')

let $technicalContacts :=  doc(concat($data-collection,'/', $collection-name, '_1.xml'))//abcd:TechnicalContacts
let $contentContacts :=  doc(concat($data-collection,'/', $collection-name, '_1.xml'))//abcd:ContentContacts
let $metadata :=  doc(concat($data-collection,'/', $collection-name, '_1.xml'))//abcd:Metadata
let $abcd-data := join:get-units($collection-name) (: 9th July how do we concatenate all the Units togather - perhaps we should return $unit and then wrap it in a Datasets tag.:)
let $joined-data := 
<abcd:DataSets xmlns:abcd="http://www.tdwg.org/schemas/abcd/2.06" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.tdwg.org/schemas/abcd/2.06 http://www.bgbm.org/TDWG/CODATA/Schema/ABCD_2.06/ABCD_2.06.XSD">
    <abcd:DataSet>
{$technicalContacts}
{$contentContacts}
{$metadata}
<abcd:Units>
{$abcd-data}
</abcd:Units>
    </abcd:DataSet>
</abcd:DataSets>
let $store := xdb:store(concat('/db/rebind/protected/', $collection-name), concat($collection-name, '.xml'), $joined-data)

return
xdb:remove($data-collection)

(: add parameters in request -. get login for collection? :)