Mercurial > hg > mpdl-group
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 6:2396a569e446 | 7:5589d865af7a |
|---|---|
| 1 xquery version "1.0"; | |
| 2 | |
| 3 declare namespace echo="http://www.mpiwg-berlin.mpg.de/ns/echo/1.0/"; | |
| 4 declare namespace exist="http://exist.sourceforge.net/NS/exist"; | |
| 5 declare namespace util = "http://exist-db.org/xquery/util"; | |
| 6 declare namespace foo = "http://exist-db.org/xquery/foo"; | |
| 7 | |
| 8 | |
| 9 let $coll := collection("/db/mpdl/documents/standard/archimedes/la") | |
| 10 let $doc := doc("/db/mpdl/documents/standard/echo/zh/SongYingxing_1637.xml") | |
| 11 let $pn := 300 | |
| 12 let $xpathQuery := "//place" | |
| 13 | |
| 14 | |
| 15 let $node := <a xmlns="test"><b xmlns="foo"/><bla xmlns="foooo">bla</bla><c/><bla>bla</bla>ggggg</a> | |
| 16 let $nodeTest := <a xmlns="test"><b xmlns="foo"/>bar<c/><bla>bla</bla>ggggg</a> | |
| 17 let $login := xmldb:login('/db/', 'admin', '') | |
| 18 let $store := xmldb:store('/db/', 'test.xml', $node) | |
| 19 let $doc := doc('/db/test.xml') | |
| 20 let $ms1 := subsequence($doc//*:b, 1, 1) | |
| 21 let $ms2 := subsequence($doc//*:c, 1, 1) | |
| 22 let $result := util:get-fragment-between($ms1, $ms2, true()) | |
| 23 let $bla := util:parse($result) | |
| 24 return $bla |