xquery version "1.0";
(: $Id$ :)
(:
    Module: display and browse collections.
:)

module namespace browse="http://exist-db.org/xquery/admin-interface/browse-projects";

declare namespace text="http://exist-db.org/xquery/text";
declare namespace request="http://exist-db.org/xquery/request";
declare namespace xdb="http://exist-db.org/xquery/xmldb";
declare namespace util="http://exist-db.org/xquery/util";
declare namespace v="http://exist-db.org/versioning";
declare namespace transform="http://exist-db.org/xquery/transform";

declare namespace edit="http://rebind.bgbm.org/code/correction-report";

declare namespace date="http://exist-db.org/xquery/datetime";

declare namespace httpclient= "http://exist-db.org/xquery/httpclient";
declare namespace http = "http://expath.org/ns/http-client";

declare namespace biocase="http://www.biocase.org/schemas/protocol/1.3";
import module namespace metadata="http://exist-db.org/xquery/rebind/edit-metadata" at "xform-eml.xqm";

(:
    Main function: outputs the page.
:)
declare function browse:main() as element()
{
    let $colName := request:get-parameter("collection", "/db")[1] 
    let $colName := if(not(starts-with($colName,"/db")))then(fn:concat("/db",$colName))else($colName)
    
    let $projectRoot  := rebind:getSetting('db-project-folder')
    let $publicRoot  := rebind:getSetting('db-public-folder')
    let $protectedRoot  := rebind:getSetting('db-protected-folder')
    
    (: check if collections exist, if not: create them; they should however already be created :) 
    let $output1 := if(not(xmldb:collection-available($projectRoot))) then (xmldb:create-collection("", $projectRoot)) else ()
    let $output2 := if(not(xmldb:collection-available($publicRoot))) then (xmldb:create-collection("", $publicRoot)) else ()
    let $output3 := if(not(xmldb:collection-available($protectedRoot))) then (xmldb:create-collection("", $protectedRoot)) else ()
    
    let $patternProjectRoot         := fn:concat("^(",$publicRoot,"|",$protectedRoot,")/[^/]+/?$")
    let $patternProject             := fn:concat("^(",$publicRoot,"|",$protectedRoot,")/[^/]+(/.+)?$")
    let $patternProtectedProject    := fn:concat("^",$protectedRoot,"/[^/]+/?")
    let $patternprojectName         := fn:concat("^(",$publicRoot,"|",$protectedRoot,")/")
    let $patternProjectPath         := fn:concat("^(",$publicRoot,"|",$protectedRoot,")/[^/]+")
    
    let $isProjectRoot              := matches($colName,$patternProjectRoot) 
    let $isProject                  := matches($colName,$patternProject) 
    let $isProtectedProject         := matches($colName,$patternProtectedProject)
    let $projectName                := replace(replace($colName,$patternprojectName,''),"/.*$","")
    let $projectPath                := text:filter($colName,$patternProjectPath)[1]
    
    let $metadataFileName :=  rebind:getSetting('metadata-file') 
    
    return 
        if(empty($projectPath))then(
            <div xmlns="http://www.w3.org/1999/xhtml" class="panel">
                <span class="error-message">Could not find project in path: {$colName}</span>
            </div>
        )else if(not(xmldb:collection-available($colName)))then(
            <div xmlns="http://www.w3.org/1999/xhtml" class="panel">
                <span class="error-message">Project '{$projectName}' does not exist at: {$colName}</span>
            </div>
        )else(
            <div xmlns="http://www.w3.org/1999/xhtml" class="panel">
                <a id="navi-project-home" class="navi-link" href="?panel=browse&amp;collection={xdb:encode-uri($projectPath)}">Project: {$projectName}</a><br />
                
                {if($isProject and not($isProjectRoot))then(<a id="navi-up" class="navi-link" href="?panel=browse&amp;collection={browse:get-parent-collection(xdb:encode-uri($colName))}">Up</a>)else()}
                
                {browse:display-project($colName)}
    
               
                {if(xdb:is-admin-user(xdb:get-current-user()) and $isProtectedProject) then (
                <div id="toolbar">
                <div>
                    <a class="toolbar-icon" id="new-collection" href="#" onclick="showForm('create-collection'); return false;">New Collection</a>
                    <a class="toolbar-icon" id="upload-file" href="#" onclick="showForm('upload-biocase'); return false;">Upload from bioCASE</a> 
                    <a class="toolbar-icon" id="upload-file" href="#" onclick="showForm('upload-file'); return false;">Upload File</a> 
                    {if($isProjectRoot and not(browse:contains-metadata-file($colName)) )then(<a class="toolbar-icon" id="create-metadata-file" href="?panel=editMetadata&amp;collection={xdb:encode-uri($colName)}" >Create Metadata File</a>)else()}  
                    {if($isProjectRoot and browse:contains-metadata-file($colName) )then(<a class="toolbar-icon" id="publish-project" href="#" onclick="showForm('publish-project'); return false;">Publish Project</a>)else()(: option to publish only if metadata file exists. The check if the data files are valid is done after the Publish button was pressed. :)}                 
                    
                </div>
                <div class="rebindFooter">
                <br></br>
                <br></br>
                By publishing your data on reBiND you agree to the 
                <a href="http://www.biocase.org/whats_biocase/code_of_conduct.shtml"><font style="font-size:12px" color="#009900"> Biocase code of conduct.</font></a></div>
                
                <form id="form-create-collection" class="overlay-form" method="post" action="" enctype="multipart/form-data" style="display:none;">
                    <div>
                        <div class="formrow formtitle">New Collection</div>
                        <div class="formrow">Collection Name: <input type="text" name="create" size="30" title="Enter the name of the new collection."/></div>
                        <div class="formrow buttons"><button type="submit" name="action" value="createcollection">Create Collection</button> <button type="submit" name="action" value="cancelForm" onclick="cancelForm();return false;">Cancel</button></div>
                        <input type="hidden" name="collection" value="{$colName (: TODO #30: check if name is equal to the correction report folder, if so: show a prompt to the user :)}"/>
                        <input type="hidden" name="panel" value="browse"/>
                    </div>
                </form>
                <form id="form-upload-file" class="overlay-form" method="post" action="" enctype="multipart/form-data" style="display:none;">
                    <div>
                        <div class="formrow formtitle">Upload File</div>
                        <div class="formrow"><span style="display: inline-block; width: 90px;">Select File:</span> <input type="file" size="20" name="upload" title="Select the file to be uploaded."/></div>
                        <div class="formrow"><span style="display: inline-block; width: 90px;">Store as:</span> <input type="text" name="filename" size="20" title="Enter the name by which the uploaded file should be stored. (optional)"/> (optional)</div>
                        <div class="formrow buttons"><button type="submit" name="action" value="upload">Upload</button> <button type="submit" name="action" value="cancelForm" onclick="cancelForm();return false;">Cancel</button></div>
                        <input type="hidden" name="collection" value="{$colName}"/>
                        <input type="hidden" name="panel" value="browse"/>
                    </div>
                </form>
                                        
                <form id="form-upload-biocase" class="overlay-form" method="post" action="" enctype="multipart/form-data" style="display:none;">
                    <div>
                        <div class="formrow formtitle">Upload data from bioCASE</div>
                        <div class="formrow"><span style="display: inline-block; width: 90px;">URL:</span> <input type="text" name="url" size="60" title="Enter the URL to the XML data file in the bioCASE Provider software."/></div>
                        <div class="formrow"><span style="display: inline-block; width: 90px;">Store as:</span> <input type="text" name="filename" size="20" title="Enter the name by which the uploaded file should be stored."/></div>
                        <!--div class="formrow validation-result" ><img src="../resources/ajax-loader.gif" alt="Spinner" /> Please wait!</div-->
                        
                        <div id="page_loader" style="display:none;"><img src="../resources/ajax-loader.gif" alt="Spinner" />Loading!</div>
                        
                        <div class="formrow buttons">
                        <!--button type="submit" name="action" value="upload-biocase" onclick="$('.loading').show();" >Upload</button-->
                        <button type="submit" name="action" value="upload-biocase" >Upload</button>
                        
                        <!--button type="submit" name="action" value="show" onclick="show(); return false;" >show</button-->
                        
            <!--div class="input_row" align="right" style="width:500px; padding-top:20px;">
              <input type="submit" value="Next" name="next" class="cupid-green" style="border:none" />
            </div-->
                        <!--button type="submit" name="action" value="cancelForm" onclick="cancelForm();return false;">Cancel</button-->
                        
                        <!--lorna - testing the cancel button with the spinner icon -->
                        <button type="submit" name="action" value="cancelForm" onclick="show();">Cancel</button>
                        </div>
                        
                        <input type="hidden" name="collection" value="{$colName}"/>
                        <input type="hidden" name="panel" value="browse"/>
                        
                    </div>
                </form>
                

                
                <form class="overlay-form" id="form-validation" method="post" action="" enctype="multipart/form-data" style="display:none;">
                    <div>
                        <div class="formrow formtitle">Validating File</div>
                        <div class="formrow"><span style="display: inline-block; width: 90px;">File:</span> <span class="validation-file-name"></span></div>
                        <div class="formrow validation-result" ><img src="../resources/ajax-loader.gif" alt="Spinner" /> Please wait!</div>
                        <div class="formrow validation-result2" ></div>
                        <div class="formrow buttons"><button class="validation-cancel-button" type="submit" name="action" value="cancelForm" onclick="cancelForm();return false;">Cancel</button></div>
                        <input type="hidden" name="collection" value="{$colName}"/>
                        <input type="hidden" name="panel" value="browse"/>
                    </div>
                </form>
                {if($isProjectRoot and browse:contains-metadata-file($colName) )then(
                    <form id="form-publish-project" class="overlay-form" method="post" action="?" enctype="multipart/form-data" style="display:none;">
                        <div>
                            <div class="formrow formtitle">Publish</div>
                            <div class="formrow">Do you really want to publish the project "{$projectName}"?</div>
                            <div class="formrow buttons"><button type="submit" name="action" value="publish">Publish</button> <button type="submit" name="action" value="cancelForm" onclick="cancelForm();return false;">Cancel</button></div>
                            <input type="hidden" name="project" value="{$colName}"/>
                        </div>
                    </form>
                )else()}
                
                </div>
                )else()
                } 
            </div>
        )
};

