Mercurial > hg > mpdl-group

comparison software/eXist/webapp/mpdl/interface/xquery.xql @ 11:d6f528ad5d96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
TEI Unterst?tzung, Fehlerbehebungen, externe Objekte
author Josef Willenborg <jwillenborg@mpiwg-berlin.mpg.de>
date Fri, 11 Mar 2011 13:34:02 +0100
parents 5589d865af7a
children
comparison
equal deleted inserted replaced
10:59ff47d1e237 11:d6f528ad5d96
1 xquery version "1.0"; 1 xquery version "1.0";
2 2
3 declare namespace request = "http://exist-db.org/xquery/request"; 3 declare namespace request = "http://exist-db.org/xquery/request";
4 declare namespace util = "http://exist-db.org/xquery/util"; 4 declare namespace util = "http://exist-db.org/xquery/util";
5 declare namespace echo="http://www.mpiwg-berlin.mpg.de/ns/echo/1.0/"; 5 declare namespace echo="http://www.mpiwg-berlin.mpg.de/ns/echo/1.0/";
6 declare namespace TEI="http://www.tei-c.org/ns/1.0";
6 7
7 (: ToDo wenn eine pn gegeben ist (also im Fragment untersucht werden soll) geht es momentan nicht s.u. :) 8 (: ToDo wenn eine pn gegeben ist (also im Fragment untersucht werden soll) geht es momentan nicht s.u. :)
8 (: ToDo wenn eine pn gegeben ist, wird momentan der namespace ignoriert wie z.B. xquery=//echo:s&pn=14 :) 9 (: ToDo wenn eine pn gegeben ist, wird momentan der namespace ignoriert wie z.B. xquery=//echo:s&pn=14 :)
9 let $xQuery := request:get-parameter("xquery", "") 10 let $xQuery := request:get-parameter("xquery", "")
10 let $xQueryPath := request:get-parameter("xqueryPath", "") 11 let $xQueryPath := request:get-parameter("xqueryPath", "")
22 let $pageBreaks := 23 let $pageBreaks :=
23 if ($docbase = 'archimedes') 24 if ($docbase = 'archimedes')
24 then $document//pb 25 then $document//pb
25 else if ($docbase = 'echo') 26 else if ($docbase = 'echo')
26 then $document//echo:pb 27 then $document//echo:pb
28 else if ($docbase = 'tei')
29 then $document//TEI:pb
27 else $document//pb 30 else $document//pb
28 let $countPBs := count($pageBreaks) 31 let $countPBs := count($pageBreaks)
29 let $pb1 := subsequence($pageBreaks, $pn, 1) 32 let $pb1 := subsequence($pageBreaks, $pn, 1)
30 let $pb2 := subsequence($pageBreaks, $pn + 1, 1) 33 let $pb2 := subsequence($pageBreaks, $pn + 1, 1)
31 let $pageFragmentStr := 34 let $pageFragmentStr :=