dba/stores  library module

RA

Summary

Authors

• Christian Grün, BaseX Team 2005-23, BSD License

Imports

This module is imported by 0 modules. It imports 3 modules.

Variables

variable $dba:CAT := 'sessions'

Functions

function dba:sessions(
  $sort   as xs:string,
  $error  as xs:string?,
  $info   as xs:string?
) as element(html) {
  html:wrap(map { 'header': $dba:CAT, 'info': $info, 'error': $error },
    <tr>
      <td>
        <form action='{ $dba:CAT }' method='post' class='update'>
        <h2>Store</h2>
        {
          let $headers := (
            map { 'key': 'id', 'label': 'ID' }
          
          )
          let $entries :=
            for $id in store:keys()
            
            return map {
              'id': $id 
            }
          let $buttons := (
            html:button('stores-deletekeys', 'Delete', true())
          )
          let $options := map { 'sort': $sort }
          return html:table($headers, $entries, $buttons, map { }, $options)
        }
        </form>
      </td>
      <td class='vertical'/>
      <td>
        <h2>Custom stores</h2>
        {
          let $headers := (
            map { 'key': 'name', 'label': 'Name' }
          )
          let $entries := store:list()! map {
            'name': .
          }
          return html:table($headers, $entries, (), map { }, map { })
        }
      </td>
    </tr>
  )
}

function dba:users-redirect(
  $action  as xs:string,
  $names   as xs:string*,
  $ids     as xs:string*
) as element(rest:response) {
  web:redirect($action, map { 'id': $ids })
}

Namespaces

The following namespaces are defined:

Source Code

(:~
 : Stores page.
 :
 : @author Christian Grün, BaseX Team 2005-23, BSD License
 :)
module namespace dba = 'dba/stores';

import module namespace config = 'dba/config' at '../lib/config.xqm';
import module namespace html = 'dba/html' at '../lib/html.xqm';
import module namespace util = 'dba/util' at '../lib/util.xqm';

(:~ Top category :)
declare variable $dba:CAT := 'sessions';

(:~
 : Stores page.
 : @param  $sort   table sort key
 : @param  $error  error message
 : @param  $info   info message
 : @return page
 :)
declare
  %rest:GET
  %rest:path('/dba/stores')
  %rest:query-param('sort',  '{$sort}', 'access')
  %rest:query-param('error', '{$error}')
  %rest:query-param('info',  '{$info}')
  %output:method('html')
function dba:sessions(
  $sort   as xs:string,
  $error  as xs:string?,
  $info   as xs:string?
) as element(html) {
  html:wrap(map { 'header': $dba:CAT, 'info': $info, 'error': $error },
    <tr>
      <td>
        <form action='{ $dba:CAT }' method='post' class='update'>
        <h2>Store</h2>
        {
          let $headers := (
            map { 'key': 'id', 'label': 'ID' }
          
          )
          let $entries :=
            for $id in store:keys()
            
            return map {
              'id': $id 
            }
          let $buttons := (
            html:button('stores-deletekeys', 'Delete', true())
          )
          let $options := map { 'sort': $sort }
          return html:table($headers, $entries, $buttons, map { }, $options)
        }
        </form>
      </td>
      <td class='vertical'/>
      <td>
        <h2>Custom stores</h2>
        {
          let $headers := (
            map { 'key': 'name', 'label': 'Name' }
          )
          let $entries := store:list()! map {
            'name': .
          }
          return html:table($headers, $entries, (), map { }, map { })
        }
      </td>
    </tr>
  )
};

(:~
 : Redirects to the specified action.
 : @param  $action  action to perform
 : @param  $names   names of users
 : @param  $ids     ids
 : @return redirection
 :)
declare
  %rest:POST
  %rest:path('/dba/stores')
  %rest:query-param('action', '{$action}')
  %rest:query-param('name',   '{$names}')
  %rest:query-param('id',     '{$ids}')
function dba:users-redirect(
  $action  as xs:string,
  $names   as xs:string*,
  $ids     as xs:string*
) as element(rest:response) {
  web:redirect($action, map { 'id': $ids })
};