--- a/software/eXist/webapp/mpdl/interface/lt/wordInfo.xql	Mon Aug 29 17:40:02 2011 +0200
+++ b/software/eXist/webapp/mpdl/interface/lt/wordInfo.xql	Mon Aug 29 17:40:19 2011 +0200
@@ -9,6 +9,7 @@
 
 let $type :=  request:get-parameter("type", "compact")
 let $language := request:get-parameter("language", "")
+let $display := request:get-parameter("display", "")
 let $word := request:get-parameter("word", "")
 let $placeHref := request:get-parameter("placeHref", "")
 let $output := request:get-parameter("output", "xml")
@@ -61,11 +62,22 @@
       for $form in $lemma/forms/form
       order by $form/form-name
       return $form
+    let $remotePerseusLink :=
+      if ($language = "ar" or $language = "la")
+      then concat("http://www.perseus.tufts.edu/hopper/morph?l=", $lemma/lemma-name, "&la=", $language)
+      else if ($language = "el")
+      then concat("http://www.perseus.tufts.edu/hopper/morph?l=", $lemma/lemma-name, "&la=greek")
+      else ""
+    let $lemmaExternalLink :=
+      if ($language = "ar" or $language = "el" or $language = "la")
+      then <directLink xlink:type="simple" xlink:href="{$remotePerseusLink}"/>
+      else ()
     let $retLemma := 
       <lemma>
         {$lemma/provider}
         {$lemma/language}
         {$lemma/lemma-name}
+        {$lemmaExternalLink}
         <forms size="{$lemma/forms-size}">{$orderedForms}</forms>
       </lemma>
   order by $lemma/lemma-name
@@ -173,7 +185,7 @@
           else $l
         let $repairedEntryContentLink :=
           if ($lexName = "dwds")
-          then concat("http://beta.dwds.de/?qu=", $l)
+          then concat("http://www.dwds.de/search/?qu=", $l)
           else if ($lexName = "slater")
           then concat("http://www.perseus.tufts.edu/hopper/text?doc=Perseus:text:1999.04.0072:entry=", $lLink)
           else if ($lexName = "artfl-fr-en")
@@ -245,6 +257,7 @@
           let $dictEntryContentParsedTmp := 
             if ($dictEntryXmlValid = "true" and empty($dictEntryRepairedContentLink))
             then util:parse($dictEntryRepairedContent)
+            (: then <bla>bla</bla>  :)
             else if ($dictEntryXmlValid = "true" and not(empty($dictEntryRepairedContentLink)) and $output = "html")
             then <div>External link: <a href="{$dictEntryRepairedContentLink/@xlink:href}">{$dictEntryRepairedContentLink}</a></div>
             else if ($dictEntryXmlValid = "true" and not(empty($dictEntryRepairedContentLink)) and $output = "xml")
@@ -390,7 +403,10 @@
   then util:declare-option("exist:serialize", "method=html media-type=text/html omit-xml-declaration=no indent=yes encoding=utf-8")
   else util:declare-option("exist:serialize", "method=xml media-type=text/xml omit-xml-declaration=no indent=yes encoding=utf-8")
 
-let $queryResultHeaderStr := <h2>Word information for: {$word}</h2>
+let $queryResultHeaderStr := 
+  if ($display = "")
+  then <h2>Word information for: {$word}</h2>
+  else <h2>Word information for: {$display}</h2>
 let $commentExternalLinks := 
    "[* external links may not function]"