Mercurial > hg > mpdl-group
diff software/eXist/webapp/mpdl/_stuff/testDev/get-fragment.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 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/software/eXist/webapp/mpdl/_stuff/testDev/get-fragment.xql Tue Feb 08 15:16:46 2011 +0100 @@ -0,0 +1,19 @@ +xquery version "1.0"; + +declare namespace echo="http://www.mpiwg-berlin.mpg.de/ns/echo/1.0/"; +declare namespace exist="http://exist.sourceforge.net/NS/exist"; +declare namespace util = "http://exist-db.org/xquery/util"; +declare namespace foo = "http://exist-db.org/xquery/foo"; + + +let $coll := collection("/db/mpdl/documents/standard/archimedes/la") +let $doc := doc("/db/mpdl/documents/standard/echo/zh/SongYingxing_1637.xml") +let $pn := 300 +let $xpathQuery := "//place" + + +let $node := <a xmlns="test"><b xmlns="foo"/><bla xmlns="foooo">bla</bla><c/><bla>bla</bla>ggggg</a> let $nodeTest := <a xmlns="test"><b xmlns="foo"/>bar<c/><bla>bla</bla>ggggg</a> let $login := xmldb:login('/db/', 'admin', '') let $store := xmldb:store('/db/', 'test.xml', $node) let $doc := doc('/db/test.xml') +let $ms1 := subsequence($doc//*:b, 1, 1) +let $ms2 := subsequence($doc//*:c, 1, 1) let $result := util:get-fragment-between($ms1, $ms2, true()) +let $bla := util:parse($result) +return $bla \ No newline at end of file