declare option exist:serialize "indent=yes method=xhtml";
    
declare function browse:show-project-menu() as element()
{
    let $colName := request:get-parameter("collection", "/db")     
    let $colName := if(not(starts-with($colName,"/db")))then(fn:concat("/db",$colName))else($colName)
    let $panel := request:get-parameter("panel", "status")[1]
    
    let $projectRoot  := rebind:getSetting('db-project-folder')
    let $publicRoot  := rebind:getSetting('db-public-folder')
    let $protectedRoot  := rebind:getSetting('db-protected-folder')
    
    (: check if collections exist, if not: create them :)
    let $output1 := if(not(xmldb:collection-available($projectRoot))) then (xmldb:create-collection("", $projectRoot)) else ()
    let $output2 := if(not(xmldb:collection-available($publicRoot))) then (xmldb:create-collection("", $publicRoot)) else ()
    let $output3 := if(not(xmldb:collection-available($protectedRoot))) then (xmldb:create-collection("", $protectedRoot)) else ()
    let $link := session:encode-url(request:get-uri())
    
    
    let $editLogCollectionName      := rebind:getSetting('edit-log-folder-name')
    let $isEditLogCollection        := matches($colName,concat(".*?",$editLogCollectionName,"/?$"))
    
    return 
         <div class="sidebar" xmlns="http://www.w3.org/1999/xhtml">
            <div class="sidebar-entry" >
            <h2 class="panel-head" id="protected-projects">Unpublished Projects</h2>
              {browse:display-projects($protectedRoot)}
            </div>
            
            <div class="sidebar-entry" >
            <h2 class="panel-head" id="public-projects">Published Projects</h2>
              {browse:display-projects($publicRoot)}
            </div>
            
            {if(xdb:is-admin-user(xdb:get-current-user())) then (
                <a class="sidebar-entry" id="new-project-link" href="#" onclick="showForm('create-project'); return false;">Create Project</a>
                
            
            )else()}
            
            
            
            {if(xdb:is-admin-user(xdb:get-current-user()) and not($isEditLogCollection)) then (
            <form id="form-create-project" class="overlay-form" method="post" action="" enctype="multipart/form-data" style="display:none;">
                <div>
                    <div class="formrow formtitle">New Project</div>
                    <div class="formrow">Project Name: <input type="text" name="create" size="20" title="Enter a name for the new project."/></div>
                    <div class="formrow buttons"><button type="submit" name="action" value="createproject">Create Project</button> <button type="submit" name="action" value="cancelForm" onclick="cancelForm();return false;">Cancel</button></div>
                    <input type="hidden" name="parentcollection" value="{$protectedRoot}/"/>
                    <input type="hidden" name="panel" value="{$panel}"/>
                </div>
                
            </form>
            )else()}
            
            <a class="sidebar-entry" id="logout-link" href="{$link}?logout=yes">Logout<br /><span class="user-info">User: {xdb:get-current-user()}</span></a>
            
         </div>
};

