Mercurial > hg > mpdl-group

xquery version "1.0";

import module namespace request="http://exist-db.org/xquery/request";

import module namespace mpdl-text = "http://www.mpiwg-berlin.mpg.de/ns/mpdl/text" at "../..//text/all.xql";

let $mpdlDocUri := request:get-parameter("document", ())
let $echoArchivePath := mpdl-text:getEchoArchivePath($mpdlDocUri)
let $echoURLDocuView := concat("http://mpdl-dev.mpiwg-berlin.mpg.de/ECHOdocuView?url=", $echoArchivePath, "&amp;optionToggle=1")
let $urlDocuViewer := <a href="{$echoURLDocuView}">redirect to Echo</a>
let $diglibAvailable :=
  if ($echoArchivePath = "XXXXDigilibNotAvailableXXXX")
  then false()
  else true()
let $metaRefresh :=
  if ($diglibAvailable)
  then <meta http-equiv="Refresh" content="0; url={$echoURLDocuView}"/>
  else ()
let $message :=
  if ($diglibAvailable)
  then <span><b>Url:</b> {$urlDocuViewer}</span>
  else <span><b>Could not open Echo Docu Viewer:</b> nausikaa2.rz-berlin.mpg.de does not answer for {$mpdlDocUri}: please try again later</span>

return
<html>
<head>
  <title>Redirector Echo Docu Viewer</title>
  {$metaRefresh}
</head>
<body>
  <h1>Redirector Echo Docu Viewer</h1>
  {$message}

</body>
</html>
author	Josef Willenborg <jwillenborg@mpiwg-berlin.mpg.de>
date	Fri, 11 Mar 2011 13:34:02 +0100
parents	5589d865af7a
children	e99964f390e4