Commit 7b421c89 authored by Jerome Chauveau's avatar Jerome Chauveau
Browse files

fixes #60

parent 82273671

rxq/util.xqm

+4 −0
Original line number Diff line number Diff line
@@ -230,6 +230,10 @@ declare function max.util:getDocTitle($dbName, $docPath, $xmlns){ 
};



declare function max.util:teiDocTitle($dbName, $docPath){

    if(doc($dbName || '/' || $docPath)/tei:teiCorpus)

    then

        doc($dbName || '/' || $docPath)/tei:teiCorpus/tei:teiHeader/tei:fileDesc/tei:titleStmt

    else

        doc($dbName || '/' || $docPath)/tei:TEI/tei:teiHeader/tei:fileDesc/tei:titleStmt

};