Mercurial > hg > mpdl-group
comparison software/eXist/webapp/mpdl/interface/lt/lex.xql @ 7:5589d865af7a
Erstellung XQL/XSL Applikation
| author | Josef Willenborg <jwillenborg@mpiwg-berlin.mpg.de> |
|---|---|
| date | Tue, 08 Feb 2011 15:16:46 +0100 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 6:2396a569e446 | 7:5589d865af7a |
|---|---|
| 1 xquery version "1.0"; | |
| 2 | |
| 3 declare namespace request="http://exist-db.org/xquery/request"; | |
| 4 | |
| 5 let $language := request:get-parameter("language", "") | |
| 6 let $formName := request:get-parameter("form", "") | |
| 7 let $luceneQuery := request:get-parameter("query", "") | |
| 8 | |
| 9 let $lexica := | |
| 10 if ($formName != '') | |
| 11 then mpdltext:get-lex-entries-by-form-name($language, $formName) | |
| 12 else mpdltext:get-lex-entries-by-lucene-query($language, $luceneQuery) | |
| 13 let $htmlLexica := | |
| 14 if (empty($lexica)) | |
| 15 then ("no lexical entries found for your query") | |
| 16 else | |
| 17 for $lexicon in $lexica/lexica/lexicon | |
| 18 let $lexDescription := $lexicon/description | |
| 19 let $lexEntries := $lexicon/entries | |
| 20 let $liLexEntryContent := | |
| 21 for $lexEntry in $lexicon/entries/entry | |
| 22 let $lexEntryContent := $lexEntry/content | |
| 23 let $lexEntryXmlValid := $lexEntryContent/xml-valid | |
| 24 let $lexEntryOriginalContent := $lexEntryContent/original-entry | |
| 25 let $lexEntryRepairedContent := $lexEntryContent/repaired-entry | |
| 26 let $lexEntryContentParsed := | |
| 27 if ($lexEntryXmlValid = "true") | |
| 28 then util:parse($lexEntryRepairedContent) | |
| 29 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> | |
| 30 return <li>{($lexEntryContentParsed)}</li> | |
| 31 let $lexiconLi := | |
| 32 <li><b>{$lexDescription}</b> | |
| 33 <ul>{$liLexEntryContent}</ul> | |
| 34 </li> | |
| 35 return $lexiconLi | |
| 36 | |
| 37 let $retHtmlResult := | |
| 38 <div> | |
| 39 {$htmlLexica} | |
| 40 </div> | |
| 41 | |
| 42 return $retHtmlResult |