(:
    Process an action.
:)
declare function browse:process-action($colName as xs:string) as element()*
{
    (: TODO #32: check for rights :)
    let $action := request:get-parameter("action", ())[1] 
    let $protectedRoot  := rebind:getSetting('db-protected-folder')
    return
        util:catch("java.lang.Exception",
            if($action eq "createcollection") then
            (
                browse:create-collection($colName)
            )
            else if($action eq "createproject") then
            (
                browse:create-collection($protectedRoot)
            )
            else if($action eq "upload") then
            (
                browse:upload($colName)
            )
            else if($action eq "upload-biocase") then
            (
                browse:upload-biocase($colName)
            )
            else if($action eq "save-metadata") then
            (
                browse:save-metadata($colName)
            )else if($action eq "publish") then
            (
                browse:publish()
            )else(),
            <div xmlns="http://www.w3.org/1999/xhtml" class="error">
                An error occurred while processing the action:<br/>
                {$util:exception-message}
            </div>
        )
};

(:
    Store uploaded content.
:)
declare function browse:upload($colName as xs:string) as element()
{
    let $name := request:get-parameter("filename", ()),
    $docName := if($name) then $name else request:get-uploaded-file-name("upload"),
    $file := request:get-uploaded-file-data("upload") 
    
    return 
    <div xmlns="http://www.w3.org/1999/xhtml" class="process">
            <h3>Actions:</h3>
            <ul>
                <li>Storing uploaded content to: {$docName}</li>
                {
                    xdb:decode-uri(xs:anyURI(xdb:store($colName, xdb:encode-uri($docName), $file)))
                }
            </ul>
    </div>
};
 
(: TODO This function only gets files with a maximum number of records set to 700, for files greater than this size we need to loop and merge all the XML files
retrieved to one single XML file. Need to check the totalSearchHits. :)
declare function browse:upload-biocase($colName as xs:string) as element()
{
    let $name := request:get-parameter("filename", ()),
    $url := request:get-parameter("url", ()),
    
    $query_string := "query=%3C%3Fxml+version%3D%271.0%27+encoding%3D%27UTF-8%27%3F%3E%0D%0A%3Crequest+xmlns%3D%27http%3A%2F%2Fwww.biocase.org%2Fschemas%2Fprotocol%2F1.3%27%3E%0D%0A++%3Cheader%3E%3Ctype%3Esearch%3C%2Ftype%3E%3C%2Fheader%3E%0D%0A++%3Csearch%3E%0D%0A++++%3CrequestFormat%3Ehttp%3A%2F%2Fwww.tdwg.org%2Fschemas%2Fabcd%2F2.06%3C%2FrequestFormat%3E%0D%0A++++%3CresponseFormat+start%3D%270%27+limit%3D%275700%27%3Ehttp%3A%2F%2Fwww.tdwg.org%2Fschemas%2Fabcd%2F2.06%3C%2FresponseFormat%3E%0D%0A++++++%3Ccount%3Efalse%3C%2Fcount%3E%0D%0A++%3C%2Fsearch%3E%0D%0A%3C%2Frequest%3E",
    
    $reqs := <http:request method="post" href="{$url}">
   <http:body media-type="application/x-www-form-urlencoded">
   {$query_string}
   </http:body></http:request>,
    $post := http:send-request($reqs),
    $totalSearchHits := $post[2]//biocase:response/biocase:content/@totalSearchHits
(:doc("/db/test/abcd/biocase_response_example.xml")//biocase:response/biocase:content/*:)

 (:return <p>{$post//@status}</p>:)
(:Check for response code 200 from server:)
return 
if ( $post[1]/@status eq '200'  or $post[1]/@status eq '201'  ) then 
    (:$abcd_data := $post[2]//biocase:response/biocase:content/* :)

(: the document is saved but this div content is not displayed :)
    <div xmlns="http://www.w3.org/1999/xhtml" class="process">
            <h3>Actions:</h3>
            <ul>
                <li>Storing uploaded content to: {$name}</li>
                {
                    xdb:decode-uri(xs:anyURI(xdb:store($colName, xdb:encode-uri($name), $post[2]//biocase:response/biocase:content/*)))
                }
            </ul>
    </div> 
    
    else 
    () (:TODO should indicate that the file has not been uploaded as there was a problem - please check the url and that a valid filename has been entered:)
    
};
(:
    Save metadata file.
:)
declare function browse:save-metadata-old($colName as xs:string) as element()
{
    
    let $data := request:get-data()
    let $file-name := rebind:getSetting('metadata-file')
    
    
    (: check to make sure we have valid post data :)
return
  if (not($data))
     then <div xmlns="http://www.w3.org/1999/xhtml" class="process">
            <ul>
                <li>Problem saving the metadata xml. File is not valid.</li>
            </ul>
    </div>
     else 
 (
    <div xmlns="http://www.w3.org/1999/xhtml" class="process">
            <h3>Actions:</h3>
            <ul>
                <li>Saved metadata file at: {$file-name}</li>
                {
                    xdb:decode-uri(xs:anyURI(xdb:store($colName, xdb:encode-uri($file-name), $data)))
                }
            </ul>
    </div>
    )
};
declare function browse:save-metadata($colName as xs:string) as element()*
{
    
    let $data := request:get-data()
    let $file-name := rebind:getSetting('metadata-file')
    let $action := request:get-parameter("action", ())[1] 
    let $save := xdb:store($colName, xdb:encode-uri($file-name), $data)
    
    
    (: check to make sure we have valid post data :)
(:return if($action eq "save-form") then( :)
return if($data) then(
        let $fileName := request:get-parameter("name", "test.xml")[1]
        return (<div id="save-dialog" class="info-dialog" style="background:#88ff88; position:fixed; padding:10px; top:5px; right:30px; z-index:200;">File '<a href="/exist/rest//{$colName}/metadata.xml">metadata.xml</a>' was successfully saved!</div>)
    )else(
        <div xmlns="http://www.w3.org/1999/xhtml" class="process">
            <ul>
                <li>Problem saving the metadata xml. File is not valid.</li>
            </ul>
    </div>
    )
};


    

(:
    publish a project
:)
declare function browse:publish() as element()
{
    (: TODO #31: check if there is a project with the same name in the public collection. If so promt a warning and ask if the existing project should be overwritten :) 
    
    let $colName := request:get-parameter("project", ())
    
    let $publicRoot  := rebind:getSetting('db-public-folder')
    let $protectedRoot  := rebind:getSetting('db-protected-folder')
    
    let $patternprojectName         := fn:concat("^(",$publicRoot,"|",$protectedRoot,")/")
    let $patternProjectRoot         := fn:concat("^(",$publicRoot,"|",$protectedRoot,")/[^/]+/?$")
    let $patternProtectedProject    := fn:concat("^",$protectedRoot,"/[^/]+/?")
    
    let $projectName                := replace(replace($colName,$patternprojectName,''),"/.*$","")
    let $isProjectRoot              := matches($colName,$patternProjectRoot)
    let $isProtectedProject         := matches($colName,$patternProtectedProject)
    
    (: TODO #28: do other integrity checks, give warning if any one fails, like no metadata file, validation fails, etc. :)
    (: TODO #28: check if correction is running :)
    return if(xdb:is-admin-user(xdb:get-current-user()) and $isProtectedProject and $isProjectRoot) then (
        let $move := xdb:move(concat($protectedRoot,"/",$projectName), $publicRoot)
        return 
            <div xmlns="http://www.w3.org/1999/xhtml" class="process">
                   <h3>Actions:</h3>
                   <ul>
                       <li>Published collection: {$projectName} to '{concat($publicRoot,"/",$projectName)}'</li>
                   </ul>
            </div>
    )else()
};

(:
    Create a collection.
:)
declare function browse:create-collection($parentColName as xs:string) as element()
{
    (: TODO #30: check if name is equal to the correction report folder, if so: do not create new folder :)
    let $newcol := request:get-parameter("create", ()) 
    return
        
        <div xmlns="http://www.w3.org/1999/xhtml" class="process">
            <h3>Actions:</h3>
            <ul>
            {
                if($newcol) then
                (
                    let $col := xdb:create-collection($parentColName, xdb:encode-uri($newcol)) return
                        <li>Created collection: {$col}.</li>
                )
                else
                (
                    <li>No name specified for new collection!</li>
                )
            }
            </ul>
        </div>
};


(:
    Display a list with all the projects
:)
declare function browse:display-projects($colName as xs:string) as element()*
{
     let $currentCollection := request:get-parameter("file", "/db")[1] 
     let $currentCollection := request:get-parameter("collection", $currentCollection)[1] 
     let $currentCollection := if(not(starts-with($currentCollection,"/db")))then(fn:concat("/db",$currentCollection))else($currentCollection)
     return if(count(xdb:get-child-collections($colName)) > 0) then (
        <ul xmlns="http://www.w3.org/1999/xhtml" class="projectList">{
            for $child in xdb:get-child-collections($colName)
                let $path := concat($colName, '/', $child),
                $created := xdb:created($path)
                let $active := ($path eq $currentCollection or fn:starts-with($currentCollection, concat($path, '/')))
                let $childName := xdb:decode-uri(xs:anyURI($child))
            order by $child 
            return
                <li class="project">
                    <a href="?panel=browse&amp;collection={xdb:encode-uri($path)}">
                        {if($active)
                            then(<b>{$childName}</b>)
                            else(<span>{$childName}</span>)
                        }
                    </a>
            </li>
            }
        </ul>
        )else()
};


declare function browse:display-project-collections($colName as xs:string) as element()*
{
    let $editLogCollectionName      := rebind:getSetting('edit-log-folder-name')
    
     for $child in xdb:get-child-collections($colName)
        let $path := concat($colName, '/', $child),
        $created := xdb:created($path)
        order by $child 
        return
            <li xmlns="http://www.w3.org/1999/xhtml" class="collection">
                {if($child eq $editLogCollectionName)then(
                    <i><a href="?panel=browse&amp;collection={xdb:encode-uri($path)}">{xdb:decode-uri(xs:anyURI($child))}</a></i>
                )else(
                    <a href="?panel=browse&amp;collection={xdb:encode-uri($path)}">{xdb:decode-uri(xs:anyURI($child))}</a>
                )}
            </li>
};

declare function browse:display-project-files($colName as xs:string) as element()*
{
    let $protectedRoot  := rebind:getSetting('db-protected-folder')
    let $patternProtectedProject    := fn:concat("^",$protectedRoot,"/[^/]+/?")
    let $isProtectedProject         := matches($colName,$patternProtectedProject)
    
    for $child at $count in xdb:get-child-resources($colName)
        let $restUri := concat(request:get-context-path(), '/rest')
        let $eXideUri := concat(request:get-context-path(), '/apps/eXide2/index.html?doc=')
        let $extension := fn:replace(fn:lower-case(fn:replace($child, '.*\.','')),'7z','zip7')
        let $lastRevision := browse:last-revision($colName, $child)//v:properties/v:revision/string()
        let $isMetadata := browse:is-metadata-file($colName, $child)
        let $metaTag := if($isMetadata)then(" metadata")else()
        
        order by $child 
        return
            <li xmlns="http://www.w3.org/1999/xhtml" class="file {$extension}{$metaTag}">
                <a class="filename" href="{$restUri}/{xdb:encode-uri($colName)}/{xdb:encode-uri($child)}" onclick="return toggleFileDetails({$count});">{xdb:decode-uri(xs:anyURI($child))}</a>
                <div id="filedetails-{$count}" class="filepanel" style="display:none">
                
                <table><tr>
                <td width="30%">
                    <div class="file-details">
                    <!-- TODO: Only display the owner and permissions etc if logged on as admin -->
                        <!--h4>Details</h4>
                        <table>
                            <tr><td>Size:</td><td>{fn:ceiling(xdb:size($colName, $child) div 1024)} kB</td></tr>
                            <tr><td>Permission:</td><td class="permission">{xdb:permissions-to-string(xdb:get-permissions($colName, $child))}</td></tr>
                            <tr><td>Owner:</td><td>{xdb:get-owner($colName, $child)}</td></tr>
                            <tr><td>Group:</td><td>{xdb:get-group($colName, $child)}</td></tr>
                            <tr><td>Created:</td><td>{date:format-dateTime(xdb:created($colName, $child),"yyyy-MM-dd HH:mm:ss")}</td></tr>
                            <tr><td>Modified:</td><td>{date:format-dateTime(xdb:last-modified($colName, $child),"yyyy-MM-dd HH:mm:ss")}</td></tr>
                            {if(string-length($lastRevision)>0)then(
                                <tr><td>Revision:</td><td><a href="?panel=revisions&amp;resource={xdb:encode-uri(concat($colName, '/', $child))}">{$lastRevision}</a></td></tr>
                            )else()}
                        </table-->
                    </div>
                    </td>
                    <td>
                    {if(not($isMetadata))then(
                    <div class="file-actions">                    

                        <h4>Actions</h4>
                        <a class="file-action-view file-action" href="{$restUri}/{xdb:encode-uri(concat($colName, '/', $child))}">View</a>
                        
                        <!-- View File - shows you a tabular view of the data created with XSLT but this is not complete -->
                        <!--a class="file-action-view file-action" href="lib-transform.xquery?file={xdb:encode-uri(concat($colName, '/', $child))}">View file</a-->
                        {if($isMetadata and $isProtectedProject)then(<a class="file-action-edit metadata file-action" href="?panel=editMetadata&amp;collection={xdb:encode-uri($colName)}">Edit</a>)
                        else if(browse:is-filetype-editable($extension) and $isProtectedProject)then(<a class="file-action-edit file-action" href="{$eXideUri}{xdb:encode-uri(concat($colName, '/', $child))}">Edit</a>)else()}
                        
                        {if(browse:is-filetype-validatable($extension) and not($isMetadata) and $isProtectedProject)then(<a class="file-action-validate file-action" href="validation.xql?file={xdb:encode-uri(concat($colName, '/', $child))}&amp;collection={xdb:encode-uri($colName)}" onclick="validate('{xdb:encode-uri(concat($colName, '/', $child))}','{xdb:encode-uri($colName)}'); return false;" >Validate</a>)else()}
                        {if(browse:is-filetype-validatable($extension) and $isProtectedProject)then(<a class="file-action-start-correction file-action" href="?panel=correction&amp;file={xdb:encode-uri(concat($colName, '/', $child))}">Start Correction</a>)else()}
                        
                    </div>
                    ) else(
                        <div class="file-actions">                    

                        <h4>Actions</h4>
                        <a class="file-action-view file-action" href="{$restUri}/{xdb:encode-uri(concat($colName, '/', $child))}">View</a>
                        <a class="file-action-edit metadata file-action" href="?panel=editMetadata&amp;collection={xdb:encode-uri($colName)}">Edit</a>
                        </div>
                        )}
                    {if($extension eq "xml" and not($isMetadata))then(
                        let $file-status := browse:get-file-status($colName,$child)
                        return  if(not(empty($file-status)))then(
                            <div class="file-status">
                            <h4>Status</h4>
                                <table>
                                    <tr><td class="firstColumn"></td><td>open</td><td>total</td></tr>
                                    <tr><td class="firstColumn"><span class="file-status-error" title="Error: content which causes validation to fail is marked as an error for manual review.">Error:</span></td><td><b>{$file-status[1]}</b></td><td>{$file-status[2]}</td></tr>
                                    <tr><td class="firstColumn"><span class="file-status-warning" title="Warning: content which is incorrect according to a particular correction module is flagged for manual review.">Warning:</span></td><td><b>{$file-status[3]}</b></td><td>{$file-status[4]}</td></tr>
                                    <tr><td class="firstColumn"><span class="file-status-info" title="Info: minor changes which have been made are flagged.">Info:</span></td><td><b>{$file-status[5]}</b></td><td>{$file-status[6]}</td></tr>
                                </table>
                            </div>
                            )else()
                    )else()}
                    </td>
                    </tr>
                    </table>
                </div>
            </li>

};


declare function browse:display-project($colName as xs:string) as element()*
{
            <ul class="collection-content-list" xmlns="http://www.w3.org/1999/xhtml">
                {browse:display-project-collections($colName)}
                {browse:display-project-files($colName)}
            </ul>
};

declare function browse:is-filetype-editable($fileExtension as xs:string) as xs:boolean{
        let $editableFiletypes := tokenize(rebind:getSetting('editable-file-types'),",")
        return not(empty(index-of($editableFiletypes,$fileExtension)))       
};


declare function browse:is-filetype-validatable($fileExtension as xs:string) as xs:boolean{
        (: TODO #34: decide if file is editable based on whether it is stored in the XML storage of eXist-db and not based on the file extension :)
        let $editableFiletypes := tokenize(rebind:getSetting('validatable-file-types'),",")
        return not(empty(index-of($editableFiletypes,$fileExtension)))       
};

declare function browse:is-metadata-file($colName as xs:string, $fileName as xs:string) as xs:boolean{
        let $metadataFileName := rebind:getSetting('metadata-file')
        let $publicRoot  := rebind:getSetting('db-public-folder')
        let $protectedRoot  := rebind:getSetting('db-protected-folder')
    
        let $patternProjectRoot         := fn:concat("^(",$publicRoot,"|",$protectedRoot,")/[^/]+/?$")
        let $isProjectRoot              := matches($colName,$patternProjectRoot)
        
        return if($fileName eq $metadataFileName and $isProjectRoot)then(true())else(false())
};

declare function browse:contains-metadata-file($colName as xs:string) as xs:boolean{
        let $metadataFileName := rebind:getSetting('metadata-file')
        return not(empty(index-of(xdb:get-child-resources($colName),$metadataFileName)))
};

declare function browse:get-file-status($collectionName as xs:string, $filename as xs:string) as xs:int*{
    let $editLogCollectionName      := rebind:getSetting('edit-log-folder-name')
    let $edit-log := doc(concat($collectionName,'/',$editLogCollectionName,'/',$filename))
    return if(exists($edit-log))then(
        let $info-unreviewed-count := count($edit-log//edit:edit[@severity="info" and @reviewed="false"])
        let $info-total-count := count($edit-log//edit:edit[@severity="info"])
        let $warning-unreviewed-count := count($edit-log//edit:edit[@severity="warning" and @reviewed="false"])
        let $warning-total-count := count($edit-log//edit:edit[@severity="warning"])
        let $error-unreviewed-count := count($edit-log//edit:edit[@severity="error" and @reviewed="false"])
        let $error-total-count := count($edit-log//edit:edit[@severity="error"])
        let $result := ($error-unreviewed-count,$error-total-count,$warning-unreviewed-count,$warning-total-count,$info-unreviewed-count,$info-total-count)
        return $result
    )else()
};

declare function browse:last-revision($collection as xs:string, $resource as xs:string) {
	let $vCollection := concat("/db/system/versions", $collection)
	let $versions :=
		for $version in collection($vCollection)/v:version[
			v:properties[v:document = $resource]
		]
		order by xs:long($version/v:properties/v:revision) descending
		return $version
	return
		$versions[1]
};

(:
    Get the name of the parent collection from a specified collection path.
:)
declare function browse:get-parent-collection($path as xs:string) as xs:string
{
    if($path eq "/db") then
        $path
    else
        replace($path, "/[^/]*$", "")
};