Mercurial > hg > mpdl-group
view software/eXist/webapp/mpdl/interface/lt/lex.xql @ 13:469d927b9ca7
diverse Fehlerbehebungen
author | Josef Willenborg <jwillenborg@mpiwg-berlin.mpg.de> |
---|---|
date | Tue, 19 Apr 2011 16:51:59 +0200 |
parents | 5589d865af7a |
children |
line wrap: on
line source
xquery version "1.0"; declare namespace request="http://exist-db.org/xquery/request"; let $language := request:get-parameter("language", "") let $formName := request:get-parameter("form", "") let $luceneQuery := request:get-parameter("query", "") let $lexica := if ($formName != '') then mpdltext:get-lex-entries-by-form-name($language, $formName) else mpdltext:get-lex-entries-by-lucene-query($language, $luceneQuery) let $htmlLexica := if (empty($lexica)) then ("no lexical entries found for your query") else for $lexicon in $lexica/lexica/lexicon let $lexDescription := $lexicon/description let $lexEntries := $lexicon/entries let $liLexEntryContent := for $lexEntry in $lexicon/entries/entry let $lexEntryContent := $lexEntry/content let $lexEntryXmlValid := $lexEntryContent/xml-valid let $lexEntryOriginalContent := $lexEntryContent/original-entry let $lexEntryRepairedContent := $lexEntryContent/repaired-entry let $lexEntryContentParsed := if ($lexEntryXmlValid = "true") then util:parse($lexEntryRepairedContent) else <bla><text>[<i>Remark: lexical entry in lexicon has no valid XML, so only the Betacode text version of the entry could be displayed</i>]</text><p></p>{$lexEntryOriginalContent}</bla> return <li>{($lexEntryContentParsed)}</li> let $lexiconLi := <li><b>{$lexDescription}</b> <ul>{$liLexEntryContent}</ul> </li> return $lexiconLi let $retHtmlResult := <div> {$htmlLexica} </div> return $retHtmlResult