session-update.xqy

xquery version "1.0-ml";
(:
 : cq: session-update.xqy
 :
 : Copyright (c) 2002-2011 MarkLogic Corporation. All Rights Reserved.
 :
 : Licensed under the Apache License, Version 2.0 (the "License");
 : you may not use this file except in compliance with the License.
 : You may obtain a copy of the License at
 :
 : http://www.apache.org/licenses/LICENSE-2.0
 :
 : Unless required by applicable law or agreed to in writing, software
 : distributed under the License is distributed on an "AS IS" BASIS,
 : WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 : See the License for the specific language governing permissions and
 : limitations under the License.
 :
 : The use of the Apache License does not indicate that this project is
 : affiliated with the Apache Software Foundation.
 :
 :)

import module namespace c = "com.marklogic.developer.cq.controller"
 at "lib-controller.xqy";

import module namespace d = "com.marklogic.developer.cq.debug"
 at "lib-debug.xqy";

declare namespace sess = "com.marklogic.developer.cq.session";

declare option xdmp:mapping "false";

declare variable $ETAG as xs:string := xdmp:get-request-header("if-match");

declare variable $ID as xs:string := xdmp:get-request-field("ID");

declare variable $BUFFERS as xs:string := xdmp:get-request-field("BUFFERS");

declare variable $HISTORY as xs:string := xdmp:get-request-field("HISTORY");

declare variable $TABS as xs:string := xdmp:get-request-field("TABS");

declare variable $UNQUOTE-OPTS as xs:string* :=
  ('repair-none', 'format-xml');

declare variable $SESSION-NAMESPACE as xs:string :=
  namespace-uri(<sess:x/>);

declare variable $new-buffers as element(sess:query-buffers) :=
  d:debug(("session-update.xqy", $BUFFERS)),
  xdmp:unquote($BUFFERS, $SESSION-NAMESPACE, $UNQUOTE-OPTS)
  /sess:query-buffers
;

declare variable $new-history as element(sess:query-history) :=
  d:debug(("session-update.xqy", $HISTORY)),
  xdmp:unquote($HISTORY, $SESSION-NAMESPACE, $UNQUOTE-OPTS)
  /sess:query-history
;

declare variable $new-tabs as element(sess:active-tab) :=
  d:debug(("session-update.xqy", $TABS)),
  xdmp:unquote($TABS, $SESSION-NAMESPACE, $UNQUOTE-OPTS)
  /sess:active-tab
;

d:check-debug()
,
(: will return new etag :)
let $etag := c:session-update(
  $ID, $ETAG, ($new-buffers, $new-history, $new-tabs) )
return (
  if (xdmp:get-response-code()[1] eq 412)
  then $etag
  else (
    xdmp:add-response-header('etag', $etag),
    (: firefox 3 logs an error if the result is empty :)
    $ID
  )
)

(: session-update.xqy :)