!!! Listings zum Artikel "Triangulaer"
!!! von Christoph Leisegang
!!! in iX 5/2009, S. 168

!!! Listing 1:

<?xml version="1.0" encoding="UTF-8"?>
<user>
  <name>cl</name>  
  <long-name>Christoph Leisegang</long-name>
  <bookmarks>
    <bookmark href="http://www.heise.de/" 
      hash="04b3ddfa1477b307496180d055844ce9" 
      date="2008-12-11T11:08:54Z">
      <title>Heise News</title>
      <tags>
        <tag>ticker</tag>
        <tag>it</tag>
        <tag>news</tag>
      </tags>
    </bookmark>
  </bookmarks>
</user>

!!! Listing 2:

declare option exist:serialize "method=xml media-type=application/xml";
declare variable $bookmarks as node()* := collection('/db/bookmarks/data');
declare variable $user as xs:string := request:get-parameter('user', '');
declare variable $tag as xs:string := request:get-parameter('tag', '');
declare variable $hash as xs:string := request:get-parameter('hash', '');

declare function local:create-bookmark($b as element(),
        $count as xs:integer, $tags as element()*) as element() 
{
  <bookmark>
      { $b/@*, attribute count { $count }, $b/title }
      <tags>
        {
          for $distinct-tags in distinct-values($tags)
          return
            <tag> { $distinct-tags  } </tag>
        }
      </tags>
  </bookmark>
};

<bookmarks>
{
  (: Finde alle Bookmarks zu einem Benutzer :)
  if( not($user eq '')) then
    for $b in $bookmarks/user[name=$user]//bookmark
    order by max($b/xs:dateTime(@date)) descending
    return
      local:create-bookmark($b, count($b), $b/tags/tag)

  (: Finde alle Bookmarks zu einem 'tag' :)
  else if(not($tag eq '')) then
    let $b-same-tag := $bookmarks//bookmark[tags/tag = $tag]
    for $distinct-hash in distinct-values($b-same-tag/@hash)
    let $b-same-hash := $bookmarks/user/bookmarks/bookmark[@hash = $distinct-hash]
    let $b-first := $b-same-hash[1]
    order by max($b-same-hash/xs:dateTime(@date)) descending
      return
        local:create-bookmark($b-first, count($b-same-hash), $b-same-hash/tags/tag)

(: Finde alle Bookmarks aller Benutzer absteigend sortiert nach Datum :)
  else
    for $distinct-hash in distinct-values($bookmarks//bookmark/@hash)
    let $b-same-hash := $bookmarks/user/bookmarks/bookmark[@hash = $distinct-hash]
    let $b-first := $b-same-hash[1]
    order by max($b-same-hash/xs:dateTime(@date)) descending
    return
      local:create-bookmark($b-first, count($b-same-hash), $b-same-hash/tags/tag) 
}
</bookmarks>

--> XQuery leicht gekürzt

!!! Listing 3:


<xf:model>

  <xf:instance xmlns="" id="bookmark-result">
    <bookmarks/>
  </xf:instance>

  <xf:instance xmlns="" id="submission-bookmark-data">
    <data>
      <user/>
      <tag/>
    </data>
  </xf:instance>
    
  <xf:bind id="submission-bookmark-user-bind" 
      nodeset="instance('submission-bookmark-data')/user"/>
  <xf:bind id="submission-bookmark-tag-bind" 
      nodeset="instance('submission-bookmark-data')/tag"/>
  <xf:bind id="submission-bookmark-bind" 
      nodeset="instance('submission-bookmark-data')"/>
  
  <xf:submission id="get-bookmarks" 
      method="get" replace="instance" 
      resource="queries/getBookmarks.xq" 
      bind="submission-bookmark-bind" instance="bookmark-result"/>
...
<xf:model>

!!! Listing 4:

<ul>
  <xf:repeat nodeset="instance('bookmark-result')/bookmark">
    <li>
      <xf:trigger appearance="minimal">
        <xf:label ref="title"/>
        <xf:load ev:event="DOMActivate" ref="@href"/>
      </xf:trigger>
  ...
    </li>
  </xf:repeat>
</ul>

!!! Listing 5:

<xf:instance xmlns="" id="submission-store-bookmarks-data">
    <user/>
</xf:instance>

<xf:instance xmlns="" 
    id="submission-store-bookmarks-data-template">
  <data>
    <user>
      <name/>
      <long-name/>
      <bookmarks>
        <bookmark href="" hash="" date="">
          <title/>
          <tags/>
        </bookmark>
      </bookmarks>
    </user>
  </data>
</xf:instance>

<xf:submission id="store-bookmarks" 
    method="post" mediatype="text/xml"    
    resource="queries/storeBookmarks.xq"
    ref="instance('submission-store-bookmarks-data')" />

!!! Listing 6:

declare variable $data as element()? := request:get-data();
declare variable   $bookmark := $data//bookmark;
declare variable $bookmarks as document-node()? := doc(concat('/db/bookmarks/data/', $data/name, '.xml'));

let $isLoggedIn := xdb:login("xmldb:exist:///db", "admin", "xxxx")
let $hash as xs:string := util:md5( concat( $bookmark/@href, $bookmark/title) )
let $old-bookmark := $bookmarks//bookmark[@hash = $hash]

return
(
update replace	$data//bookmark/@hash with $hash,

if (count($bookmarks) > 0) then (

  (: update existing bookmark with new tags:)
  update replace  $bookmarks/long-name with $data/user/long-name,

  if(count($old-bookmark) > 0) then   (
    update replace $old-bookmark/tags with (
      <tags>
        {
          for $distinct-tag in distinct-values($data//bookmark[@hash = $hash]/tags/tag | $old-bookmark/tags/tag)
          return
          <tag>  { $distinct-tag }   </tag>
        }
      </tags> ) )
  else
  
    (: update existing document with new bookmark :)
    update insert  $data//bookmark preceding $bookmarks//bookmark[1] )
else

  (: create new dokument :)
  let $ret := xdb:store("xmldb:exist:///db/bookmarks/data", concat($data/name, ".xml"), $data )
  return '' )
--> XQuery leicht gekürzt